@@ 316,7 316,12 @@ BRK
;blank-txt ;new-file JSR2
;redraw JSR2
&no-name
- DUP #09 > OVR HOR SWP - #04 > #0101 !! ,&no-rename JCN
+ DUP #07 ! ,&no-zoom JCN
+ .settings/zoom TOGGLE
+ ;draw-tileview JSR2
+ ;draw-toolview JSR2
+ &no-zoom
+ DUP #08 > OVR HOR SWP - #04 > #0101 !! ,&no-rename JCN
.state/trap TOGGLE
#00 .state/blink STZ
#23 ;draw-filepath JSR2
@@ 331,11 336,6 @@ BRK
DUP #04 - .settings/tool STZ
;draw-toolview JSR2 POP BRK
&no-tool
- DUP #08 ! ,&no-zoom JCN
- .settings/zoom LDZ TOGGLE
- ;draw-tileview JSR2
- ;draw-toolview JSR2
- &no-zoom
POP
&end
@@ 708,9 708,9 @@ RTN
#21 .settings/tool LDZ #02 = + .Screen/color DEO
( misc )
- .Screen/x DEI2 #0010 ++ .Screen/x DEO2
+ .Screen/x DEI2 #0008 ++ .Screen/x DEO2
;zoom-icns [ .settings/zoom LDZ TOS #0008 ** ++ ] .Screen/addr DEO2
- #23 .Screen/color DEO
+ #21 .Screen/color DEO
( file i/o )
.toolview/x2 LDZ2 #0008 -- .Screen/x DEO2
@@ 753,7 753,7 @@ RTN
@draw-filepath ( color -- )
STH
- .toolview/x1 LDZ2 #0040 ++ .Screen/x DEO2
+ .toolview/x1 LDZ2 #0048 ++ .Screen/x DEO2
.toolview/y1 LDZ2 .Screen/y DEO2
;path/name
&loop