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

(notepad) Use flag for collapsed state

This commit is contained in:
neauoire 2023-11-30 17:21:58 -08:00
parent e6bafe74ef
commit 5d380107e4
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gui/notepad/notepad.tal
View File

@ -7,6 +7,7 @@
|0000
@page $1
@collapsed $1
@selection &a $2 &b $2 &length $2
|0100
@ -92,13 +93,13 @@ BRK
&toggle-collapse ( -> )
#00e0 .Screen/width DEO2
#00f8 #0011
DUP2 .Screen/height DEI2 EQU2 [ JMP SWP2 POP2 ]
.Screen/height DEO2
.collapsed LDZ ?{ SWP2 }
POP2 .Screen/height DEO2
.collapsed LDZ #00 EQU .collapsed STZ
draw-header
redraw
[ LIT2 00 -Mouse/state ] DEO
BRK