From 4daa358f40443514d03ffda73669978ac4dc4ede Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Sun, 13 Jul 2008 23:59:32 -0500
Subject: [PATCH] ui.tools.walker: Rewrite to remove 'g'

---
 extra/ui/tools/walker/walker.factor | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/extra/ui/tools/walker/walker.factor b/extra/ui/tools/walker/walker.factor
index 3588b44644..e5141fb844 100755
--- a/extra/ui/tools/walker/walker.factor
+++ b/extra/ui/tools/walker/walker.factor
@@ -61,12 +61,11 @@ M: walker-gadget focusable-child*
         swap >>continuation
         swap >>status
         dup continuation>> <traceback-gadget> >>traceback
-    [
-        toolbar,
-        g status>> self <thread-status> f track,
-        g traceback>> 1 track,
-    ] make-gadget ;
 
+        dup <toolbar>                     f track-add*
+        dup status>> self <thread-status> f track-add*
+        dup traceback>>                   1 track-add* ;
+    
 : walker-help ( -- ) "ui-walker" help-window ;
 
 \ walker-help H{ { +nullary+ t } } define-command