[Win32forth-cvs] win32forth/apps/Player4 Pl_MciWindow.f,1.28,1.29

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

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

Modified Files:
	Pl_MciWindow.f 
Log Message:
Jos: Made it sure that the volume level is restored to the right level.

Index: Pl_MciWindow.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Pl_MciWindow.f,v
retrieving revision 1.28
retrieving revision 1.29
diff -C2 -d -r1.28 -r1.29
*** Pl_MciWindow.f	6 Dec 2006 19:20:56 -0000	1.28
--- Pl_MciWindow.f	9 Dec 2006 12:50:06 -0000	1.29
***************
*** 158,162 ****
  
  :M PlayFile:    ( addr len -- ) \ open and play a file
!         Close: self
          2dup file-status nip 0=
          if   \ don't try play RealPlayer files, sometimes MCI crashes on my system, when trying (dbu)
--- 158,165 ----
  
  :M PlayFile:    ( addr len -- ) \ open and play a file
!         Playing? 
!                 if      GetVolume: Self vadr-config  VolLevel !
!                         Close: self
!                 then
          2dup file-status nip 0=
          if   \ don't try play RealPlayer files, sometimes MCI crashes on my system, when trying (dbu)
***************
*** 224,228 ****
          PlayFile: self \ play this file
          begin PLAYER \ call the main PLAYER
!               Playing? 0= \ and wait until playing is finished
          until ;
  
--- 227,231 ----
          PlayFile: self \ play this file
          begin PLAYER \ call the main PLAYER
!               Playing? 0=   \ and wait until playing is finished
          until ;