Browse Source

Fixed issue with zoom icon

main
neauoire 5 years ago
parent
commit
85dbf07d77
  1. 18
      nasu.usm

18
nasu.usm

@ -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

Loading…
Cancel
Save