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
+
|
