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

(m291) Fixed bug with seeking

This commit is contained in:
Devine Lu Linvega 2024-08-26 19:53:41 -07:00
parent 4622c8b34f
commit bbe6a66a82
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -145,6 +145,7 @@
DUP [ LIT "I ] EQU ?handle-id3 DUP [ LIT "I ] EQU ?handle-id3
DUP [ LIT "P ] EQU ?handle-pause DUP [ LIT "P ] EQU ?handle-pause
DUP [ LIT "R ] EQU ?handle-revision DUP [ LIT "R ] EQU ?handle-revision
DUP [ LIT "J ] EQU ?handle-jump
POP POP
( | not-handled ) ( | not-handled )
<perr> <perr>
@ -204,6 +205,9 @@
@handle-revision ( buf* char -- ) @handle-revision ( buf* char -- )
POP POP2 !message/<new> POP POP2 !message/<new>
@handle-jump ( buf* char -- )
POP POP2 !message/<new>
@handle-status ( buf* char -- ) @handle-status ( buf* char -- )
[ LIT2 01 -playing ] STZ [ LIT2 01 -playing ] STZ
( | force redraws ) ( | force redraws )
@ -212,10 +216,10 @@
@handle-frame ( buf* char -- ) @handle-frame ( buf* char -- )
POP POP
( skip key ) #0003 ADD2 ( skip key ) #0002 ADD2
( skip curr-frame ) parse-dec .frames/a STZ2 ( curr-frame ) parse-dec .frames/a STZ2
INC2 INC2
( skip next-frame ) parse-dec .frames/b STZ2 ( next-frame ) parse-dec .frames/b STZ2
INC2 INC2
( | <curr-secs> ) ( | <curr-secs> )
parse-dec STH2k .secfrom STZ2 parse-dec STH2k .secfrom STZ2