--- a/SelectionInListView.st	Wed Nov 06 18:34:09 1996 +0100
+++ b/SelectionInListView.st	Wed Nov 06 18:39:28 1996 +0100
@@ -30,7 +30,7 @@
 	category:'Views-Text'
 !
 
-!SelectionInListView  class methodsFor:'documentation'!
+!SelectionInListView class methodsFor:'documentation'!
 
 copyright
 "
@@ -666,7 +666,7 @@
     "Modified: 26.10.1995 / 16:42:02 / cg"
 ! !
 
-!SelectionInListView  class methodsFor:'instance creation'!
+!SelectionInListView class methodsFor:'instance creation'!
 
 on:aModel aspect:aspect change:change list:list initialSelection:initial
     ^ self on:aModel
@@ -724,7 +724,7 @@
 		 useIndex:useIndex
 ! !
 
-!SelectionInListView  class methodsFor:'defaults'!
+!SelectionInListView class methodsFor:'defaults'!
 
 defaultAspectMessage
     ^ nil
@@ -1684,9 +1684,17 @@
 !
 
 buttonPress:button x:x y:y
-    |oldSelection listLineNr|
-
-    self sensor shiftDown ifTrue:[
+    |s isMulti oldSelection listLineNr|
+
+    s := self sensor.
+    (styleSheet at:#selectionMultiSelectionModifier default:#Shift) == #Control
+    ifTrue:[
+        isMulti := s ctrlDown
+    ] ifFalse:[
+        isMulti := s shiftDown
+    ].
+
+    isMulti ifTrue:[
         ^ self buttonShiftPress:button x:x y:y
     ].
 
@@ -1723,7 +1731,7 @@
         super buttonPress:button x:x y:y
     ]
 
-    "Modified: 1.8.1996 / 18:00:26 / cg"
+    "Modified: 6.11.1996 / 18:38:45 / cg"
 !
 
 buttonRelease:button x:x y:y
@@ -2875,8 +2883,8 @@
     ^ (someString = sel)
 ! !
 
-!SelectionInListView  class methodsFor:'documentation'!
+!SelectionInListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.79 1996-10-01 11:41:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/SelectionInListView.st,v 1.80 1996-11-06 17:39:28 cg Exp $'
 ! !