supermario/base/SuperMarioProj.1994-02-09/Interfaces/PInterfaces/TextEdit.p
2019-06-29 23:17:50 +08:00

401 lines
13 KiB
OpenEdge ABL

{
Created: Sunday, July 28, 1991 at 12:09 AM
TextEdit.p
Pascal Interface to the Macintosh Libraries
Copyright Apple Computer, Inc. 1985-1992
All rights reserved
Change History (most recent first):
<20> 8/4/92 DCL Changing a few comments for New Inside Mac: doToggle,
teFInlineInput & teFUseTextServices
<19> 7/15/92 SMB ## <ys>: Move DoText selectors from TextEditPriv.a to here so
the whole darn world can use them instead of hard-coded
constants!
<18> 6/26/92 DCL Miner Formatting Changes. Digging deep for things to do. Getting
the file ready for ETO 8.
<17> 5/6/92 DCL NIIM: Added synonyms for TESetJust (TESetAlignment),
GetStyleScrap (TEGetStyleScrapHandle), SetClikLoop
(TESetClickLoop), SetWordBreak (TESetWordBreak).
<16> 4/15/92 DCL Changed TESetStyleScrap to TEUseStyleScrap
<15> 4/14/92 DCL Added new improved names in the continued pursuit of
name-nirvana in IM 2nd Edition.
<14> 4/6/92 DCL For New Inside Mac: Adding fancy new improved names for old
crusty routines. #1025005 Replaced recalBack & recalLines with
hDispatchRec in TERec.
<13> 2/17/92 MH Added better spelling SetStyleScrap.
<12> 9/12/91 MH Add correctly spelled versions of 6 ..Style... Calls
(...Style... vs. Styl...)
<11> 7/31/91 JL Updated Copyright.
<10> 1/27/91 LN Checked in Database generate file from DSG.
<9> 10/30/90 SMB Added intTextWidthHook as a new selector to the TECustomHook and
TextWidthHook as an offset into the dispatch table. Added new
feature bit, teFUseTextServices, to allow an application to
disable inline input.
<8> 6/11/90 SMB NEEDED FOR SIXPACK & 7.0: added TEFeatureFlag bit definition for
inline input features, teFInlineInput.
<7> 2/13/90 SMB NEEDED for 6.0.5 - Added nWIDTHHook and intNWidthHook for
TextEdit's new C2P routine. Removed newTEFlags AGAIN!
<4> 1/30/90 SMB NEEDED for 6.0.5 - Adding names for FindWord callers.
<3> 1/17/90 SMB Cleaned up comment header.
<2> 1/17/90 SMB NEEDED FOR 6.0.5: Moved newTEFlags into TextEditPriv.p. Added
new names for TESetJust's just parameter.
<1> 12/18/90 CCH Adding for the first time into BBS.
}
{$IFC UNDEFINED UsingIncludes}
{$SETC UsingIncludes := 0}
{$ENDC}
{$IFC NOT UsingIncludes}
UNIT TextEdit;
INTERFACE
{$ENDC}
{$IFC UNDEFINED UsingTextEdit}
{$SETC UsingTextEdit := 1}
{$I+}
{$SETC TextEditIncludes := UsingIncludes}
{$SETC UsingIncludes := 1}
{$IFC UNDEFINED UsingQuickdraw}
{$I $$Shell(PInterfaces)Quickdraw.p}
{$ENDC}
{$SETC UsingIncludes := TextEditIncludes}
CONST
{ Justification (word alignment) styles }
teJustLeft = 0;
teJustCenter = 1;
teJustRight = -1;
teForceLeft = -2;
{ new names for the Justification (word alignment) styles }
teFlushDefault = 0; {flush according to the line direction }
teCenter = 1; {center justify (word alignment) }
teFlushRight = -1; {flush right for all scripts }
teFlushLeft = -2; {flush left for all scripts }
{ Set/Replace style modes }
fontBit = 0; {set font}
faceBit = 1; {set face}
sizeBit = 2; {set size}
clrBit = 3; {set color}
addSizeBit = 4; {add size mode}
toggleBit = 5; {set faces in toggle mode}
toglBit = 5; { obsolete. use toggleBit }
{ TESetStyle/TEContinuousStyle modes }
doFont = 1; { set font (family) number}
doFace = 2; {set character style}
doSize = 4; {set type size}
doColor = 8; {set color}
doAll = 15; {set all attributes}
addSize = 16; {adjust type size}
doToggle = 32; {toggle mode for TESetStyle}
{ offsets into TEDispatchRec }
EOLHook = 0; {[ProcPtr] TEEOLHook}
DRAWHook = 4; {[ProcPtr] TEWidthHook}
WIDTHHook = 8; {[ProcPtr] TEDrawHook}
HITTESTHook = 12; {[ProcPtr] TEHitTestHook}
nWIDTHHook = 24; {[ProcPtr] nTEWidthHook}
TextWidthHook = 28; {[ProcPtr] TETextWidthHook}
{ selectors for TECustomHook }
intEOLHook = 0; {TEIntHook value}
intDrawHook = 1; {TEIntHook value}
intWidthHook = 2; {TEIntHook value}
intHitTestHook = 3; {TEIntHook value}
intNWidthHook = 6; {TEIntHook value for new version of WidthHook}
intTextWidthHook = 7; {TEIntHook value for new TextWidthHook}
{ feature or bit definitions for TEFeatureFlag }
teFAutoScroll = 0; {00000001b}
teFAutoScr = 0; {00000001b obsolete. use teFAutoScroll}
teFTextBuffering = 1; {00000010b}
teFOutlineHilite = 2; {00000100b}
teFInlineInput = 3; {00001000b }
teFUseTextServices = 4; {00010000b }
{ action for the new "bit (un)set" interface, TEFeatureFlag }
teBitClear = 0;
teBitSet = 1; {set the selector bit}
teBitTest = -1; {no change; just return the current setting}
{constants for identifying the routine that called FindWord }
teWordSelect = 4; {clickExpand to select word}
teWordDrag = 8; {clickExpand to drag new word}
teFromFind = 12; {FindLine called it ($0C)}
teFromRecal = 16; {RecalLines called it ($10) obsolete}
{constants for identifying DoText selectors }
teFind = 0; {DoText called for searching}
teHighlight = 1; {DoText called for highlighting}
teDraw = -1; {DoText called for drawing text}
teCaret = -2; {DoText called for drawing the caret}
TYPE
TEPtr = ^TERec;
TEHandle = ^TEPtr;
TERec = RECORD
destRect: Rect;
viewRect: Rect;
selRect: Rect;
lineHeight: INTEGER;
fontAscent: INTEGER;
selPoint: Point;
selStart: INTEGER;
selEnd: INTEGER;
active: INTEGER;
wordBreak: ProcPtr;
clikLoop: ProcPtr;
clickTime: LONGINT;
clickLoc: INTEGER;
caretTime: LONGINT;
caretState: INTEGER;
just: INTEGER;
teLength: INTEGER;
hText: Handle;
{ recalBack: INTEGER; }
{ recalLines: INTEGER; }
hDispatchRec: LONGINT; { added to replace recalBack & recalLines. it's a handle anyway }
clikStuff: INTEGER;
crOnly: INTEGER;
txFont: INTEGER;
txFace: Style; {txFace is unpacked byte}
txMode: INTEGER;
txSize: INTEGER;
inPort: GrafPtr;
highHook: ProcPtr;
caretHook: ProcPtr;
nLines: INTEGER;
lineStarts: ARRAY [0..16000] OF INTEGER;
END;
CharsPtr = ^Chars;
CharsHandle = ^CharsPtr;
Chars = PACKED ARRAY [0..32000] OF CHAR;
StyleRun = RECORD
startChar: INTEGER; {starting character position}
styleIndex: INTEGER; {index in style table}
END;
STElement = RECORD
stCount: INTEGER; {number of runs in this style}
stHeight: INTEGER; {line height}
stAscent: INTEGER; {font ascent}
stFont: INTEGER; {font (family) number}
stFace: Style; {character Style}
stSize: INTEGER; {size in points}
stColor: RGBColor; {absolute (RGB) color}
END;
STPtr = ^TEStyleTable;
STHandle = ^STPtr;
TEStyleTable = ARRAY [0..1776] OF STElement;
LHElement = RECORD
lhHeight: INTEGER; {maximum height in line}
lhAscent: INTEGER; {maximum ascent in line}
END;
LHPtr = ^LHTable;
LHHandle = ^LHPtr;
LHTable = ARRAY [0..8000] OF LHElement;
ScrpSTElement = RECORD
scrpStartChar: LONGINT; {starting character position}
scrpHeight: INTEGER; {starting character position}
scrpAscent: INTEGER;
scrpFont: INTEGER;
scrpFace: Style; {unpacked byte}
scrpSize: INTEGER;
scrpColor: RGBColor;
END;
ScrpSTTable = ARRAY [0..1600] OF ScrpSTElement;
StScrpPtr = ^StScrpRec;
StScrpHandle = ^StScrpPtr;
StScrpRec = RECORD
scrpNStyles: INTEGER; {number of styles in scrap}
scrpStyleTab: ScrpSTTable; {table of styles for scrap}
END;
NullStPtr = ^NullStRec;
NullStHandle = ^NullStPtr;
NullStRec = RECORD
teReserved: LONGINT; {reserved for future expansion}
nullScrap: StScrpHandle; {handle to scrap style table}
END;
TEStylePtr = ^TEStyleRec;
TEStyleHandle = ^TEStylePtr;
TEStyleRec = RECORD
nRuns: INTEGER; {number of style runs}
nStyles: INTEGER; {size of style table}
styleTab: STHandle; {handle to style table}
lhTab: LHHandle; {handle to line-height table}
teRefCon: LONGINT; {reserved for application use}
nullStyle: NullStHandle; {Handle to style set at null selection}
runs: ARRAY [0..8000] OF StyleRun; {ARRAY [0..8000] OF StyleRun}
END;
TextStylePtr = ^TextStyle;
TextStyleHandle = ^TextStylePtr;
TextStyle = RECORD
tsFont: INTEGER; {font (family) number}
tsFace: Style; {character Style}
tsSize: INTEGER; {size in point}
tsColor: RGBColor; {absolute (RGB) color}
END;
TEIntHook = INTEGER;
PROCEDURE TEInit;
INLINE $A9CC;
FUNCTION TENew(destRect: Rect;viewRect: Rect): TEHandle;
INLINE $A9D2;
PROCEDURE TEDispose(hTE: TEHandle);
INLINE $A9CD;
PROCEDURE TESetText(text: Ptr;length: LONGINT;hTE: TEHandle);
INLINE $A9CF;
FUNCTION TEGetText(hTE: TEHandle): CharsHandle;
INLINE $A9CB;
PROCEDURE TEIdle(hTE: TEHandle);
INLINE $A9DA;
PROCEDURE TESetSelect(selStart: LONGINT;selEnd: LONGINT;hTE: TEHandle);
INLINE $A9D1;
PROCEDURE TEActivate(hTE: TEHandle);
INLINE $A9D8;
PROCEDURE TEDeactivate(hTE: TEHandle);
INLINE $A9D9;
PROCEDURE TEKey(key: CHAR;hTE: TEHandle);
INLINE $A9DC;
PROCEDURE TECut(hTE: TEHandle);
INLINE $A9D6;
PROCEDURE TECopy(hTE: TEHandle);
INLINE $A9D5;
PROCEDURE TEPaste(hTE: TEHandle);
INLINE $A9DB;
PROCEDURE TEDelete(hTE: TEHandle);
INLINE $A9D7;
PROCEDURE TEInsert(text: Ptr;length: LONGINT;hTE: TEHandle);
INLINE $A9DE;
PROCEDURE TESetAlignment(just: INTEGER;hTE: TEHandle);
INLINE $A9DF;
PROCEDURE TESetJust(just: INTEGER;hTE: TEHandle);
INLINE $A9DF;
PROCEDURE TEUpdate(rUpdate: Rect;hTE: TEHandle);
INLINE $A9D3;
PROCEDURE TETextBox(text: Ptr;length: LONGINT;box: Rect;just: INTEGER);
INLINE $A9CE;
PROCEDURE TextBox(text: Ptr;length: LONGINT;box: Rect;just: INTEGER);
INLINE $A9CE;
PROCEDURE TEScroll(dh: INTEGER;dv: INTEGER;hTE: TEHandle);
INLINE $A9DD;
PROCEDURE TESelView(hTE: TEHandle);
INLINE $A811;
PROCEDURE TEPinScroll(dh: INTEGER;dv: INTEGER;hTE: TEHandle);
INLINE $A812;
PROCEDURE TEAutoView(fAuto: BOOLEAN;hTE: TEHandle);
INLINE $A813;
FUNCTION TEScrapHandle: Handle;
INLINE $2EB8,$0AB4;
PROCEDURE TECalText(hTE: TEHandle);
INLINE $A9D0;
FUNCTION TEGetOffset(pt: Point;hTE: TEHandle): INTEGER;
INLINE $A83C;
FUNCTION TEGetPoint(offset: INTEGER;hTE: TEHandle): Point;
INLINE $3F3C,$0008,$A83D;
PROCEDURE TEClick(pt: Point;fExtend: BOOLEAN;h: TEHandle);
INLINE $A9D4;
FUNCTION TEStylNew(destRect: Rect;viewRect: Rect): TEHandle;
INLINE $A83E;
FUNCTION TEStyleNew(destRect: Rect;viewRect: Rect): TEHandle;
INLINE $A83E;
PROCEDURE SetStylHandle(theHandle: TEStyleHandle;hTE: TEHandle);
INLINE $3F3C,$0005,$A83D;
PROCEDURE SetStyleHandle(theHandle: TEStyleHandle;hTE: TEHandle);
INLINE $3F3C,$0005,$A83D;
PROCEDURE TESetStyleHandle(theHandle: TEStyleHandle;hTE: TEHandle);
INLINE $3F3C,$0005,$A83D;
FUNCTION GetStylHandle(hTE: TEHandle): TEStyleHandle;
INLINE $3F3C,$0004,$A83D;
FUNCTION GetStyleHandle(hTE: TEHandle): TEStyleHandle;
INLINE $3F3C,$0004,$A83D;
FUNCTION TEGetStyleHandle(hTE: TEHandle): TEStyleHandle;
INLINE $3F3C,$0004,$A83D;
PROCEDURE TEGetStyle(offset: INTEGER;VAR theStyle: TextStyle;VAR lineHeight: INTEGER;
VAR fontAscent: INTEGER;hTE: TEHandle);
INLINE $3F3C,$0003,$A83D;
PROCEDURE TEStylPaste(hTE: TEHandle);
INLINE $3F3C,$0000,$A83D;
PROCEDURE TEStylePaste(hTE: TEHandle);
INLINE $3F3C,$0000,$A83D;
PROCEDURE TESetStyle(mode: INTEGER;newStyle: TextStyle;fRedraw: BOOLEAN;
hTE: TEHandle);
INLINE $3F3C,$0001,$A83D;
PROCEDURE TEReplaceStyle(mode: INTEGER;oldStyle: TextStyle;newStyle: TextStyle;
fRedraw: BOOLEAN;hTE: TEHandle);
INLINE $3F3C,$0002,$A83D;
FUNCTION TEGetStyleScrapHandle(hTE: TEHandle): StScrpHandle;
INLINE $3F3C,$0006,$A83D;
FUNCTION GetStylScrap(hTE: TEHandle): StScrpHandle;
INLINE $3F3C,$0006,$A83D;
FUNCTION GetStyleScrap(hTE: TEHandle): StScrpHandle;
INLINE $3F3C,$0006,$A83D;
PROCEDURE TEStylInsert(text: Ptr;length: LONGINT;hST: StScrpHandle;hTE: TEHandle);
INLINE $3F3C,$0007,$A83D;
PROCEDURE TEStyleInsert(text: Ptr;length: LONGINT;hST: StScrpHandle;hTE: TEHandle);
INLINE $3F3C,$0007,$A83D;
FUNCTION TEGetHeight(endLine: LONGINT;startLine: LONGINT;hTE: TEHandle): LONGINT;
INLINE $3F3C,$0009,$A83D;
FUNCTION TEContinuousStyle(VAR mode: INTEGER;VAR aStyle: TextStyle;hTE: TEHandle): BOOLEAN;
INLINE $3F3C,$000A,$A83D;
PROCEDURE SetStylScrap(rangeStart: LONGINT;rangeEnd: LONGINT;newStyles: StScrpHandle;
redraw: BOOLEAN;hTE: TEHandle);
INLINE $3F3C,$000B,$A83D;
PROCEDURE SetStyleScrap(rangeStart: LONGINT;rangeEnd: LONGINT;newStyles: StScrpHandle;
redraw: BOOLEAN;hTE: TEHandle);
INLINE $3F3C,$000B,$A83D;
PROCEDURE TEUseStyleScrap(rangeStart: LONGINT;rangeEnd: LONGINT;newStyles: StScrpHandle;
fRedraw: BOOLEAN;hTE: TEHandle);
INLINE $3F3C,$000B,$A83D;
PROCEDURE TECustomHook(which: TEIntHook;VAR addr: ProcPtr;hTE: TEHandle);
INLINE $3F3C,$000C,$A83D;
FUNCTION TENumStyles(rangeStart: LONGINT;rangeEnd: LONGINT;hTE: TEHandle): LONGINT;
INLINE $3F3C,$000D,$A83D;
FUNCTION TEFeatureFlag(feature: INTEGER;action: INTEGER;hTE: TEHandle): INTEGER;
INLINE $3F3C,$000E,$A83D;
FUNCTION TEGetScrapLength: LONGINT;
FUNCTION TEGetScrapLen: LONGINT;
PROCEDURE TESetScrapLength(length: LONGINT);
PROCEDURE TESetScrapLen(length: LONGINT);
FUNCTION TEFromScrap: OSErr;
FUNCTION TEToScrap: OSErr;
PROCEDURE TESetClickLoop(clikProc: ProcPtr;hTE: TEHandle);
PROCEDURE SetClikLoop(clikProc: ProcPtr;hTE: TEHandle);
PROCEDURE TESetWordBreak(wBrkProc: ProcPtr;hTE: TEHandle);
PROCEDURE SetWordBreak(wBrkProc: ProcPtr;hTE: TEHandle);
{$ENDC} { UsingTextEdit }
{$IFC NOT UsingIncludes}
END.
{$ENDC}