From 94dbf747c28672eaefd68bc8785e9a89930d30e6 Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Thu, 5 Sep 2024 15:55:38 -0700
Subject: [PATCH] (m291) Fixed truncating bug

---
 gui/m291/src/m291.tal | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/gui/m291/src/m291.tal b/gui/m291/src/m291.tal
index 4e892a5..0b8f0f7 100644
--- a/gui/m291/src/m291.tal
+++ b/gui/m291/src/m291.tal
@@ -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