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

(m291) Catch S and R messages

This commit is contained in:
Devine Lu Linvega 2024-08-26 16:52:19 -07:00
parent ac4acbcab8
commit 000f103533
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -139,10 +139,11 @@
;&buf LDAk [ LIT "@ ] EQU ?{ POP2 JMP2r }
INC2 LDAk
( | route )
DUP [ LIT "S ] EQU ?handle-status
DUP [ LIT "F ] EQU ?handle-frame
DUP [ LIT "S ] EQU ?handle-status
DUP [ LIT "I ] EQU ?handle-id3
DUP [ LIT "P ] EQU ?handle-pause
DUP [ LIT "R ] EQU ?handle-revision
POP
( | not-handled )
<perr>
@ -163,10 +164,9 @@
@<skip-prev> ( -- )
.lines/tracks LDZ ?{ JMP2r }
.selection/track LDZ #01 SUB DUP #ff NEQ ?{
.selection/track LDZ #01 SUB INCk ?{
POP .lines/tracks LDZ #01 SUB }
!<pick>/tracks
JMP2r
@<skip-next> ( -- )
.lines/tracks LDZ ?{ JMP2r }
@ -180,12 +180,14 @@
(
@|events )
@handle-revision ( buf* char -- )
POP POP2 !message/<new>
@handle-status ( buf* char -- )
[ LIT2 01 -playing ] STZ
( | force redraws )
fit-window POP <perr>
#0a19 DEO
<redraw-player> !message/<new>
<fit-window>
POP POP2 <redraw-player> !message/<new>
@handle-frame ( buf* char -- )
POP
@ -256,7 +258,7 @@
POP2
( >> )
@fit-window ( -- )
@<fit-window> ( -- )
#00 count-lines
( empty ) DUP #00 EQU ADD #40 SFT2
( no-folder spacer ) has-spacer #00 EQU ?{ #0008 ADD2 }
@ -326,7 +328,7 @@
;dict/no-artist ;id3/artist <scpy>
;dict/no-album ;id3/album <scpy>
[ LIT2 01 -playing ] STZ
fit-window
<fit-window>
( | request )
;dict/load-cmd <pstr>
;path <pstr>