[Win32forth-cvs] win32forth/src/console NoConsole.f,1.1,1.2

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth/src/console
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26741/win32forth/src/console

Modified Files:
	NoConsole.f 
Log Message:
gah: Modified to use task-safe version of message loop

Index: NoConsole.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/console/NoConsole.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** NoConsole.f	9 Feb 2006 18:01:44 -0000	1.1
--- NoConsole.f	10 Feb 2006 16:02:05 -0000	1.2
***************
*** 6,10 ****
  \ *T No console
  \ *Q Helper words for turnkey applications that don't need the console window and the \i w32fConsole.dll \d.
! \ *P To use this words you must load the file \i src/console/NoConsole.f \d first.
  \ *S Glossary
  
--- 6,10 ----
  \ *T No console
  \ *Q Helper words for turnkey applications that don't need the console window and the \i w32fConsole.dll \d.
! \ *P To use these words you must load the file \i src/console/NoConsole.f \d first.
  \ *S Glossary
  
***************
*** 21,26 ****
  internal
  
- Create MessageStructure 32 allot
- 
  : K_NOOP0 2DROP 0 ;
  : K_NOOP1 0 ;
--- 21,24 ----
***************
*** 35,42 ****
  : MessageLoop           ( -- )  \ W32F console
  \ *G The message loop for the application.
! \ ** Use this instead of: \i BEGIN KEY DROP AGAIN \d.
!         BEGIN  0 0 0 MessageStructure Call GetMessage
!         WHILE  MessageStructure HandleMessages drop
!         REPEAT ;
  
  in-system
--- 33,42 ----
  : MessageLoop           ( -- )  \ W32F console
  \ *G The message loop for the application.
! \ ** Use this instead of: \i BEGIN KEY DROP AGAIN \d. \n
! \ ** Also needs to be used by tasks that start their own windows.
!         { \ hwnd mess wparm lparm time pt.x pt.y -- }
!         Begin 0 0 0 &of hwnd call GetMessage
!         While &of hwnd handlemessages drop
!         Repeat ;
  
  in-system
***************
*** 134,136 ****
--- 134,138 ----
  \ *P For a full working example see \i apps/PlayVirginRadio/PlayVirginRadio.f \d.
  
+ \ *P For an example of multi-tasking use see \i demos/MultiHello.f \d.
+ 
  \ *Z