Simplified toolbar code

diff --git a/basis/ui/gadgets/toolbar/toolbar.factor b/basis/ui/gadgets/toolbar/toolbar.factor
index 5245b07a3ac6d95a389d63ae5b5d23fa1678bfd6..d4d41b65fa5320e19f74642cfa9252e4bed2049c 100644 (file)
--- a/basis/ui/gadgets/toolbar/toolbar.factor
+++ b/basis/ui/gadgets/toolbar/toolbar.factor
@@ -29,12 +29,13 @@ PRIVATE>
     gesture gesture>tooltip >>tooltip ; inline
 
 : <toolbar> ( target -- toolbar )
-    <shelf>
-        1 >>fill
+    horizontal <track>
+        0 >>fill
+        1/2 >>align
         { 5 5 } >>gap
         swap
         [ [ "toolbar" ] dip class-of get-command-at commands>> ]
-        [ '[ [ _ ] 2dip <toolbar-button> add-gadget ] ]
+        [ '[ [ _ ] 2dip <toolbar-button> f track-add ] ]
         bi assoc-each ;
 
 : format-toolbar ( toolbar -- toolbar )

diff --git a/basis/ui/tools/browser/browser.factor b/basis/ui/tools/browser/browser.factor
index ac98b0960762bf14d80367bbd4d7ca892a8d2f90..fd66420dd6d9d2421eef2d0da17cb67122524fb7 100644 (file)
--- a/basis/ui/tools/browser/browser.factor
+++ b/basis/ui/tools/browser/browser.factor
@@ -75,16 +75,10 @@ M: browser-gadget set-history-value
         white-interior ;
 
 : add-spacer ( track -- track )
-    <pile> { 10 0 } <border> f track-add ;
+    <pile> 1/4 track-add ;
 
 : <browser-toolbar> ( browser -- toolbar )
-    horizontal <track>
-        0 >>fill
-        1/2 >>align
-        { 5 5 } >>gap
-        over <toolbar> f track-add
-        add-spacer
-        swap search-field>> "Search" label-on-left 1 track-add ;
+    [ <toolbar> add-spacer ] [ search-field>> "Search" label-on-left 1 track-add ] bi ;
 
 : add-browser-toolbar ( track -- track )
     dup <browser-toolbar> format-toolbar f track-add ;

diff --git a/basis/ui/tools/error-list/error-list.factor b/basis/ui/tools/error-list/error-list.factor
index dfb00c9564686ae1517e2f8ef6a6bef2190847d6..be6ca5585ecc56eb79beca0867501b917e3d16d1 100644 (file)
--- a/basis/ui/tools/error-list/error-list.factor
+++ b/basis/ui/tools/error-list/error-list.factor
@@ -149,7 +149,7 @@ error-display "toolbar" f {
 } define-command-map
 
 : <error-list-toolbar> ( error-list -- toolbar )
-    [ <toolbar> ] [ error-toggle>> "Show errors:" label-on-left add-gadget ] bi
+    [ <toolbar> ] [ error-toggle>> "Show errors:" label-on-left f track-add ] bi
     format-toolbar ;
 
 : <error-model> ( visible-errors model -- model' )
@@ -173,7 +173,7 @@ error-display "toolbar" f {
         "Errors" errors-color <labeled> 1/4 track-add
         error-list error-display>>
         "Details" details-color <labeled> 1/2 track-add
-        1 track-add ;
+    1 track-add ;
 
 M: error-list-gadget focusable-child*
     source-file-table>> ;