ui.tools: adding a "Browse New" command

diff --git a/basis/ui/tools/browser/browser.factor b/basis/ui/tools/browser/browser.factor
index 3fc257f53c1e7a1c58fd15cc58508d442c4ab1ba..4b07bf020f8042cfb9b4788745fcb204c385f887 100644 (file)
--- a/basis/ui/tools/browser/browser.factor
+++ b/basis/ui/tools/browser/browser.factor
@@ -147,27 +147,27 @@ M: browser-gadget definitions-changed
 
 M: browser-gadget focusable-child* search-field>> ;
 
-: (browser-window) ( topic -- )
+: com-browse-new ( topic -- )
     <browser-gadget>
     <world-attributes>
         "Browser" >>title
     open-status-window ;
 
 : browser-window ( -- )
-    "help.home" (browser-window) ;
+    "help.home" com-browse-new ;
 
 : error-help-window ( error -- )
     {
         [ error-help ]
         [ dup tuple? [ class-of ] [ drop "errors" ] if ]
-    } 1|| (browser-window) ;
+    } 1|| com-browse-new ;
 
 \ browser-window H{ { +nullary+ t } } define-command
 
 : com-browse ( link -- )
     [ browser-gadget? ] find-window
     [ [ raise-window ] [ gadget-child show-help ] bi ]
-    [ (browser-window) ] if* ;
+    [ com-browse-new ] if* ;
 
 : show-browser ( -- )
     [ browser-gadget? ] find-window

diff --git a/basis/ui/tools/operations/operations.factor b/basis/ui/tools/operations/operations.factor
index caf5c547accd7336f48c653e06ac82e6af3432e9..2c3961ff941b48a5ad63b7c22b0b89b75c20e145 100644 (file)
--- a/basis/ui/tools/operations/operations.factor
+++ b/basis/ui/tools/operations/operations.factor
@@ -109,6 +109,8 @@ IN: ui.tools.operations
     { +primary+ t }
 } define-operation
 
+[ topic? ] \ com-browse-new H{ } define-operation
+
 [ word? ] \ usage. H{
     { +keyboard+ T{ key-down f { C+ } "u" } }
     { +listener+ t }