sys7.1-doc-wip/Interfaces/AIncludes/Menus.a

59 lines
2.7 KiB
Plaintext
Raw Normal View History

2019-07-27 14:37:48 +00:00
;
; File: MenuMgr.a
;
; Contains: Public equates and macros for using menu manager public calls
;
; Written by: Kevin S. MacDonell
;
; Copyright: © 1991-1992 by Apple Computer, Inc., all rights reserved.
;
; This file is used in these builds: System
;
; Change History (most recent first):
;
; <3> 3/27/92 DC number unknown <KSM> - added InsertIntlResMenu and reintroduced
; InsertFontResMenu
; <2> 8/22/91 KSM
; <0> 8/19/91 KSM New today.
;
; To Do:
;
;————————————————————————————————————————————————————————————————————————————————————————————————————
IF &TYPE('__INCLUDINGMENUS__') = 'UNDEFINED' THEN
__INCLUDINGMENUS__ SET 1
IF &TYPE('__INCLUDINGTRAPS__') = 'UNDEFINED' THEN
INCLUDE 'Traps.a'
ENDIF
;————————————————————————————————————————————————————————————————————————————————————————————————————
; Define the Menu Manager Dispatch trap opword
_MenuDispatch OPWORD $A825
;————————————————————————————————————————————————————————————————————————————————————————————————————
; Define the new selectors for the Menu Manager
selectInsertFontResMenu EQU 0
selectInsertIntlResMenu EQU 1
;————————————————————————————————————————————————————————————————————————————————————————————————————
; Define the parameter size passed for each call
paramWordsInsertFontResMenu EQU 4
paramWordsInsertIntlResMenu EQU 6
;————————————————————————————————————————————————————————————————————————————————————————————————————
; Define the dispatch macros to get to the calls
MACRO
_InsertFontResMenu
DoDispatch _MenuDispatch,selectInsertFontResMenu,paramWordsInsertFontResMenu
ENDM
MACRO
_InsertIntlResMenu
DoDispatch _MenuDispatch,selectInsertIntlResMenu,paramWordsInsertIntlResMenu
ENDM
ENDIF ; Already included