~rabbits/nasu

e23a25414254dc1cd33fcdae8e46690915a3942e — Devine Lu Linvega 8 months ago 2b24070
Added export icn
2 files changed, 5 insertions(+), 3 deletions(-)

M src/manifest.tal
M src/nasu.tal
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