[Win32forth-cvs] win32forth/src/lib ScintillaControl.f,1.1,1.2 ScintillaEdit.f,1.3,1.4

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

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
  
-