# HG changeset patch
# User Gerald Klix (speedy) <Gerald.Klix@klix.ch>
# Date 1719334951 -7200
#      Tue Jun 25 19:02:31 2024 +0200
# Branch Cuis7.0based
# Node ID d702eb9e4cdfa095162aef2d2011f2835829722b
# Parent  63b8d857c1d6649de5194301b050fc07dfb0ac0c
SUM: Made event testing a little bit more specific.

diff --git a/klg-packages/MorphZooming.pck.st b/klg-packages/MorphZooming.pck.st
--- a/klg-packages/MorphZooming.pck.st
+++ b/klg-packages/MorphZooming.pck.st
@@ -1,8 +1,8 @@
-'From Haver6.3 [latest update: #6163] on 3 January 2024 at 9:48:32 pm'!
+'From Haver7.0 [latest update: #6454] on 25 June 2024 at 6:57:27 pm'!
 'Description I provide modifications that support zooming top level windows and morphs.
 
 To avoid conflicts in glogal hotkey handling I require window sets.'!
-!provides: 'MorphZooming' 1 18!
+!provides: 'MorphZooming' 1 19!
 !requires: 'WindowSets' 1 29 nil!
 
 
@@ -154,11 +154,11 @@
 			[ #left ] 	-> 		[  hScrollBar scrollUp: 1 ].
 			[ #right ] 	-> 		[  hScrollBar scrollDown: 1 ] }! !
 
-!SystemWindow methodsFor: '*MorphZooming-event handling testing' stamp: 'KLG 5/16/2022 19:32:37'!
+!SystemWindow methodsFor: '*MorphZooming-event handling testing' stamp: 'KLG 6/25/2024 16:43:22'!
 handlesMouseScroll: aMouseScrollEvent
 	"Answer true if we want mouse scroll events."
 	
-	^ true! !
+	^ aMouseScrollEvent controlKeyPressed! !
 
 !SystemWindow methodsFor: '*MorphZooming-events' stamp: 'KLG 5/16/2022 20:48:41'!
 mouseScroll: aMouseScrollEvent localPosition: localEventPosition