mirror of
https://github.com/elliotnunn/boot3.git
synced 2025-01-28 20:30:36 +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.
108 lines
2.7 KiB
OpenEdge ABL
108 lines
2.7 KiB
OpenEdge ABL
{
|
|
File: DialogsPriv.p
|
|
|
|
Contains: Pascal interfaces to the Dialog Manager routines
|
|
|
|
Written by: Nick Kledzik
|
|
|
|
Copyright: © 1985-1992 by Apple Computer, Inc., all rights reserved.
|
|
|
|
Change History (most recent first):
|
|
|
|
<7> 11/7/92 JDR Removed the now publicly defined routines, StdFilterProc,
|
|
GetStdFilterProc, SetDialogDefaultItem, SetDialogCancelItem,
|
|
SetDialogTracksCursor.
|
|
<6> 3/31/92 KSM #1021993,<DTY>: Exported CitationsCH call - now returns OSErr
|
|
(for dispatcher). Created new calls: Cite4 for easy-of-use, and
|
|
the fully generic CitationsSH. Added definition of CiteListPtr
|
|
and MAXCITES beomes MAXCITATIONS.
|
|
<5> 8/27/91 JSM Cleanup header.
|
|
<4> 12/3/90 RLC <ksm> Change the IsFrontWindowModal and IsWindowModal routines
|
|
to GetFrontWindowModalClass and GetWindowModalClass.
|
|
<3> 10/30/90 KSM <ngk> Add emulateOrigFilterBit equate.
|
|
<2> 10/29/90 ngk updated new private calls
|
|
<1> 9/19/90 ngk first checked in
|
|
<0> 9/19/90 ngk created
|
|
|
|
}
|
|
|
|
|
|
{$IFC UNDEFINED UsingIncludes}
|
|
{$SETC UsingIncludes := 0}
|
|
{$ENDC}
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
UNIT DialogsPriv;
|
|
INTERFACE
|
|
{$ENDC}
|
|
|
|
{$IFC UNDEFINED UsingDialogsPriv}
|
|
{$SETC UsingDialogsPriv := 1}
|
|
|
|
{$I+}
|
|
{$SETC DialogsPrivIncludes := UsingIncludes}
|
|
{$SETC UsingIncludes := 1}
|
|
{$IFC UNDEFINED UsingDialogs}
|
|
{$I Dialogs.p}
|
|
{$ENDC}
|
|
{$SETC UsingIncludes := DialogsPrivIncludes}
|
|
|
|
|
|
{ this will be renamed }
|
|
FUNCTION GetFrontWindowModalClass(VAR modalClass: INTEGER): OSErr;
|
|
INLINE $303C, $0201, $AA68;
|
|
|
|
|
|
{ this will be renamed }
|
|
FUNCTION GetWindowModalClass(theWindow: WindowPtr; VAR modalClass: INTEGER): OSErr;
|
|
INLINE $303C, $0402, $AA68;
|
|
|
|
|
|
|
|
{$ENDC}
|
|
|
|
|
|
|
|
|
|
{ the following is interface to StdFilterProc features }
|
|
CONST
|
|
{ bits in spareFlags }
|
|
cannotTwitchOutOfDialogBit = 7;
|
|
systemHandlesMenusBit = 6;
|
|
systemHandlesDefaultButtonBit = 5;
|
|
systemHandlesCancelButtonBit = 4;
|
|
systemTracksCursorBit = 3;
|
|
emulateOrigFilterBit = 2;
|
|
|
|
cannotTwitchOutOfDialogMask = $80;
|
|
systemHandlesMenusMask = $40;
|
|
systemHandlesDefaultButtonMask = $20;
|
|
systemHandlesCancelButtonMask = $10;
|
|
systemTracksCursorMask = $08;
|
|
emulateOrigFilterMask = $04;
|
|
|
|
|
|
{ the following is interface to new citation substitution routines <6>}
|
|
CONST
|
|
MAXCITATIONS = 10;
|
|
TYPE
|
|
CiteList = ARRAY [1..MAXCITATIONS] OF StringPtr;
|
|
CiteListPtr = ^CiteList;
|
|
|
|
FUNCTION Cite4(baseString: StringHandle; p0,p1,p2,p3: StringPtr): OSErr;
|
|
INLINE $303C, $0AFB, $AA68;
|
|
|
|
FUNCTION CitationsSH(baseString: StringHandle;
|
|
numCitations: INTEGER; citations: CiteListPtr): OSErr;
|
|
INLINE $303C, $07FC, $AA68;
|
|
|
|
FUNCTION CitationsCH(baseString: CharsHandle;offset: LONGINT;
|
|
numCitations: INTEGER; citations: CiteListPtr): OSErr;
|
|
INLINE $303C, $05FD, $AA68;
|
|
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
END.
|
|
{$ENDC}
|
|
|