From 7cfdb25a10dc9a21ad727f45a11e0502ffe0261c Mon Sep 17 00:00:00 2001
From: etienne
Date: Mon, 6 Sep 2004 08:13:45 +0000
Subject: created virtual evt for search interaction added Ctrl-f shortcut

---
 src/ivymon | 27 +++++++++++++--------------
 1 file changed, 13 insertions(+), 14 deletions(-)

(limited to 'src')

diff --git a/src/ivymon b/src/ivymon
index 5262a41..76132bb 100755
--- a/src/ivymon
+++ b/src/ivymon
@@ -593,18 +593,17 @@ my $searchEntry =
     $search_fm->Entry(-width => 24)->grid(-column => 1,
 					  -row => 1,
 					  -columnspan => 3);
-$searchEntry->bind('<Return>' => [\&searchNext, 1]);
-$searchEntry->bind('<Next>' => [\&searchNext, 1]);
-$searchEntry->bind('<Control-s>' => [\&searchNext, 1]);
-
-$searchEntry->bind('<Shift-Return>' => [\&searchPrev, 1]);
-$searchEntry->bind('<Prior>' => [\&searchPrev, 1]);
-$searchEntry->bind('<Control-r>' => [\&searchPrev, 1]);
-
-$searchEntry->bind('<Down>' => [\&searchNextExpression]);
-$searchEntry->bind('<Control-n>' => [\&searchNextExpression]);
-$searchEntry->bind('<Up>' => [\&searchPrevExpression]);
-$searchEntry->bind('<Control-p>' => [\&searchPrevExpression]);
+$searchEntry->eventAdd('<<SearchNext>>', '<Return>', '<Next>',
+		       '<Control-s>', '<Control-f>');
+$searchEntry->eventAdd('<<SearchPrev>>', '<Shift-Return>', '<Prior>',
+		       '<Control-r>');
+$searchEntry->eventAdd('<<SearchNextExpr>>', '<Down>', '<Control-n>');
+$searchEntry->eventAdd('<<SearchPrevExpr>>', '<Up>', '<Control-p>');
+
+$searchEntry->bind('<<SearchNext>>' => [\&searchNext, 1]);
+$searchEntry->bind('<<SearchPrev>' => [\&searchPrev, 1]);
+$searchEntry->bind('<<SearchNextExpr>>' => [\&searchNextExpression]);
+$searchEntry->bind('<<SearchPrevExpr>>' => [\&searchPrevExpression]);
 $searchEntry->bind('<Key>' => [\&searchOnTheFly]);
 
 my $checkbutt_fm =
@@ -802,8 +801,8 @@ $balloonhelp->attach($messagesText, -balloonmsg =>
 		     );
 $balloonhelp->attach($searchEntry, -balloonmsg =>
 		     "This input field is used to search expressions in \n".
-		     "messages list. Hit [Return] or [Control-s] key to \n".
-		     "search forward and [Shift-Return] or [Control-r]  \n".
+		     "messages list. Hit [Return], [Ctrl-s] or [Ctrl-f]\n".
+		     "key to search forward and [Shift-Return] or [Ctrl-r]\n".
 		     "key to search backward.                           \n".
 		     $historyText
 		     );
-- 
cgit v1.1