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