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 ;
|
