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

[Rod O. <rod...@us...>]

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

Modified Files:
	NewConsole.f 
Log Message:
Rod: changes so that F12 works for Win32ForthIDE in v6.12.00

Index: NewConsole.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/console/NewConsole.f,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** NewConsole.f	21 Jul 2008 20:18:39 -0000	1.6
--- NewConsole.f	24 Jul 2008 10:59:15 -0000	1.7
***************
*** 22,26 ****
  :M ClassInit: ( -- )
          ClassInit: super
!         s" ConsoleWindow" SetClassName: self
          Console-menu to CurrentMenu
          ;M
--- 22,26 ----
  :M ClassInit: ( -- )
          ClassInit: super
!         s" Win32Forth" SetClassName: self
          Console-menu to CurrentMenu
          ;M
***************
*** 209,213 ****
          Prompt: cmd
          false to entered
!         BEGIN  GetKey: cmd  HandleChar: cmd  WaitForMessage  entered UNTIL
          EnteredString >r swap r@ move r>
          ;
--- 209,214 ----
          Prompt: cmd
          false to entered
! \        BEGIN  GetKey: cmd  HandleChar: cmd  WaitForMessage  entered UNTIL
!         BEGIN  KeyBufferEmpty: cmd IF  call WaitMessage drop  ELSE  GetKey: cmd  HandleChar: cmd  THEN  PauseForMessages  entered UNTIL
          EnteredString >r swap r@ move r>
          ;
***************
*** 241,245 ****
  
  : c_Init-Console ( -- f )   \ start the Console window hidden or show console if already started
!         progreg-init
          KeysOn: cmd
  \        z" Win32Forth> " SetPrompt: cmd
--- 242,246 ----
  
  : c_Init-Console ( -- f )   \ start the Console window hidden or show console if already started
! \        progreg-init
          KeysOn: cmd
  \        z" Win32Forth> " SetPrompt: cmd
***************
*** 251,254 ****
--- 252,258 ----
          c_Init-Console drop
          SW_NORMAL Show: ConsoleWindow
+         Update: cmd
+         UpdateVScroll: cmd
+         UpdateHScroll: cmd
          Update: ConsoleWindow
          SetFocus: ConsoleWindow