[Win32forth-cvs] win32forth/src/console NewConsole.f,1.15,1.16

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

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

Modified Files:
	NewConsole.f 
Log Message:
Jos: Solved the black screen in chess.

Index: NewConsole.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/console/NewConsole.f,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** NewConsole.f	13 Aug 2008 11:41:05 -0000	1.15
--- NewConsole.f	13 Aug 2008 17:00:09 -0000	1.16
***************
*** 175,182 ****
          ; ))
  
! : MessageLoop { | pMsg -- }
!         7 cells LocalAlloc: pMsg
!         BEGIN  0 0 0 pMsg  Call GetMessage
!         WHILE  pMsg HandleMessages drop
          REPEAT
          ;
--- 175,183 ----
          ; ))
  
! Create MessageStructure 32 allot
! 
! : MessageLoop ( -- )
!         BEGIN  0 0 0 MessageStructure  Call GetMessage
!         WHILE  MessageStructure  HandleMessages drop
          REPEAT
          ;