Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18856/src/lib
Modified Files:
ScintillaControl.f ScintillaEdit.f
Log Message:
SciEdit - New options "Remove trailing white space" and "Ensure final line ending", and some bugfixes
Index: ScintillaEdit.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/ScintillaEdit.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** ScintillaEdit.f 21 Aug 2005 06:22:01 -0000 1.3
--- ScintillaEdit.f 31 Aug 2005 17:03:19 -0000 1.4
***************
*** 116,119 ****
--- 116,125 ----
GetBuffer: EditFile GetText: self
+ \ 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)
+ GetLength: EditFile 1- SetLength: EditFile
+
\ save the text to the file
SaveFile: EditFile
***************
*** 125,132 ****
:M SaveFileAs: ( -- ) \ save the file under a new name
GetSaveFilename ?dup
! if SetFileName: self
! SaveText
! else drop
! then ;M
: CreateBackup { \ from$ to$ -- } \ create a Backup of the active file (*.BAK)
--- 131,138 ----
:M SaveFileAs: ( -- ) \ save the file under a new name
GetSaveFilename ?dup
! if SetFileName: self
! SaveText
! else drop
! then ;M
: CreateBackup { \ from$ to$ -- } \ create a Backup of the active file (*.BAK)
Index: ScintillaControl.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/ScintillaControl.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** ScintillaControl.f 21 Dec 2004 00:19:10 -0000 1.1
--- ScintillaControl.f 31 Aug 2005 17:03:19 -0000 1.2
***************
*** 970,974 ****
\ is also set by a successful SearchInTarget:.
:M SetTargetStart: ( pos -- )
! 0 SCI_SETTARGETSTART SendMessage:Self drop ;M
:M GetTargetStart: ( -- pos )
--- 970,974 ----
\ is also set by a successful SearchInTarget:.
:M SetTargetStart: ( pos -- )
! 0 swap SCI_SETTARGETSTART SendMessage:Self drop ;M
:M GetTargetStart: ( -- pos )
***************
*** 976,980 ****
:M SetTargetEnd: ( pos -- )
! 0 SCI_SETTARGETEND SendMessage:Self drop ;M
:M GetTargetEnd: ( -- pos )
--- 976,980 ----
:M SetTargetEnd: ( pos -- )
! 0 swap SCI_SETTARGETEND SendMessage:Self drop ;M
:M GetTargetEnd: ( -- pos )
***************
*** 1009,1013 ****
\ string.
:M ReplaceTarget: ( addr len -- n )
! swap SCI_REPLACETARGET SendMessage:Self ;M
\ This replaces the target using regular expressions. If length is -1, text is
--- 1009,1013 ----
\ string.
:M ReplaceTarget: ( addr len -- n )
! SCI_REPLACETARGET SendMessage:Self ;M
\ This replaces the target using regular expressions. If length is -1, text is
***************
*** 1936,1938 ****
MODULE
- |
