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