Update of /cvsroot/win32forth/win32forth/src/console
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv25596
Modified Files:
CommandWindow.f NewConsole.f
Log Message:
Rod: save key strokes during type, no scrolling when console minimized
Index: NewConsole.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/console/NewConsole.f,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** NewConsole.f 11 Aug 2008 18:52:13 -0000 1.13
--- NewConsole.f 12 Aug 2008 17:05:32 -0000 1.14
***************
*** 18,21 ****
--- 18,22 ----
int WindowState
+ :M WindowState: ( -- n ) WindowState ;M
int StatusbarHeight
***************
*** 221,227 ****
: c_type ( a n -- )
VisibleCols: cmd dup to w
cmd.X - to n1
! WrapText OverwriteTextAtXY: cmd PauseForMessages ;
\ : c_type ( a n -- ) OverwriteTextAtXY: cmd ;
--- 222,232 ----
: c_type ( a n -- )
+ KeysOff: cmd \ send key strokes to key buffer
VisibleCols: cmd dup to w
cmd.X - to n1
! WrapText OverwriteTextAtXY: cmd
! PauseForMessages
! KeysOn: cmd
! ;
\ : c_type ( a n -- ) OverwriteTextAtXY: cmd ;
Index: CommandWindow.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/console/CommandWindow.f,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** CommandWindow.f 11 Aug 2008 18:52:13 -0000 1.10
--- CommandWindow.f 12 Aug 2008 17:05:32 -0000 1.11
***************
*** 466,469 ****
--- 466,470 ----
:M AutoScroll: ( -- ) \ scroll caret into view
+ WindowState: parent SIZE_MINIMIZED = IF exitm THEN
BEGIN CaretPos @ width iRightMargin - > WHILE PauseForMessages HorzLine negate HScroll SCP REPEAT
BEGIN CaretPos @ iLeftMargin < WHILE HorzLine HScroll SCP REPEAT
***************
*** 1177,1180 ****
--- 1178,1182 ----
:M On_Size: ( h m w - h m w )
+ WindowState: parent SIZE_MINIMIZED = IF exitm THEN
ScrollPage GetClientRect: self
UpdateVScroll: self
|
