[Win32forth-cvs] win32forth/apps/Player4 PLAYER4.F, 1.68, 1.69 Pl_MciWindow.f, 1.30, 1.31

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

Update of /cvsroot/win32forth/win32forth/apps/Player4
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv7714

Modified Files:
	PLAYER4.F Pl_MciWindow.f 
Log Message:
Jos: Adapted for the current state of Win32Forth.

Index: PLAYER4.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.F,v
retrieving revision 1.68
retrieving revision 1.69
diff -C2 -d -r1.68 -r1.69
*** PLAYER4.F	2 Sep 2008 06:38:39 -0000	1.68
--- PLAYER4.F	13 Sep 2008 14:08:33 -0000	1.69
***************
*** 35,39 ****
  
  200 value IDJoystick
! defer PLAYER         ' noop is PLAYER
  defer RefreshCatalog ' noop is RefreshCatalog
  defer SortCatalog    ' noop is SortCatalog
--- 35,39 ----
  
  200 value IDJoystick
! 
  defer RefreshCatalog ' noop is RefreshCatalog
  defer SortCatalog    ' noop is SortCatalog

Index: Pl_MciWindow.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Pl_MciWindow.f,v
retrieving revision 1.30
retrieving revision 1.31
diff -C2 -d -r1.30 -r1.31
*** Pl_MciWindow.f	13 Aug 2008 11:40:43 -0000	1.30
--- Pl_MciWindow.f	13 Sep 2008 14:08:33 -0000	1.31
***************
*** 216,220 ****
          then ;
  
! :M Playing:     ( -- ) \ the main player; must be called in the PLAYER loop
          PauseIfIconic
          UpdateTitle
--- 216,220 ----
          then ;
  
! :M Playing:     ( -- ) \ the main player; must be called while playing
          PauseIfIconic
          UpdateTitle
***************
*** 226,231 ****
  : (PlayOneFile) ( addr len -- ) \ plays a file and waits until playing is finished
          PlayFile: self \ play this file
!         begin PLAYER \ call the main PLAYER
!               Playing? 0=   \ and wait until playing is finished
          until ;
  
--- 226,231 ----
  : (PlayOneFile) ( addr len -- ) \ plays a file and waits until playing is finished
          PlayFile: self \ play this file
!         begin Playing: Self winpause 10 ms   \ handle the messages
!               Playing? 0=      \ and wait until playing is finished
          until ;