1 {
2 File: HIToolbox/TextEdit.h
3
4 Contains: TextEdit Interfaces.
5
6 Version: HIToolbox-624~3
7
8 Copyright: � 1985-2008 by Apple Computer, Inc., all rights reserved
9
10 Bugs?: For bug reports, consult the following page on
11 the World Wide Web:
12
13 http://bugs.freepascal.org
14
15 }
16 { Pascal Translation Updated: Peter N Lewis, <peter@stairways.com.au>, August 2005 }
17 { Pascal Translation Updated: Jonas Maebe, <jonas@freepascal.org>, October 2009 }
18 { Pascal Translation Updated: Jonas Maebe, <jonas@freepascal.org>, October 2012 }
19 {
20 Modified for use with Free Pascal
21 Version 308
22 Please report any bugs to <gpc@microbizz.nl>
23 }
24
25 {$ifc not defined MACOSALLINCLUDE or not MACOSALLINCLUDE}
26 {$mode macpas}
27 {$modeswitch cblocks}
28 {$packenum 1}
29 {$macro on}
30 {$inline on}
31 {$calling mwpascal}
32
33 unit TextEdit;
34 interface
35 {$setc UNIVERSAL_INTERFACES_VERSION := $0400}
36 {$setc GAP_INTERFACES_VERSION := $0308}
37
38 {$ifc not defined USE_CFSTR_CONSTANT_MACROS}
39 {$setc USE_CFSTR_CONSTANT_MACROS := TRUE}
40 {$endc}
41
42 {$ifc defined CPUPOWERPC and defined CPUI386}
43 {$error Conflicting initial definitions for CPUPOWERPC and CPUI386}
44 {$endc}
45 {$ifc defined FPC_BIG_ENDIAN and defined FPC_LITTLE_ENDIAN}
46 {$error Conflicting initial definitions for FPC_BIG_ENDIAN and FPC_LITTLE_ENDIAN}
47 {$endc}
48
49 {$ifc not defined __ppc__ and defined CPUPOWERPC32}
50 {$setc __ppc__ := 1}
51 {$elsec}
52 {$setc __ppc__ := 0}
53 {$endc}
54 {$ifc not defined __ppc64__ and defined CPUPOWERPC64}
55 {$setc __ppc64__ := 1}
56 {$elsec}
57 {$setc __ppc64__ := 0}
58 {$endc}
59 {$ifc not defined __i386__ and defined CPUI386}
60 {$setc __i386__ := 1}
61 {$elsec}
62 {$setc __i386__ := 0}
63 {$endc}
64 {$ifc not defined __x86_64__ and defined CPUX86_64}
65 {$setc __x86_64__ := 1}
66 {$elsec}
67 {$setc __x86_64__ := 0}
68 {$endc}
69 {$ifc not defined __arm__ and defined CPUARM}
70 {$setc __arm__ := 1}
71 {$elsec}
72 {$setc __arm__ := 0}
73 {$endc}
74 {$ifc not defined __arm64__ and defined CPUAARCH64}
75 {$setc __arm64__ := 1}
76 {$elsec}
77 {$setc __arm64__ := 0}
78 {$endc}
79
80 {$ifc defined cpu64}
81 {$setc __LP64__ := 1}
82 {$elsec}
83 {$setc __LP64__ := 0}
84 {$endc}
85
86
87 {$ifc defined __ppc__ and __ppc__ and defined __i386__ and __i386__}
88 {$error Conflicting definitions for __ppc__ and __i386__}
89 {$endc}
90
91 {$ifc defined __ppc__ and __ppc__}
92 {$setc TARGET_CPU_PPC := TRUE}
93 {$setc TARGET_CPU_PPC64 := FALSE}
94 {$setc TARGET_CPU_X86 := FALSE}
95 {$setc TARGET_CPU_X86_64 := FALSE}
96 {$setc TARGET_CPU_ARM := FALSE}
97 {$setc TARGET_CPU_ARM64 := FALSE}
98 {$setc TARGET_OS_MAC := TRUE}
99 {$setc TARGET_OS_IPHONE := FALSE}
100 {$setc TARGET_IPHONE_SIMULATOR := FALSE}
101 {$setc TARGET_OS_EMBEDDED := FALSE}
102 {$elifc defined __ppc64__ and __ppc64__}
103 {$setc TARGET_CPU_PPC := FALSE}
104 {$setc TARGET_CPU_PPC64 := TRUE}
105 {$setc TARGET_CPU_X86 := FALSE}
106 {$setc TARGET_CPU_X86_64 := FALSE}
107 {$setc TARGET_CPU_ARM := FALSE}
108 {$setc TARGET_CPU_ARM64 := FALSE}
109 {$setc TARGET_OS_MAC := TRUE}
110 {$setc TARGET_OS_IPHONE := FALSE}
111 {$setc TARGET_IPHONE_SIMULATOR := FALSE}
112 {$setc TARGET_OS_EMBEDDED := FALSE}
113 {$elifc defined __i386__ and __i386__}
114 {$setc TARGET_CPU_PPC := FALSE}
115 {$setc TARGET_CPU_PPC64 := FALSE}
116 {$setc TARGET_CPU_X86 := TRUE}
117 {$setc TARGET_CPU_X86_64 := FALSE}
118 {$setc TARGET_CPU_ARM := FALSE}
119 {$setc TARGET_CPU_ARM64 := FALSE}
120 {$ifc defined iphonesim}
121 {$setc TARGET_OS_MAC := FALSE}
122 {$setc TARGET_OS_IPHONE := TRUE}
123 {$setc TARGET_IPHONE_SIMULATOR := TRUE}
124 {$elsec}
125 {$setc TARGET_OS_MAC := TRUE}
126 {$setc TARGET_OS_IPHONE := FALSE}
127 {$setc TARGET_IPHONE_SIMULATOR := FALSE}
128 {$endc}
129 {$setc TARGET_OS_EMBEDDED := FALSE}
130 {$elifc defined __x86_64__ and __x86_64__}
131 {$setc TARGET_CPU_PPC := FALSE}
132 {$setc TARGET_CPU_PPC64 := FALSE}
133 {$setc TARGET_CPU_X86 := FALSE}
134 {$setc TARGET_CPU_X86_64 := TRUE}
135 {$setc TARGET_CPU_ARM := FALSE}
136 {$setc TARGET_CPU_ARM64 := FALSE}
137 {$ifc defined iphonesim}
138 {$setc TARGET_OS_MAC := FALSE}
139 {$setc TARGET_OS_IPHONE := TRUE}
140 {$setc TARGET_IPHONE_SIMULATOR := TRUE}
141 {$elsec}
142 {$setc TARGET_OS_MAC := TRUE}
143 {$setc TARGET_OS_IPHONE := FALSE}
144 {$setc TARGET_IPHONE_SIMULATOR := FALSE}
145 {$endc}
146 {$setc TARGET_OS_EMBEDDED := FALSE}
147 {$elifc defined __arm__ and __arm__}
148 {$setc TARGET_CPU_PPC := FALSE}
149 {$setc TARGET_CPU_PPC64 := FALSE}
150 {$setc TARGET_CPU_X86 := FALSE}
151 {$setc TARGET_CPU_X86_64 := FALSE}
152 {$setc TARGET_CPU_ARM := TRUE}
153 {$setc TARGET_CPU_ARM64 := FALSE}
154 {$setc TARGET_OS_MAC := FALSE}
155 {$setc TARGET_OS_IPHONE := TRUE}
156 {$setc TARGET_IPHONE_SIMULATOR := FALSE}
157 {$setc TARGET_OS_EMBEDDED := TRUE}
158 {$elifc defined __arm64__ and __arm64__}
159 {$setc TARGET_CPU_PPC := FALSE}
160 {$setc TARGET_CPU_PPC64 := FALSE}
161 {$setc TARGET_CPU_X86 := FALSE}
162 {$setc TARGET_CPU_X86_64 := FALSE}
163 {$setc TARGET_CPU_ARM := FALSE}
164 {$setc TARGET_CPU_ARM64 := TRUE}
165 {$ifc defined ios}
166 {$setc TARGET_OS_MAC := FALSE}
167 {$setc TARGET_OS_IPHONE := TRUE}
168 {$setc TARGET_OS_EMBEDDED := TRUE}
169 {$elsec}
170 {$setc TARGET_OS_MAC := TRUE}
171 {$setc TARGET_OS_IPHONE := FALSE}
172 {$setc TARGET_OS_EMBEDDED := FALSE}
173 {$endc}
174 {$setc TARGET_IPHONE_SIMULATOR := FALSE}
175 {$elsec}
176 {$error __ppc__ nor __ppc64__ nor __i386__ nor __x86_64__ nor __arm__ nor __arm64__ is defined.}
177 {$endc}
178
179 {$ifc defined __LP64__ and __LP64__ }
180 {$setc TARGET_CPU_64 := TRUE}
181 {$elsec}
182 {$setc TARGET_CPU_64 := FALSE}
183 {$endc}
184
185 {$ifc defined FPC_BIG_ENDIAN}
186 {$setc TARGET_RT_BIG_ENDIAN := TRUE}
187 {$setc TARGET_RT_LITTLE_ENDIAN := FALSE}
188 {$elifc defined FPC_LITTLE_ENDIAN}
189 {$setc TARGET_RT_BIG_ENDIAN := FALSE}
190 {$setc TARGET_RT_LITTLE_ENDIAN := TRUE}
191 {$elsec}
192 {$error Neither FPC_BIG_ENDIAN nor FPC_LITTLE_ENDIAN are defined.}
193 {$endc}
194 {$setc ACCESSOR_CALLS_ARE_FUNCTIONS := TRUE}
195 {$setc CALL_NOT_IN_CARBON := FALSE}
196 {$setc OLDROUTINENAMES := FALSE}
197 {$setc OPAQUE_TOOLBOX_STRUCTS := TRUE}
198 {$setc OPAQUE_UPP_TYPES := TRUE}
199 {$setc OTCARBONAPPLICATION := TRUE}
200 {$setc OTKERNEL := FALSE}
201 {$setc PM_USE_SESSION_APIS := TRUE}
202 {$setc TARGET_API_MAC_CARBON := TRUE}
203 {$setc TARGET_API_MAC_OS8 := FALSE}
204 {$setc TARGET_API_MAC_OSX := TRUE}
205 {$setc TARGET_CARBON := TRUE}
206 {$setc TARGET_CPU_68K := FALSE}
207 {$setc TARGET_CPU_MIPS := FALSE}
208 {$setc TARGET_CPU_SPARC := FALSE}
209 {$setc TARGET_OS_UNIX := FALSE}
210 {$setc TARGET_OS_WIN32 := FALSE}
211 {$setc TARGET_RT_MAC_68881 := FALSE}
212 {$setc TARGET_RT_MAC_CFM := FALSE}
213 {$setc TARGET_RT_MAC_MACHO := TRUE}
214 {$setc TYPED_FUNCTION_POINTERS := TRUE}
215 {$setc TYPE_BOOL := FALSE}
216 {$setc TYPE_EXTENDED := FALSE}
217 {$setc TYPE_LONGLONG := TRUE}
218 uses MacTypes,QuickdrawTypes,MixedMode;
219 {$endc} {not MACOSALLINCLUDE}
220
221
222 {$ifc TARGET_OS_MAC}
223
224 {***********************************************************************************************
225 All functions in this file are deprecated for Mac OS 10.4. The Multilingual Text Engine (MLTE)
226 API is recommended instead. Although there is no one-to-one correspondence between the two API,
227 MLTE should be used instead of TE since it provides support for Unicode text. MLTE uses ATSUI
228 for text layout and Quartz for text rendering. Please see MacTextEditor.h for a description of
229 the MLTE API.
230 *************************************************************************************************}
231
232
233 {$ALIGN MAC68K}
234
235 type
236 TERecPtr = ^TERec;
237 TEPtr = TERecPtr;
238 TEHandle = ^TEPtr;
239 HighHookProcPtr = procedure( const (*var*) r: Rect; pTE: TEPtr );
theCharnull240 EOLHookProcPtr = function( theChar: ByteParameter; pTE: TEPtr; hTE: TEHandle ): Boolean;
241 CaretHookProcPtr = procedure( const (*var*) r: Rect; pTE: TEPtr );
textLennull242 WidthHookProcPtr = function( textLen: UInt16; textOffset: UInt16; textBufferPtr: UnivPtr; pTE: TEPtr; hTE: TEHandle ): UInt16;
textLennull243 TextWidthHookProcPtr = function( textLen: UInt16; textOffset: UInt16; textBufferPtr: UnivPtr; pTE: TEPtr; hTE: TEHandle ): UInt16;
styleRunLennull244 NWidthHookProcPtr = function( styleRunLen: UInt16; styleRunOffset: UInt16; slop: SInt16; direction: SInt16; textBufferPtr: UnivPtr; var lineStart: SInt16; pTE: TEPtr; hTE: TEHandle ): UInt16;
245 DrawHookProcPtr = procedure( textOffset: UInt16; drawLen: UInt16; textBufferPtr: UnivPtr; pTE: TEPtr; hTE: TEHandle );
styleRunLennull246 HitTestHookProcPtr = function( styleRunLen: UInt16; styleRunOffset: UInt16; slop: UInt16; textBufferPtr: UnivPtr; pTE: TEPtr; hTE: TEHandle; var pixelWidth: UInt16; var charOffset: UInt16; var pixelInChar: Boolean ): Boolean;
247 TEFindWordProcPtr = procedure( currentPos: UInt16; caller: SInt16; pTE: TEPtr; hTE: TEHandle; var wordStart: UInt16; var wordEnd: UInt16 );
248 TERecalcProcPtr = procedure( pTE: TEPtr; changeLength: UInt16; var lineStart: UInt16; var firstChar: UInt16; var lastChar: UInt16 );
249 TEDoTextProcPtr = procedure( pTE: TEPtr; firstChar: UInt16; lastChar: UInt16; selector: SInt16; var currentGrafPort: GrafPtr; var charPosition: SInt16 );
pTEnull250 TEClickLoopProcPtr = function( pTE: TEPtr ): Boolean;
textnull251 WordBreakProcPtr = function( text: Ptr; charPos: SInt16 ): Boolean;
252 {
253 Important note about TEClickLoopProcPtr and WordBreakProcPtr
254
255 At one point these were defined as returning the function result in the
256 condition code Z-bit. This was correct, in that it was what the 68K
257 implementation of TextEdit actually tested. But, MixedMode had a different
258 idea of what returning a boolean in the Z-bit meant. MixedMode was setting
259 the Z-bit the complement of what was wanted.
260
261 Therefore, these ProcPtrs have been changed (back) to return the result in
262 register D0. It turns out that for register based routines,
263 MixedMode sets the Z-bit of the 68K emulator based on the contents
264 of the return result register. Thus we can get the Z-bit set correctly.
265
266 But, when TextEdit is recoded in PowerPC, if it calls a 68K ClickLoop
267 or WordBreak routine, register D0 had better have the result (in addition
268 to the Z-bit). Therefore all 68K apps should make sure their ClickLoop or
269 WordBreak routines set register D0 at the end.
270 }
271
272 {
273 There is no function to get/set the low-mem for FindWordHook at 0x07F8.
274 This is because it is not a low-mem ProcPtr. That address is the entry
275 in the OS TrapTable for trap 0xA0FE. You can use Get/SetTrapAddress to
276 acccess it.
277 }
278
279 {
280 The following ProcPtrs cannot be written in or called from a high-level
281 language without the help of mixed mode or assembly glue because they
282 use the following parameter-passing conventions:
283
284 typedef pascal void (*HighHookProcPtr)(const Rect *r, TEPtr pTE);
285 typedef pascal void (*CaretHookProcPtr)(const Rect *r, TEPtr pTE);
286
287 In:
288 => r on stack
289 => pTE A3.L
290 Out:
291 none
292
293 typedef pascal Boolean (*EOLHookProcPtr)(char theChar, TEPtr pTE, TEHandle hTE);
294
295 In:
296 => theChar D0.B
297 => pTE A3.L
298 => hTE A4.L
299 Out:
300 <= Boolean Z bit of the CCR
301
302 typedef pascal unsigned short (*WidthHookProcPtr)(unsigned short textLen,
303 unsigned short textOffset, void *textBufferPtr, TEPtr pTE, TEHandle hTE);
304 typedef pascal unsigned short (*TextWidthHookProcPtr)(unsigned short textLen,
305 unsigned short textOffset, void *textBufferPtr, TEPtr pTE, TEHandle hTE);
306
307 In:
308 => textLen D0.W
309 => textOffset D1.W
310 => textBufferPtr A0.L
311 => pTE A3.L
312 => hTE A4.L
313 Out:
314 <= unsigned short D1.W
315
316 typedef pascal unsigned short (*NWidthHookProcPtr)(unsigned short styleRunLen,
317 unsigned short styleRunOffset, short slop, short direction, void *textBufferPtr,
318 short *lineStart, TEPtr pTE, TEHandle hTE);
319
320 In:
321 => styleRunLen D0.W
322 => styleRunOffset D1.W
323 => slop D2.W (low)
324 => direction D2.W (high)
325 => textBufferPtr A0.L
326 => lineStart A2.L
327 => pTE A3.L
328 => hTE A4.L
329 Out:
330 <= unsigned short D1.W
331
332 typedef pascal void (*DrawHookProcPtr)(unsigned short textOffset, unsigned short drawLen,
333 void *textBufferPtr, TEPtr pTE, TEHandle hTE);
334
335 In:
336 => textOffset D0.W
337 => drawLen D1.W
338 => textBufferPtr A0.L
339 => pTE A3.L
340 => hTE A4.L
341 Out:
342 none
343
344 typedef pascal Boolean (*HitTestHookProcPtr)(unsigned short styleRunLen,
345 unsigned short styleRunOffset, unsigned short slop, void *textBufferPtr,
346 TEPtr pTE, TEHandle hTE, unsigned short *pixelWidth, unsigned short *charOffset,
347 Boolean *pixelInChar);
348
349 In:
350 => styleRunLen D0.W
351 => styleRunOffset D1.W
352 => slop D2.W
353 => textBufferPtr A0.L
354 => pTE A3.L
355 => hTE A4.L
356 Out:
357 <= pixelWidth D0.W (low)
358 <= Boolean D0.W (high)
359 <= charOffset D1.W
360 <= pixelInChar D2.W
361
362 typedef pascal void (*TEFindWordProcPtr)(unsigned short currentPos, short caller,
363 TEPtr pTE, TEHandle hTE, unsigned short *wordStart, unsigned short *wordEnd);
364
365 In:
366 => currentPos D0.W
367 => caller D2.W
368 => pTE A3.L
369 => hTE A4.L
370 Out:
371 <= wordStart D0.W
372 <= wordEnd D1.W
373
374 typedef pascal void (*TERecalcProcPtr)(TEPtr pTE, unsigned short changeLength,
375 unsigned short *lineStart, unsigned short *firstChar, unsigned short *lastChar);
376
377 In:
378 => pTE A3.L
379 => changeLength D7.W
380 Out:
381 <= lineStart D2.W
382 <= firstChar D3.W
383 <= lastChar D4.W
384
385 typedef pascal void (*TEDoTextProcPtr)(TEPtr pTE, unsigned short firstChar, unsigned short lastChar,
386 short selector, GrafPtr *currentGrafPort, short *charPosition);
387
388 In:
389 => pTE A3.L
390 => firstChar D3.W
391 => lastChar D4.W
392 => selector D7.W
393 Out:
394 <= currentGrafPort A0.L
395 <= charPosition D0.W
396
397 }
398 HighHookUPP = HighHookProcPtr;
399 EOLHookUPP = EOLHookProcPtr;
400 CaretHookUPP = CaretHookProcPtr;
401 WidthHookUPP = WidthHookProcPtr;
402 TextWidthHookUPP = TextWidthHookProcPtr;
403 NWidthHookUPP = NWidthHookProcPtr;
404 DrawHookUPP = DrawHookProcPtr;
405 HitTestHookUPP = HitTestHookProcPtr;
406 TEFindWordUPP = TEFindWordProcPtr;
407 TERecalcUPP = TERecalcProcPtr;
408 TEDoTextUPP = TEDoTextProcPtr;
409 TEClickLoopUPP = TEClickLoopProcPtr;
410 WordBreakUPP = WordBreakProcPtr;
411 TERec = record
412 destRect: Rect;
413 viewRect: Rect;
414 selRect: Rect;
415 lineHeight: SInt16;
416 fontAscent: SInt16;
417 selPoint: Point;
418 selStart: SInt16;
419 selEnd: SInt16;
420 active: SInt16;
421 wordBreak: WordBreakUPP; { NOTE: This field is ignored on non-Roman systems and on Carbon (see IM-Text 2-60) }
422 clickLoop: TEClickLoopUPP;
423 clickTime: SIGNEDLONG;
424 clickLoc: SInt16;
425 caretTime: SIGNEDLONG;
426 caretState: SInt16;
427 just: SInt16;
428 teLength: SInt16;
429 hText: Handle;
430 hDispatchRec: SIGNEDLONG; { added to replace recalBack & recalLines. it's a handle anyway }
431 clikStuff: SInt16;
432 crOnly: SInt16;
433 txFont: SInt16;
434 txFace: StyleField; {StyleField occupies 16-bits, but only first 8-bits are used}
435 txMode: SInt16;
436 txSize: SInt16;
437 inPort: GrafPtr;
438 highHook: HighHookUPP;
439 caretHook: CaretHookUPP;
440 nLines: SInt16;
441 lineStarts: array[0..16000] of SInt16;
442 end;
443
444 const
445 { Justification (word alignment) styles }
446 teJustLeft = 0;
447 teJustCenter = 1;
448 teJustRight = -1;
449 teForceLeft = -2; { new names for the Justification (word alignment) styles }
450 teFlushDefault = 0; {flush according to the line direction }
451 teCenter = 1; {center justify (word alignment) }
452 teFlushRight = -1; {flush right for all scripts }
453 teFlushLeft = -2; {flush left for all scripts }
454
455 const
456 { Set/Replace style modes }
457 fontBit = 0; {set font}
458 faceBit = 1; {set face}
459 sizeBit = 2; {set size}
460 clrBit = 3; {set color}
461 addSizeBit = 4; {add size mode}
462 toggleBit = 5; {set faces in toggle mode}
463
464 const
465 { TESetStyle/TEContinuousStyle modes }
466 doFont = 1; { set font (family) number}
467 doFace = 2; {set character style}
468 doSize = 4; {set type size}
469 doColor = 8; {set color}
470 doAll = 15; {set all attributes}
471 addSize = 16; {adjust type size}
472 doToggle = 32; {toggle mode for TESetStyle}
473
474 const
475 { offsets into TEDispatchRec }
476 EOLHook = 0; {[UniversalProcPtr] TEEOLHook}
477 DRAWHook = 4; {[UniversalProcPtr] TEWidthHook}
478 WIDTHHook = 8; {[UniversalProcPtr] TEDrawHook}
479 HITTESTHook = 12; {[UniversalProcPtr] TEHitTestHook}
480 nWIDTHHook = 24; {[UniversalProcPtr] nTEWidthHook}
481 TextWidthHook = 28; {[UniversalProcPtr] TETextWidthHook}
482
483 const
484 { selectors for TECustomHook }
485 intEOLHook = 0; {TEIntHook value}
486 intDrawHook = 1; {TEIntHook value}
487 intWidthHook = 2; {TEIntHook value}
488 intHitTestHook = 3; {TEIntHook value}
489 intNWidthHook = 6; {TEIntHook value for new version of WidthHook}
490 intTextWidthHook = 7; {TEIntHook value for new TextWidthHook}
491 intInlineInputTSMTEPreUpdateHook = 8; {TEIntHook value for TSMTEPreUpdateProcPtr callback}
492 intInlineInputTSMTEPostUpdateHook = 9; {TEIntHook value for TSMTEPostUpdateProcPtr callback}
493
494 const
495 { feature or bit definitions for TEFeatureFlag }
496 teFAutoScroll = 0; {00000001b}
497 teFTextBuffering = 1; {00000010b}
498 teFOutlineHilite = 2; {00000100b}
499 teFInlineInput = 3; {00001000b }
500 teFUseWhiteBackground = 4; {00010000b }
501 teFUseInlineInput = 5; {00100000b }
502 teFInlineInputAutoScroll = 6; {01000000b }
503
504 const
505 { feature or bit definitions for TEFeatureFlag -- Carbon only }
506 { To avoid having to call TEIdle in Carbon apps, automatic idling can be activated }
507 { via the following feature flag, but you must ensure that the destRect and/or }
508 { GrafPort's origin be setup properly for drawing in a given TERec when }
509 { the timer fires. When this feature flag is set, TEIdle is a noop. }
510 { Activate this feature flag before calling TEActivate. }
511 teFIdleWithEventLoopTimer = 7; {10000000b }
512
513 const
514 { action for the new "bit (un)set" interface, TEFeatureFlag }
515 teBitClear = 0;
516 teBitSet = 1; {set the selector bit}
517 teBitTest = -1; {no change; just return the current setting}
518
519 const
520 {constants for identifying the routine that called FindWord }
521 teWordSelect = 4; {clickExpand to select word}
522 teWordDrag = 8; {clickExpand to drag new word}
523 teFromFind = 12; {FindLine called it ($0C)}
524 teFromRecal = 16; {RecalLines called it ($10) obsolete }
525
526 const
527 {constants for identifying TEDoText selectors }
528 teFind = 0; {TEDoText called for searching}
529 teHighlight = 1; {TEDoText called for highlighting}
530 teDraw = -1; {TEDoText called for drawing text}
531 teCaret = -2; {TEDoText called for drawing the caret}
532
533
534 type
535 Chars = packed array [0..32000] of char;
536 CharsPtr = ^Chars;
537 CharsHandle = ^CharsPtr;
538 StyleRunPtr = ^StyleRun;
539 StyleRun = record
540 startChar: SInt16; {starting character position}
541 styleIndex: SInt16; {index in style table}
542 end;
543 type
544 STElementPtr = ^STElement;
545 STElement = record
546 stCount: SInt16; {number of runs in this style}
547 stHeight: SInt16; {line height}
548 stAscent: SInt16; {font ascent}
549 stFont: SInt16; {font (family) number}
550 stFace: StyleField; {StyleField occupies 16-bits, but only first 8-bits are used }
551 stSize: SInt16; {size in points}
552 stColor: RGBColor; {absolute (RGB) color}
553 end;
554 TEStyleTable = array [0..1776] of STElement;
555 type
556 STPtr = ^TEStyleTable;
557 STHandle = ^STPtr;
558 LHElementPtr = ^LHElement;
559 LHElement = record
560 lhHeight: SInt16; {maximum height in line}
561 lhAscent: SInt16; {maximum ascent in line}
562 end;
563 LHTable = array [0..8000] of LHElement;
564 LHPtr = ^LHTable;
565 LHHandle = ^LHPtr;
566 ScrpSTElementPtr = ^ScrpSTElement;
567 ScrpSTElement = record
568 scrpStartChar: SInt32; {starting character position}
569 scrpHeight: SInt16;
570 scrpAscent: SInt16;
571 scrpFont: SInt16;
572 scrpFace: StyleField; {StyleField occupies 16-bits, but only first 8-bits are used}
573 scrpSize: SInt16;
574 scrpColor: RGBColor;
575 end;
576 { ARRAY [0..1600] OF ScrpSTElement }
577 ScrpSTTable = array [0..1600] of ScrpSTElement;
578 type
579 StScrpRecPtr = ^StScrpRec;
580 StScrpRec = record
581 scrpNStyles: SInt16; {number of styles in scrap}
582 scrpStyleTab: ScrpSTTable; {table of styles for scrap}
583 end;
584 type
585 StScrpPtr = StScrpRecPtr;
586 StScrpHandle = ^StScrpPtr;
587 NullStRecPtr = ^NullStRec;
588 NullStRec = record
589 teReserved: SIGNEDLONG; {reserved for future expansion}
590 nullScrap: StScrpHandle; {handle to scrap style table}
591 end;
592 type
593 NullStPtr = NullStRecPtr;
594 NullStHandle = ^NullStPtr;
595 TEStyleRecPtr = ^TEStyleRec;
596 TEStyleRec = record
597 nRuns: SInt16; {number of style runs}
598 nStyles: SInt16; {size of style table}
599 styleTab: STHandle; {handle to style table}
600 lhTab: LHHandle; {handle to line-height table}
601 teRefCon: SIGNEDLONG; {reserved for application use}
602 nullStyle: NullStHandle; {Handle to style set at null selection}
603 runs: array [0..8000] of StyleRun; { array [0..8000] of StyleRun }
604 end;
605 type
606 TEStylePtr = TEStyleRecPtr;
607 TEStyleHandle = ^TEStylePtr;
608 TextStyle = record
609 tsFont: SInt16; {font (family) number}
610 tsFace: StyleField; {StyleField occupies 16-bits, but only first 8-bits are used}
611 tsSize: SInt16; {size in point}
612 tsColor: RGBColor; {absolute (RGB) color}
613 end;
614 TextStylePtr = ^TextStyle;
615 type
616 TextStyleHandle = ^TextStylePtr;
617 TEIntHook = SInt16;
618 {
619 * NewHighHookUPP()
620 *
621 * Availability:
622 * Mac OS X: in version 10.0 and later in Carbon.framework
623 * CarbonLib: in CarbonLib 1.0 and later
624 * Non-Carbon CFM: available as macro/inline
625 }
NewHighHookUPPnull626 function NewHighHookUPP( userRoutine: HighHookProcPtr ): HighHookUPP; external name '_NewHighHookUPP';
627 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
628
629 {
630 * NewEOLHookUPP()
631 *
632 * Availability:
633 * Mac OS X: in version 10.0 and later in Carbon.framework
634 * CarbonLib: in CarbonLib 1.0 and later
635 * Non-Carbon CFM: available as macro/inline
636 }
637 function NewEOLHookUPP( userRoutine: EOLHookProcPtr ): EOLHookUPP; external name '_NewEOLHookUPP';
638 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
639
640 {
641 * NewCaretHookUPP()
642 *
643 * Availability:
644 * Mac OS X: in version 10.0 and later in Carbon.framework
645 * CarbonLib: in CarbonLib 1.0 and later
646 * Non-Carbon CFM: available as macro/inline
647 }
NewCaretHookUPPnull648 function NewCaretHookUPP( userRoutine: CaretHookProcPtr ): CaretHookUPP; external name '_NewCaretHookUPP';
649 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
650
651 {
652 * NewWidthHookUPP()
653 *
654 * Availability:
655 * Mac OS X: in version 10.0 and later in Carbon.framework
656 * CarbonLib: in CarbonLib 1.0 and later
657 * Non-Carbon CFM: available as macro/inline
658 }
NewWidthHookUPPnull659 function NewWidthHookUPP( userRoutine: WidthHookProcPtr ): WidthHookUPP; external name '_NewWidthHookUPP';
660 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
661
662 {
663 * NewTextWidthHookUPP()
664 *
665 * Availability:
666 * Mac OS X: in version 10.0 and later in Carbon.framework
667 * CarbonLib: in CarbonLib 1.0 and later
668 * Non-Carbon CFM: available as macro/inline
669 }
NewTextWidthHookUPPnull670 function NewTextWidthHookUPP( userRoutine: TextWidthHookProcPtr ): TextWidthHookUPP; external name '_NewTextWidthHookUPP';
671 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
672
673 {
674 * NewNWidthHookUPP()
675 *
676 * Availability:
677 * Mac OS X: in version 10.0 and later in Carbon.framework
678 * CarbonLib: in CarbonLib 1.0 and later
679 * Non-Carbon CFM: available as macro/inline
680 }
NewNWidthHookUPPnull681 function NewNWidthHookUPP( userRoutine: NWidthHookProcPtr ): NWidthHookUPP; external name '_NewNWidthHookUPP';
682 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
683
684 {
685 * NewDrawHookUPP()
686 *
687 * Availability:
688 * Mac OS X: in version 10.0 and later in Carbon.framework
689 * CarbonLib: in CarbonLib 1.0 and later
690 * Non-Carbon CFM: available as macro/inline
691 }
NewDrawHookUPPnull692 function NewDrawHookUPP( userRoutine: DrawHookProcPtr ): DrawHookUPP; external name '_NewDrawHookUPP';
693 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
694
695 {
696 * NewHitTestHookUPP()
697 *
698 * Availability:
699 * Mac OS X: in version 10.0 and later in Carbon.framework
700 * CarbonLib: in CarbonLib 1.0 and later
701 * Non-Carbon CFM: available as macro/inline
702 }
NewHitTestHookUPPnull703 function NewHitTestHookUPP( userRoutine: HitTestHookProcPtr ): HitTestHookUPP; external name '_NewHitTestHookUPP';
704 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
705
706 {
707 * NewTEFindWordUPP()
708 *
709 * Availability:
710 * Mac OS X: in version 10.0 and later in Carbon.framework
711 * CarbonLib: in CarbonLib 1.0 and later
712 * Non-Carbon CFM: available as macro/inline
713 }
NewTEFindWordUPPnull714 function NewTEFindWordUPP( userRoutine: TEFindWordProcPtr ): TEFindWordUPP; external name '_NewTEFindWordUPP';
715 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
716
717 {
718 * NewTERecalcUPP()
719 *
720 * Availability:
721 * Mac OS X: in version 10.0 and later in Carbon.framework
722 * CarbonLib: in CarbonLib 1.0 and later
723 * Non-Carbon CFM: available as macro/inline
724 }
NewTERecalcUPPnull725 function NewTERecalcUPP( userRoutine: TERecalcProcPtr ): TERecalcUPP; external name '_NewTERecalcUPP';
726 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
727
728 {
729 * NewTEDoTextUPP()
730 *
731 * Availability:
732 * Mac OS X: in version 10.0 and later in Carbon.framework
733 * CarbonLib: in CarbonLib 1.0 and later
734 * Non-Carbon CFM: available as macro/inline
735 }
NewTEDoTextUPPnull736 function NewTEDoTextUPP( userRoutine: TEDoTextProcPtr ): TEDoTextUPP; external name '_NewTEDoTextUPP';
737 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
738
739 {
740 * NewTEClickLoopUPP()
741 *
742 * Availability:
743 * Mac OS X: in version 10.0 and later in Carbon.framework
744 * CarbonLib: in CarbonLib 1.0 and later
745 * Non-Carbon CFM: available as macro/inline
746 }
NewTEClickLoopUPPnull747 function NewTEClickLoopUPP( userRoutine: TEClickLoopProcPtr ): TEClickLoopUPP; external name '_NewTEClickLoopUPP';
748 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
749
750 {
751 * NewWordBreakUPP()
752 *
753 * Availability:
754 * Mac OS X: not available
755 * CarbonLib: not available
756 * Non-Carbon CFM: available as macro/inline
757 }
758
759 {
760 * DisposeHighHookUPP()
761 *
762 * Availability:
763 * Mac OS X: in version 10.0 and later in Carbon.framework
764 * CarbonLib: in CarbonLib 1.0 and later
765 * Non-Carbon CFM: available as macro/inline
766 }
767 procedure DisposeHighHookUPP( userUPP: HighHookUPP ); external name '_DisposeHighHookUPP';
768 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
769
770 {
771 * DisposeEOLHookUPP()
772 *
773 * Availability:
774 * Mac OS X: in version 10.0 and later in Carbon.framework
775 * CarbonLib: in CarbonLib 1.0 and later
776 * Non-Carbon CFM: available as macro/inline
777 }
778 procedure DisposeEOLHookUPP( userUPP: EOLHookUPP ); external name '_DisposeEOLHookUPP';
779 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
780
781 {
782 * DisposeCaretHookUPP()
783 *
784 * Availability:
785 * Mac OS X: in version 10.0 and later in Carbon.framework
786 * CarbonLib: in CarbonLib 1.0 and later
787 * Non-Carbon CFM: available as macro/inline
788 }
789 procedure DisposeCaretHookUPP( userUPP: CaretHookUPP ); external name '_DisposeCaretHookUPP';
790 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
791
792 {
793 * DisposeWidthHookUPP()
794 *
795 * Availability:
796 * Mac OS X: in version 10.0 and later in Carbon.framework
797 * CarbonLib: in CarbonLib 1.0 and later
798 * Non-Carbon CFM: available as macro/inline
799 }
800 procedure DisposeWidthHookUPP( userUPP: WidthHookUPP ); external name '_DisposeWidthHookUPP';
801 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
802
803 {
804 * DisposeTextWidthHookUPP()
805 *
806 * Availability:
807 * Mac OS X: in version 10.0 and later in Carbon.framework
808 * CarbonLib: in CarbonLib 1.0 and later
809 * Non-Carbon CFM: available as macro/inline
810 }
811 procedure DisposeTextWidthHookUPP( userUPP: TextWidthHookUPP ); external name '_DisposeTextWidthHookUPP';
812 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
813
814 {
815 * DisposeNWidthHookUPP()
816 *
817 * Availability:
818 * Mac OS X: in version 10.0 and later in Carbon.framework
819 * CarbonLib: in CarbonLib 1.0 and later
820 * Non-Carbon CFM: available as macro/inline
821 }
822 procedure DisposeNWidthHookUPP( userUPP: NWidthHookUPP ); external name '_DisposeNWidthHookUPP';
823 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
824
825 {
826 * DisposeDrawHookUPP()
827 *
828 * Availability:
829 * Mac OS X: in version 10.0 and later in Carbon.framework
830 * CarbonLib: in CarbonLib 1.0 and later
831 * Non-Carbon CFM: available as macro/inline
832 }
833 procedure DisposeDrawHookUPP( userUPP: DrawHookUPP ); external name '_DisposeDrawHookUPP';
834 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
835
836 {
837 * DisposeHitTestHookUPP()
838 *
839 * Availability:
840 * Mac OS X: in version 10.0 and later in Carbon.framework
841 * CarbonLib: in CarbonLib 1.0 and later
842 * Non-Carbon CFM: available as macro/inline
843 }
844 procedure DisposeHitTestHookUPP( userUPP: HitTestHookUPP ); external name '_DisposeHitTestHookUPP';
845 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
846
847 {
848 * DisposeTEFindWordUPP()
849 *
850 * Availability:
851 * Mac OS X: in version 10.0 and later in Carbon.framework
852 * CarbonLib: in CarbonLib 1.0 and later
853 * Non-Carbon CFM: available as macro/inline
854 }
855 procedure DisposeTEFindWordUPP( userUPP: TEFindWordUPP ); external name '_DisposeTEFindWordUPP';
856 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
857
858 {
859 * DisposeTERecalcUPP()
860 *
861 * Availability:
862 * Mac OS X: in version 10.0 and later in Carbon.framework
863 * CarbonLib: in CarbonLib 1.0 and later
864 * Non-Carbon CFM: available as macro/inline
865 }
866 procedure DisposeTERecalcUPP( userUPP: TERecalcUPP ); external name '_DisposeTERecalcUPP';
867 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
868
869 {
870 * DisposeTEDoTextUPP()
871 *
872 * Availability:
873 * Mac OS X: in version 10.0 and later in Carbon.framework
874 * CarbonLib: in CarbonLib 1.0 and later
875 * Non-Carbon CFM: available as macro/inline
876 }
877 procedure DisposeTEDoTextUPP( userUPP: TEDoTextUPP ); external name '_DisposeTEDoTextUPP';
878 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
879
880 {
881 * DisposeTEClickLoopUPP()
882 *
883 * Availability:
884 * Mac OS X: in version 10.0 and later in Carbon.framework
885 * CarbonLib: in CarbonLib 1.0 and later
886 * Non-Carbon CFM: available as macro/inline
887 }
888 procedure DisposeTEClickLoopUPP( userUPP: TEClickLoopUPP ); external name '_DisposeTEClickLoopUPP';
889 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
890
891 {
892 * DisposeWordBreakUPP()
893 *
894 * Availability:
895 * Mac OS X: not available
896 * CarbonLib: not available
897 * Non-Carbon CFM: available as macro/inline
898 }
899
900 {
901 * InvokeHighHookUPP()
902 *
903 * Availability:
904 * Mac OS X: in version 10.0 and later in Carbon.framework
905 * CarbonLib: in CarbonLib 1.0 and later
906 * Non-Carbon CFM: available as macro/inline
907 }
908 procedure InvokeHighHookUPP( const (*var*) r: Rect; pTE: TEPtr; userUPP: HighHookUPP ); external name '_InvokeHighHookUPP';
909 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
910
911 {
912 * InvokeEOLHookUPP()
913 *
914 * Availability:
915 * Mac OS X: in version 10.0 and later in Carbon.framework
916 * CarbonLib: in CarbonLib 1.0 and later
917 * Non-Carbon CFM: available as macro/inline
918 }
InvokeEOLHookUPPnull919 function InvokeEOLHookUPP( theChar: ByteParameter; pTE: TEPtr; hTE: TEHandle; userUPP: EOLHookUPP ): Boolean; external name '_InvokeEOLHookUPP';
920 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
921
922 {
923 * InvokeCaretHookUPP()
924 *
925 * Availability:
926 * Mac OS X: in version 10.0 and later in Carbon.framework
927 * CarbonLib: in CarbonLib 1.0 and later
928 * Non-Carbon CFM: available as macro/inline
929 }
930 procedure InvokeCaretHookUPP( const (*var*) r: Rect; pTE: TEPtr; userUPP: CaretHookUPP ); external name '_InvokeCaretHookUPP';
931 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
932
933 {
934 * InvokeWidthHookUPP()
935 *
936 * Availability:
937 * Mac OS X: in version 10.0 and later in Carbon.framework
938 * CarbonLib: in CarbonLib 1.0 and later
939 * Non-Carbon CFM: available as macro/inline
940 }
InvokeWidthHookUPPnull941 function InvokeWidthHookUPP( textLen: UInt16; textOffset: UInt16; textBufferPtr: UnivPtr; pTE: TEPtr; hTE: TEHandle; userUPP: WidthHookUPP ): UInt16; external name '_InvokeWidthHookUPP';
942 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
943
944 {
945 * InvokeTextWidthHookUPP()
946 *
947 * Availability:
948 * Mac OS X: in version 10.0 and later in Carbon.framework
949 * CarbonLib: in CarbonLib 1.0 and later
950 * Non-Carbon CFM: available as macro/inline
951 }
InvokeTextWidthHookUPPnull952 function InvokeTextWidthHookUPP( textLen: UInt16; textOffset: UInt16; textBufferPtr: UnivPtr; pTE: TEPtr; hTE: TEHandle; userUPP: TextWidthHookUPP ): UInt16; external name '_InvokeTextWidthHookUPP';
953 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
954
955 {
956 * InvokeNWidthHookUPP()
957 *
958 * Availability:
959 * Mac OS X: in version 10.0 and later in Carbon.framework
960 * CarbonLib: in CarbonLib 1.0 and later
961 * Non-Carbon CFM: available as macro/inline
962 }
InvokeNWidthHookUPPnull963 function InvokeNWidthHookUPP( styleRunLen: UInt16; styleRunOffset: UInt16; slop: SInt16; direction: SInt16; textBufferPtr: UnivPtr; var lineStart: SInt16; pTE: TEPtr; hTE: TEHandle; userUPP: NWidthHookUPP ): UInt16; external name '_InvokeNWidthHookUPP';
964 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
965
966 {
967 * InvokeDrawHookUPP()
968 *
969 * Availability:
970 * Mac OS X: in version 10.0 and later in Carbon.framework
971 * CarbonLib: in CarbonLib 1.0 and later
972 * Non-Carbon CFM: available as macro/inline
973 }
974 procedure InvokeDrawHookUPP( textOffset: UInt16; drawLen: UInt16; textBufferPtr: UnivPtr; pTE: TEPtr; hTE: TEHandle; userUPP: DrawHookUPP ); external name '_InvokeDrawHookUPP';
975 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
976
977 {
978 * InvokeHitTestHookUPP()
979 *
980 * Availability:
981 * Mac OS X: in version 10.0 and later in Carbon.framework
982 * CarbonLib: in CarbonLib 1.0 and later
983 * Non-Carbon CFM: available as macro/inline
984 }
InvokeHitTestHookUPPnull985 function InvokeHitTestHookUPP( styleRunLen: UInt16; styleRunOffset: UInt16; slop: UInt16; textBufferPtr: UnivPtr; pTE: TEPtr; hTE: TEHandle; var pixelWidth: UInt16; var charOffset: UInt16; var pixelInChar: Boolean; userUPP: HitTestHookUPP ): Boolean; external name '_InvokeHitTestHookUPP';
986 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
987
988 {
989 * InvokeTEFindWordUPP()
990 *
991 * Availability:
992 * Mac OS X: in version 10.0 and later in Carbon.framework
993 * CarbonLib: in CarbonLib 1.0 and later
994 * Non-Carbon CFM: available as macro/inline
995 }
996 procedure InvokeTEFindWordUPP( currentPos: UInt16; caller: SInt16; pTE: TEPtr; hTE: TEHandle; var wordStart: UInt16; var wordEnd: UInt16; userUPP: TEFindWordUPP ); external name '_InvokeTEFindWordUPP';
997 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
998
999 {
1000 * InvokeTERecalcUPP()
1001 *
1002 * Availability:
1003 * Mac OS X: in version 10.0 and later in Carbon.framework
1004 * CarbonLib: in CarbonLib 1.0 and later
1005 * Non-Carbon CFM: available as macro/inline
1006 }
1007 procedure InvokeTERecalcUPP( pTE: TEPtr; changeLength: UInt16; var lineStart: UInt16; var firstChar: UInt16; var lastChar: UInt16; userUPP: TERecalcUPP ); external name '_InvokeTERecalcUPP';
1008 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1009
1010 {
1011 * InvokeTEDoTextUPP()
1012 *
1013 * Availability:
1014 * Mac OS X: in version 10.0 and later in Carbon.framework
1015 * CarbonLib: in CarbonLib 1.0 and later
1016 * Non-Carbon CFM: available as macro/inline
1017 }
1018 procedure InvokeTEDoTextUPP( pTE: TEPtr; firstChar: UInt16; lastChar: UInt16; selector: SInt16; var currentGrafPort: GrafPtr; var charPosition: SInt16; userUPP: TEDoTextUPP ); external name '_InvokeTEDoTextUPP';
1019 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1020
1021 {
1022 * InvokeTEClickLoopUPP()
1023 *
1024 * Availability:
1025 * Mac OS X: in version 10.0 and later in Carbon.framework
1026 * CarbonLib: in CarbonLib 1.0 and later
1027 * Non-Carbon CFM: available as macro/inline
1028 }
InvokeTEClickLoopUPPnull1029 function InvokeTEClickLoopUPP( pTE: TEPtr; userUPP: TEClickLoopUPP ): Boolean; external name '_InvokeTEClickLoopUPP';
1030 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1031
1032 {
1033 * InvokeWordBreakUPP()
1034 *
1035 * Availability:
1036 * Mac OS X: not available
1037 * CarbonLib: not available
1038 * Non-Carbon CFM: available as macro/inline
1039 }
1040
1041 const
1042 { feature bit 4 for TEFeatureFlag no longer in use }
1043 teFUseTextServices = 4; {00010000b }
1044
1045
1046 {$ifc not TARGET_CPU_64}
1047
1048 {
1049 * TEScrapHandle() *** DEPRECATED ***
1050 *
1051 * Mac OS X threading:
1052 * Not thread safe
1053 *
1054 * Availability:
1055 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1056 * CarbonLib: in CarbonLib 1.0 and later
1057 * Non-Carbon CFM: in InterfaceLib 7.1 and later
1058 }
TEScrapHandlenull1059 function TEScrapHandle: Handle; external name '_TEScrapHandle';
1060 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1061
1062
1063 {
1064 * TEGetScrapLength() *** DEPRECATED ***
1065 *
1066 * Mac OS X threading:
1067 * Not thread safe
1068 *
1069 * Availability:
1070 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1071 * CarbonLib: in CarbonLib 1.0 and later
1072 * Non-Carbon CFM: in InterfaceLib 7.1 and later
1073 }
TEGetScrapLengthnull1074 function TEGetScrapLength: SIGNEDLONG; external name '_TEGetScrapLength';
1075 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1076
1077
1078 {
1079 * TENew() *** DEPRECATED ***
1080 *
1081 * Mac OS X threading:
1082 * Not thread safe
1083 *
1084 * Availability:
1085 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1086 * CarbonLib: in CarbonLib 1.0 and later
1087 * Non-Carbon CFM: in InterfaceLib 7.1 and later
1088 }
TENewnull1089 function TENew( const (*var*) destRect: Rect; const (*var*) viewRect: Rect ): TEHandle; external name '_TENew';
1090 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1091
1092
1093 {
1094 * TEDispose() *** DEPRECATED ***
1095 *
1096 * Mac OS X threading:
1097 * Not thread safe
1098 *
1099 * Availability:
1100 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1101 * CarbonLib: in CarbonLib 1.0 and later
1102 * Non-Carbon CFM: in InterfaceLib 7.1 and later
1103 }
1104 procedure TEDispose( hTE: TEHandle ); external name '_TEDispose';
1105 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1106
1107
1108 {
1109 * TESetText() *** DEPRECATED ***
1110 *
1111 * Mac OS X threading:
1112 * Not thread safe
1113 *
1114 * Availability:
1115 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1116 * CarbonLib: in CarbonLib 1.0 and later
1117 * Non-Carbon CFM: in InterfaceLib 7.1 and later
1118 }
1119 procedure TESetText( text: {const} UnivPtr; length: SIGNEDLONG; hTE: TEHandle ); external name '_TESetText';
1120 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1121
1122
1123 {
1124 * TEGetText() *** DEPRECATED ***
1125 *
1126 * Mac OS X threading:
1127 * Not thread safe
1128 *
1129 * Availability:
1130 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1131 * CarbonLib: in CarbonLib 1.0 and later
1132 * Non-Carbon CFM: in InterfaceLib 7.1 and later
1133 }
TEGetTextnull1134 function TEGetText( hTE: TEHandle ): CharsHandle; external name '_TEGetText';
1135 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1136
1137
1138 {
1139 * TEIdle() *** DEPRECATED ***
1140 *
1141 * Mac OS X threading:
1142 * Not thread safe
1143 *
1144 * Availability:
1145 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1146 * CarbonLib: in CarbonLib 1.0 and later
1147 * Non-Carbon CFM: in InterfaceLib 7.1 and later
1148 }
1149 procedure TEIdle( hTE: TEHandle ); external name '_TEIdle';
1150 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1151
1152
1153 {
1154 * TESetSelect() *** DEPRECATED ***
1155 *
1156 * Mac OS X threading:
1157 * Not thread safe
1158 *
1159 * Availability:
1160 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1161 * CarbonLib: in CarbonLib 1.0 and later
1162 * Non-Carbon CFM: in InterfaceLib 7.1 and later
1163 }
1164 procedure TESetSelect( selStart: SIGNEDLONG; selEnd: SIGNEDLONG; hTE: TEHandle ); external name '_TESetSelect';
1165 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1166
1167
1168 {
1169 * TEActivate() *** DEPRECATED ***
1170 *
1171 * Mac OS X threading:
1172 * Not thread safe
1173 *
1174 * Availability:
1175 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1176 * CarbonLib: in CarbonLib 1.0 and later
1177 * Non-Carbon CFM: in InterfaceLib 7.1 and later
1178 }
1179 procedure TEActivate( hTE: TEHandle ); external name '_TEActivate';
1180 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1181
1182
1183 {
1184 * TEDeactivate() *** DEPRECATED ***
1185 *
1186 * Mac OS X threading:
1187 * Not thread safe
1188 *
1189 * Availability:
1190 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1191 * CarbonLib: in CarbonLib 1.0 and later
1192 * Non-Carbon CFM: in InterfaceLib 7.1 and later
1193 }
1194 procedure TEDeactivate( hTE: TEHandle ); external name '_TEDeactivate';
1195 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1196
1197
1198 {
1199 * TEKey() *** DEPRECATED ***
1200 *
1201 * Mac OS X threading:
1202 * Not thread safe
1203 *
1204 * Availability:
1205 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1206 * CarbonLib: in CarbonLib 1.0 and later
1207 * Non-Carbon CFM: in InterfaceLib 7.1 and later
1208 }
1209 procedure TEKey( key: CharParameter; hTE: TEHandle ); external name '_TEKey';
1210 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1211
1212
1213 {
1214 * TECut() *** DEPRECATED ***
1215 *
1216 * Mac OS X threading:
1217 * Not thread safe
1218 *
1219 * Availability:
1220 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1221 * CarbonLib: in CarbonLib 1.0 and later
1222 * Non-Carbon CFM: in InterfaceLib 7.1 and later
1223 }
1224 procedure TECut( hTE: TEHandle ); external name '_TECut';
1225 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1226
1227
1228 {
1229 * TECopy() *** DEPRECATED ***
1230 *
1231 * Mac OS X threading:
1232 * Not thread safe
1233 *
1234 * Availability:
1235 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1236 * CarbonLib: in CarbonLib 1.0 and later
1237 * Non-Carbon CFM: in InterfaceLib 7.1 and later
1238 }
1239 procedure TECopy( hTE: TEHandle ); external name '_TECopy';
1240 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1241
1242
1243 {
1244 * TEPaste() *** DEPRECATED ***
1245 *
1246 * Mac OS X threading:
1247 * Not thread safe
1248 *
1249 * Availability:
1250 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1251 * CarbonLib: in CarbonLib 1.0 and later
1252 * Non-Carbon CFM: in InterfaceLib 7.1 and later
1253 }
1254 procedure TEPaste( hTE: TEHandle ); external name '_TEPaste';
1255 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1256
1257
1258 {
1259 * TEDelete() *** DEPRECATED ***
1260 *
1261 * Mac OS X threading:
1262 * Not thread safe
1263 *
1264 * Availability:
1265 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1266 * CarbonLib: in CarbonLib 1.0 and later
1267 * Non-Carbon CFM: in InterfaceLib 7.1 and later
1268 }
1269 procedure TEDelete( hTE: TEHandle ); external name '_TEDelete';
1270 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1271
1272
1273 {
1274 * TEInsert() *** DEPRECATED ***
1275 *
1276 * Mac OS X threading:
1277 * Not thread safe
1278 *
1279 * Availability:
1280 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1281 * CarbonLib: in CarbonLib 1.0 and later
1282 * Non-Carbon CFM: in InterfaceLib 7.1 and later
1283 }
1284 procedure TEInsert( text: {const} UnivPtr; length: SIGNEDLONG; hTE: TEHandle ); external name '_TEInsert';
1285 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1286
1287
1288 {
1289 * TESetAlignment() *** DEPRECATED ***
1290 *
1291 * Mac OS X threading:
1292 * Not thread safe
1293 *
1294 * Availability:
1295 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1296 * CarbonLib: in CarbonLib 1.0 and later
1297 * Non-Carbon CFM: in InterfaceLib 7.1 and later
1298 }
1299 procedure TESetAlignment( just: SInt16; hTE: TEHandle ); external name '_TESetAlignment';
1300 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1301
1302
1303 {
1304 * TEUpdate() *** DEPRECATED ***
1305 *
1306 * Mac OS X threading:
1307 * Not thread safe
1308 *
1309 * Availability:
1310 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1311 * CarbonLib: in CarbonLib 1.0 and later
1312 * Non-Carbon CFM: in InterfaceLib 7.1 and later
1313 }
1314 procedure TEUpdate( const (*var*) rUpdate: Rect; hTE: TEHandle ); external name '_TEUpdate';
1315 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1316
1317
1318 {
1319 * TETextBox() *** DEPRECATED ***
1320 *
1321 * Mac OS X threading:
1322 * Not thread safe
1323 *
1324 * Availability:
1325 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1326 * CarbonLib: in CarbonLib 1.0 and later
1327 * Non-Carbon CFM: in InterfaceLib 7.1 and later
1328 }
1329 procedure TETextBox( text: {const} UnivPtr; length: SIGNEDLONG; const (*var*) box: Rect; just: SInt16 ); external name '_TETextBox';
1330 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1331
1332
1333 {
1334 * TEScroll() *** DEPRECATED ***
1335 *
1336 * Mac OS X threading:
1337 * Not thread safe
1338 *
1339 * Availability:
1340 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1341 * CarbonLib: in CarbonLib 1.0 and later
1342 * Non-Carbon CFM: in InterfaceLib 7.1 and later
1343 }
1344 procedure TEScroll( dh: SInt16; dv: SInt16; hTE: TEHandle ); external name '_TEScroll';
1345 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1346
1347
1348 {
1349 * TESelView() *** DEPRECATED ***
1350 *
1351 * Mac OS X threading:
1352 * Not thread safe
1353 *
1354 * Availability:
1355 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1356 * CarbonLib: in CarbonLib 1.0 and later
1357 * Non-Carbon CFM: in InterfaceLib 7.1 and later
1358 }
1359 procedure TESelView( hTE: TEHandle ); external name '_TESelView';
1360 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1361
1362
1363 {
1364 * TEPinScroll() *** DEPRECATED ***
1365 *
1366 * Mac OS X threading:
1367 * Not thread safe
1368 *
1369 * Availability:
1370 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1371 * CarbonLib: in CarbonLib 1.0 and later
1372 * Non-Carbon CFM: in InterfaceLib 7.1 and later
1373 }
1374 procedure TEPinScroll( dh: SInt16; dv: SInt16; hTE: TEHandle ); external name '_TEPinScroll';
1375 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1376
1377
1378 {
1379 * TEAutoView() *** DEPRECATED ***
1380 *
1381 * Mac OS X threading:
1382 * Not thread safe
1383 *
1384 * Availability:
1385 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1386 * CarbonLib: in CarbonLib 1.0 and later
1387 * Non-Carbon CFM: in InterfaceLib 7.1 and later
1388 }
1389 procedure TEAutoView( fAuto: Boolean; hTE: TEHandle ); external name '_TEAutoView';
1390 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1391
1392
1393 {
1394 * TECalText() *** DEPRECATED ***
1395 *
1396 * Mac OS X threading:
1397 * Not thread safe
1398 *
1399 * Availability:
1400 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1401 * CarbonLib: in CarbonLib 1.0 and later
1402 * Non-Carbon CFM: in InterfaceLib 7.1 and later
1403 }
1404 procedure TECalText( hTE: TEHandle ); external name '_TECalText';
1405 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1406
1407
1408 {
1409 * TEGetOffset() *** DEPRECATED ***
1410 *
1411 * Mac OS X threading:
1412 * Not thread safe
1413 *
1414 * Availability:
1415 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1416 * CarbonLib: in CarbonLib 1.0 and later
1417 * Non-Carbon CFM: in InterfaceLib 7.1 and later
1418 }
TEGetOffsetnull1419 function TEGetOffset( pt: Point; hTE: TEHandle ): SInt16; external name '_TEGetOffset';
1420 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1421
1422
1423 {
1424 * TEGetPoint() *** DEPRECATED ***
1425 *
1426 * Mac OS X threading:
1427 * Not thread safe
1428 *
1429 * Availability:
1430 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1431 * CarbonLib: in CarbonLib 1.0 and later
1432 * Non-Carbon CFM: in InterfaceLib 7.1 and later
1433 }
TEGetPointnull1434 function TEGetPoint( offset: SInt16; hTE: TEHandle ): Point; external name '_TEGetPoint';
1435 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1436
1437
1438 {
1439 * TEClick() *** DEPRECATED ***
1440 *
1441 * Mac OS X threading:
1442 * Not thread safe
1443 *
1444 * Availability:
1445 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1446 * CarbonLib: in CarbonLib 1.0 and later
1447 * Non-Carbon CFM: in InterfaceLib 7.1 and later
1448 }
1449 procedure TEClick( pt: Point; fExtend: Boolean; h: TEHandle ); external name '_TEClick';
1450 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1451
1452
1453 {
1454 * TEStyleNew() *** DEPRECATED ***
1455 *
1456 * Mac OS X threading:
1457 * Not thread safe
1458 *
1459 * Availability:
1460 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1461 * CarbonLib: in CarbonLib 1.0 and later
1462 * Non-Carbon CFM: in InterfaceLib 7.1 and later
1463 }
TEStyleNewnull1464 function TEStyleNew( const (*var*) destRect: Rect; const (*var*) viewRect: Rect ): TEHandle; external name '_TEStyleNew';
1465 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1466
1467
1468 {
1469 * TESetStyleHandle() *** DEPRECATED ***
1470 *
1471 * Mac OS X threading:
1472 * Not thread safe
1473 *
1474 * Availability:
1475 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1476 * CarbonLib: in CarbonLib 1.0 and later
1477 * Non-Carbon CFM: in InterfaceLib 7.1 and later
1478 }
1479 procedure TESetStyleHandle( theHandle: TEStyleHandle; hTE: TEHandle ); external name '_TESetStyleHandle';
1480 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1481
1482
1483 {
1484 * TEGetStyleHandle() *** DEPRECATED ***
1485 *
1486 * Mac OS X threading:
1487 * Not thread safe
1488 *
1489 * Availability:
1490 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1491 * CarbonLib: in CarbonLib 1.0 and later
1492 * Non-Carbon CFM: in InterfaceLib 7.1 and later
1493 }
TEGetStyleHandlenull1494 function TEGetStyleHandle( hTE: TEHandle ): TEStyleHandle; external name '_TEGetStyleHandle';
1495 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1496
1497
1498 {
1499 * TEGetStyle() *** DEPRECATED ***
1500 *
1501 * Mac OS X threading:
1502 * Not thread safe
1503 *
1504 * Availability:
1505 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1506 * CarbonLib: in CarbonLib 1.0 and later
1507 * Non-Carbon CFM: in InterfaceLib 7.1 and later
1508 }
1509 procedure TEGetStyle( offset: SInt16; var theStyle: TextStyle; var lineHeight: SInt16; var fontAscent: SInt16; hTE: TEHandle ); external name '_TEGetStyle';
1510 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1511
1512
1513 {
1514 * TEStylePaste() *** DEPRECATED ***
1515 *
1516 * Mac OS X threading:
1517 * Not thread safe
1518 *
1519 * Availability:
1520 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1521 * CarbonLib: in CarbonLib 1.0 and later
1522 * Non-Carbon CFM: in InterfaceLib 7.1 and later
1523 }
1524 procedure TEStylePaste( hTE: TEHandle ); external name '_TEStylePaste';
1525 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1526
1527
1528 {
1529 * TESetStyle() *** DEPRECATED ***
1530 *
1531 * Mac OS X threading:
1532 * Not thread safe
1533 *
1534 * Availability:
1535 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1536 * CarbonLib: in CarbonLib 1.0 and later
1537 * Non-Carbon CFM: in InterfaceLib 7.1 and later
1538 }
1539 procedure TESetStyle( mode: SInt16; const (*var*) newStyle: TextStyle; fRedraw: Boolean; hTE: TEHandle ); external name '_TESetStyle';
1540 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1541
1542
1543 {
1544 * TEReplaceStyle() *** DEPRECATED ***
1545 *
1546 * Mac OS X threading:
1547 * Not thread safe
1548 *
1549 * Availability:
1550 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1551 * CarbonLib: in CarbonLib 1.0 and later
1552 * Non-Carbon CFM: in InterfaceLib 7.1 and later
1553 }
1554 procedure TEReplaceStyle( mode: SInt16; const (*var*) oldStyle: TextStyle; const (*var*) newStyle: TextStyle; fRedraw: Boolean; hTE: TEHandle ); external name '_TEReplaceStyle';
1555 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1556
1557
1558 {
1559 * TEGetStyleScrapHandle() *** DEPRECATED ***
1560 *
1561 * Mac OS X threading:
1562 * Not thread safe
1563 *
1564 * Availability:
1565 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1566 * CarbonLib: in CarbonLib 1.0 and later
1567 * Non-Carbon CFM: in InterfaceLib 7.1 and later
1568 }
TEGetStyleScrapHandlenull1569 function TEGetStyleScrapHandle( hTE: TEHandle ): StScrpHandle; external name '_TEGetStyleScrapHandle';
1570 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1571
1572
1573 {
1574 * TEStyleInsert() *** DEPRECATED ***
1575 *
1576 * Mac OS X threading:
1577 * Not thread safe
1578 *
1579 * Availability:
1580 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1581 * CarbonLib: in CarbonLib 1.0 and later
1582 * Non-Carbon CFM: in InterfaceLib 7.1 and later
1583 }
1584 procedure TEStyleInsert( text: {const} UnivPtr; length: SIGNEDLONG; hST: StScrpHandle; hTE: TEHandle ); external name '_TEStyleInsert';
1585 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1586
1587
1588 {
1589 * TEGetHeight() *** DEPRECATED ***
1590 *
1591 * Mac OS X threading:
1592 * Not thread safe
1593 *
1594 * Availability:
1595 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1596 * CarbonLib: in CarbonLib 1.0 and later
1597 * Non-Carbon CFM: in InterfaceLib 7.1 and later
1598 }
TEGetHeightnull1599 function TEGetHeight( endLine: SIGNEDLONG; startLine: SIGNEDLONG; hTE: TEHandle ): SIGNEDLONG; external name '_TEGetHeight';
1600 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1601
1602
1603 {
1604 * TEContinuousStyle() *** DEPRECATED ***
1605 *
1606 * Mac OS X threading:
1607 * Not thread safe
1608 *
1609 * Availability:
1610 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1611 * CarbonLib: in CarbonLib 1.0 and later
1612 * Non-Carbon CFM: in InterfaceLib 7.1 and later
1613 }
TEContinuousStylenull1614 function TEContinuousStyle( var mode: SInt16; var aStyle: TextStyle; hTE: TEHandle ): Boolean; external name '_TEContinuousStyle';
1615 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1616
1617
1618 {
1619 * TEUseStyleScrap() *** DEPRECATED ***
1620 *
1621 * Mac OS X threading:
1622 * Not thread safe
1623 *
1624 * Availability:
1625 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1626 * CarbonLib: in CarbonLib 1.0 and later
1627 * Non-Carbon CFM: in InterfaceLib 7.1 and later
1628 }
1629 procedure TEUseStyleScrap( rangeStart: SIGNEDLONG; rangeEnd: SIGNEDLONG; newStyles: StScrpHandle; fRedraw: Boolean; hTE: TEHandle ); external name '_TEUseStyleScrap';
1630 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1631
1632
1633 {
1634 * TECustomHook() *** DEPRECATED ***
1635 *
1636 * Mac OS X threading:
1637 * Not thread safe
1638 *
1639 * Availability:
1640 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1641 * CarbonLib: in CarbonLib 1.0 and later
1642 * Non-Carbon CFM: in InterfaceLib 7.1 and later
1643 }
1644 procedure TECustomHook( which: TEIntHook; var addr: UniversalProcPtr; hTE: TEHandle ); external name '_TECustomHook';
1645 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1646
1647
1648 {
1649 * TENumStyles() *** DEPRECATED ***
1650 *
1651 * Mac OS X threading:
1652 * Not thread safe
1653 *
1654 * Availability:
1655 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1656 * CarbonLib: in CarbonLib 1.0 and later
1657 * Non-Carbon CFM: in InterfaceLib 7.1 and later
1658 }
TENumStylesnull1659 function TENumStyles( rangeStart: SIGNEDLONG; rangeEnd: SIGNEDLONG; hTE: TEHandle ): SIGNEDLONG; external name '_TENumStyles';
1660 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1661
1662
1663 {
1664 * TEFeatureFlag() *** DEPRECATED ***
1665 *
1666 * Mac OS X threading:
1667 * Not thread safe
1668 *
1669 * Availability:
1670 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1671 * CarbonLib: in CarbonLib 1.0 and later
1672 * Non-Carbon CFM: in InterfaceLib 7.1 and later
1673 }
TEFeatureFlagnull1674 function TEFeatureFlag( feature: SInt16; action: SInt16; hTE: TEHandle ): SInt16; external name '_TEFeatureFlag';
1675 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1676
1677
1678 {
1679 * TEGetHiliteRgn() *** DEPRECATED ***
1680 *
1681 * Mac OS X threading:
1682 * Not thread safe
1683 *
1684 * Availability:
1685 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1686 * CarbonLib: in CarbonLib 1.0 and later
1687 * Non-Carbon CFM: in DragLib 1.1 and later
1688 }
TEGetHiliteRgnnull1689 function TEGetHiliteRgn( region: RgnHandle; hTE: TEHandle ): OSErr; external name '_TEGetHiliteRgn';
1690 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1691
1692
1693 {
1694 * TESetScrapLength() *** DEPRECATED ***
1695 *
1696 * Mac OS X threading:
1697 * Not thread safe
1698 *
1699 * Availability:
1700 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1701 * CarbonLib: in CarbonLib 1.0 and later
1702 * Non-Carbon CFM: in InterfaceLib 7.1 and later
1703 }
1704 procedure TESetScrapLength( length: SIGNEDLONG ); external name '_TESetScrapLength';
1705 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1706
1707
1708 {
1709 * TEFromScrap() *** DEPRECATED ***
1710 *
1711 * Mac OS X threading:
1712 * Not thread safe
1713 *
1714 * Availability:
1715 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1716 * CarbonLib: in CarbonLib 1.0 and later
1717 * Non-Carbon CFM: in InterfaceLib 7.1 and later
1718 }
TEFromScrapnull1719 function TEFromScrap: OSErr; external name '_TEFromScrap';
1720 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1721
1722
1723 {
1724 * TEToScrap() *** DEPRECATED ***
1725 *
1726 * Mac OS X threading:
1727 * Not thread safe
1728 *
1729 * Availability:
1730 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1731 * CarbonLib: in CarbonLib 1.0 and later
1732 * Non-Carbon CFM: in InterfaceLib 7.1 and later
1733 }
TEToScrapnull1734 function TEToScrap: OSErr; external name '_TEToScrap';
1735 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1736
1737
1738 {
1739 * TESetClickLoop() *** DEPRECATED ***
1740 *
1741 * Mac OS X threading:
1742 * Not thread safe
1743 *
1744 * Availability:
1745 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1746 * CarbonLib: in CarbonLib 1.0 and later
1747 * Non-Carbon CFM: in InterfaceLib 7.1 and later
1748 }
1749 procedure TESetClickLoop( clikProc: TEClickLoopUPP; hTE: TEHandle ); external name '_TESetClickLoop';
1750 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1751
1752
1753 {
1754 * TEGetDoTextHook() *** DEPRECATED ***
1755 *
1756 * Mac OS X threading:
1757 * Not thread safe
1758 *
1759 * Availability:
1760 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1761 * CarbonLib: in CarbonLib 1.0 and later
1762 * Non-Carbon CFM: not available
1763 }
TEGetDoTextHooknull1764 function TEGetDoTextHook: TEDoTextUPP; external name '_TEGetDoTextHook';
1765 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1766
1767
1768 {
1769 * TESetDoTextHook() *** DEPRECATED ***
1770 *
1771 * Mac OS X threading:
1772 * Not thread safe
1773 *
1774 * Availability:
1775 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1776 * CarbonLib: in CarbonLib 1.0 and later
1777 * Non-Carbon CFM: not available
1778 }
1779 procedure TESetDoTextHook( value: TEDoTextUPP ); external name '_TESetDoTextHook';
1780 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1781
1782
1783 {
1784 * TEGetRecalcHook() *** DEPRECATED ***
1785 *
1786 * Mac OS X threading:
1787 * Not thread safe
1788 *
1789 * Availability:
1790 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1791 * CarbonLib: in CarbonLib 1.0 and later
1792 * Non-Carbon CFM: not available
1793 }
TEGetRecalcHooknull1794 function TEGetRecalcHook: TERecalcUPP; external name '_TEGetRecalcHook';
1795 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1796
1797
1798 {
1799 * TESetRecalcHook() *** DEPRECATED ***
1800 *
1801 * Mac OS X threading:
1802 * Not thread safe
1803 *
1804 * Availability:
1805 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1806 * CarbonLib: in CarbonLib 1.0 and later
1807 * Non-Carbon CFM: not available
1808 }
1809 procedure TESetRecalcHook( value: TERecalcUPP ); external name '_TESetRecalcHook';
1810 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1811
1812
1813 {
1814 * TEGetFindWordHook() *** DEPRECATED ***
1815 *
1816 * Mac OS X threading:
1817 * Not thread safe
1818 *
1819 * Availability:
1820 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1821 * CarbonLib: in CarbonLib 1.0 and later
1822 * Non-Carbon CFM: not available
1823 }
TEGetFindWordHooknull1824 function TEGetFindWordHook: TEFindWordUPP; external name '_TEGetFindWordHook';
1825 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1826
1827
1828 {
1829 * TESetFindWordHook() *** DEPRECATED ***
1830 *
1831 * Mac OS X threading:
1832 * Not thread safe
1833 *
1834 * Availability:
1835 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1836 * CarbonLib: in CarbonLib 1.0 and later
1837 * Non-Carbon CFM: not available
1838 }
1839 procedure TESetFindWordHook( value: TEFindWordUPP ); external name '_TESetFindWordHook';
1840 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1841
1842
1843 {
1844 * TEGetScrapHandle() *** DEPRECATED ***
1845 *
1846 * Mac OS X threading:
1847 * Not thread safe
1848 *
1849 * Availability:
1850 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1851 * CarbonLib: in CarbonLib 1.0 and later
1852 * Non-Carbon CFM: not available
1853 }
TEGetScrapHandlenull1854 function TEGetScrapHandle: Handle; external name '_TEGetScrapHandle';
1855 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1856
1857
1858 {
1859 * TESetScrapHandle() *** DEPRECATED ***
1860 *
1861 * Mac OS X threading:
1862 * Not thread safe
1863 *
1864 * Availability:
1865 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1866 * CarbonLib: in CarbonLib 1.0 and later
1867 * Non-Carbon CFM: not available
1868 }
1869 procedure TESetScrapHandle( value: Handle ); external name '_TESetScrapHandle';
1870 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1871
1872
1873 { LMGetWordRedraw and LMSetWordRedraw were previously in LowMem.h }
1874 { Deprecated for Carbon on MacOS X }
1875 { This lomem is no longer used by the implementation of TextEdit }
1876 { on MacOS X, so setting it will have no effect. }
1877 {
1878 * LMGetWordRedraw() *** DEPRECATED ***
1879 *
1880 * Mac OS X threading:
1881 * Not thread safe
1882 *
1883 * Availability:
1884 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1885 * CarbonLib: in CarbonLib 1.0 and later
1886 * Non-Carbon CFM: in InterfaceLib 7.1 and later
1887 }
LMGetWordRedrawnull1888 function LMGetWordRedraw: UInt8; external name '_LMGetWordRedraw';
1889 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1890
1891
1892 {
1893 * LMSetWordRedraw() *** DEPRECATED ***
1894 *
1895 * Mac OS X threading:
1896 * Not thread safe
1897 *
1898 * Availability:
1899 * Mac OS X: in version 10.0 and later in Carbon.framework [32-bit only] but deprecated in 10.4
1900 * CarbonLib: in CarbonLib 1.0 and later
1901 * Non-Carbon CFM: in InterfaceLib 7.1 and later
1902 }
1903 procedure LMSetWordRedraw( value: UInt8 ); external name '_LMSetWordRedraw';
1904 (* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER_BUT_DEPRECATED_IN_MAC_OS_X_VERSION_10_4 *)
1905
1906 {$endc} {not TARGET_CPU_64}
1907
1908 {$endc} {TARGET_OS_MAC}
1909 {$ifc not defined MACOSALLINCLUDE or not MACOSALLINCLUDE}
1910
1911 end.
1912 {$endc} {not MACOSALLINCLUDE}
1913