mirror of
https://github.com/elliotnunn/supermario.git
synced 2024-11-25 09:30:50 +00:00
256 lines
7.5 KiB
OpenEdge ABL
256 lines
7.5 KiB
OpenEdge ABL
|
|
||
|
|
{
|
||
|
|
Created: Tuesday, July 30, 1991 at 2:11 PM
|
||
|
|
Controls.p
|
||
|
|
Pascal Interface to the Macintosh Libraries
|
||
|
|
|
||
|
|
Copyright Apple Computer, Inc. 1985-1992
|
||
|
|
All rights reserved
|
||
|
|
|
||
|
|
Change History (most recent first):
|
||
|
|
|
||
|
|
<8> 11/7/92 JDR Added the PopupPrivateData record.
|
||
|
|
<7> 4/6/92 DCL For New Inside Mac: Adding fancy new improved names for old
|
||
|
|
crusty routines. #1025005
|
||
|
|
<6> 7/30/91 JL Updated Copyright.
|
||
|
|
<5> 1/29/91 jal <LN> checked in database generated file from DSG.
|
||
|
|
<4> 12/14/90 dba <JDR> add calc messages for 32-bit clean CDEFs; use
|
||
|
|
popupMenuProc name to match Pascal
|
||
|
|
<3> 11/4/90 dba add UpdateControls (synonym for UpdtControl)
|
||
|
|
<2> 9/15/90 PWD Moved popup constants here from CTBUtilities.p. <kaz> <crz>
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
{$IFC UNDEFINED UsingIncludes}
|
||
|
|
{$SETC UsingIncludes := 0}
|
||
|
|
{$ENDC}
|
||
|
|
|
||
|
|
{$IFC NOT UsingIncludes}
|
||
|
|
UNIT Controls;
|
||
|
|
INTERFACE
|
||
|
|
{$ENDC}
|
||
|
|
|
||
|
|
{$IFC UNDEFINED UsingControls}
|
||
|
|
{$SETC UsingControls := 1}
|
||
|
|
|
||
|
|
{$I+}
|
||
|
|
{$SETC ControlsIncludes := UsingIncludes}
|
||
|
|
{$SETC UsingIncludes := 1}
|
||
|
|
{$IFC UNDEFINED UsingQuickdraw}
|
||
|
|
{$I $$Shell(PInterfaces)Quickdraw.p}
|
||
|
|
{$ENDC}
|
||
|
|
{$IFC UNDEFINED UsingMenus}
|
||
|
|
{$I $$Shell(PInterfaces)Menus.p}
|
||
|
|
{$ENDC}
|
||
|
|
{$SETC UsingIncludes := ControlsIncludes}
|
||
|
|
|
||
|
|
CONST
|
||
|
|
pushButProc = 0;
|
||
|
|
checkBoxProc = 1;
|
||
|
|
radioButProc = 2;
|
||
|
|
useWFont = 8;
|
||
|
|
scrollBarProc = 16;
|
||
|
|
inButton = 10;
|
||
|
|
inCheckBox = 11;
|
||
|
|
inUpButton = 20;
|
||
|
|
inDownButton = 21;
|
||
|
|
inPageUp = 22;
|
||
|
|
inPageDown = 23;
|
||
|
|
inThumb = 129;
|
||
|
|
|
||
|
|
popupMenuProc = 1008; { 63 * 16 }
|
||
|
|
popupFixedWidth = $0001; { popup menu CDEF variation codes }
|
||
|
|
popupUseAddResMenu = $0004;
|
||
|
|
popupUseWFont = $0008;
|
||
|
|
popupTitleBold = $00000100; { Popup Title characteristics }
|
||
|
|
popupTitleItalic = $00000200;
|
||
|
|
popupTitleUnderline = $00000400;
|
||
|
|
popupTitleOutline = $00000800;
|
||
|
|
popupTitleShadow = $00001000;
|
||
|
|
popupTitleCondense = $00002000;
|
||
|
|
popupTitleExtend = $00004000;
|
||
|
|
popupTitleNoStyle = $00008000;
|
||
|
|
popupTitleLeftJust = $00000000;
|
||
|
|
popupTitleCenterJust = $00000001;
|
||
|
|
popupTitleRightJust = $000000FF;
|
||
|
|
|
||
|
|
{
|
||
|
|
axis constraints for DragGrayRgn call}
|
||
|
|
noConstraint = 0;
|
||
|
|
hAxisOnly = 1;
|
||
|
|
vAxisOnly = 2;
|
||
|
|
|
||
|
|
{
|
||
|
|
control messages}
|
||
|
|
drawCntl = 0;
|
||
|
|
testCntl = 1;
|
||
|
|
calcCRgns = 2;
|
||
|
|
initCntl = 3;
|
||
|
|
dispCntl = 4;
|
||
|
|
posCntl = 5;
|
||
|
|
thumbCntl = 6;
|
||
|
|
dragCntl = 7;
|
||
|
|
autoTrack = 8;
|
||
|
|
calcCntlRgn = 10;
|
||
|
|
calcThumbRgn = 11;
|
||
|
|
|
||
|
|
cFrameColor = 0;
|
||
|
|
cBodyColor = 1;
|
||
|
|
cTextColor = 2;
|
||
|
|
cThumbColor = 3;
|
||
|
|
popupMenuCDEFproc = popupMenuProc; { synonym for compatibility }
|
||
|
|
|
||
|
|
TYPE
|
||
|
|
ControlPtr = ^ControlRecord;
|
||
|
|
ControlHandle = ^ControlPtr;
|
||
|
|
ControlRecord = PACKED RECORD
|
||
|
|
nextControl: ControlHandle;
|
||
|
|
contrlOwner: WindowPtr;
|
||
|
|
contrlRect: Rect;
|
||
|
|
contrlVis: Byte;
|
||
|
|
contrlHilite: Byte;
|
||
|
|
contrlValue: INTEGER;
|
||
|
|
contrlMin: INTEGER;
|
||
|
|
contrlMax: INTEGER;
|
||
|
|
contrlDefProc: Handle;
|
||
|
|
contrlData: Handle;
|
||
|
|
contrlAction: ProcPtr;
|
||
|
|
contrlRfCon: LONGINT;
|
||
|
|
contrlTitle: Str255;
|
||
|
|
END;
|
||
|
|
|
||
|
|
PopupPrivateDataPtr = ^PopupPrivateData;
|
||
|
|
PopupPrivateDataHandle = ^PopupPrivateDataPtr;
|
||
|
|
PopupPrivateData = RECORD
|
||
|
|
mHandle: MenuHandle; {popup menu handle}
|
||
|
|
mID: INTEGER; {popup menu ID}
|
||
|
|
END;
|
||
|
|
|
||
|
|
|
||
|
|
CCTabPtr = ^CtlCTab;
|
||
|
|
CCTabHandle = ^CCTabPtr;
|
||
|
|
CtlCTab = RECORD
|
||
|
|
ccSeed: LONGINT; {reserved}
|
||
|
|
ccRider: INTEGER; {see what you have done - reserved}
|
||
|
|
ctSize: INTEGER; {usually 3 for controls}
|
||
|
|
ctTable: ARRAY [0..3] OF ColorSpec;
|
||
|
|
END;
|
||
|
|
|
||
|
|
AuxCtlPtr = ^AuxCtlRec;
|
||
|
|
AuxCtlHandle = ^AuxCtlPtr;
|
||
|
|
AuxCtlRec = RECORD
|
||
|
|
acNext: AuxCtlHandle; {handle to next AuxCtlRec}
|
||
|
|
acOwner: ControlHandle; {handle for aux record's control}
|
||
|
|
acCTable: CCTabHandle; {color table for this control}
|
||
|
|
acFlags: INTEGER; {misc flag byte}
|
||
|
|
acReserved: LONGINT; {reserved for use by Apple}
|
||
|
|
acRefCon: LONGINT; {for use by application}
|
||
|
|
END;
|
||
|
|
|
||
|
|
|
||
|
|
FUNCTION NewControl(theWindow: WindowPtr;boundsRect: Rect;title: Str255;
|
||
|
|
visible: BOOLEAN;value: INTEGER;min: INTEGER;max: INTEGER;procID: INTEGER;
|
||
|
|
refCon: LONGINT): ControlHandle;
|
||
|
|
INLINE $A954;
|
||
|
|
PROCEDURE SetControlTitle(theControl: ControlHandle;title: Str255);
|
||
|
|
INLINE $A95F;
|
||
|
|
PROCEDURE SetCTitle(theControl: ControlHandle;title: Str255);
|
||
|
|
INLINE $A95F;
|
||
|
|
PROCEDURE GetControlTitle(theControl: ControlHandle;VAR title: Str255);
|
||
|
|
INLINE $A95E;
|
||
|
|
PROCEDURE GetCTitle(theControl: ControlHandle;VAR title: Str255);
|
||
|
|
INLINE $A95E;
|
||
|
|
FUNCTION GetNewControl(controlID: INTEGER;owner: WindowPtr): ControlHandle;
|
||
|
|
INLINE $A9BE;
|
||
|
|
PROCEDURE DisposeControl(theControl: ControlHandle);
|
||
|
|
INLINE $A955;
|
||
|
|
PROCEDURE KillControls(theWindow: WindowPtr);
|
||
|
|
INLINE $A956;
|
||
|
|
PROCEDURE HideControl(theControl: ControlHandle);
|
||
|
|
INLINE $A958;
|
||
|
|
PROCEDURE ShowControl(theControl: ControlHandle);
|
||
|
|
INLINE $A957;
|
||
|
|
PROCEDURE DrawControls(theWindow: WindowPtr);
|
||
|
|
INLINE $A969;
|
||
|
|
PROCEDURE Draw1Control(theControl: ControlHandle);
|
||
|
|
INLINE $A96D;
|
||
|
|
PROCEDURE HiliteControl(theControl: ControlHandle;hiliteState: INTEGER);
|
||
|
|
INLINE $A95D;
|
||
|
|
PROCEDURE UpdateControls(theWindow: WindowPtr;updateRgn: RgnHandle);
|
||
|
|
INLINE $A953;
|
||
|
|
PROCEDURE UpdtControl(theWindow: WindowPtr;updateRgn: RgnHandle);
|
||
|
|
INLINE $A953;
|
||
|
|
PROCEDURE MoveControl(theControl: ControlHandle;h: INTEGER;v: INTEGER);
|
||
|
|
INLINE $A959;
|
||
|
|
PROCEDURE SizeControl(theControl: ControlHandle;w: INTEGER;h: INTEGER);
|
||
|
|
INLINE $A95C;
|
||
|
|
PROCEDURE SetControlValue(theControl: ControlHandle;theValue: INTEGER);
|
||
|
|
INLINE $A963;
|
||
|
|
PROCEDURE SetCtlValue(theControl: ControlHandle;theValue: INTEGER);
|
||
|
|
INLINE $A963;
|
||
|
|
FUNCTION GetControlValue(theControl: ControlHandle): INTEGER;
|
||
|
|
INLINE $A960;
|
||
|
|
FUNCTION GetCtlValue(theControl: ControlHandle): INTEGER;
|
||
|
|
INLINE $A960;
|
||
|
|
PROCEDURE SetControlMinimum(theControl: ControlHandle;minValue: INTEGER);
|
||
|
|
INLINE $A964;
|
||
|
|
PROCEDURE SetCtlMin(theControl: ControlHandle;minValue: INTEGER);
|
||
|
|
INLINE $A964;
|
||
|
|
FUNCTION GetControlMinimum(theControl: ControlHandle): INTEGER;
|
||
|
|
INLINE $A961;
|
||
|
|
FUNCTION GetCtlMin(theControl: ControlHandle): INTEGER;
|
||
|
|
INLINE $A961;
|
||
|
|
PROCEDURE SetControlMaximum(theControl: ControlHandle;maxValue: INTEGER);
|
||
|
|
INLINE $A965;
|
||
|
|
PROCEDURE SetCtlMax(theControl: ControlHandle;maxValue: INTEGER);
|
||
|
|
INLINE $A965;
|
||
|
|
FUNCTION GetControlMaximum(theControl: ControlHandle): INTEGER;
|
||
|
|
INLINE $A962;
|
||
|
|
FUNCTION GetCtlMax(theControl: ControlHandle): INTEGER;
|
||
|
|
INLINE $A962;
|
||
|
|
PROCEDURE SetControlReference(theControl: ControlHandle;data: LONGINT);
|
||
|
|
INLINE $A95B;
|
||
|
|
PROCEDURE SetCRefCon(theControl: ControlHandle;data: LONGINT);
|
||
|
|
INLINE $A95B;
|
||
|
|
FUNCTION GetControlReference(theControl: ControlHandle): LONGINT;
|
||
|
|
INLINE $A95A;
|
||
|
|
FUNCTION GetCRefCon(theControl: ControlHandle): LONGINT;
|
||
|
|
INLINE $A95A;
|
||
|
|
PROCEDURE SetControlAction(theControl: ControlHandle;actionProc: ProcPtr);
|
||
|
|
INLINE $A96B;
|
||
|
|
PROCEDURE SetCtlAction(theControl: ControlHandle;actionProc: ProcPtr);
|
||
|
|
INLINE $A96B;
|
||
|
|
FUNCTION GetControlAction(theControl: ControlHandle): ProcPtr;
|
||
|
|
INLINE $A96A;
|
||
|
|
FUNCTION GetCtlAction(theControl: ControlHandle): ProcPtr;
|
||
|
|
INLINE $A96A;
|
||
|
|
PROCEDURE DragControl(theControl: ControlHandle;startPt: Point;limitRect: Rect;
|
||
|
|
slopRect: Rect;axis: INTEGER);
|
||
|
|
INLINE $A967;
|
||
|
|
FUNCTION TestControl(theControl: ControlHandle;thePt: Point): INTEGER;
|
||
|
|
INLINE $A966;
|
||
|
|
FUNCTION TrackControl(theControl: ControlHandle;thePoint: Point;actionProc: ProcPtr): INTEGER;
|
||
|
|
INLINE $A968;
|
||
|
|
FUNCTION FindControl(thePoint: Point;theWindow: WindowPtr;VAR theControl: ControlHandle): INTEGER;
|
||
|
|
INLINE $A96C;
|
||
|
|
PROCEDURE SetControlColor(theControl: ControlHandle;newColorTable: CCTabHandle);
|
||
|
|
INLINE $AA43;
|
||
|
|
PROCEDURE SetCtlColor(theControl: ControlHandle;newColorTable: CCTabHandle);
|
||
|
|
INLINE $AA43;
|
||
|
|
FUNCTION GetAuxiliaryControlRecord(theControl: ControlHandle;VAR acHndl: AuxCtlHandle): BOOLEAN;
|
||
|
|
INLINE $AA44;
|
||
|
|
FUNCTION GetAuxCtl(theControl: ControlHandle;VAR acHndl: AuxCtlHandle): BOOLEAN;
|
||
|
|
INLINE $AA44;
|
||
|
|
FUNCTION GetControlVariant(theControl: ControlHandle): INTEGER;
|
||
|
|
INLINE $A809;
|
||
|
|
FUNCTION GetCVariant(theControl: ControlHandle): INTEGER;
|
||
|
|
INLINE $A809;
|
||
|
|
|
||
|
|
|
||
|
|
{$ENDC} { UsingControls }
|
||
|
|
|
||
|
|
{$IFC NOT UsingIncludes}
|
||
|
|
END.
|
||
|
|
{$ENDC}
|
||
|
|
|