(m291) Improved progressbar

gui/m291/src/m291.tal

@@ -23,6 +23,7 @@
 	@playing $1
 	@secfrom $2
 	@secto $2
+	@secprog $2
 
 |100
 
@@ -140,7 +141,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>
@@ -159,7 +162,8 @@
 	INC2 LDAk [ LIT "5 ] LTH ?{ INC2r }
 	POP2 STH2r STH2r SWP2 OVR2 ADD2 SWP2
 	( | print )
-	calc-width <draw-progress> !message/<new>
+	calc-width .secprog STZ2
+	<draw-progress> !message/<new>
 
 @handle-id3 ( buf* char -- )
 	POP <perr>
@@ -366,10 +370,13 @@
 	[ LIT2 36 -Screen/auto ] DEO
 	;button-icn .Screen/addr DEO2
 	[ LIT2 01 -Screen/sprite ] DEOk DEOk DEOk DEO
-	( fill width ) #00e7
-	( >> )
+	<draw-progress> !<draw-timestamp>
 
-@<draw-progress> ( width* -- )
+@<draw-progress> ( -- )
+	.secprog LDZ2
+	( | catch redraws )
+	DUP2 [ LIT2 &last $2 ] NEQ2 ?{ POP2 JMP2r }
+	DUP2 ,&last STR2
 	[ LIT2 01 -Screen/auto ] DEO
 	#0004 .Screen/x DEO2
 	#0088 .Screen/y DEO2