A+b now focuses the search field

2009-03-25 10:12:10 -05:00 · 2009-03-25 10:12:10 -05:00 · be9d8ffd02
parent 9b8dd01c0b
commit be9d8ffd02
1 changed files with 1 additions and 1 deletions
--- a/basis/ui/tools/browser/browser.factor
+++ b/basis/ui/tools/browser/browser.factor
@ -89,7 +89,7 @@ M: browser-gadget focusable-child* search-field>> ;

 : show-browser ( -- )
    [ browser-gadget? ] find-window
-    [ raise-window ] [ browser-window ] if* ;
+    [ [ raise-window ] [ request-focus ] bi ] [ browser-window ] if* ;

 \ show-browser H{ { +nullary+ t } } define-command