From eec403d28191716b92559dfbad10b99abc899e1d Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Wed, 21 May 2008 01:36:15 -0500
Subject: [PATCH] Fix write-gadget on style stream

---
 extra/ui/gadgets/panes/panes.factor | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/extra/ui/gadgets/panes/panes.factor b/extra/ui/gadgets/panes/panes.factor
index 960c34118a..2b83e7db71 100755
--- a/extra/ui/gadgets/panes/panes.factor
+++ b/extra/ui/gadgets/panes/panes.factor
@@ -9,7 +9,7 @@ quotations math opengl combinators math.vectors
 sorting splitting io.streams.nested assocs
 ui.gadgets.presentations ui.gadgets.slots ui.gadgets.grids
 ui.gadgets.grid-lines classes.tuple models continuations
-destructors ;
+destructors accessors ;
 IN: ui.gadgets.panes
 
 TUPLE: pane output current prototype scrolls?
@@ -114,6 +114,9 @@ GENERIC: write-gadget ( gadget stream -- )
 M: pane-stream write-gadget
     pane-stream-pane pane-current add-gadget ;
 
+M: style-stream write-gadget
+    stream>> write-gadget ;
+
 : print-gadget ( gadget stream -- )
     tuck write-gadget stream-nl ;