From b0870bc55ad64f608d3e03c0cf5e0695bc03ee7e Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Mon, 14 Jul 2008 17:04:36 -0500
Subject: [PATCH] ui.tools.inspector: rewrite <inspector-gadget>

---
 extra/ui/tools/inspector/inspector.factor | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/extra/ui/tools/inspector/inspector.factor b/extra/ui/tools/inspector/inspector.factor
index 1d17de7237..8c92567fe5 100644
--- a/extra/ui/tools/inspector/inspector.factor
+++ b/extra/ui/tools/inspector/inspector.factor
@@ -16,12 +16,11 @@ TUPLE: inspector-gadget < track object pane ;
     ] with-pane ;
 
 : <inspector-gadget> ( -- gadget )
-    { 0 1 } inspector-gadget new-track
-    [
-        toolbar,
-        <pane> g-> set-inspector-gadget-pane <scroller> 1 track,
-    ] make-gadget ;
-
+  { 0 1 } inspector-gadget new-track
+    dup <toolbar> f track-add*
+    <pane> >>pane
+    dup pane>> <scroller> 1 track-add* ;
+    
 : inspect-object ( obj mirror keys inspector -- )
     2nip swap >>object refresh ;