[Win32forth-cvs] win32forth/src/console CommandWindow.f,1.27,1.28

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

Update of /cvsroot/win32forth/win32forth/src/console
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv25021/src/console

Modified Files:
	CommandWindow.f 
Log Message:
Rod: KeysOn flag is now off all the time unless the commandline is being edited.  AutoScroll removed from GoToXY.  Mouse clicks ignored unless the commandline is being edited - this also caused crashes in taskdemo.f while the tasks were running.

Index: CommandWindow.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/console/CommandWindow.f,v
retrieving revision 1.27
retrieving revision 1.28
diff -C2 -d -r1.27 -r1.28
*** CommandWindow.f	15 May 2009 18:38:37 -0000	1.27
--- CommandWindow.f	19 May 2009 18:20:24 -0000	1.28
***************
*** 641,644 ****
--- 641,645 ----
  
  : On_Track ( h m -- h m )
+         KeysOn not ?exit
          MouseX MouseY GetColRow
          2dup BeforeCommandLine StartBeforeCommandLine and >r
***************
*** 667,670 ****
--- 668,672 ----
  
  : On_Click ( h m w -- h m w )
+         KeysOn not ?exit
          MK_SHIFT and
          IF  On_Track
***************
*** 676,680 ****
          ;
  
! : On_Unclick ( h m w -- h m w )   Call ReleaseCapture drop ;
  
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
--- 678,684 ----
          ;
  
! : On_Unclick ( h m w -- h m w )
!         KeysOn not ?exit
!         Call ReleaseCapture drop ;
  
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
***************
*** 792,796 ****
          UpdateScrollRange: self
          scp
!         AutoScroll: self
          XYAddress to XYA
          ;M
--- 796,800 ----
          UpdateScrollRange: self
          scp
! \        AutoScroll: self   ( best not to scroll every time GOTOXY is used )
          XYAddress to XYA
          ;M
***************
*** 823,827 ****
  
  : On_DblClick  ( h m w -- h m w )   \ insert double-clicked word in commandline
!         ?shift ?exit
          SelStartCol SelStartRow OnCommandLine ?exit
          SelStartCol SelStartRow RowAddress +
--- 827,831 ----
  
  : On_DblClick  ( h m w -- h m w )   \ insert double-clicked word in commandline
!         KeysOn not  ?shift or  ?exit
          SelStartCol SelStartRow OnCommandLine ?exit
          SelStartCol SelStartRow RowAddress +
***************
*** 952,955 ****
--- 956,960 ----
          ShowCaret: self   \ does no harm but prevents loss of caret with lengthy text in buffer
          InitHistory
+         KeysOn: self   \ KeysOn only during prompt
          ;M
  
***************
*** 960,963 ****
--- 965,969 ----
          XYAddress to XYA
          false to editing
+         KeysOff: self   \ KeysOff when not editing commandline
          ExecuteCommand
  \        -1 to CommandStart