From f48efe054070b71d85764dbfd99f2505889961c1 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Mon, 14 Jul 2008 00:06:15 -0500
Subject: [PATCH] ui.tools.browser: Refactor to not use 'g' and 'g->'

---
 extra/ui/tools/browser/browser.factor | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/extra/ui/tools/browser/browser.factor b/extra/ui/tools/browser/browser.factor
index 421ffdbaaf..ee427625f5 100755
--- a/extra/ui/tools/browser/browser.factor
+++ b/extra/ui/tools/browser/browser.factor
@@ -20,13 +20,11 @@ TUPLE: browser-gadget < track pane history ;
     "handbook" >link <history> >>history drop ;
 
 : <browser-gadget> ( -- gadget )
-    { 0 1 } browser-gadget new-track
+  { 0 1 } browser-gadget new-track
     dup init-history
-    [
-        toolbar,
-        g <help-pane> g-> set-browser-gadget-pane
-        <scroller> 1 track,
-    ] make-gadget ;
+    dup <toolbar> f track-add*
+    dup <help-pane> >>pane
+    dup pane>> <scroller> 1 track-add* ;
 
 M: browser-gadget call-tool* show-help ;