Do not redraw on collapsed

This commit is contained in:
Devine Lu Linvega 2024-05-28 19:11:48 -07:00
parent 8bd0574d5e
commit a1139c7c58
1 changed files with 1 additions and 1 deletions

View File

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