[Win32forth-cvs] win32forth/src/console CommandWindow.f, 1.10, 1.11 NewConsole.f, 1.13, 1.14

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

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