[Win32forth-cvs] win32forth/src/lib ScintillaControl.f,1.5,1.6

[Ezra B. <ezr...@us...>]

Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv20078/src/lib

Modified Files:
	ScintillaControl.f 
Log Message:
Bug fixes to allow Search and Replace to work. EAB

Index: ScintillaControl.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/ScintillaControl.f,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** ScintillaControl.f	11 Jun 2006 07:37:27 -0000	1.5
--- ScintillaControl.f	15 Apr 2007 03:30:53 -0000	1.6
***************
*** 964,968 ****
  
  :M GetTargetStart:  ( -- pos )
!                 0 0 SCI_GETTARGETSTART SendMessage:Self drop ;M
  
  :M SetTargetEnd:  ( pos -- )
--- 964,968 ----
  
  :M GetTargetStart:  ( -- pos )
!                 0 0 SCI_GETTARGETSTART SendMessage:Self  ;M
  
  :M SetTargetEnd:  ( pos -- )
***************
*** 970,974 ****
  
  :M GetTargetEnd:  ( -- pos )
!                 0 0 SCI_GETTARGETEND SendMessage:Self drop ;M
  
  \ Set the target start and end to the start and end positions of the selection.
--- 970,974 ----
  
  :M GetTargetEnd:  ( -- pos )
!                 0 0 SCI_GETTARGETEND SendMessage:Self  ;M
  
  \ Set the target start and end to the start and end positions of the selection.
***************
*** 979,986 ****
  \ option flags including a simple regular expression search.
  :M SetSearchFlags:  ( Flags -- )
!                 0 SCI_SETSEARCHFLAGS SendMessage:Self drop ;M
  
  :M GetSearchFlags:  ( -- Flags  )
!                 0 0 SCI_GETSEARCHFLAGS SendMessage:Self drop ;M
  
  \ This searches for the first occurrence of a text string in the target defined
--- 979,986 ----
  \ option flags including a simple regular expression search.
  :M SetSearchFlags:  ( Flags -- )
!                 0 swap SCI_SETSEARCHFLAGS SendMessage:Self drop ;M
  
  :M GetSearchFlags:  ( -- Flags  )
!                 0 0 SCI_GETSEARCHFLAGS SendMessage:Self  ;M
  
  \ This searches for the first occurrence of a text string in the target defined
***************
*** 991,995 ****
  \ search fails, the result is -1.
  :M SearchInTarget:  ( addr len -- n )
!                 swap SCI_SEARCHINTARGET SendMessage:Self ;M
  
  \ If length is -1, text is a zero terminated string, otherwise length sets the
--- 991,995 ----
  \ search fails, the result is -1.
  :M SearchInTarget:  ( addr len -- n )
!                  SCI_SEARCHINTARGET SendMessage:Self ;M
  
  \ If length is -1, text is a zero terminated string, otherwise length sets the