From 615f87dff8a7e7a49fbbe5a63a56797ed0a5f56f Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Tue, 27 Aug 2024 09:29:50 -0700
Subject: [PATCH] (m291) Clip files at 0x18

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

diff --git a/gui/m291/src/m291.tal b/gui/m291/src/m291.tal
index 3a2c5f9..924e0ad 100644
--- a/gui/m291/src/m291.tal
+++ b/gui/m291/src/m291.tal
@@ -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 ?{