From e48e66e93a52dcbe04ba7b14204d6c0c477fdcda Mon Sep 17 00:00:00 2001 From: freesource Date: Tue, 28 Aug 2001 20:40:15 +0000 Subject: [PATCH] This finishes search backwards for both Esc && Return .. all that is left is issuing an error when nothing is found and search ne undef. --- BootRoot/YardBox.pm | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) diff --git a/BootRoot/YardBox.pm b/BootRoot/YardBox.pm index 0229896..891d10d 100644 --- a/BootRoot/YardBox.pm +++ b/BootRoot/YardBox.pm @@ -1259,9 +1259,20 @@ sub search { } else { + $offset = ""; + my $tmp_offset; + if (!$case_sensitive->active) { + $tmp_offset = rindex($tmp_ct, $tmp_k); + } + else { + $tmp_offset = rindex($changed_text_from_template, + $keywords); + } question_window("Beginning of document reached; " . "continue from end?", - $search_window, $submit_b); + $search_window, $submit_b, + -1); + print "$offset && $tmp_offset TOO\n"; } } @@ -1339,6 +1350,7 @@ sub search { } $old_keywords = $keywords; + print "$offset\n"; } );