[Win32forth-cvs] win32forth/src/console CommandWindow.f,1.30,1.31

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

Update of /cvsroot/win32forth/win32forth/src/console
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv8082

Modified Files:
	CommandWindow.f 
Log Message:
Rod:  a character was lost when the text wraps at the edge of the console window.  Fixed.

Index: CommandWindow.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/console/CommandWindow.f,v
retrieving revision 1.30
retrieving revision 1.31
diff -C2 -d -r1.30 -r1.31
*** CommandWindow.f	17 Jan 2012 19:50:41 -0000	1.30
--- CommandWindow.f	24 Dec 2012 16:16:45 -0000	1.31
***************
*** 776,784 ****
  : AdjustCount ( n -- n )   wrap IF  wrap 0< IF  VisibleCols: self  ELSE  wrap  THEN  X - min 0 max  THEN ;
  
! :M OverwriteTextAtXY: ( a n -- )
!         dup CheckTextBuffer   \ one line at a time
!         BEGIN 10 skip dup>r  2dup 2dup 13 scan nip -  AdjustCount
!         dup>r  OverwriteLineAtXY: self  r@ 2r> -   \ chars inserted, chars remaining
!         WHILE  CR: self  /string  1 /string
          REPEAT  3drop
          SCP
--- 776,784 ----
  : AdjustCount ( n -- n )   wrap IF  wrap 0< IF  VisibleCols: self  ELSE  wrap  THEN  X - min 0 max  THEN ;
  
! :M OverwriteTextAtXY: ( a n -- )   \ one line at a time
!         dup CheckTextBuffer
!         BEGIN  10 skip  dup>r  2dup 2dup 13 scan nip -  AdjustCount
!             dup>r  OverwriteLineAtXY: self  r@ 2r> -   \ chars inserted, chars remaining
!         WHILE  CR: self  /string  13 skip
          REPEAT  3drop
          SCP