Update of /cvsroot/win32forth/win32forth/apps/SciEdit
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14027/apps/SciEdit
Modified Files:
ScintillaMDI.f
Log Message:
Removed some old debug code.
Index: ScintillaMDI.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/SciEdit/ScintillaMDI.f,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** ScintillaMDI.f 31 Aug 2005 17:03:19 -0000 1.4
--- ScintillaMDI.f 19 Sep 2005 15:32:36 -0000 1.5
***************
*** 292,299 ****
:M EnableStripTrailingSpaces: ( f -- )
! cr dup space to StripTrailingSpaces? ;M
:M EnableEnsureFinalNewLine: ( f -- )
! cr dup space to EnsureFinalNewLine? ;M
:M SetEOL: ( eolMode -- )
--- 292,299 ----
:M EnableStripTrailingSpaces: ( f -- )
! to StripTrailingSpaces? ;M
:M EnableEnsureFinalNewLine: ( f -- )
! to EnsureFinalNewLine? ;M
:M SetEOL: ( eolMode -- )
***************
*** 372,376 ****
: SaveText ( -- ) \ save the Text in the control to the file
! cr
StripTrailingSpaces? dup . space
if StripTrailingSpaces: self
--- 372,376 ----
: SaveText ( -- ) \ save the Text in the control to the file
!
StripTrailingSpaces? dup . space
if StripTrailingSpaces: self
***************
*** 387,391 ****
\ adjust the Text length in the EditFile because
! \ the Scintilla-Control returns on null byte at the
\ end of the Text. Thank's Ezra for telling me about this
\ bug (Freitag, August 19 2005 - dbu)
--- 387,391 ----
\ adjust the Text length in the EditFile because
! \ the Scintilla-Control returns a null byte at the
\ end of the Text. Thank's Ezra for telling me about this
\ bug (Freitag, August 19 2005 - dbu)
|
