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
|
