[Win32forth-cvs] win32forth/src/console LINEEDIT.F,1.2,1.3

[Dirk B. <db...@us...>]

Update of /cvsroot/win32forth/win32forth/src/console
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14360/src/console

Modified Files:
	LINEEDIT.F 
Log Message:
dbu: Fixed a bug in the Lineeditor. Sometimes the cursor was placed into a wrong line (thanks Andrew for reporting this).

Index: LINEEDIT.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/console/LINEEDIT.F,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** LINEEDIT.F	16 Jan 2005 13:09:05 -0000	1.2
--- LINEEDIT.F	23 Jan 2005 08:52:03 -0000	1.3
***************
*** 116,120 ****
  
  : lcalcy	( -- y ) \ calculate cursor y positon
! 		editpos COLS / ledit-y - ;
  
  \ rewritten for better line wraping
--- 116,121 ----
  
  : lcalcy	( -- y ) \ calculate cursor y positon
! 		editpos COLS / ledit-y - 
! 		getrowoff 0= if 1- then ;
  
  \ rewritten for better line wraping
***************
*** 421,426 ****
--- 422,429 ----
                          1 +accept#
                  then    true to accepted?
+ 
                  swap >r >r
                  _legetxy laccept-buf dup off r> lineeditor
+ 
                  if      laccept-buf count r@ swap move
                          laccept-buf c@ _legetxy nip _legotoxy