[Win32forth-cvs] win32forth/apps/Player4 Pl_MciWindow.f,1.7,1.8

[Dirk B. <db...@us...>]

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

Modified Files:
	Pl_MciWindow.f 
Log Message:
Smal change for better video output.

Index: Pl_MciWindow.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Pl_MciWindow.f,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** Pl_MciWindow.f	15 May 2005 17:21:52 -0000	1.7
--- Pl_MciWindow.f	22 May 2005 10:07:04 -0000	1.8
***************
*** 319,326 ****
                  of MCI_MODE_PLAY   false to Pause?  true to Playing? endof
                  of MCI_MODE_STOP   false to Pause? false to Playing? endof
!         endcase GetZoom: MCI SetVideoSize: self ;M
  
  :M MCIWNDM_NOTIFYPOS  ( h m w l -- res )
!         GetZoom: MCI SetVideoSize: self ;M
  
  :M MCIWNDM_NOTIFYSIZE ( h m w l -- res )
--- 319,328 ----
                  of MCI_MODE_PLAY   false to Pause?  true to Playing? endof
                  of MCI_MODE_STOP   false to Pause? false to Playing? endof
!         endcase \ GetZoom: MCI SetVideoSize: self
!         ;M
  
  :M MCIWNDM_NOTIFYPOS  ( h m w l -- res )
! \         GetZoom: MCI SetVideoSize: self
!         ;M
  
  :M MCIWNDM_NOTIFYSIZE ( h m w l -- res )