ui.gadgets.panes: make sure walker scrolls to the bottom

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