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