From 07881295c535c17429c714dea54de565d648c413 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Mon, 14 Jul 2008 17:16:51 -0500
Subject: [PATCH] ui.gadgets.slots: rewrite <slot-editor>

---
 extra/ui/gadgets/slots/slots.factor | 14 ++++++--------
 1 file changed, 6 insertions(+), 8 deletions(-)

diff --git a/extra/ui/gadgets/slots/slots.factor b/extra/ui/gadgets/slots/slots.factor
index 2c2831a2ee..7d488c727b 100755
--- a/extra/ui/gadgets/slots/slots.factor
+++ b/extra/ui/gadgets/slots/slots.factor
@@ -69,15 +69,13 @@ M: value-ref finish-editing
 } define-command
 
 : <slot-editor> ( ref -- gadget )
-    { 0 1 } slot-editor new-track
-        swap >>ref
-    [
-        toolbar,
-        <source-editor> g-> set-slot-editor-text
-        <scroller> 1 track,
-    ] make-gadget
+  { 0 1 } slot-editor new-track
+    swap >>ref
+    dup <toolbar> f track-add*
+    <source-editor> >>text
+    dup text>> <scroller> 1 track-add*
     dup revert ;
-
+    
 M: slot-editor pref-dim* call-next-method { 600 200 } vmin ;
 
 M: slot-editor focusable-child* text>> ;