diff --git a/gui/m291/src/m291.tal b/gui/m291/src/m291.tal index 5f4f48d..c791e13 100644 --- a/gui/m291/src/m291.tal +++ b/gui/m291/src/m291.tal @@ -145,6 +145,7 @@ DUP [ LIT "I ] EQU ?handle-id3 DUP [ LIT "P ] EQU ?handle-pause DUP [ LIT "R ] EQU ?handle-revision + DUP [ LIT "J ] EQU ?handle-jump POP ( | not-handled ) @@ -204,6 +205,9 @@ @handle-revision ( buf* char -- ) POP POP2 !message/ +@handle-jump ( buf* char -- ) + POP POP2 !message/ + @handle-status ( buf* char -- ) [ LIT2 01 -playing ] STZ ( | force redraws ) @@ -212,10 +216,10 @@ @handle-frame ( buf* char -- ) POP - ( skip key ) #0003 ADD2 - ( skip curr-frame ) parse-dec .frames/a STZ2 + ( skip key ) #0002 ADD2 + ( curr-frame ) parse-dec .frames/a STZ2 INC2 - ( skip next-frame ) parse-dec .frames/b STZ2 + ( next-frame ) parse-dec .frames/b STZ2 INC2 ( | ) parse-dec STH2k .secfrom STZ2