Only spawn a new tab on the selection when both shift and ctrl are pr…

…essed in lists [feenkcom/gtoolkit#4143]
feenkcom · Nov 5, 2024 · 4ca6e72 · 4ca6e72
1 parent 92c7de9
commit 4ca6e72
Showing 1 changed file with 7 additions and 3 deletions.
diff --git a/src/GToolkit-Phlow/GtPhlowListToSelectHandler.class.st b/src/GToolkit-Phlow/GtPhlowListToSelectHandler.class.st
@@ -28,16 +28,20 @@ GtPhlowListToSelectHandler >> selectionChangedEvent: anEvent [
 		selectionDo: [ :aSelection | 
 			| currentWidgetElement selectedObject |
 			aSelection isNotEmpty
-				ifTrue: [ currentWidgetElement := anEvent currentTarget.
+				ifTrue: [ 
+					| shouldShowSpace |
+					currentWidgetElement := anEvent currentTarget.
 					selectedObject := currentWidgetElement selectionCallback
 							value: aSelection indices.
+					shouldShowSpace := anEvent sourceEvent notNil and: [ 
+						anEvent sourceEvent modifiers isPrimaryModifier and: [ 
+							anEvent sourceEvent modifiers isShift ] ].
 
 					self transformation
 						select: selectedObject
 						indices: aSelection indices
 						from: currentWidgetElement
-						shouldShowSpace: (anEvent sourceEvent notNil and: [	
-							anEvent sourceEvent modifiers isPrimaryModifier]) ] ]
+						shouldShowSpace: shouldShowSpace ] ]
 ]
 
 { #category : #'api - event managing' }