[Win32forth-cvs] win32forth/src/console NewConsole.f,1.8,1.9

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

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

Modified Files:
	NewConsole.f 
Log Message:
Rod: fixed problems with caret in WinEd - the new console was setting the caret position even when it was hidden.  Also some changes for KeySave to work.

Index: NewConsole.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/console/NewConsole.f,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** NewConsole.f	25 Jul 2008 04:03:32 -0000	1.8
--- NewConsole.f	4 Aug 2008 09:05:07 -0000	1.9
***************
*** 52,55 ****
--- 52,56 ----
  
  : SaveWindowSettings ( -- )
+         PROGREG-INIT
          StartPos: self   s" WindowTop"    SetRegValue  s" WindowLeft"  SetRegValue
          StartSize: self  s" WindowHeight" SetRegValue  s" WindowWidth" SetRegValue
***************
*** 242,246 ****
          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>
          ;
--- 243,249 ----
          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
!         BEGIN  cmd.VirtualKey ?dup IF  HandleChar: cmd  0 SetVirtualKey: cmd
! ELSE  KeyBufferEmpty: cmd IF  call WaitMessage drop  ELSE  GetKey: cmd  HandleChar: cmd  THEN THEN PauseForMessages  entered UNTIL
          EnteredString >r swap r@ move r>
          ;
***************
*** 371,374 ****
--- 374,380 ----
              'P' +k_control   of  print-screen  endof
              'D' +k_control   of  ChdirDlg      endof
+ \            'M' +k_control +k_shift    of  replay-macro      endof
+ \            'R' +k_control +k_shift    of  CONHNDL repeat-amacro      endof
+ \            'S' +k_control +k_shift    of  start/stop-macro      endof
              ( default )  \ swap drop
          EndCase
***************
*** 388,392 ****
          ;   is HandleKeyDown
  
! : New-default-hello ( -- )                          \ startup stuff
                  initialization-chain do-chain
                  exception@ if bye then
--- 394,400 ----
          ;   is HandleKeyDown
  
! \ ' menukey-more is LogKeyStrokes
! 
! : New-default-hello ( -- )                          \ for turnkey
                  initialization-chain do-chain
                  exception@ if bye then
***************
*** 397,400 ****
--- 405,410 ----
  ' New-default-hello is default-hello
  
+ MODULE
+