Do not redraw on collapsed
This commit is contained in:
parent
8bd0574d5e
commit
a1139c7c58
|
@ -436,6 +436,7 @@
|
||||||
( >> )
|
( >> )
|
||||||
|
|
||||||
@<draw-note> ( -- )
|
@<draw-note> ( -- )
|
||||||
|
[ LIT2 00 -collapsed ] LDZ EQU ?{ JMP2r }
|
||||||
[ LIT2 15 -Screen/auto ] DEO
|
[ LIT2 15 -Screen/auto ] DEO
|
||||||
#0008 .Screen/x DEO2
|
#0008 .Screen/x DEO2
|
||||||
#0018 .Screen/y DEO2
|
#0018 .Screen/y DEO2
|
||||||
|
@ -462,7 +463,6 @@
|
||||||
&end POP2
|
&end POP2
|
||||||
|
|
||||||
@<draw-footer> ( -- )
|
@<draw-footer> ( -- )
|
||||||
.Screen/height DEI2 #0020 GTH2 ?{ JMP2r }
|
|
||||||
[ LIT2 26 -Screen/auto ] DEO
|
[ LIT2 26 -Screen/auto ] DEO
|
||||||
#0000 .Screen/x DEO2
|
#0000 .Screen/x DEO2
|
||||||
.Screen/height DEI2 #0020 SUB2 .Screen/y DEO2
|
.Screen/height DEI2 #0020 SUB2 .Screen/y DEO2
|
||||||
|
|
Loading…
Reference in New Issue