Mercurial Mercurial > hg > stx-libwidg / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
class: ListView
authorClaus Gittinger <cg@exept.de>
Sun, 06 Jul 2014 14:43:22 +0200
changeset 5096 2c222bef8f8e
parent 5095 a65fea7e7c4b
child 5097 2d0d83f6599d
class: ListView changed: #startAutoScrollDown: #startAutoScrollLeft: #startAutoScrollRight: #startAutoScrollUp: fixed selection by mouse motion in editField (select to end on mouse down, select from beginning on mouse up)
ListView.st file | annotate | diff | comparison | revisions 
--- a/ListView.st	Sun Jul 06 14:39:48 2014 +0200
+++ b/ListView.st	Sun Jul 06 14:43:22 2014 +0200
@@ -4266,11 +4266,13 @@
 
 startAutoScrollDown:yDistance
     "setup for auto-scroll down (when button-press-moving below view)
-     - timeDelta for scroll is computed from distance"
+     - timeDelta for scroll is computed from distance.
+     Return true, to tell caller that scrolling is allowed (redefined in editField)"
 
     self
-	startAutoScrollVertical:yDistance
-	scrollSelector:#scrollSelectDown
+        startAutoScrollVertical:yDistance
+        scrollSelector:#scrollSelectDown.
+    ^ true
 !
 
 startAutoScrollHorizontal:xDistance scrollSelector:scrollSelector
@@ -4298,8 +4300,9 @@
      - timeDelta for scroll is computed from distance"
 
     self
-	startAutoScrollHorizontal:xDistance negated
-	scrollSelector:#scrollSelectLeft
+        startAutoScrollHorizontal:xDistance negated
+        scrollSelector:#scrollSelectLeft.
+    ^ true
 !
 
 startAutoScrollRight:xDistance
@@ -4307,17 +4310,20 @@
      - timeDelta for scroll is computed from distance"
 
     self
-	startAutoScrollHorizontal:xDistance
-	scrollSelector:#scrollSelectRight
+        startAutoScrollHorizontal:xDistance
+        scrollSelector:#scrollSelectRight.
+    ^ true
 !
 
 startAutoScrollUp:yDistance
     "setup for auto-scroll up (when button-press-moving below view)
-     - timeDelta for scroll is computed from distance"
+     - timeDelta for scroll is computed from distance.
+     Return true, to tell caller that scrolling is allowed (redefined in editField)"
 
     self
-	startAutoScrollVertical:yDistance negated
-	scrollSelector:#scrollSelectUp
+        startAutoScrollVertical:yDistance negated
+        scrollSelector:#scrollSelectUp.
+    ^ true
 !
 
 startAutoScrollVertical:yDistance scrollSelector:scrollSelector
@@ -5301,10 +5307,10 @@
 !ListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.397 2014-07-03 16:36:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.398 2014-07-06 12:43:22 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.397 2014-07-03 16:36:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.398 2014-07-06 12:43:22 cg Exp $'
 ! !
hg/stx-libwidg