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

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

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

Modified Files:
	Console2New.f NewConsole.f 
Log Message:
Rod: x_key and x_key? required for debug to work with the new console

Index: NewConsole.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/console/NewConsole.f,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** NewConsole.f	10 Aug 2008 01:38:11 -0000	1.11
--- NewConsole.f	11 Aug 2008 17:48:48 -0000	1.12
***************
*** 282,285 ****
--- 282,289 ----
          ;
  
+ \ required for debug
+ ' c_key? is x_key?
+ ' c_key is x_key
+ 
  : c_Init-Console ( -- f )   \ start the Console window hidden or show console if already started
  \        progreg-init
***************
*** 385,389 ****
              k_F1             of  F1-doc       endof
  \            k_F2             of  F2-help      endof
!             k_F12            of  LoadProject  endof
              ( default )  \ swap drop
          EndCase
--- 389,393 ----
              k_F1             of  F1-doc       endof
  \            k_F2             of  F2-help      endof
! \in-system-ok            k_F12            of  LoadProject  endof
              ( default )  \ swap drop
          EndCase

Index: Console2New.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/console/Console2New.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Console2New.f	18 Jul 2008 19:45:30 -0000	1.1
--- Console2New.f	11 Aug 2008 17:48:48 -0000	1.2
***************
*** 5,8 ****
--- 5,14 ----
  : forth-io ;
  : _mkey  key ;
+ \ required for debug
+ warning @
+ warning off
+ defer x_key
+ defer x_key?
+ warning !
  
  1 proc HideCaret