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
|
