A2osX/LIB/LIBGUI.S.MENU.txt

77 lines
1.4 KiB
Plaintext
Raw Normal View History

NEW
PREFIX /A2OSX.BUILD
AUTO 4,1
*--------------------------------------
MENU.New >STYA ZPPtr1
lda #2 1px Border
sta DX
sta DY
stz DX+1
stz DY+1
lda ZPPtr1
clc
adc #S.MENU
sta ZPPtr2
lda ZPPtr1+1
adc /S.MENU
sta ZPPtr2+1
.1 lda (ZPPtr2)
*--------------------------------------
MENU.SysMenu
*--------------------------------------
MENU.MenuEditor .AZ "File"
.DA #02 ID
.DA #S.MITEM.HOTKEY.CTRL
.DA #'N'
.AZ "New"
.DA #04 ID
.DA #S.MITEM.HOTKEY.CTRL
.DA #'O'
.AZ "Open..."
.DA #06 ID
.DA #S.MITEM.HOTKEY.CTRL
.DA #'S'
.AZ "Save"
.DA #08 ID
.DA #S.MITEM.HOTKEY.OA+S.MITEM.HOTKEY.CTRL
.DA #'S'
.AZ "Save As..."
.DA #10 ID
.DA #S.MITEM.HOTKEY.CTRL
.DA #'Q'
.AZ "Quit"
.DA #0
.AZ "Edit"
.DA #12 ID
.DA #S.MITEM.HOTKEY.OA
.DA #'X'
.AZ "Cut"
.DA #14 ID
.DA #S.MITEM.HOTKEY.OA
.DA #'C'
.AZ "Copy"
.DA #16 ID
.DA #S.MITEM.HOTKEY.OA
.DA #'V'
.AZ "Paste"
.DA #0
.AZ "Options"
.DA #18 ID
.DA #0
.DA #0
.AZ "Check Me"
.DA #0
.DA #0
*--------------------------------------
MAN
SAVE /A2OSX.SRC/LIB/LIBGUI.S.MENU
LOAD /A2OSX.SRC/LIB/LIBGUI.S
ASM