[Win32forth-cvs] win32forth/apps/Player4 PLAYER4.F,1.53,1.54

[Jos v.d.V. <jo...@us...>]

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