@@ 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 @@ mouseScroll: aMouseEvent localPosition: 
 			[ #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