ui.gadgets.panes: scroll-pane so it respects the scrolls slot

diff --git a/basis/ui/gadgets/panes/panes.factor b/basis/ui/gadgets/panes/panes.factor
index 82176f4dd3220a3b525b6ac5c29926c801997b7d..b94a37438a30a03ae899cf58aa9f727688e12569 100644 (file)
--- a/basis/ui/gadgets/panes/panes.factor
+++ b/basis/ui/gadgets/panes/panes.factor
@@ -214,7 +214,7 @@ M: pane-stream write-gadget
     over [
         [ [ scroll>top ] [ clear-pane ] [ <pane-stream> ] tri ] dip
         with-output-stream*
-    ] dip scroll>bottom ; inline
+    ] dip scroll-pane ; inline
 
 : make-pane ( quot -- gadget )
     [ <pane> ] dip '[ _ with-pane ] keep smash-pane ; inline