Revert "ui.gadgets.panes: only scroll down when we are at the bottom."

This reverts commit 4781ef205cc8d1da91aebcbe3543eaa78c31b217.

diff --git a/basis/ui/gadgets/panes/panes.factor b/basis/ui/gadgets/panes/panes.factor
index 8f92ecd02afc84bdc76423c94ad6d7d12d6b1741..e2cf8b43144b6092ae3c614d890d63f55d5b41ba 100644 (file)
--- a/basis/ui/gadgets/panes/panes.factor
+++ b/basis/ui/gadgets/panes/panes.factor
@@ -1,10 +1,9 @@
 ! Copyright (C) 2005, 2010 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors assocs classes combinators
-combinators.short-circuit destructors documents.private fonts io
-io.styles kernel math math.rectangles math.vectors models
-namespaces sequences sets sorting splitting strings
-ui.baseline-alignment ui.clipboards ui.gadgets
+USING: accessors assocs classes combinators destructors
+documents.private fonts io io.styles kernel math math.rectangles
+math.vectors models namespaces sequences sets sorting splitting
+strings ui.baseline-alignment ui.clipboards ui.gadgets
 ui.gadgets.borders ui.gadgets.grid-lines ui.gadgets.grids
 ui.gadgets.icons ui.gadgets.incremental ui.gadgets.labels
 ui.gadgets.menus ui.gadgets.packs ui.gadgets.paragraphs
@@ -87,9 +86,6 @@ M: pane selected-children
 : scroll-pane ( pane -- )
     dup scrolls?>> [ scroll>bottom ] [ drop ] if ;
 
-M: pane handle-gesture
-    over key-gesture? [ dup scroll-pane ] when call-next-method ;
-
 : smash-line ( current -- gadget )
     dup children>> {
         { [ dup empty? ] [ 2drop "" <label> ] }
@@ -120,16 +116,8 @@ GENERIC: pane-line ( str style gadget -- )
 : pane-write1 ( char pane -- )
     [ 1string H{ } ] dip current>> pane-line ;
 
-: pane-scrolls? ( pane -- ? )
-    dup scrolls?>> [
-        find-scroller control-value [
-            second first4 nip [ + ] [ >= ] bi*
-        ] [ f ] if*
-    ] [ drop f ] if ;
-
 : do-pane-stream ( pane-stream quot -- )
-    [ pane>> ] dip dup pane-scrolls? [ keep ] dip
-    [ scroll>bottom ] [ drop ] if ; inline
+    [ pane>> ] dip keep scroll-pane ; inline
 
 M: pane-stream stream-nl
     [ pane-nl ] do-pane-stream ;