d6
/
uxn-utils
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Do not draw footer when collapsed

This commit is contained in:
Devine Lu Linvega 2024-05-28 19:19:03 -07:00
parent 4140196702
commit e09204b7dc
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
gui/notepad/src/notepad.tal
View File

@ -447,7 +447,7 @@
.Screen/y DEI2 #00c8 NEQ2 ?{ .Screen/y DEI2 #00c8 NEQ2 ?{
;etc-icn .Screen/addr DEO2 ;etc-icn .Screen/addr DEO2
#01 .Screen/sprite DEO #01 .Screen/sprite DEO
!&end } POP2 JMP2r }
( | draw char ) ( | draw char )
DUP2 #0001 SUB2 LDA2 char-addr .Screen/addr DEO2 DUP2 #0001 SUB2 LDA2 char-addr .Screen/addr DEO2
is-selected STH is-selected STH
@ -464,6 +464,7 @@
&end POP2 JMP2r &end POP2 JMP2r
@<draw-footer> ( -- ) @<draw-footer> ( -- )
[ LIT2 00 -collapsed ] LDZ EQU ?{ JMP2r }
[ LIT2 26 -Screen/auto ] DEO [ LIT2 26 -Screen/auto ] DEO
#0000 .Screen/x DEO2 #0000 .Screen/x DEO2
.Screen/height DEI2 #0020 SUB2 DUP2 .Screen/y DEO2 .Screen/height DEI2 #0020 SUB2 DUP2 .Screen/y DEO2