M src/manifest.tal => src/manifest.tal +4 -7
@@ 4,7 4,7 @@
&theme &r 0a6f &g 05cf &b 0caf
&name "Nasu $1
- &date "2022-06-27 $1
+ &date "2022-06-28 $1
&menu
04 "File $1
01 'n :file-new "New $1
@@ 15,7 15,7 @@
01 'c :edit-copy "Copy $1
01 'v :edit-paste "Paste $1
01 'x :edit-cut "Cut $1
- 0b "Select $1
+ 0c "Select $1
00 'q :select-brush "Brush $1
00 'w :select-selector "Selector $1
00 'e :select-zoom "Zoom $1
@@ 27,15 27,15 @@
24 00 :select-inch "Incr.Height $1
44 00 :select-decw "Decr.Width $1
84 00 :select-incw "Incr.Width $1
+ 00 1b :select-reset "Reset $1
04 "Pick $1
00 '1 :pick-color1 "Color1 $1
00 '2 :pick-color2 "Color2 $1
00 '3 :pick-color3 "Color3 $1
00 '4 :pick-color4 "Color4 $1
- 03 "Options $1
+ 02 "Options $1
00 08 :option-erase "Erase $1
00 20 :option-zoom "Zoom $1
- 00 1b :option-deselect "Deselect $1
$1
@print-manifest ( -- )
@@ 68,9 68,6 @@ JMP2r
&loop
STHkr OVR SFT #01 AND #00 EQU ,&no-button JCN
#00 OVR ;&buttons ADD2 LDA #18 DEO
- DUP #03 GTH ,&no-mod JCN
- LIT '+ #18 DEO
- &no-mod
&no-button
INC GTHk ,&loop JCN
POP2
M src/nasu.tal => src/nasu.tal +7 -7
@@ 1184,6 1184,13 @@ JMP2r
@select-decw ( -- ) #ff00 ;scale-selection JSR2 JMP2r
@select-incw ( -- ) #0100 ;scale-selection JSR2 JMP2r
+@select-reset ( -- )
+
+ .selection/x1 LDZ2 .selection/x2 STZ2
+ ;redraw JSR2
+
+JMP2r
+
( pick )
@pick-color1 ( -- ) #00 ;set-color JSR2 JMP2r
@@ 1207,13 1214,6 @@ JMP2r
JMP2r
-@option-deselect ( -- )
-
- .selection/x1 LDZ2 .selection/x2 STZ2
- ;redraw JSR2
-
-JMP2r
-
( generics )
@set-size ( x1 y1 w* h* rect* -- )