M src/main.tal => src/main.tal +18 -20
@@ 35,9 35,6 @@
#00f0 .Screen/height DEO2
( vectors )
;on-console .Console/vector DEO2
- ;on-button .Controller/vector DEO2
- ;on-mouse .Mouse/vector DEO2
- ;on-frame .Screen/vector DEO2
( set defaults )
#0108 .frame/width STZ2
#00c8 .frame/height STZ2
@@ 61,27 58,28 @@
( static drawings )
;load-theme JSR2
;draw-once JSR2
- ( let's begin! )
+ ( begin )
;file-new JSR2
;draw-menu JSR2
+ ;untrap JSR2
BRK
@manifest
08 "Nasu $1
- 01 'n :file-new "New $1
- 01 'r :trap "Rename $1
- 01 'o :file-open "Open $1
+ 01 "n :file-new "New $1
+ 01 "r :trap "Rename $1
+ 01 "o :file-open "Open $1
00 00 :file-open-mono "OpenMono $1
- 01 's :file-save "Save $1
+ 01 "s :file-save "Save $1
00 00 :file-save-mono "SaveMono $1
- 01 'p :save-theme "SaveTheme $1
- 01 'q :exit "Exit $1
+ 01 "p :save-theme "SaveTheme $1
+ 01 "q :exit "Exit $1
04 "Edit $1
- 01 'c :edit-copy "Copy $1
- 01 'v :edit-paste "Paste $1
- 01 'x :edit-cut "Cut $1
+ 01 "c :edit-copy "Copy $1
+ 01 "v :edit-paste "Paste $1
+ 01 "x :edit-cut "Cut $1
00 08 :edit-erase "Erase $1
01 "View $1
02 00 :toggle-zoom "Zoom $1
@@ 96,13 94,13 @@ BRK
84 00 :move-incw "Incr.W $1
00 1b :move-reset "Reset $1
07 "Tool $1
- 00 'q :tool-brush "Brush $1
- 00 'w :tool-selector "Selector $1
- 00 'e :tool-zoom "Zoom $1
- 00 '1 :pick-color1 "Background $1
- 00 '2 :pick-color2 "ColorA $1
- 00 '3 :pick-color3 "ColorB $1
- 00 '4 :pick-color4 "ColorC $1
+ 00 "q :tool-brush "Brush $1
+ 00 "w :tool-selector "Selector $1
+ 00 "e :tool-zoom "Zoom $1
+ 00 "1 :pick-color1 "Background $1
+ 00 "2 :pick-color2 "ColorA $1
+ 00 "3 :pick-color3 "ColorB $1
+ 00 "4 :pick-color4 "ColorC $1
$1
(
M src/manifest.tal => src/manifest.tal +2 -2
@@ 35,7 35,7 @@ BRK
&no-touch-sub
BRK
&no-sub
- ( don't leave if menu is active )
+ ( do not leave if menu is active )
;draw-menu/sel LDA #ff NEQ ,&no-leave JCN
.Mouse/y DEI2 #000c LTH2 ,&no-leave JCN
,menu-close JSR
@@ 287,7 287,7 @@ JMP2
POP2
( mix )
DUP #00 NEQ STHr #00 NEQ #0101 NEQ2 ,&no-mod JCN
- LIT '+ ;&buf ;sput JSR2
+ LIT "+ ;&buf ;sput JSR2
&no-mod
( key )
DUP #08 NEQ ,&no-bsp JCN ;&bsp ,&cat JMP &no-bsp