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

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

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

Modified Files:
	CommandWindow.f 
Log Message:
Rod: fixed bug in cls: initial ScrollRange was wrong, added SCP in OverwriteTextAtXY: , improved CR:

Index: CommandWindow.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/console/CommandWindow.f,v
retrieving revision 1.28
retrieving revision 1.29
diff -C2 -d -r1.28 -r1.29
*** CommandWindow.f	19 May 2009 18:20:24 -0000	1.28
--- CommandWindow.f	29 May 2009 11:30:57 -0000	1.29
***************
*** 67,70 ****
--- 67,71 ----
  
  int Editing
+ :M SetEditing: ( f -- )   to editing ;M
  int #chars   \ number of characters on command line
  int CommandStart   \ column after prompt
***************
*** 403,407 ****
          CaretHeight CaretWidth 0 hWnd call CreateCaret drop
          CaretPos.top CaretPos.left call SetCaretPos drop
!         ShowCaret: self
          true to cursor-on?
          ;M
--- 404,408 ----
          CaretHeight CaretWidth 0 hWnd call CreateCaret drop
          CaretPos.top CaretPos.left call SetCaretPos drop
!         Editing IF  ShowCaret: self  THEN
          true to cursor-on?
          ;M
***************
*** 758,765 ****
          Y UpdateLine: self
          2 +to XYA
          0 to X  1 +to Y
          DeleteLine: self   \ no need to update this
!         1 +to lines
!         ScrollRange 12 + @ VertLine + ScrollRange 12 + !
          scp
          AutoScroll: self
--- 759,768 ----
          Y UpdateLine: self
          2 +to XYA
+         Y lines = IF  1 +to lines  THEN
          0 to X  1 +to Y
          DeleteLine: self   \ no need to update this
! \        1 +to lines
! \        ScrollRange 12 + @ VertLine + ScrollRange 12 + !
!         VertLine ScrollRange 12 + +!
          scp
          AutoScroll: self
***************
*** 778,781 ****
--- 781,785 ----
          WHILE  CR: self  /string  1 /string 10 skip
          REPEAT  3drop
+         SCP
          ;M
  
***************
*** 808,812 ****
          0 to FirstRow
          UpdateScrollPosRel
!         EraseRect: ScrollRange
          Redraw: self
          ;M
--- 812,817 ----
          0 to FirstRow
          UpdateScrollPosRel
!         0 0 0 VertLine SetRect: ScrollRange
! \        EraseRect: ScrollRange
          Redraw: self
          ;M