Update of /cvsroot/win32forth/win32forth/src/console
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv4456/src/console
Modified Files:
LINEEDIT.F
Log Message:
Changed APPLICATION to reset the Console I/O after creating the EXE-File.
Index: LINEEDIT.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/console/LINEEDIT.F,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** LINEEDIT.F 26 Feb 2006 08:15:40 -0000 1.6
--- LINEEDIT.F 24 Sep 2006 08:18:24 -0000 1.7
***************
*** 98,104 ****
MAXCOUNTED constant maxedit
! create editbuf MAXSTRING allot \ our edit buffer,
! editbuf off \ 255 characters max
! 0 value editpos \ current edit position in buffer
: _legetxy ( --- x ~y ) \ Negative y indicates buffer coordinates
--- 98,104 ----
MAXCOUNTED constant maxedit
! create editbuf MAXSTRING 2 + allot \ our edit buffer,
! editbuf off \ 255 characters max
! 0 value editpos \ current edit position in buffer
: _legetxy ( --- x ~y ) \ Negative y indicates buffer coordinates
|
