Added prev/next buttons

gui/m291/src/assets.tal

@@ -35,6 +35,14 @@
 	0000 001e 1e1e 1e1e 0000 0078 7878 7878
 	1e1e 1e1e 1e00 0000 7878 7878 7800 0000 ]
 
+@next-icn [
+	0000 0018 1c1e 1f1f 0000 0018 1818 1898
+	1f1f 1e1c 1800 0000 9818 1818 1800 0000 ]
+
+@prev-icn [
+	0000 0018 1818 1819 0000 0018 3878 f8f8
+	1918 1818 1800 0000 f8f8 7838 1800 0000 ]
+
 @fill-icn [
 	ffff ffff ffff ffff ffff ffff ffff ffff
 	ffff ffff ffff ffff ffff ffff ffff ffff ]

gui/m291/src/m291.tal

@@ -89,13 +89,13 @@
 	( esc ) DUP #1b NEQ ?{ <escape> }
 	( tab ) DUP #09 NEQ ?{ <toggle-misc> }
 	( enter ) DUP #0d NEQ ?{ .selection LDZ <pick> }
+	( space ) DUP #20 NEQ ?{ <send-pause> }
 	POP
 	( | button )
 	.Controller/button DEI
 	( up ) DUP #10 NEQ ?{ #ff <move> }
 	( down ) DUP #20 NEQ ?{ #01 <move> }
 	( A ) DUP #01 NEQ ?{ .selection LDZ <pick> }
-	POP .Controller/key DEI DUP #20 NEQ ?{ <send-pause> }
 	POP BRK
 
 (
@@ -394,7 +394,9 @@
 	<draw-title>
 	<draw-artist>
 	<draw-album>
+	<draw-prev>
 	<draw-play>
+	<draw-next>
 	<draw-progress> !<draw-timestamp>
 
 @<draw-title> ( -- )
@@ -414,19 +416,35 @@
 
 @<draw-play> ( -- )
 	#0070 .Screen/x DEO2
-	#0058 .Screen/y DEO2
+	#0054 .Screen/y DEO2
 	[ LIT2 36 -Screen/auto ] DEO
 	;button-icn .Screen/addr DEO2
 	[ LIT2 01 -Screen/sprite ] DEOk DEOk DEOk DEO
 	( | icon )
 	[ LIT2 16 -Screen/auto ] DEO
 	#0078 .Screen/x DEO2
-	#0060 .Screen/y DEO2
-	;pause-icn ;play-icn .paused LDZ ?{ SWP2 }
+	#005c .Screen/y DEO2
+	;play-icn ;pause-icn .paused LDZ ?{ SWP2 }
 	POP2 .Screen/addr DEO2
 	[ LIT2 01 -Screen/sprite ] DEOk DEO
 	JMP2r
 
+@<draw-prev> ( -- )
+	[ LIT2 16 -Screen/auto ] DEO
+	#0058 .Screen/x DEO2
+	#005c .Screen/y DEO2
+	;prev-icn .Screen/addr DEO2
+	[ LIT2 01 -Screen/sprite ] DEOk DEO
+	JMP2r
+
+@<draw-next> ( -- )
+	[ LIT2 16 -Screen/auto ] DEO
+	#0098 .Screen/x DEO2
+	#005c .Screen/y DEO2
+	;next-icn .Screen/addr DEO2
+	[ LIT2 01 -Screen/sprite ] DEOk DEO
+	JMP2r
+
 @<draw-progress> ( -- )
 	.secprog LDZ2
 	( | catch redraws )