ui.tools.browser: using format-toolbar

diff --git a/basis/ui/gadgets/toolbar/toolbar.factor b/basis/ui/gadgets/toolbar/toolbar.factor
index 5f9b2f4454f870acb4bbca4e854a503d2568924e..968468777b35693a639a5c378a168d14784d81f3 100644 (file)
--- a/basis/ui/gadgets/toolbar/toolbar.factor
+++ b/basis/ui/gadgets/toolbar/toolbar.factor
@@ -18,7 +18,7 @@ IN: ui.gadgets.toolbar
 : format-toolbar ( toolbar -- toolbar )
     { 3 3 } <border> 
     toolbar-background <solid> >>interior
-    align-left ;
+    { 1 0 } >>fill ;
 
 : add-toolbar ( track -- track )
     dup <toolbar> format-toolbar f track-add ;

diff --git a/basis/ui/tools/browser/browser.factor b/basis/ui/tools/browser/browser.factor
index f4d7f46f0680d8688e51cd7537214e866cbae6d8..43e424bc3cfc81a2dd8be0b863de0dad59492c7f 100644 (file)
--- a/basis/ui/tools/browser/browser.factor
+++ b/basis/ui/tools/browser/browser.factor
@@ -67,9 +67,7 @@ M: browser-gadget set-history-value
         swap search-field>> "          Search" label-on-left 1 track-add ;
 
 : add-browser-toolbar ( track -- track )
-    dup <browser-toolbar> { 3 3 } <border>
-    toolbar-background <solid> >>interior { 1 0 } >>fill
-    f track-add ;
+    dup <browser-toolbar> format-toolbar f track-add ;
 
 : <browser-gadget> ( link -- gadget )
     vertical browser-gadget new-track with-lines