From 7f70a7abbe73d10ccf42d298efa6fd1ac8c1a6d1 Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Sun, 25 Aug 2024 19:57:14 -0700
Subject: [PATCH] (m291) Starting player

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

diff --git a/gui/m291/src/m291.tal b/gui/m291/src/m291.tal
index 4400578..81064ca 100644
--- a/gui/m291/src/m291.tal
+++ b/gui/m291/src/m291.tal
@@ -21,6 +21,7 @@
 	@selection $1 &mod $1
 	@path $2 &null $80
 	@lines &folders $1 &roms $1 &misc $1
+	@playing $1
 
 |100
 
@@ -31,6 +32,7 @@
 	.System/b DEO2
 	<load-theme>
 	#0100 .Screen/width DEO2
+	[ LIT2 01 -playing ] STZ
 	;dict/home-path set-path <refresh-dir>
 	;on-mouse .Mouse/vector DEO2
 	;on-control .Controller/vector DEO2
@@ -116,7 +118,8 @@
 @|events )
 
 @handle-status ( buf* char -- )
-	POP <perr>
+	[ LIT2 01 -playing ] STZ
+	fit-window POP <perr>
 	#0a19 DEO !message/<new>
 
 @handle-frame ( buf* char -- )
@@ -127,6 +130,7 @@
 @|core )
 
 @<y-id> ( y* -- id )
+	[ LIT2 00 -playing ] LDZ EQU ?{ #0080 SUB2 }
 	#0014 SUB2
 	( | above )
 	DUP2 #8000 GTH2 ?&outside
@@ -162,7 +166,9 @@
 	#00 count-lines
 	( empty ) DUP #00 EQU ADD #40 SFT2
 	( no-folder spacer ) has-spacer #00 EQU ?{ #0008 ADD2 }
-	( padding ) #0020 ADD2 .Screen/height DEO2 !<redraw>
+	( padding ) #0020 ADD2
+	( playing ) [ LIT2 00 -playing ] LDZ EQU ?{ #0080 ADD2 }
+	.Screen/height DEO2 !<redraw>
 
 @<parse-line> ( line* -- )
 	#0005 ADD2 LDAk [ LIT ". ] EQU ?&hidden
@@ -291,7 +297,9 @@
 	#0014 .Screen/y DEO2
 	;line-icn <draw-spacer>
 	( | content )
-	#001c .Screen/y DEO2
+	#001c [ LIT2 00 -playing ] LDZ EQU ?{ <draw-player>
+		#0080 ADD2 }
+	.Screen/y DEO2
 	( | empty )
 	count-lines ?{
 		#0008 .Screen/x DEO2
@@ -304,6 +312,9 @@
 		;mem/misc .lines/misc LDZ #00 .selection LDZ !<draw-list> }
 	JMP2r
 
+@<draw-player> ( -- )
+	JMP2r
+
 @<draw-spacer> ( addr* -- )
 	#0000 .Screen/x DEO2
 	.Screen/addr DEO2