M src/manifest.tal => src/manifest.tal +2 -0
@@ 229,6 229,7 @@ JMP2r
@find-modkey ( mod key -- fn* )
+ DUP2 #0000 EQU2 ,&end JCN
,&mk STR2
;manifest/menu
&cat
@@ 242,6 243,7 @@ JMP2r
INC GTHk ,&subcat JCN
POP2
LDAk ,&cat JCN
+ &end
POP2
#0000
M src/nasu.tal => src/nasu.tal +3 -3
@@ 262,9 262,9 @@ BRK
( release mouse ) #00 .Mouse/state DEO
.Mouse/x DEI2 .toolview/x1 LDZ2 SUB2 #03 SFT2 NIP
- [ #1f ] NEQk NIP ,&no-save JCN ;file-save JSR2 POP BRK &no-save
- [ #1d ] NEQk NIP ,&no-load JCN ;file-open JSR2 POP BRK &no-load
- [ #1c ] NEQk NIP ,&no-name JCN ;file-new JSR2 POP BRK &no-name
+ [ #20 ] NEQk NIP ,&no-save JCN ;file-save JSR2 POP BRK &no-save
+ [ #1e ] NEQk NIP ,&no-load JCN ;file-open JSR2 POP BRK &no-load
+ [ #1d ] NEQk NIP ,&no-name JCN ;file-new JSR2 POP BRK &no-name
[ #04 ] NEQk NIP ,&no-tool0 JCN #00 ;set-tool JSR2 POP BRK &no-tool0
[ #05 ] NEQk NIP ,&no-tool1 JCN #01 ;set-tool JSR2 POP BRK &no-tool1
[ #06 ] NEQk NIP ,&no-tool2 JCN #02 ;set-tool JSR2 &no-tool2