DSVColumnView.st
changeset 1023 59c1888ca494
parent 1008 7874385db982
child 1034 bd02c4cd7582
--- a/DSVColumnView.st	Tue Jul 28 16:04:31 1998 +0200
+++ b/DSVColumnView.st	Tue Jul 28 16:10:42 1998 +0200
@@ -1308,11 +1308,12 @@
     ].
     "is it the select or 1-button ?"
 
-    (device buttonMotionMask:buttonMask includesButton:#select) ifFalse:[
-        (device buttonMotionMask:buttonMask includesButton:1) ifFalse:[
-            ^ self
-        ].
-    ].
+    self sensor leftButtonPressed ifFalse:[^ self].
+"/    (device buttonMotionMask:buttonMask includesButton:#select) ifFalse:[
+"/        (device buttonMotionMask:buttonMask includesButton:1) ifFalse:[
+"/            ^ self
+"/        ].
+"/    ].
     scr := 0.
 
     y > height ifTrue:[
@@ -1355,6 +1356,8 @@
     ] ifFalse:[
         self scrollTo:(viewOrigin + (0 @ scr)) redraw:true
     ].
+
+    "Modified: / 28.7.1998 / 16:01:11 / cg"
 !
 
 buttonMultiPress:button x:x y:y
@@ -2674,5 +2677,5 @@
 !DSVColumnView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.44 1998-07-25 14:11:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.45 1998-07-28 14:10:42 cg Exp $'
 ! !