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

(m291) Improved responsiveness

This commit is contained in:
Devine Lu Linvega 2024-08-26 10:34:21 -07:00
parent 67644467b7
commit e33a65bd5a
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
gui/m291/src/m291.tal
View File

@ -142,11 +142,9 @@
@handle-status ( buf* char -- )
[ LIT2 01 -playing ] STZ
( | force redraws )
#ffff ;<draw-timestamp>/last STA2
#ffff ;<draw-progress>/last STA2
fit-window POP <perr>
#0a19 DEO
<draw-player> !message/<new>
<redraw-player> !message/<new>
@handle-frame ( buf* char -- )
POP
@ -211,7 +209,7 @@
( no-folder spacer ) has-spacer #00 EQU ?{ #0008 ADD2 }
( padding ) #0020 ADD2
( playing ) [ LIT2 00 -playing ] LDZ EQU ?{ #0080 ADD2 }
.Screen/height DEO2 !<redraw>
.Screen/height DEO2 <redraw-player> !<redraw>
@<parse-line> ( line* -- )
#0005 ADD2 LDAk [ LIT ". ] EQU ?&hidden
@ -243,7 +241,7 @@
@<select> ( id -- )
[ LIT &last ff ] NEQk ?{ POP2 JMP2r }
POP DUP ,&last STR
.selection STZ !<redraw>
.selection STZ <redraw-player> !<redraw>
@<pick> ( alt id -- )
DUP .lines/folders LDZ LTH ?&folder
@ -355,6 +353,11 @@
;mem/misc .lines/misc LDZ #00 .selection LDZ !<draw-list> }
JMP2r
@<redraw-player> ( -- )
#ffff ;<draw-timestamp>/last STA2
#ffff ;<draw-progress>/last STA2
( >> )
@<draw-player> ( -- )
#0080 .Screen/x DEO2
#0020 .Screen/y DEO2