mirror of
https://github.com/elliotnunn/BuildCubeE.git
synced 2026-01-23 04:16:18 +00:00
148 lines
3.1 KiB
OpenEdge ABL
148 lines
3.1 KiB
OpenEdge ABL
|
|
{
|
|
Created: Thursday, September 12, 1991 at 2:53 PM
|
|
CTBUtilities.p
|
|
Pascal Interface to the Macintosh Libraries
|
|
|
|
Copyright Apple Computer, Inc. 1988-1991
|
|
All rights reserved
|
|
}
|
|
|
|
|
|
{$IFC UNDEFINED UsingIncludes}
|
|
{$SETC UsingIncludes := 0}
|
|
{$ENDC}
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
UNIT CTBUtilities;
|
|
INTERFACE
|
|
{$ENDC}
|
|
|
|
{$IFC UNDEFINED UsingCTBUtilities}
|
|
{$SETC UsingCTBUtilities := 1}
|
|
|
|
{$I+}
|
|
{$SETC CTBUtilitiesIncludes := UsingIncludes}
|
|
{$SETC UsingIncludes := 1}
|
|
{$IFC UNDEFINED UsingMemory}
|
|
{$I $$Shell(PInterfaces)Memory.p}
|
|
{$ENDC}
|
|
{$IFC UNDEFINED UsingPackages}
|
|
{$I $$Shell(PInterfaces)Packages.p}
|
|
{$ENDC}
|
|
{$IFC UNDEFINED UsingAppleTalk}
|
|
{$I $$Shell(PInterfaces)AppleTalk.p}
|
|
{$ENDC}
|
|
{$SETC UsingIncludes := CTBUtilitiesIncludes}
|
|
|
|
CONST
|
|
|
|
{ version of Comm Toolbox Utilities }
|
|
curCTBUVersion = 2;
|
|
|
|
{ Error codes/types }
|
|
ctbuGenericError = -1;
|
|
ctbuNoErr = 0;
|
|
|
|
TYPE
|
|
CTBUErr = OSErr;
|
|
|
|
CONST
|
|
|
|
{ Choose return codes}
|
|
chooseDisaster = -2;
|
|
chooseFailed = -1;
|
|
chooseAborted = 0;
|
|
chooseOKMinor = 1;
|
|
chooseOKMajor = 2;
|
|
chooseCancel = 3;
|
|
|
|
{ NuLookup return codes }
|
|
nlOk = 0;
|
|
nlCancel = 1;
|
|
nlEject = 2;
|
|
|
|
{ Name filter proc return codes }
|
|
nameInclude = 1;
|
|
nameDisable = 2;
|
|
nameReject = 3;
|
|
|
|
{ Zone filter proc return codes }
|
|
zoneInclude = 1;
|
|
zoneDisable = 2;
|
|
zoneReject = 3;
|
|
|
|
{ Values for hookProc items }
|
|
hookOK = 1;
|
|
hookCancel = 2;
|
|
hookOutline = 3;
|
|
hookTitle = 4;
|
|
hookItemList = 5;
|
|
hookZoneTitle = 6;
|
|
hookZoneList = 7;
|
|
hookLine = 8;
|
|
hookVersion = 9;
|
|
hookReserved1 = 10;
|
|
hookReserved2 = 11;
|
|
hookReserved3 = 12;
|
|
hookReserved4 = 13;
|
|
|
|
{ "virtual" hookProc items }
|
|
hookNull = 100;
|
|
hookItemRefresh = 101;
|
|
hookZoneRefresh = 102;
|
|
hookEject = 103;
|
|
hookPreflight = 104;
|
|
hookPostflight = 105;
|
|
hookKeyBase = 1000;
|
|
|
|
TYPE
|
|
{ NuLookup structures/constants }
|
|
NLTypeEntry = RECORD
|
|
hIcon: Handle;
|
|
typeStr: Str32;
|
|
END;
|
|
|
|
|
|
NLType = ARRAY [0..3] OF NLTypeEntry;
|
|
|
|
NBPReply = RECORD
|
|
theEntity: EntityName;
|
|
theAddr: AddrBlock;
|
|
END;
|
|
|
|
|
|
NameFilterProcPtr = ProcPtr;
|
|
ZoneFilterProcPtr = ProcPtr;
|
|
|
|
|
|
FUNCTION InitCTBUtilities: CTBUErr;
|
|
FUNCTION CTBGetCTBVersion: INTEGER;
|
|
|
|
|
|
FUNCTION StandardNBP(where: Point;prompt: Str255;numTypes: INTEGER;typeList: NLType;
|
|
nameFilter: NameFilterProcPtr;zoneFilter: ZoneFilterProcPtr;hookProc: DlgHookProcPtr;
|
|
VAR theReply: NBPReply): INTEGER;
|
|
|
|
FUNCTION CustomNBP(where: Point;prompt: Str255;numTypes: INTEGER;typeList: NLType;
|
|
nameFilter: NameFilterProcPtr;zoneFilter: ZoneFilterProcPtr;hookProc: DlgHookProcPtr;
|
|
userData: LONGINT;dialogID: INTEGER;filterProc: ModalFilterProcPtr;VAR theReply: NBPReply): INTEGER;
|
|
|
|
|
|
{ Obsolete synonyms for above routines }
|
|
FUNCTION NuLookup(where: Point;prompt: Str255;numTypes: INTEGER;typeList: NLType;
|
|
nameFilter: NameFilterProcPtr;zoneFilter: ZoneFilterProcPtr;hookProc: DlgHookProcPtr;
|
|
VAR theReply: NBPReply): INTEGER;
|
|
|
|
FUNCTION NuPLookup(where: Point;prompt: Str255;numTypes: INTEGER;typeList: NLType;
|
|
nameFilter: NameFilterProcPtr;zoneFilter: ZoneFilterProcPtr;hookProc: DlgHookProcPtr;
|
|
userData: LONGINT;dialogID: INTEGER;filterProc: ModalFilterProcPtr;VAR theReply: NBPReply): INTEGER;
|
|
|
|
|
|
{$ENDC} { UsingCTBUtilities }
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
END.
|
|
{$ENDC}
|
|
|