mirror of
https://github.com/elliotnunn/boot3.git
synced 2024-12-28 20:29:26 +00:00
5b0f0cc134
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.
524 lines
17 KiB
OpenEdge ABL
524 lines
17 KiB
OpenEdge ABL
{
|
|
File: CommToolboxPriv.p
|
|
|
|
Contains: Internal interface to the CommResource Mgr and the CommToolbox Utilities
|
|
|
|
Written by: Byron Han
|
|
Jerry Godes
|
|
|
|
Copyright: © 1988-1991 by Apple Computer, Inc., all rights reserved.
|
|
|
|
Change History (most recent first):
|
|
|
|
<25> 8/27/91 JSM Cleanup header, remove Pre70 stuff.
|
|
<24> 8/20/91 BH move CRMReserveRF into public interfaces
|
|
<23> 8/9/91 JNG Moved CRMReleaseRF into main interfaces
|
|
<22> 6/25/91 JNG Move CRMIsDriverOpen to CommResources.p
|
|
<21> 6/18/91 BH rename choose constants
|
|
<21> 6/18/91 BH rename choose constants
|
|
<20> 1/9/91 kaz <jng> Changing ModemStringType and PrinterStringType to STR# to
|
|
include driver names. Changing ChooseIDStrID from -32512 to
|
|
-32510.
|
|
<19> 12/13/90 JNG Use the System IconLDEF<kaz>
|
|
<18> 11/1/90 fjs add new constants for the color icon types
|
|
<17> 10/16/90 kaz Adding CRMAppRec to keep track of the processes that init the
|
|
TM, FT, or CM; renamed reserved to appList in CTBBlock; added
|
|
bitfields for initialized mgrs; added prototypes for handling
|
|
the app list; Removed _CTBKeystrokeFilter references; Renamed
|
|
CRMStruct to CRMResourceCount. <jng>
|
|
Term, FT, or Conn Mgrs; renamed reserved to appList to CTBBlock;
|
|
added bitfields for initialized mgrs; added prototypes for
|
|
handling the app list; fixed spelling of some messages.
|
|
Removing _CTBKeystrokeFilter references. Renamed CRMStruct to
|
|
CRMResourceCount. <jng>
|
|
<16> 10/5/90 PN Restore the project
|
|
<15> 9/10/90 JNG Have ResFileRec contain canonical form of file name; Add in new
|
|
resources for choose
|
|
<14> 8/15/90 kaz Added PlaceWindow() prototype
|
|
<13> 8/6/90 kaz Renaming GoodDrawOutlineButton; adding DoGrayOutline.
|
|
<12> 5/24/90 kaz Combined GetIndflst and GetIndfinf; added Getflst()
|
|
<11> 5/22/90 kaz Updated 'flst' and FontInfoRec to include a txMode field; merged
|
|
FontInfoRec & TextState records; added Get and SetTextState
|
|
(like GetPenState)
|
|
<10> 4/11/90 kaz Added CmdPeriod() Prototype
|
|
<8+> 3/20/90 kaz Merging in stuff from 1.0
|
|
- struct for accessing QD globals
|
|
- new routines in CommToolboxUtilityRoutines
|
|
<8> 3/18/90 BBH keep unused in IconPrivateBlock for Tools 1.0 compatibility with
|
|
the Icon LDEF (unused was hasSM)
|
|
<7> 3/16/90 BBH added CTB_VersionType
|
|
<6> 3/16/90 BBH added MIN and MAX interfaces to CommToolboxUtilityRoutines.c
|
|
<5> 3/16/90 BBH added DoTheIcon, parse_finf, and parse_flst, FindMenuItem and
|
|
GoodDrawOutlineButton
|
|
<4> 3/15/90 BBH fix selector typos
|
|
<3> 3/14/90 BBH added DITL package selectors
|
|
<2> 3/14/90 BBH integrate CRMPrivate.p CTBCoreIntf.p CTBPrivate.p and add
|
|
resource type for min system heap size (temporary until ptch's
|
|
are installed)
|
|
<1> 3/14/90 BBH first checked in
|
|
|
|
}
|
|
|
|
{$IFC UNDEFINED UsingIncludes}
|
|
{$SETC UsingIncludes := 0}
|
|
{$ENDC}
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
UNIT CommToolboxPriv;
|
|
INTERFACE
|
|
{$ENDC}
|
|
|
|
{$I+}
|
|
{$SETC CommToolboxInc := UsingIncludes}
|
|
{$SETC UsingIncludes := 1}
|
|
{$IFC UNDEFINED UsingProcesses}
|
|
{$I $$Shell(PInterfaces)Processes.p}
|
|
{$ENDC}
|
|
{$SETC UsingIncludes := CommToolboxInc}
|
|
|
|
{$IFC UNDEFINED CommToolboxPriv}
|
|
{$SETC CommToolboxPriv := 1}
|
|
|
|
{ This file contains the resource types and resource ID's to be used by the CommToolbox }
|
|
|
|
{ the following 6 resources are temporary to be merged into ptch code }
|
|
CONST
|
|
CTB_InstallType = 'INIT';
|
|
CTB_InstallID = 29;
|
|
|
|
CTB_DispatcherType = 'proc'; { this used to be ctbd -32512 }
|
|
CTB_DispatcherID = -32509;
|
|
|
|
CTB_GestaltProcType = 'proc'; { this used to be ctbg -32510 }
|
|
CTB_GestaltProcID = -32508;
|
|
|
|
CTB_PatchType = 'ctbp'; { this used to be type ctb¶ }
|
|
CTB_Patch1 = -32512; { allocate low memory }
|
|
CTB_Patch2 = -32511; { register builtin ports }
|
|
CTB_Patch3 = -32510; { perform gestalt installation }
|
|
|
|
{ end temporary }
|
|
|
|
CTB_ConnectionMgrType = 'cmtb';
|
|
CTB_FileTransferMgrType = 'cmtb';
|
|
CTB_TerminalMgrType = 'cmtb';
|
|
CTB_CTBUtilitiesType = 'cmtb';
|
|
CTB_CommResourceMgrType = 'cmtb';
|
|
|
|
CTB_ConnectionMgrID = -32512;
|
|
CTB_FileTransferMgrID = -32511;
|
|
CTB_TerminalMgrID = -32510;
|
|
CTB_CTBUtilitiesID = -32509;
|
|
CTB_CommResourceMgrID = -32508;
|
|
|
|
CTB_VersionType = 'ctb '; { this used to be ctbv -32512}
|
|
CTB_VersionID = -32512;
|
|
|
|
CTB_KeyclickType = 'snd '; { this used to be ctb$ -32511 }
|
|
CTB_KeyclickID = -32512;
|
|
|
|
CTB_ChooseType = 'proc'; { this used to be choo -32512 }
|
|
CTB_ChooseID = -32512;
|
|
|
|
CTB_DITLPackType = 'proc'; { this used to be ditl -32512 }
|
|
CTB_DITLPackID = -32511;
|
|
|
|
CTB_NuLookupType = 'proc'; { this used to be nlup -32510 }
|
|
CTB_NuLookupID = -32510;
|
|
|
|
CTB_NuLookupParmsType = 'flst'; { this used to be parm -32510 }
|
|
CTB_NuLookupParmsID = -32510;
|
|
|
|
CTB_ModemIconType = 'ICN#'; { this used to be ctbi -32512 }
|
|
CTB_Modem4ColorIconType = 'icl4';
|
|
CTB_Modem8ColorIconType = 'icl8';
|
|
CTB_ModemIconID = -32512;
|
|
|
|
CTB_PrinterIconType = 'ICN#'; { this used to be ctbi -32511 }
|
|
CTB_Printer4ColorIconType = 'icl4';
|
|
CTB_Printer8ColorIconType = 'icl8';
|
|
CTB_PrinterIconID = -32511;
|
|
|
|
CTB_ModemStringType = 'STR#'; { this used to be ctbs -32512 }
|
|
CTB_ModemStringID = -32512;
|
|
|
|
CTB_PrinterStringType = 'STR#'; { this used to be ctbs -32511 }
|
|
CTB_PrinterStringID = -32511;
|
|
|
|
CTB_CommFolderNameType = 'STR '; { this used to be ctbs -32510 }
|
|
CTB_CommFolderNameID = -32510;
|
|
|
|
CTB_MarkerType = 'ctb '; { lets CTB6 installer scripts know CTB7 is installed }
|
|
CTB_CTB6MarkerID = 0;
|
|
CTB_CTB7MarkerID = 1;
|
|
|
|
CTB_ChooseDLOGID = -32512;
|
|
CTB_ChoosehdlgID = -32512;
|
|
CTB_ChoosedctbID = -32512;
|
|
CTB_ChooseDITLID = -32512;
|
|
CTB_ChooseSTRsID = -32510;
|
|
CTB_ChooseLDEFID = -32512;
|
|
CTB_ChoosehmnuID = -32512;
|
|
CTB_ChoosefinfID = -32512;
|
|
CTB_ChooseflstID = -32512; { preferred over finf }
|
|
CTB_ChooseCNTLID = -32512;
|
|
CTB_ChooseMENUID = -32512;
|
|
|
|
CTB_ChooseConfirmDLOGID = -32511;
|
|
CTB_ChooseConfirmDITLID = -32511;
|
|
|
|
CTB_ChooseUnavailableDLOGID = -32509;
|
|
CTB_ChooseUnavailableDITLID = -32509;
|
|
|
|
CTB_NulookuphdlgID = -32510;
|
|
CTB_NulookupDLOGID = -32510;
|
|
CTB_NulookupdctbID = -32510;
|
|
CTB_NulookupDITLID = -32510;
|
|
CTB_NulookupSTRsID = -32510;
|
|
CTB_NulookupLDEFID = -32510;
|
|
|
|
CTB_PopupCDEFType = 'CDEF';
|
|
CTB_PopupCDEFID = 63;
|
|
|
|
{ added since CTB6 }
|
|
CTB_PopupTriangleType = 'PICT';
|
|
CTB_PopupTriangleID = -8224; { owned by cdef 63 }
|
|
|
|
CTB_PopupExpandType = 'proc'; { this expands menuwidth }
|
|
CTB_PopupExpandID = -8224; { owned by cdef 63 }
|
|
|
|
{ CommRsrcMgr }
|
|
CTBBlockVersion = 1;
|
|
|
|
cmInUse = 1; { values for cmtbFlags bitfield }
|
|
tmInUse = 2;
|
|
ftInUse = 4;
|
|
|
|
{ CommToolboxCore }
|
|
CMSel = 0; { manager selectors }
|
|
TMSel = 1;
|
|
FTSel = 2;
|
|
|
|
BndType = 0; { tool res selectors }
|
|
DefType = 1;
|
|
ValType = 2;
|
|
SetType = 3;
|
|
ScrType = 4;
|
|
LocType = 5;
|
|
|
|
CTBNoTools = 8; { common error code }
|
|
|
|
|
|
{ Common Tool Messages }
|
|
CTBInitMsg = 0;
|
|
CTBDisposeMsg = 1;
|
|
CTBSuspendMsg = 2;
|
|
CTBResumeMsg = 3;
|
|
CTBMenuMsg = 4;
|
|
CTBEventMsg = 5;
|
|
CTBActivateMsg = 6;
|
|
CTBDeactivateMsg = 7;
|
|
CTBGetErrorStringMsg = 8; { except for connection manager since I BBH f*cked up }
|
|
|
|
CTBIdleMsg = 50;
|
|
CTBResetMsg = 51;
|
|
CTBAbortMsg = 52;
|
|
|
|
CTBValidateMsg = 0;
|
|
CTBDefaultMsg = 1;
|
|
|
|
CTBPreflightMsg = 0;
|
|
CTBSetupMsg = 1;
|
|
CTBItemMsg = 2;
|
|
CTBFilterMsg = 3;
|
|
CTBCleanupMsg = 4;
|
|
|
|
CTBGetMsg = 0;
|
|
CTBSetMsg = 1;
|
|
|
|
CTB2EnglishMsg = 0;
|
|
CTB2IntlMsg = 1;
|
|
|
|
{ CommToolboxUtilities privates }
|
|
ChooseCM = 0;
|
|
ChooseTM = 1;
|
|
ChooseFT = 2;
|
|
|
|
{ ChooseRec messages }
|
|
{
|
|
ctbChooseNoChangelHandle means bring up dialog to select tool or configure tool,
|
|
but only return the toolName and the new configPtr (i.e. do not dispose of
|
|
old handle or create new one
|
|
|
|
ctbChooseNoDialog means change to the toolName and config sent in without bringing
|
|
up the dialog
|
|
|
|
ctbChooseNoChangleTool means popup only contains current tool (cannot change tool)
|
|
}
|
|
ctbChooseNoChangeHandle = 1;
|
|
ctbChooseNoDialog = 2;
|
|
ctbChooseNoChangeTool = 4;
|
|
|
|
{ DITL package selectors }
|
|
AppendMsg = 1;
|
|
CountMsg = 2;
|
|
ShortenMsg = 3;
|
|
|
|
|
|
TYPE
|
|
{ CommResourceMgr privates }
|
|
ResourceMapHandlePtr = ^ResourceMapHandle;
|
|
ResourceMapHandle = ^ResourceMapPtr;
|
|
ResourceMapPtr = ^ResourceMapRecord;
|
|
ResourceMapRecord = RECORD
|
|
theHeader : ARRAY[0..3] OF LONGINT;
|
|
next : ResourceMapHandle;
|
|
refNum : INTEGER;
|
|
END;
|
|
|
|
CRMToolContextPtr = ^CRMToolContext; {NOTE::: ifthis changes change CRMToolPreflight/}
|
|
{ CRMToolPostflight}
|
|
CRMToolContext = PACKED RECORD
|
|
oldProcID : INTEGER;
|
|
oldHidden : ResourceMapHandle;
|
|
toolProcID : INTEGER;
|
|
wasBelow : BOOLEAN;
|
|
END;
|
|
|
|
DispatchCodePtr = ^DispatchCode;
|
|
DispatchCode = PACKED RECORD
|
|
instruction: INTEGER;
|
|
table: ARRAY[0..18] OF LONGINT;
|
|
CTBrefnum: INTEGER;
|
|
big: INTEGER;
|
|
END;
|
|
|
|
ResFileRecHdl = ^ResFileRecPtr;
|
|
ResFileRecPtr = ^ResFileRec;
|
|
ResFileRec = PACKED RECORD
|
|
theName : FSSpec; { Canonical File Specification }
|
|
refNum : INTEGER; { resource file reference number }
|
|
resMap : ResourceMapHandle; { handle to master resource map }
|
|
pZone : THz; { zone where resource map resides }
|
|
useCount : LONGINT; { use count in the current heap }
|
|
special : CRMToolContext; { context saved for setup }
|
|
reserved : LONGINT;
|
|
next : ResFileRecHdl; { next in the chain }
|
|
END;
|
|
|
|
{ Tracks individual resources }
|
|
CRMResourceCountPtr = ^CRMResourceCount;
|
|
CRMResourceCount = RECORD
|
|
next : CRMResourceCountPtr; { next in chain }
|
|
theHandle : LONGINT; { resource to track }
|
|
useCount : LONGINT; { # of times used }
|
|
refNum : INTEGER; { what is this for? }
|
|
END;
|
|
|
|
CRMAppRecPtr = ^CRMAppRec;
|
|
CRMAppRec = RECORD
|
|
aProcess : ProcessSerialNumber; { unique process id }
|
|
cmtbFlags : INTEGER; { bit field for TM, FT, CM }
|
|
reserved : LONGINT;
|
|
next : CRMAppRecPtr; { next in chain }
|
|
END;
|
|
|
|
CTBGlobalPtr = ^CTBBlockPtr;
|
|
|
|
CTBBlockPtr = ^CTBBlock;
|
|
CTBBlock = RECORD
|
|
version : INTEGER;
|
|
CRMQueue : QHdrPtr;
|
|
resList : LONGINT;
|
|
private : INTEGER;
|
|
appList : CRMAppRecPtr; { list of apps that call FT, TM, CM }
|
|
resFiles : ResFileRecHdl;
|
|
toolResChain: ResourceMapHandle;
|
|
|
|
secret : ARRAY[0..15] OF LONGINT;
|
|
END;
|
|
|
|
|
|
{ CommToolboxCore }
|
|
CoreHandle = ^CorePtr;
|
|
CorePtr = ^CoreRecord;
|
|
CoreRecord = RECORD
|
|
procID : INTEGER;
|
|
|
|
flags : LONGINT;
|
|
errCode : OSErr;
|
|
|
|
refCon : LONGINT;
|
|
userData : LONGINT;
|
|
|
|
defProc : ProcPtr;
|
|
|
|
config : Ptr;
|
|
oldConfig : Ptr;
|
|
|
|
reserved0 : LONGINT;
|
|
reserved1 : LONGINT;
|
|
reserved2 : LONGINT;
|
|
END;
|
|
|
|
{ CommToolboxUtilities privates }
|
|
{ IconLDEF Cell Data }
|
|
CellDataH = ^CellDataP;
|
|
CellDataP = ^CellDataBlock;
|
|
CellDataBlock = RECORD
|
|
icon : PACKED ARRAY[0..31] OF LONGINT;
|
|
mask : PACKED ARRAY[0..31] OF LONGINT;
|
|
title : STR255;
|
|
END;
|
|
|
|
{ CommToolboxUtilityRoutines }
|
|
GrafWorldPtr = ^GrafWorld;
|
|
GrafWorld = RECORD { Accessing QD Globals }
|
|
privates : PACKED ARRAY [0..75] of BYTE;
|
|
randSeed : LONGINT;
|
|
screenBits : BitMap;
|
|
arrow : Cursor;
|
|
dkGray, ltGray,
|
|
gray, black,
|
|
white : Pattern;
|
|
thePort : GrafPtr;
|
|
END;
|
|
|
|
{System IconLDEF data}
|
|
NewCellDataBlock = RECORD
|
|
cHand : Handle;
|
|
cFont : integer;
|
|
cFace : Style;
|
|
cSize : integer;
|
|
cName : Str255;
|
|
END;
|
|
NewCellDataBlockP = ^NewCellDataBlock;
|
|
NewCellDataBlockH = ^NewCellDataBlockP;
|
|
|
|
{ CommToolboxLDEF private storage }
|
|
IconPrivateH = ^IconPrivateP;
|
|
IconPrivateP = ^IconPrivateBlock;
|
|
IconPrivateBlock = RECORD
|
|
unused : BOOLEAN; { has to be here for CTB 1.0 compatibility }
|
|
procID : INTEGER; { res ref num of tool }
|
|
tempData : NewCellDataBlockH; {Data for new IconLDEF }
|
|
END;
|
|
|
|
{ choose data structures }
|
|
ChooseRecPtr = ^ChooseRec;
|
|
ChooseRec = RECORD
|
|
reserved : LONGINT;
|
|
msg : LONGINT;
|
|
idleProc : ProcPtr;
|
|
filterProc : ProcPtr;
|
|
newTool : Str63;
|
|
newConfig : Ptr;
|
|
eventProc : ProcPtr;
|
|
END;
|
|
|
|
{ For accessing 'finf' and 'flst' resources, etc }
|
|
TextState = RECORD
|
|
theFont : INTEGER;
|
|
theFace : Style;
|
|
theSize : INTEGER;
|
|
theMode : INTEGER;
|
|
END;
|
|
|
|
{ CommResourceMgr routines }
|
|
FUNCTION CRMOpenRFPerm(fName: STR63; vRefNum: INTEGER; dirID: LONGINT): INTEGER;
|
|
{ returns refnum. res map put in sysheap }
|
|
|
|
FUNCTION CRMGetRFCount(refNum: INTEGER): INTEGER;{ returns usage count }
|
|
|
|
FUNCTION CRMCountFiles(fType: OSType; vRefNum: INTEGER; dirID: LONGINT): INTEGER;
|
|
{ # files with given type }
|
|
FUNCTION CRMGetIndFile(VAR fName: STR63; fType: OSType;
|
|
vRefNum: INTEGER; dirID: LONGINT; index: INTEGER): OSErr;
|
|
{ return index_th file of given type }
|
|
PROCEDURE CRMToolPreflight(procID: INTEGER; VAR crmContext: CRMToolContext);
|
|
PROCEDURE CRMToolPostflight(crmContext: CRMToolContext);
|
|
|
|
|
|
{$IFC UNDEFINED COMMRESOURCEMGR}
|
|
FUNCTION CRMParseRefNum(refNum: INTEGER; VAR fName: STR63; VAR vRefNum: INTEGER): OSErr;
|
|
{ given file refnum, return fName and WD }
|
|
|
|
FUNCTION CRMCreateCommunications(VAR vRefNum: INTEGER;
|
|
VAR dirID: LONGINT): OSErr; { creates folder named Communications in system folder }
|
|
{ find folder named Communications in blessed folder }
|
|
PROCEDURE CRMDumpResChain;
|
|
FUNCTION CRMCheckTool(fName: STR63; fType: OSType;
|
|
vRefNum: INTEGER; dirID: LONGINT) : Boolean; {is fName the correct fType?}
|
|
{$ENDC}
|
|
|
|
{ CRM App List Handling Rotuines }
|
|
FUNCTION TrackManagers(mgrID: INTEGER): INTEGER;
|
|
FUNCTION FindApp(aProcess: ProcessSerialNumber): CRMAppRecPtr;
|
|
FUNCTION AddApp(aProcess: ProcessSerialNumber): CRMAppRecPtr;
|
|
PROCEDURE RemoveApp(theApp: CRMAppRecPtr);
|
|
|
|
{ CommToolboxCore }
|
|
FUNCTION InitManager(selector: Integer) : OSErr;
|
|
PROCEDURE CTBGetToolName(procID : INTEGER; VAR name : STR255; MgrSel: INTEGER);
|
|
FUNCTION CTBGetProcID(name: STR255; MgrSel: INTEGER): INTEGER;
|
|
FUNCTION CTBGetVersion(hCore: CoreHandle; MgrSel: INTEGER): Handle;
|
|
|
|
|
|
FUNCTION CTBValidate(hCore : CoreHandle; MgrSel: INTEGER) : Boolean;
|
|
PROCEDURE CTBDefault(VAR ConfigPtr : Ptr; procID : integer;
|
|
allocate : Boolean; MgrSel: INTEGER);
|
|
|
|
FUNCTION CTBSetupPreflight(procID: INTEGER; VAR magicCookie: LONGINT; MgrSel: INTEGER):Handle;
|
|
PROCEDURE CTBSetupSetup(procID: INTEGER; theConfig: Ptr; count: INTEGER; theDialog: DialogPtr;
|
|
VAR magicCookie: LONGINT; MgrSel: INTEGER);
|
|
FUNCTION CTBSetupFilter(procID: INTEGER; theConfig: Ptr; count: INTEGER;
|
|
theDialog: DialogPtr; VAR theEvent: EventRecord; VAR theItem: INTEGER;
|
|
VAR magicCookie: LONGINT; MgrSel: INTEGER) : Boolean;
|
|
PROCEDURE CTBSetupItem(procID: INTEGER; theConfig: Ptr; count: INTEGER; theDialog :DialogPtr;
|
|
VAR item: INTEGER; VAR magicCookie: LONGINT; MgrSel: INTEGER);
|
|
PROCEDURE CTBSetupCleanup(procID: INTEGER; theConfig: Ptr; count: INTEGER; theDialog: DialogPtr;
|
|
VAR magicCookie: LONGINT; MgrSel: INTEGER);
|
|
PROCEDURE CTBSetupXCleanup(procID: INTEGER; theConfig: Ptr; count: INTEGER; theDialog: DialogPtr;
|
|
OKed: BOOLEAN; VAR magicCookie: LONGINT; MgrSel: INTEGER);
|
|
PROCEDURE CTBSetupPostflight(procID: INTEGER; MgrSel: INTEGER);
|
|
|
|
FUNCTION CTBGetConfig(hCore: CoreHandle; MgrSel: INTEGER) : Ptr;
|
|
FUNCTION CTBSetConfig(hCore: CoreHandle; thePtr: Ptr; MgrSel: INTEGER) : INTEGER;
|
|
|
|
FUNCTION CTBIntlToEnglish(hCore: CoreHandle; inputPtr: Ptr; VAR outputPtr: Ptr;
|
|
language : INTEGER; MgrSel: INTEGER) : INTEGER;
|
|
FUNCTION CTBEnglishToIntl(hCore: CoreHandle; inputPtr: Ptr; VAR outputPtr: Ptr;
|
|
language : INTEGER; MgrSel: INTEGER) : INTEGER;
|
|
|
|
FUNCTION CTBChoose(VAR hCore:CoreHandle; where: Point; idleProc:ProcPtr; MgrSel: INTEGER) : INTEGER;
|
|
FUNCTION CTBPChoose(VAR hCore:CoreHandle; where: Point; VAR cRec:ChooseRec; MgrSel: INTEGER) : INTEGER;
|
|
|
|
{ CommToolboxUtilityRoutines }
|
|
FUNCTION CRMGetAResource(theType : ResType; procID: Integer) : Handle;
|
|
FUNCTION FindMenuItem(hMenu: MenuHandle; theItem: Str255): INTEGER;
|
|
FUNCTION GetIndflst(hInfo: Handle; oldStyle: BOOLEAN;
|
|
index: INTEGER; VAR finfInfo: TextState): OSErr;
|
|
PROCEDURE DoSolidOutline(pDialog: DialogPtr; theItem: INTEGER);
|
|
PROCEDURE DoGrayOutline(pDialog: DialogPtr; theItem: INTEGER);
|
|
PROCEDURE DoTheIcon(theIcon: Ptr; destRect: Rect; selected: BOOLEAN);
|
|
FUNCTION MIN(a, b: LONGINT): LONGINT;
|
|
FUNCTION MAX(a, b: LONGINT): LONGINT;
|
|
PROCEDURE GetTextState(VAR txState: TextState);
|
|
PROCEDURE SetTextState(txState: TextState);
|
|
PROCEDURE Getflst(procID, resourceID, finfIndex: INTEGER;
|
|
VAR finfInfo: TextState);
|
|
FUNCTION GetQDGlobals: GrafWorldPtr;
|
|
PROCEDURE GetItemRect(pDialog: DialogPtr; itemNo: INTEGER; VAR theRect: Rect);
|
|
PROCEDURE SetUserItemProc(pDialog: DialogPtr; itemNo: INTEGER; theProc: ProcPtr);
|
|
PROCEDURE PCopyString(srcStr: Str32; VAR destStr: Str32);
|
|
FUNCTION CmdPeriod(theEvent: EventRecord): BOOLEAN;
|
|
FUNCTION PlaceWindow(theParent: WindowPtr;childHeight,childWidth: INTEGER): Point;
|
|
|
|
{$ENDC} { CommToolboxPriv }
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
END.
|
|
{$ENDC}
|
|
|
|
|