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

(m291) Fixed truncating bug

This commit is contained in:
Devine Lu Linvega 2024-09-05 15:55:38 -07:00
parent 0150e67e11
commit 94dbf747c2
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -54,6 +54,9 @@
( auth ) "By 20 "Linvega 20 "& 20 "d6 0a
( date ) "5 20 "Sep 20 "2024 $2
%min ( x y -- min ) {
LTHk [ JMP SWP POP ] }
(
@|vectors )
@ -120,7 +123,7 @@
.selection/scroll LDZ ADD INCk ?{ POP BRK }
.lines/folders LDZ .lines/tracks LDZ ADD #18 SUB
( needs scroll ) DUP #80 LTH ?{ POP2 BRK }
( max scroll ) LTHk [ JMP SWP POP ] .selection/scroll STZ
( max scroll ) min .selection/scroll STZ
<redraw-dir>
BRK
@ -457,15 +460,12 @@
;tmp STH2r !<scpy> }
POP2 POP2 JMP2r
%min ( x y -- min ) {
LTHk [ JMP SWP POP ] }
@common-folder-prefix ( -- len )
.lines/folders LDZ ?{ #00 JMP2r }
[ LIT2 01 -lines/folders ] LDZ LTH ?{ #00 JMP2r }
;mem/folders DUP2 [ LIT2 00 -lines/folders ] LDZ #70 SFT2 ADD2 !common-prefix-0
@common-track-prefix ( -- len )
.lines/tracks LDZ ?{ #00 JMP2r }
[ LIT2 01 -lines/tracks ] LDZ LTH ?{ #00 JMP2r }
;mem/tracks DUP2 [ LIT2 00 -lines/tracks ] LDZ #70 SFT2 ADD2
( >> )
@ -1039,7 +1039,7 @@
&pause-cmd "pause 0a $1
&no-artist "Unknown 20 "Artist $1
&no-album "Unknown 20 "Album $1
&ellipses "... $1
&ellipses "... 20 $1
~src/assets.tal