From d1330f543c6088ba34b1670ca96ce20559e4c615 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 27 Jul 2008 14:44:12 +0000 Subject: [PATCH] return now goes to the next hit, when keyboard focus is in the search bar svn: r10935 --- collects/framework/private/frame.ss | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/collects/framework/private/frame.ss b/collects/framework/private/frame.ss index 8a23ad2f07..9902759178 100644 --- a/collects/framework/private/frame.ss +++ b/collects/framework/private/frame.ss @@ -1895,6 +1895,11 @@ (set-styles-fixed #t))) (define search/replace-keymap (new keymap%)) +(send search/replace-keymap map-function "return" "find") +(send search/replace-keymap add-function "find" + (λ (text evt) + (send (send text get-top-level-window) search 'forward))) + (send search/replace-keymap map-function "esc" "hide-search") (send search/replace-keymap add-function "hide-search" (λ (text evt)