Removing usage of testing method on mouse events.

feenkcom · Jun 27, 2024 · 11e1201 · 11e1201
1 parent 95024f4
commit 11e1201
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/GToolkit-Mondrian-Phlow/GtPhlowMondrianView.class.st b/src/GToolkit-Mondrian-Phlow/GtPhlowMondrianView.class.st
@@ -32,8 +32,8 @@ GtPhlowMondrianView >> asElementDo: aBlock [
 						transformedObject := transformation cull: graphModel.
 						mondrianElement phlow spawnObject: transformedObject ] ];
 		when: BlMouseWheelEvent
-			do: [ :event |
-				event primaryModifierPressed
+			do: [ :event | 
+				event modifiers = BlKeyModifiers primary
 					ifTrue: [ event isPrimarilyVertical
 							ifTrue: [ | eventYvector newZoomLevel scalingFactor |
 								event consumed: true.