[Win32forth-cvs] win32forth/src/console NoConsole.f,1.6,1.7

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

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

Modified Files:
	NoConsole.f 
Log Message:
gah: modified words with local structures to use localalloc:

Index: NoConsole.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/console/NoConsole.f,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** NoConsole.f	24 Sep 2006 08:17:27 -0000	1.6
--- NoConsole.f	27 Jun 2007 07:31:16 -0000	1.7
***************
*** 35,41 ****
  \ ** 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 ;
  
--- 35,42 ----
  \ ** Use this instead of: \i BEGIN KEY DROP AGAIN \d. \n
  \ ** Also needs to be used by tasks that start their own windows.
!         { | pMsg -- }
!         7 cells LocalAlloc: pMsg
!         Begin 0 0 0 pMsg call GetMessage
!         While pMsg handlemessages drop
          Repeat ;