Apple-2gs-SW
/
gslaplay
mirror of https://github.com/dwsJason/gslaplay.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Merlin32: get the menus to work correctly in Merlin32

This commit is contained in:
JASON-6700K\jandersen 2020-07-14 15:54:30 -04:00
parent 3478bbf433
commit dc2142232f
2 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
asm/shell.s
View File

@ -163,22 +163,22 @@ GetEvent
]mnum = 0 ; "1" - 1 = 0
AppleM Menu '@';'X'
]inum = 255
]inum = 256
Item 'About...';Divide;'';Kybd;'?/'
FileM Menu ' File '
; Item 'New';Kybd;'Nn'
Item 'Open...';Divide;'';Kybd;'Oo'
Item 'Automatic';Divide;'';Kybd;'Aa'
OpenItem = ]inum
]inum = 254
]OpenItem = ]inum
]inum = 255
Item 'Close';Divide;'' ; (#255)
]inum = OpenItem
]inum = ]OpenItem
Item 'Quit';Kybd;'Qq'
QuitItem = ]inum
]QuitItem = ]inum
EditM Menu ' Edit '
]inum = 249
]inum = 250
Item 'Undo';Divide;'';Kybd;'Zz' ; (#250)
Item 'Cut';Kybd;'Xx' ; (#251)
Item 'Copy';Kybd;'Cc' ; (#252)

14
macros/drm.macs.s
View File

@ -343,11 +343,11 @@ Item MAC
ASC ]1
ASC '\H'
DA ]inum
DO ]0/2
DO ]2-Check-1/-1
DO ]0/2
DO ]2-Check-1/$FFFF
DA ]2
ELSE
DO ]2-Blank-1/-1
DO ]2-Blank-1/$FFFF
DA ]2
ELSE
DB ]2
@ -356,10 +356,10 @@ Item MAC
FIN
FIN
DO ]0/4
DO ]4-Check-1/-1
DO ]4-Check-1/$FFFF
DA ]4
ELSE
DO ]4-Blank-1/-1
DO ]4-Blank-1/$FFFF
DA ]4
ELSE
DB ]4
@ -368,10 +368,10 @@ Item MAC
FIN
FIN
DO ]0/6
DO ]6-Check-1/-1
DO ]6-Check-1/$FFFF
DA ]6
ELSE
DO ]6-Blank-1/-1
DO ]6-Blank-1/$FFFF
DA ]6
ELSE
DB ]6