mirror of
https://github.com/elliotnunn/supermario.git
synced 2024-11-25 09:30:50 +00:00
163 lines
4.4 KiB
Plaintext
163 lines
4.4 KiB
Plaintext
;
|
||
; File: DialogsPriv.a
|
||
;
|
||
; Contains: Assembly Interface for private dialog manager routines
|
||
;
|
||
; Written by: Nick Kledzik
|
||
;
|
||
; Copyright: © 1990-1992 by Apple Computer, Inc., all rights reserved.
|
||
;
|
||
; Change History (most recent first):
|
||
;
|
||
; <10> 11/7/92 JDR Removed the now publicly defined routines, StdFilterProc,
|
||
; GetStdFilterProc, SetDialogDefaultItem, SetDialogCancelItem,
|
||
; SetDialogTracksCursor.
|
||
; <9> 6/10/92 JSM Add DialogMgrGlobals record for ROM builds and future System
|
||
; builds.
|
||
; <8> 3/31/92 KSM #1021993,<DTY>: DTY: #1021993: Added new selectors for
|
||
; CitationsCH, CitationsSH, and Cite4.
|
||
; <7> 8/21/91 JSM Clean up header.
|
||
; <6> 1/30/91 gbm sab, #38: Change the ‘already including this file’ variable to
|
||
; all uppercase (for security reasons)
|
||
; <5> 1/14/91 dba (ksm) add IsUserCancelEvent and GetNextUserCancelEvent
|
||
; <4> 12/14/90 dba <JDR> change DialogMgrDispatch to DialogDispatch
|
||
; <3> 12/3/90 RLC <ksm> Change the IsFrontWindowModal and IsWindowModal routines
|
||
; to GetFrontWindowModalClass and GetWindowModalClass.
|
||
; <2> 10/30/90 KSM <ngk>Add emulateOrigFilterBit equate.
|
||
; <1> 10/29/90 ngk first checked in
|
||
; <0> 8/26/90 ngk First checked in
|
||
;
|
||
|
||
IF &TYPE('__INCLUDINGDIALOGSPRIV__') = 'UNDEFINED' THEN
|
||
__INCLUDINGDIALOGSPRIV__ SET 1
|
||
|
||
IF forROM OR TheFuture THEN
|
||
|
||
; format of globals in emDialogGlobals
|
||
|
||
DialogMgrGlobals record 0
|
||
AnalyzedWindowState ds.w 1
|
||
IsDialogState ds.w 1
|
||
AnalyzedWindow ds.l 1
|
||
SavedMenuState ds.l 1
|
||
DialogMgrGlobalsSize equ *
|
||
endr
|
||
|
||
ENDIF ; forROM OR TheFuture
|
||
|
||
; bits for flag byte
|
||
cannotTwitchOutOfDialogBit EQU 7
|
||
systemHandlesMenusBit EQU 6
|
||
systemHandlesDefaultButtonBit EQU 5
|
||
systemHandlesCancelButtonBit EQU 4
|
||
systemTracksCursorBit EQU 3
|
||
emulateOrigFilterBit EQU 2
|
||
|
||
cannotTwitchOutOfDialogMask EQU $80
|
||
systemHandlesMenusMask EQU $40
|
||
systemHandlesDefaultButtonMask EQU $20
|
||
systemHandlesCancelButtonMask EQU $10
|
||
systemTracksCursorMask EQU $08
|
||
emulateOrigFilterMask EQU $04
|
||
|
||
|
||
; constants for dialog dispatch macro
|
||
|
||
selectDMgrCite4 EQU -5
|
||
paramWordsDMgrCite4 EQU 10
|
||
|
||
selectDMgrCitationsSH EQU -4
|
||
paramWordsDMgrCitationsSH EQU 7
|
||
|
||
selectDMgrCitationsCH EQU -3
|
||
paramWordsDMgrCitationsCH EQU 5
|
||
|
||
selectDMgrPopMenuState EQU -2
|
||
paramWordsDMgrPopMenuState EQU 0
|
||
|
||
selectDMgrPushMenuState EQU -1
|
||
paramWordsDMgrPushMenuState EQU 0
|
||
|
||
selectGetFrontWindowModalClass EQU 1
|
||
paramWordsGetFrontWindowModalClass EQU 2
|
||
|
||
selectGetWindowModalClass EQU 2
|
||
paramWordsGetWindowModalClass EQU 4
|
||
|
||
selectIsUserCancelEvent EQU 7
|
||
paramWordsIsUserCancelEvent EQU 2
|
||
|
||
selectGetNextUserCancelEvent EQU 8
|
||
paramWordsGetNextUserCancelEvent EQU 2
|
||
|
||
|
||
MACRO
|
||
DoDialogMgrDispatch &routineName
|
||
DoDispatch _DialogDispatch,select&routineName,paramWords&routineName
|
||
ENDM
|
||
|
||
;-----------------------------------------------------------------------------------------
|
||
; Private calls (negative selectors)
|
||
;-----------------------------------------------------------------------------------------
|
||
|
||
; DMgrPushMenuState
|
||
MACRO
|
||
_DMgrPushMenuState
|
||
DoDialogMgrDispatch DMgrPushMenuState
|
||
ENDM
|
||
|
||
; DMgrPopMenuState
|
||
MACRO
|
||
_DMgrPopMenuState
|
||
DoDialogMgrDispatch DMgrPopMenuState
|
||
ENDM
|
||
|
||
; DMgrCitationsCH <8>
|
||
MACRO
|
||
_CitationsCH
|
||
DoDialogMgrDispatch DMgrCitationsCH
|
||
ENDM
|
||
|
||
; DMgrCitationsSH <8>
|
||
MACRO
|
||
_CitationsSH
|
||
DoDialogMgrDispatch DMgrStdCite
|
||
ENDM
|
||
|
||
; DMgrCite4 <8>
|
||
MACRO
|
||
_Do4Citations
|
||
DoDialogMgrDispatch DMgrCite4
|
||
ENDM
|
||
|
||
;-----------------------------------------------------------------------------------------
|
||
; Public calls (positive selectors)
|
||
;-----------------------------------------------------------------------------------------
|
||
|
||
; FUNCTION GetFrontWindowModalClass(VAR modalClass: INTEGER): OSErr;
|
||
MACRO
|
||
_GetFrontWindowModalClass
|
||
DoDialogMgrDispatch GetFrontWindowModalClass
|
||
ENDM
|
||
|
||
; FUNCTION GetWindowModalClass(theWindow: WindowPtr; VAR modalClass: INTEGER): OSErr;
|
||
MACRO
|
||
_GetWindowModalClass
|
||
DoDialogMgrDispatch GetWindowModalClass
|
||
ENDM
|
||
|
||
; FUNCTION IsUserCancelEvent(event: EventRecord): Boolean;
|
||
MACRO
|
||
_IsUserCancelEvent
|
||
DoDialogMgrDispatch IsUserCancelEvent
|
||
ENDM
|
||
|
||
; FUNCTION GetNextUserCancelEvent(event: EventRecord): OSErr;
|
||
MACRO
|
||
_GetNextUserCancelEvent
|
||
DoDialogMgrDispatch GetNextUserCancelEvent
|
||
ENDM
|
||
|
||
|
||
ENDIF ; ...already included DialogsPriv.a
|