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

View File

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

View File

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