mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2025-01-14 06:29:46 +00:00
5b0f0cc134
Resource forks are included only for .rsrc files. These are DeRezzed into their data fork. 'ckid' resources, from the Projector VCS, are not included. The Tools directory, containing mostly junk, is also excluded.
401 lines
13 KiB
OpenEdge ABL
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}
|
|
|