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

(m291) Clip files at 0x18

This commit is contained in:
Devine Lu Linvega 2024-08-27 09:29:50 -07:00
parent 701408830b
commit 615f87dff8
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -16,7 +16,7 @@
|000
@selection $1 &mod $1 &track $1
@selection $1 &mod $1 &track $1 &scroll $1
@path $2 &null $80
@lines &folders $1 &tracks $1
@playing $1
@ -322,7 +322,10 @@
( >> )
@<fit-window> ( -- )
#00 count-lines
#00
( folders ) .lines/folders LDZ
( tracks ) .lines/tracks LDZ
( scroll ) #18 LTHk [ JMP SWP ] POP ADD
( empty ) DUP #00 EQU ADD #40 SFT2
( no-folder spacer ) has-spacer #00 EQU ?{ #0008 ADD2 }
( padding ) #0020 ADD2
@ -434,6 +437,8 @@
#0008 .Screen/x DEO2
#00 SWP2 ,&t STR2
&>l ( -- )
DUP
( scroll ) #18 LTH ?{ POP2 JMP2r }
[ LITr 05 ]
( | selected )
DUP [ LIT &sel $1 ] NEQ ?{