diff options
| author | vincentdarley <vincentdarley> | 2004-09-23 14:56:35 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley> | 2004-09-23 14:56:35 (GMT) |
| commit | ff49febdf99cde8f07bc81a9e5ad5cc8810c8b1f (patch) | |
| tree | 988d0d18dbc1fa77612fcdb7e3ca8fb110c77785 /generic/tkText.c | |
| parent | 1709b7b141a400dba7c70616c6a6d46cb0ceaea0 (diff) | |
| download | tk-ff49febdf99cde8f07bc81a9e5ad5cc8810c8b1f.zip tk-ff49febdf99cde8f07bc81a9e5ad5cc8810c8b1f.tar.gz tk-ff49febdf99cde8f07bc81a9e5ad5cc8810c8b1f.tar.bz2 | |
text widget search fix
Diffstat (limited to 'generic/tkText.c')
| -rw-r--r-- | generic/tkText.c | 21 |
1 files changed, 20 insertions, 1 deletions
diff --git a/generic/tkText.c b/generic/tkText.c index f8a1abd..eb7beb7 100644 --- a/generic/tkText.c +++ b/generic/tkText.c @@ -14,7 +14,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkText.c,v 1.53 2004/09/10 13:42:45 rmax Exp $ + * RCS: @(#) $Id: tkText.c,v 1.54 2004/09/23 14:57:03 vincentdarley Exp $ */ #include "default.h" @@ -4923,6 +4923,25 @@ SearchPerform(interp, searchSpecPtr, patObj, fromPtr, toPtr) * Find the optional end location, similarly. */ if (toPtr != NULL) { + CONST TkTextIndex *indexToPtr, *indexFromPtr; + TkText *textPtr = (TkText*)(searchSpecPtr->clientData); + + indexToPtr = TkTextGetIndexFromObj(interp, textPtr, toPtr); + if (indexToPtr == NULL) { + return TCL_ERROR; + } + indexFromPtr = TkTextGetIndexFromObj(interp, textPtr, fromPtr); + /* + * Check for any empty search range here. It might be better + * in the future to embed that in SearchCore (whose default + * behaviour is to wrap when given a negative search range). + */ + if (searchSpecPtr->backwards) { + if (TkTextIndexCmp(indexFromPtr, indexToPtr) == -1) return TCL_OK; + } else { + if (TkTextIndexCmp(indexFromPtr, indexToPtr) == 1) return TCL_OK; + } + if ((*searchSpecPtr->lineIndexProc)(interp, toPtr, searchSpecPtr, &searchSpecPtr->stopLine, &searchSpecPtr->stopOffset) != TCL_OK) { |