Update of /cvsroot/win32forth/win32forth/apps/Player4
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv2593/apps/Player4
Modified Files:
PLAYER4.F
Log Message:
Jos: Made it possible to use the Stop/Next button to stop and play the next file while a folder is playing, or when a catalog is playing, and made it possible to start playing the catalog.
Index: PLAYER4.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.F,v
retrieving revision 1.53
retrieving revision 1.54
diff -C2 -d -r1.53 -r1.54
*** PLAYER4.F 21 May 2006 15:05:28 -0000 1.53
--- PLAYER4.F 23 May 2006 19:39:59 -0000 1.54
***************
*** 291,298 ****
: Stop/Next ( -- )
! catalog-exist?
! if SetFocus: ControlCenter play-catalog-random: Player4W
! else Playing?: Player4W if Close: Player4W then
! then
; IDM_STOP_NEXT SetCommand
--- 291,300 ----
: Stop/Next ( -- )
! Playing?: Player4W
! if Close: Player4W
! else catalog-exist?
! if play-catalog-random: Player4W
! then
! then
; IDM_STOP_NEXT SetCommand
|
