DSVColumnView.st
changeset 3217 e74188fce7c2
parent 3215 edb9fb9e4931
child 3219 91f015463a3d
--- a/DSVColumnView.st	Mon Mar 26 15:22:19 2007 +0200
+++ b/DSVColumnView.st	Mon Mar 26 15:22:21 2007 +0200
@@ -2195,6 +2195,8 @@
 buttonMultiPress:button x:x y:y
     "a button was pressed twice - handle doubleclick here"
 
+    |selectedCol|
+
     buttonMotionAction := buttonReleaseAction := nil.
 
     self isEnabled ifFalse:[^ self].
@@ -2204,13 +2206,16 @@
     ].
     self numberOfSelections == 1 ifTrue:[
         self firstIndexSelected == (self yVisibleToRowNr:y) ifTrue:[
-            (     self selectedColIndex == 0
-              or:[self selectedColIndex == (self xVisibleToColNr:x)]
+            selectedCol := self selectedColIndex.
+            ( selectedCol == 0
+              or:[selectedCol == (self xVisibleToColNr:x)]
             ) ifTrue:[
                 self doubleClicked
             ]
         ]
     ]
+
+    "Modified: / 26-03-2007 / 15:19:04 / cg"
 !
 
 buttonPress:button x:x y:y
@@ -2817,7 +2822,7 @@
     columnDescriptors isEmpty ifTrue:[^ nil].
 
     colNr := self xVisibleToColNr:aPoint x.
-    colNr ~~ 0 ifTrue:[
+    colNr notNil ifTrue:[
         col := columnDescriptors at:colNr.
         ^ col activeHelpText.
     ].
@@ -3208,7 +3213,8 @@
 !
 
 xVisibleToColNr:x 
-    "returns the column number assigned to a physical x or nil"
+    "returns the column number for a physical x position.
+     Returns nil if x is behond the last column."
     
     |x0|
 
@@ -3219,7 +3225,7 @@
     ].
     ^ nil.
 
-    "Modified: / 26-03-2007 / 14:45:26 / cg"
+    "Modified: / 26-03-2007 / 15:22:01 / cg"
 !
 
 yVisibleOfRowNr:aRowNr 
@@ -4323,5 +4329,5 @@
 !DSVColumnView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.223 2007-03-26 12:44:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.224 2007-03-26 13:22:21 cg Exp $'
 ! !