mirror of
https://github.com/byteworksinc/ORCA-Pascal.git
synced 2024-11-22 00:32:31 +00:00
161 lines
5.2 KiB
ObjectPascal
161 lines
5.2 KiB
ObjectPascal
{$keep 'DeskMgr'}
|
|
unit DeskMgr;
|
|
interface
|
|
|
|
{********************************************************
|
|
*
|
|
* Desk Manager Interface File
|
|
*
|
|
* Other USES Files Needed: Common
|
|
*
|
|
* Other Tool Sets Needed: Tool Locator, Memory Manager,
|
|
* Miscellaneous Tool Set, Quick Draw II,
|
|
* Event Manager, Window Manager, Menu Manager,
|
|
* Control Manager, LineEdit Tool Set,
|
|
* Dialog Manager, Scrap Manager
|
|
*
|
|
* Copyright 1987-1992
|
|
* By the Byte Works, Inc.
|
|
* All Rights Reserved
|
|
*
|
|
*********************************************************}
|
|
|
|
uses
|
|
Common;
|
|
|
|
const
|
|
(* NDA action codes *)
|
|
eventAction = $0001; (* code for event to be handled by NDA *)
|
|
runAction = $0002; (* code passed when time period elapsed *)
|
|
cursorAction = $0003; (* code if NDA is frontmost window *)
|
|
undoAction = $0005; (* code when user selects Undo *)
|
|
cutAction = $0006; (* code when user selects Cut *)
|
|
copyAction = $0007; (* code when user selects Copy *)
|
|
pasteAction = $0008; (* code when user selects Paste *)
|
|
clearAction = $0009; (* code when user selects Clear *)
|
|
|
|
(* edit types *)
|
|
undoEdit = $0001; (* Undo edit type *)
|
|
cutEdit = $0002; (* Cut edit type *)
|
|
copyEdit = $0003; (* Copy edit type *)
|
|
pasteEdit = $0004; (* Paste edit type *)
|
|
clearEdit = $0005; (* Clear edit type *)
|
|
|
|
|
|
type
|
|
CDA_ID = record
|
|
DAName: pString;
|
|
DAstart: procPtr;
|
|
DAShutDown: procPtr;
|
|
end;
|
|
CDA_IDPtr = ^CDA_ID;
|
|
CDA_IDHandle = ^CDA_IDPtr;
|
|
|
|
NDA_ID = record
|
|
openRtn: procPtr;
|
|
closeRtn: procPtr;
|
|
actionRtn: procPtr;
|
|
initRtn: procPtr;
|
|
period: integer;
|
|
eventMask: integer;
|
|
menuText: cString;
|
|
end;
|
|
NDA_IDPtr = ^NDA_ID;
|
|
NDA_IDHandle = ^NDA_IDPtr;
|
|
|
|
stringTable = record
|
|
titleStr: cStringPtr;
|
|
controlStr: cStringPtr;
|
|
quitStr: cStringPtr;
|
|
selectStr: cStringPtr;
|
|
end;
|
|
stringTblPtr = ^stringTable;
|
|
|
|
runItem = record
|
|
reserved: longint;
|
|
period: integer;
|
|
signature: integer;
|
|
reserved2: longint;
|
|
end;
|
|
runItemPtr = ^runItem;
|
|
|
|
|
|
procedure DeskBootInit; tool ($05, $01); (* WARNING: an application should
|
|
NEVER make this call *)
|
|
|
|
procedure DeskStartUp; tool ($05, $02);
|
|
|
|
procedure DeskShutDown; tool ($05, $03);
|
|
|
|
function DeskVersion: integer; tool ($05, $04);
|
|
|
|
procedure DeskReset; tool ($05, $05); (* WARNING: an application should NEVER
|
|
make this call *)
|
|
|
|
function DeskStatus: boolean; tool ($05, $06);
|
|
|
|
procedure AddToRunQ (header: runItemPtr); tool ($05, $1F);
|
|
|
|
procedure CallDeskAcc (flags: integer; daReference: univ longint;
|
|
action: integer; bufferPtr: longint); tool ($05, $24);
|
|
|
|
procedure ChooseCDA; tool ($05, $11); (* WARNING: an application should NEVER
|
|
make this call *)
|
|
|
|
procedure CloseAllNDAs; tool ($05, $1D);
|
|
|
|
procedure CloseNDA (refNum: integer); tool ($05, $16);
|
|
|
|
procedure CloseNDAbyWinPtr (theWindow: grafPortPtr); tool ($05, $1C);
|
|
|
|
procedure FixAppleMenu (menuID: integer); tool ($05, $1E);
|
|
|
|
procedure GetDeskAccInfo (flags: integer; daReference: univ longint;
|
|
buffSize: integer; bufferPtr: ptr); tool ($05, $23);
|
|
|
|
function GetDeskGlobal (selector: integer): longint; tool ($05, $25);
|
|
|
|
function GetDAStrPtr: stringTblPtr; tool ($05, $14);
|
|
|
|
function GetNumNDAs: integer; tool ($05, $1B);
|
|
|
|
procedure InstallCDA (IDHandle: handle); tool ($05, $0F);
|
|
|
|
procedure InstallNDA (IDHandle: NDA_IDHandle); tool ($05, $0E);
|
|
|
|
function OpenNDA (DAIDNumber: integer): integer; tool ($05, $15);
|
|
|
|
procedure RemoveFromRunQ (header: runItemPtr); tool ($05, $20);
|
|
|
|
procedure RemoveCDA (IDHandle: CDA_IDHandle); tool ($05, $21);
|
|
|
|
procedure RemoveNDA (IDHandle: NDA_IDHandle); tool ($05, $22);
|
|
|
|
procedure RestAll; tool ($05, $0C); (* WARNING: an application should NEVER
|
|
make this call *)
|
|
|
|
procedure RestScrn; tool ($05, $0A); (* WARNING: an application should NEVER
|
|
make this call *)
|
|
|
|
procedure SaveAll; tool ($05, $0B); (* WARNING: an application should
|
|
NEVER make this call *)
|
|
|
|
procedure SaveScrn; tool ($05, $09); (* WARNING: an application should
|
|
NEVER make this call *)
|
|
|
|
procedure SetDAStrPtr (altDispHandle: handle; newStrings: stringTblPtr);
|
|
tool ($05, $13);
|
|
|
|
procedure SystemClick (var theEvent: eventRecord; theWindow: grafPortPtr;
|
|
findWindowResult: integer); tool ($05, $17);
|
|
|
|
function SystemEdit (editType: integer): boolean; tool ($05, $18);
|
|
|
|
function SystemEvent (eventWhat: integer; eventMessage, eventWhen, eventWhere:
|
|
longint; eventMods: integer): boolean; tool ($05, $1A);
|
|
|
|
procedure SystemTask; tool ($05, $19);
|
|
|
|
implementation
|
|
end.
|