mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2024-12-28 16:31:01 +00:00
0ba83392d4
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.
130 lines
2.6 KiB
OpenEdge ABL
130 lines
2.6 KiB
OpenEdge ABL
{************************************************************
|
|
TerminalTools.p
|
|
Pascal Interface to the CommToolBox terminal tools
|
|
|
|
Copyright Apple Computer, Inc. 1988-1991
|
|
All rights reserved
|
|
|
|
This file is used in these builds: ROM System
|
|
|
|
Change History (most recent first):
|
|
|
|
<4> 8/28/91 CH Updated interface headers for consistency.
|
|
<3> 7/25/91 JL Checked in database generated file from DSG. Matched format of
|
|
file to C file.
|
|
<2> 10/2/90 JAL changed TMIntf to Terminals to include correct file.
|
|
<1> 3/14/90 BBH first checked in
|
|
|
|
To Do:
|
|
************************************************************}
|
|
|
|
{$IFC UNDEFINED UsingIncludes}
|
|
{$SETC UsingIncludes := 0}
|
|
{$ENDC}
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
UNIT TerminalTools;
|
|
INTERFACE
|
|
{$ENDC}
|
|
|
|
{$IFC UNDEFINED UsingTerminalTools}
|
|
{$SETC UsingTerminalTools := 1}
|
|
|
|
{$I+}
|
|
{$SETC TerminalToolsIncludes := UsingIncludes}
|
|
{$SETC UsingIncludes := 1}
|
|
{$IFC UNDEFINED UsingDialogs}
|
|
{$I $$Shell(PInterfaces)Dialogs.p}
|
|
{$ENDC}
|
|
{$IFC UNDEFINED UsingTerminals}
|
|
{$I $$Shell(PInterfaces)Terminals.p}
|
|
{$ENDC}
|
|
{$SETC UsingIncludes := TerminalToolsIncludes}
|
|
|
|
CONST
|
|
tdefType = 'tdef';
|
|
tvalType = 'tval';
|
|
tsetType = 'tset';
|
|
tlocType = 'tloc';
|
|
tscrType = 'tscr';
|
|
tbndType = 'tbnd';
|
|
tverType = 'vers';
|
|
|
|
{ messages }
|
|
tmInitMsg = 0;
|
|
tmDisposeMsg = 1;
|
|
tmSuspendMsg = 2;
|
|
tmResumeMsg = 3;
|
|
tmMenuMsg = 4;
|
|
tmEventMsg = 5;
|
|
tmActivateMsg = 6;
|
|
tmDeactivateMsg = 7;
|
|
tmGetErrorStringMsg = 8;
|
|
|
|
tmIdleMsg = 50;
|
|
tmResetMsg = 51;
|
|
|
|
tmKeyMsg = 100;
|
|
tmStreamMsg = 101;
|
|
tmResizeMsg = 102;
|
|
tmUpdateMsg = 103;
|
|
tmClickMsg = 104;
|
|
tmGetSelectionMsg = 105;
|
|
tmSetSelectionMsg = 106;
|
|
tmScrollMsg = 107;
|
|
tmClearMsg = 108;
|
|
tmGetLineMsg = 109;
|
|
tmPaintMsg = 110;
|
|
tmCursorMsg = 111;
|
|
tmGetEnvironsMsg = 112;
|
|
tmDoTermKeyMsg = 113;
|
|
tmCountTermKeysMsg = 114;
|
|
tmGetIndTermKeyMsg = 115;
|
|
|
|
{ messages for validate DefProc }
|
|
tmValidateMsg = 0;
|
|
tmDefaultMsg = 1;
|
|
|
|
{ messages for Setup DefProc }
|
|
tmSpreflightMsg = 0;
|
|
tmSsetupMsg = 1;
|
|
tmSitemMsg = 2;
|
|
tmSfilterMsg = 3;
|
|
tmScleanupMsg = 4;
|
|
|
|
{ messages for scripting defProc }
|
|
tmMgetMsg = 0;
|
|
tmMsetMsg = 1;
|
|
|
|
{ messages for localization defProc }
|
|
tmL2English = 0;
|
|
tmL2Intl = 1;
|
|
|
|
TYPE
|
|
TMSearchBlockPtr = ^TMSearchBlock;
|
|
TMSearchBlock = RECORD
|
|
theString: StringHandle;
|
|
where: Rect;
|
|
searchType: TMSearchTypes;
|
|
callBack: ProcPtr;
|
|
refnum: INTEGER;
|
|
next: TMSearchBlockPtr;
|
|
END;
|
|
|
|
TMSetupPtr = ^TMSetupStruct;
|
|
TMSetupStruct = RECORD
|
|
theDialog: DialogPtr;
|
|
count: INTEGER;
|
|
theConfig: Ptr;
|
|
procID: INTEGER; { procID of the tool }
|
|
END;
|
|
|
|
|
|
|
|
{$ENDC} { UsingTerminalTools }
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
END.
|
|
{$ENDC}
|
|
|