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

Fixed leak in labels

This commit is contained in:
Devine Lu Linvega 2024-07-24 11:48:24 -07:00
parent dbaef55ef8
commit 8a9bb7565a
1 changed files with 34 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

65
gui/teatime/teatime.tal
View File

@ -27,7 +27,7 @@
;on-frame .Screen/vector DEO2 ;on-frame .Screen/vector DEO2
;on-mouse .Mouse/vector DEO2 ;on-mouse .Mouse/vector DEO2
( | screen size ) ( | screen size )
#0248 .Screen/width DEO2 #0148 .Screen/width DEO2
#0110 .Screen/height DEO2 #0110 .Screen/height DEO2
.DateTime/second DEI .last-second STZ .DateTime/second DEI .last-second STZ
<redraw> <redraw>
@ -73,7 +73,39 @@
@|drawing ) @|drawing )
@<redraw> ( -- ) @<redraw> ( -- )
<draw-bar> !<draw-border> <redraw-bar>
( >> )
@<draw-background> ( -- )
( | markers )
;tick-icn .Screen/addr DEO2
[ LIT2 f1 -Screen/auto ] DEO
#0030 .Screen/x DEO2
#0010 .Screen/y DEO2
[ LIT2r 05 -Screen/sprite ] DEOkr
[ LIT2 d1 -Screen/auto ] DEO
#0030 .Screen/x DEO2
#0090 .Screen/y DEO2
DEOr
( | labels )
#0038 .Screen/x DEO2
#000c .Screen/y DEO2
[ LIT2 02 -Screen/auto ] DEO
[ LIT2r =label-tilemap ] #1f00
&>w ( -- )
LDAkr #00 STHr INC2r ;digits ADD2 .Screen/addr DEO2
[ LIT2 05 -Screen/sprite ] DEO
INC GTHk ?&>w
POP2
( | labels, cont )
#0040 .Screen/x DEO2
#000c .Screen/y DEO2
#1f00
&>w2 ( -- )
LDAkr #00 STHr INC2r ;digits ADD2 .Screen/addr DEO2
[ LIT2 05 -Screen/sprite ] DEO
INC GTHk ?&>w2
POP2 POP2r JMP2r
@<redraw-bar> ( -- ) @<redraw-bar> ( -- )
;fill-icn .Screen/addr DEO2 ;fill-icn .Screen/addr DEO2
@ -101,35 +133,6 @@
INC2 GTH2k ?&>l INC2 GTH2k ?&>l
POP2 POP2 POP2r JMP2r POP2 POP2 POP2r JMP2r
@<draw-border> ( -- )
;tick-icn .Screen/addr DEO2
[ LIT2 f1 -Screen/auto ] DEO
#0030 .Screen/x DEO2
#0010 .Screen/y DEO2
[ LIT2r 05 -Screen/sprite ] DEOkr
[ LIT2 d1 -Screen/auto ] DEO
#0030 .Screen/x DEO2
#0090 .Screen/y DEO2
DEOr
JMP2r
( | labels )
#0030 .Screen/x DEO2
#0004 .Screen/y DEO2
#02 .Screen/auto DEO
LIT2r [ =label-tilemap ] #1f00
&>w ( -- )
LDAkr #00 STHr INC2r ;digits ADD2 .Screen/addr DEO2
#08 .Screen/sprite DEO
INC GTHk ?&>w
POP2 #0038 .Screen/x DEO2
#0004 .Screen/y DEO2
#1f00
&>w2 ( -- )
LDAkr #00 STHr INC2r ;digits ADD2 .Screen/addr DEO2
#08 .Screen/sprite DEO
INC GTHk ?&>w2
JMP2r
@<update-cursor> ( color addr* -- ) @<update-cursor> ( color addr* -- )
[ LIT2 00 -Screen/auto ] DEO [ LIT2 00 -Screen/auto ] DEO
;fill-icn .Screen/addr DEO2 ;fill-icn .Screen/addr DEO2