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