Clicks in the pane don't scroll anymore

2007-10-11 18:22:24 -04:00 · 2007-10-11 18:22:24 -04:00 · c5f760da65
parent f7d8e204e7
commit c5f760da65
1 changed files with 1 additions and 1 deletions
--- a/extra/ui/gadgets/panes/panes.factor
+++ b/extra/ui/gadgets/panes/panes.factor
@ -353,7 +353,6 @@ M: f sloppy-pick-up*
 : move-caret ( pane -- )
    dup hand-rel
    over sloppy-pick-up
-    2dup gadget-at-path scroll>gadget
    over set-pane-caret
    relayout-1 ;

@ -372,6 +371,7 @@ M: f sloppy-pick-up*
                dup caret>mark
            ] when
        ] if
+        dup dup pane-caret gadget-at-path scroll>gadget
    ] when drop ;

 : end-selection ( pane -- )