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