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
|
