From e33a65bd5a7e14b27784a05375f172d96ed171f3 Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Mon, 26 Aug 2024 10:34:21 -0700
Subject: [PATCH] (m291) Improved responsiveness

---
 gui/m291/src/m291.tal | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/gui/m291/src/m291.tal b/gui/m291/src/m291.tal
index 62bed71..38542eb 100644
--- a/gui/m291/src/m291.tal
+++ b/gui/m291/src/m291.tal
@@ -142,11 +142,9 @@
 @handle-status ( buf* char -- )
 	[ LIT2 01 -playing ] STZ
 	( | force redraws )
-	#ffff ;<draw-timestamp>/last STA2
-	#ffff ;<draw-progress>/last STA2
 	fit-window POP <perr>
 	#0a19 DEO
-	<draw-player> !message/<new>
+	<redraw-player> !message/<new>
 
 @handle-frame ( buf* char -- )
 	POP
@@ -211,7 +209,7 @@
 	( no-folder spacer ) has-spacer #00 EQU ?{ #0008 ADD2 }
 	( padding ) #0020 ADD2
 	( playing ) [ LIT2 00 -playing ] LDZ EQU ?{ #0080 ADD2 }
-	.Screen/height DEO2 !<redraw>
+	.Screen/height DEO2 <redraw-player> !<redraw>
 
 @<parse-line> ( line* -- )
 	#0005 ADD2 LDAk [ LIT ". ] EQU ?&hidden
@@ -243,7 +241,7 @@
 @<select> ( id -- )
 	[ LIT &last ff ] NEQk ?{ POP2 JMP2r }
 	POP DUP ,&last STR
-	.selection STZ !<redraw>
+	.selection STZ <redraw-player> !<redraw>
 
 @<pick> ( alt id -- )
 	DUP .lines/folders LDZ LTH ?&folder
@@ -355,6 +353,11 @@
 		;mem/misc .lines/misc LDZ #00 .selection LDZ !<draw-list> }
 	JMP2r
 
+@<redraw-player> ( -- )
+	#ffff ;<draw-timestamp>/last STA2
+	#ffff ;<draw-progress>/last STA2
+	( >> )
+
 @<draw-player> ( -- )
 	#0080 .Screen/x DEO2
 	#0020 .Screen/y DEO2