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
|
