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

(m291) Skip backward

This commit is contained in:
Devine Lu Linvega 2024-08-26 16:09:29 -07:00
parent e765cf2396
commit df47bec2ed
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -83,9 +83,8 @@
( > ) [ LIT2 00 -playing ] LDZ EQU ?{ DUP2 #0098 LTH2 ?&player } ( > ) [ LIT2 00 -playing ] LDZ EQU ?{ DUP2 #0098 LTH2 ?&player }
( | on list ) ( | on list )
<y-id> <y-id>
.Mouse/state DEI DUP ?{ POP <select> .Mouse/state DEI ?{ <select>
BRK } BRK }
#01 GTH .selection/mod STZ
<pick> <pick>
;on-mouse-locked .Mouse/vector DEO2 ;on-mouse-locked .Mouse/vector DEO2
BRK BRK
@ -119,7 +118,6 @@
( | key ) ( | key )
.Controller/key DEI .Controller/key DEI
( esc ) DUP #1b NEQ ?{ <escape> } ( esc ) DUP #1b NEQ ?{ <escape> }
( tab ) DUP #09 NEQ ?{ <toggle-misc> }
( enter ) DUP #0d NEQ ?{ .selection LDZ <pick> } ( enter ) DUP #0d NEQ ?{ .selection LDZ <pick> }
( space ) DUP #20 NEQ ?{ <send-pause> } ( space ) DUP #20 NEQ ?{ <send-pause> }
POP POP
@ -164,9 +162,14 @@
@|controls ) @|controls )
@<skip-prev> ( -- ) @<skip-prev> ( -- )
.lines/tracks LDZ ?{ JMP2r }
.selection/track LDZ #01 SUB DUP #ff NEQ ?{
POP .lines/tracks LDZ #01 SUB }
!<pick>/tracks
JMP2r JMP2r
@<skip-next> ( -- ) @<skip-next> ( -- )
.lines/tracks LDZ ?{ JMP2r }
.selection/track LDZ INC .lines/tracks LDZ DIVk MUL SUB !<pick>/tracks .selection/track LDZ INC .lines/tracks LDZ DIVk MUL SUB !<pick>/tracks
@<seek> ( x* -- ) @<seek> ( x* -- )
@ -352,9 +355,6 @@
;path/null LDA ?<leave> ;path/null LDA ?<leave>
JMP2r JMP2r
@<toggle-misc> ( -- )
[ LIT2 00 -misc ] LDZ EQU .misc STZ !fit-window
@count-lines ( -- lines ) @count-lines ( -- lines )
.lines/folders LDZ .lines/tracks LDZ ADD .lines/folders LDZ .lines/tracks LDZ ADD
( ) [ LIT2 00 -misc ] LDZ EQU ?{ .lines/misc LDZ ADD } ( ) [ LIT2 00 -misc ] LDZ EQU ?{ .lines/misc LDZ ADD }