[Win32forth-cvs] win32forth/apps/Player4 PLAYER4.F,1.64,1.65

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

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

Modified Files:
	PLAYER4.F 
Log Message:
Jos: WaitMessage function suspends the thread and does not return until a new message is placed in the thread's message queue.  That saves some CPU cycles.

Index: PLAYER4.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.F,v
retrieving revision 1.64
retrieving revision 1.65
diff -C2 -d -r1.64 -r1.65
*** PLAYER4.F	6 Dec 2006 19:20:56 -0000	1.64
--- PLAYER4.F	16 Jul 2008 11:05:43 -0000	1.65
***************
*** 654,659 ****
  
  :noname         ( -- )
!         WINPAUSE \ here the windows messages are handled !!!
!         10 MS Playing: Player4W
          ; is PLAYER
  
--- 654,660 ----
  
  :noname         ( -- )
!         Call WaitMessage drop \ Wait for a new msg
!         WINPAUSE              \ here the windows messages are handled !!!
!         Playing: Player4W  
          ; is PLAYER
  
***************
*** 691,695 ****
          s" Player4.ico" s" Player4.exe" AddAppIcon
  
!         PLAYER4 
  
  [then]
--- 692,696 ----
          s" Player4.ico" s" Player4.exe" AddAppIcon
  
!         PLAYER4
  
  [then]