--- a/SelectionInListModelView.st	Mon Oct 19 22:40:04 2009 +0200
+++ b/SelectionInListModelView.st	Mon Oct 19 22:55:01 2009 +0200
@@ -2148,8 +2148,8 @@
     item isNil ifTrue:[^ self].
 
     x < (self xVisibleOfItem:item) ifTrue:[
-	"/ not part of the selection frame; ignorre
-	^ self
+        "/ not part of the selection frame; ignorre
+        ^ self
     ].
     editor := self openEditor.
     editor isNil ifTrue:[^ self].
@@ -2162,11 +2162,11 @@
     "/ Changed by cg:
     "/ but only if there was no initial selection
     editor isInputField ifTrue:[
-	editor hasSelection ifFalse:[
-	    self sensor
-		pushEvent:(WindowEvent buttonPress:#select x:x0 y:y0 view:editor);
-		pushEvent:(WindowEvent buttonRelease:#select x:x0 y:y0 view:editor).
-	]
+        editor hasSelection ifFalse:[
+            self sensor
+                pushEvent:(WindowEvent buttonPress:1 x:x0 y:y0 view:editor);
+                pushEvent:(WindowEvent buttonRelease:1 x:x0 y:y0 view:editor).
+        ]
     ].
 
     "/ to clear the selection
@@ -2635,5 +2635,9 @@
 !SelectionInListModelView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInListModelView.st,v 1.146 2009-09-21 20:43:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInListModelView.st,v 1.147 2009-10-19 20:55:01 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInListModelView.st,v 1.147 2009-10-19 20:55:01 cg Exp $'
 ! !