[Win32forth-cvs] win32forth/src/console NewConsole.f,1.1,1.2

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

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"