Update of /cvsroot/win32forth/win32forth/apps/Player4
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv5118/Player4
Modified Files:
PLAYER4.F Pl_MciWindow.f
Log Message:
Jos: Enabled MessageLoop and moved a number of applications to the new console.
Others will follow...
Index: PLAYER4.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.F,v
retrieving revision 1.65
retrieving revision 1.66
diff -C2 -d -r1.65 -r1.66
*** PLAYER4.F 16 Jul 2008 11:05:43 -0000 1.65
--- PLAYER4.F 13 Aug 2008 11:40:43 -0000 1.66
***************
*** 23,27 ****
true value MciDebug?
- needs NoConsole.f
needs excontrols.f
needs w_search.f
--- 23,26 ----
***************
*** 51,55 ****
needs catalog.f
needs view.f
! needs SearchPath.f
needs Player4.frm \ "Control center" dialog
--- 50,54 ----
needs catalog.f
needs view.f
! needs SearchPath.f
needs Player4.frm \ "Control center" dialog
***************
*** 656,660 ****
Call WaitMessage drop \ Wait for a new msg
WINPAUSE \ here the windows messages are handled !!!
! Playing: Player4W
; is PLAYER
--- 655,659 ----
Call WaitMessage drop \ Wait for a new msg
WINPAUSE \ here the windows messages are handled !!!
! Playing: Player4W
; is PLAYER
***************
*** 681,685 ****
' QuitPlayer is StopPlayer
false to MciDebug?
- NoConsoleIO NoConsoleInImage
&forthdir count &appdir place
--- 680,683 ----
Index: Pl_MciWindow.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Pl_MciWindow.f,v
retrieving revision 1.29
retrieving revision 1.30
diff -C2 -d -r1.29 -r1.30
*** Pl_MciWindow.f 9 Dec 2006 12:50:06 -0000 1.29
--- Pl_MciWindow.f 13 Aug 2008 11:40:43 -0000 1.30
***************
*** 158,162 ****
:M PlayFile: ( addr len -- ) \ open and play a file
! Playing?
if GetVolume: Self vadr-config VolLevel !
Close: self
--- 158,162 ----
:M PlayFile: ( addr len -- ) \ open and play a file
! Playing?
if GetVolume: Self vadr-config VolLevel !
Close: self
***************
*** 303,308 ****
then
else n>record dup>r
! RecordDef File_name r@ Cnt_File_name c@ 2dup type-cr
! r@ incr-#played r@ to #playing r> mark-played
PlayFileFromCatalog: Self
then
--- 303,311 ----
then
else n>record dup>r
! RecordDef File_name r@ Cnt_File_name c@
! turnkey? not
! if 2dup type-cr
! then
! r@ incr-#played r@ to #playing r> mark-played
PlayFileFromCatalog: Self
then
|