diff options
| -rwxr-xr-x | src/ivymon | 27 |
1 files changed, 13 insertions, 14 deletions
@@ -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 ); |