mirror of
https://github.com/elliotnunn/sys7.1-doc-wip.git
synced 2024-06-11 23:29:30 +00:00
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}
|
|
|