Update of /cvsroot/win32forth/win32forth/src/console
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv27989
Modified Files:
NewConsole.f
Log Message:
Jos: The word pause causes a problem in multithr.f that is used in the chess game. It could be disabled since it is not used in the new console.
Index: NewConsole.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/console/NewConsole.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** NewConsole.f 28 Oct 2007 13:02:18 -0000 1.1
--- NewConsole.f 28 Oct 2007 15:51:17 -0000 1.2
***************
*** 115,124 ****
;
! : Pause { | pMsg -- } \ instead of "Winpause" - already defined in 6.12
7 cells LocalAlloc: pMsg
BEGIN PM_REMOVE 0 0 0 pMsg Call PeekMessage
WHILE pMsg HandleMessages drop
REPEAT
! ;
: PauseForMessage { | pMsg -- } \ instead of "Winpause"
--- 115,124 ----
;
! (( : Pause { | pMsg -- } \ instead of "Winpause" - already defined in 6.12
7 cells LocalAlloc: pMsg
BEGIN PM_REMOVE 0 0 0 pMsg Call PeekMessage
WHILE pMsg HandleMessages drop
REPEAT
! ; ))
: PauseForMessage { | pMsg -- } \ instead of "Winpause"
|
