home *** CD-ROM | disk | FTP | other *** search
Text File | 1994-11-11 | 3.1 KB | 148 lines | [TEXT/MPS ] |
- {
- File: TerminalTools.p
-
- Copyright: © 1984-1994 by Apple Computer, Inc.
- All rights reserved.
-
- Version: Universal Interfaces 2.0a3 ETO #16, MPW prerelease. Friday, November 11, 1994.
-
- Bugs?: If you find a problem with this file, send the file and version
- information (from above) and the problem description to:
-
- Internet: apple.bugs@applelink.apple.com
- AppleLink: APPLE.BUGS
-
- }
-
- {$IFC UNDEFINED UsingIncludes}
- {$SETC UsingIncludes := 0}
- {$ENDC}
-
- {$IFC NOT UsingIncludes}
- UNIT TerminalTools;
- INTERFACE
- {$ENDC}
-
- {$IFC UNDEFINED __TERMINALTOOLS__}
- {$SETC __TERMINALTOOLS__ := 1}
-
- {$I+}
- {$SETC TerminalToolsIncludes := UsingIncludes}
- {$SETC UsingIncludes := 1}
-
-
- {$IFC UNDEFINED __DIALOGS__}
- {$I Dialogs.p}
- {$ENDC}
- { Errors.p }
- { ConditionalMacros.p }
- { Memory.p }
- { Types.p }
- { MixedMode.p }
- { Windows.p }
- { Quickdraw.p }
- { QuickdrawText.p }
- { Events.p }
- { OSUtils.p }
- { Controls.p }
- { Menus.p }
- { TextEdit.p }
-
- {$IFC UNDEFINED __TERMINALS__}
- {$I Terminals.p}
- {$ENDC}
- { CTBUtilities.p }
- { StandardFile.p }
- { Files.p }
- { AppleTalk.p }
- { Connections.p }
-
- {$PUSH}
- {$ALIGN MAC68K}
- {$LibExport+}
-
- 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: TerminalSearchCallBackUPP;
- refnum: INTEGER;
- next: TMSearchBlockPtr;
- END;
- TMSetupPtr = ^TMSetupStruct;
-
- TMSetupStruct = RECORD
- theDialog: DialogPtr;
- count: INTEGER;
- theConfig: Ptr;
- procID: INTEGER; { procID of the tool }
- END;
-
- {$ALIGN RESET}
- {$POP}
-
- {$SETC UsingIncludes := TerminalToolsIncludes}
-
- {$ENDC} {__TERMINALTOOLS__}
-
- {$IFC NOT UsingIncludes}
- END.
- {$ENDC}
-