[Win32forth-cvs] win32forth/apps/Player4 PLAYER4.F, 1.65, 1.66 Pl_MciWindow.f, 1.29, 1.30

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

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