--- 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 $'
! !