motion events enabled ( always)
authorca
Wed, 04 Jun 1997 15:35:47 +0200
changeset 1239 9e82e3b27d67
parent 1238 9d002bb1ae64
child 1240 1b3611a8e972
motion events enabled ( always)
SelListV.st
SelectionInListView.st
--- a/SelListV.st	Wed Jun 04 13:35:56 1997 +0200
+++ b/SelListV.st	Wed Jun 04 15:35:47 1997 +0200
@@ -1333,15 +1333,6 @@
 
     multipleSelectOk := aBoolean.
 
-
-"ca: \/  ????  \/
- default is enableButtonMotionEvents (!!!! drag !!!!)
-"
-    aBoolean ifTrue:[
-        self enableButtonMotionEvents
-    ] ifFalse:[
-        self disableButtonMotionEvents
-    ] 
 !
 
 toggleSelect:aBoolean
@@ -1876,6 +1867,7 @@
 
     (allowDrag and:[clickPosition notNil]) ifTrue:[     "mouse pressed but not released"
         (clickPosition dist:(x@y)) > 5.0 ifTrue:[
+
             ^ self startDragX:clickPosition x y:clickPosition y
         ].
         ^ self
@@ -3298,5 +3290,5 @@
 !SelectionInListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/SelListV.st,v 1.106 1997-06-04 11:23:34 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/SelListV.st,v 1.107 1997-06-04 13:35:47 ca Exp $'
 ! !
--- a/SelectionInListView.st	Wed Jun 04 13:35:56 1997 +0200
+++ b/SelectionInListView.st	Wed Jun 04 15:35:47 1997 +0200
@@ -1333,15 +1333,6 @@
 
     multipleSelectOk := aBoolean.
 
-
-"ca: \/  ????  \/
- default is enableButtonMotionEvents (!!!! drag !!!!)
-"
-    aBoolean ifTrue:[
-        self enableButtonMotionEvents
-    ] ifFalse:[
-        self disableButtonMotionEvents
-    ] 
 !
 
 toggleSelect:aBoolean
@@ -1876,6 +1867,7 @@
 
     (allowDrag and:[clickPosition notNil]) ifTrue:[     "mouse pressed but not released"
         (clickPosition dist:(x@y)) > 5.0 ifTrue:[
+
             ^ self startDragX:clickPosition x y:clickPosition y
         ].
         ^ self
@@ -3298,5 +3290,5 @@
 !SelectionInListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.106 1997-06-04 11:23:34 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.107 1997-06-04 13:35:47 ca Exp $'
 ! !