--- a/SelectionInListModelView.st	Wed Jun 29 16:41:22 2011 +0200
+++ b/SelectionInListModelView.st	Thu Jun 30 21:15:12 2011 +0200
@@ -1335,17 +1335,23 @@
     enabled ifFalse:[^ self].
 
     (button == 1) ifTrue:[
-        doubleClickActionBlock notNil ifTrue:[
-            (     (lnNr := self yVisibleToLineNr:y)   notNil
-             and:[(item := self at:lnNr ifAbsent:nil) notNil]
-            ) ifTrue:[
-                doubleClickActionBlock valueWithOptionalArgument:lnNr and:self.
+        (     (lnNr := self yVisibleToLineNr:y)   notNil
+         and:[(item := self at:lnNr ifAbsent:nil) notNil]
+        ) ifTrue:[
+            self selectedIndex == lnNr ifFalse:[
+                self breakPoint:#ca
             ].
+            self doubleClicked.
+"/            doubleClickActionBlock notNil ifTrue:[
+"/                doubleClickActionBlock valueWithOptionalArgument:lnNr and:self.
+"/            ].
         ].
         ^ self.
     ].
 
     super buttonMultiPress:button x:x y:y
+
+    "Modified: / 30-06-2011 / 20:04:28 / cg"
 !
 
 buttonPress:button x:x y:y
@@ -2656,10 +2662,6 @@
 
 !SelectionInListModelView class methodsFor:'documentation'!
 
-version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInListModelView.st,v 1.154 2010-11-03 00:35:57 cg Exp $'
-!
-
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInListModelView.st,v 1.154 2010-11-03 00:35:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInListModelView.st,v 1.155 2011-06-30 19:15:12 cg Exp $'
 ! !