A new version of Morphic was added to project The Inbox:
http://source.squeak.org/inbox/Morphic-ct.1990.mcz

==================== Summary ====================

Name: Morphic-ct.1990
Author: ct
Time: 7 May 2022, 9:24:23.224169 pm
UUID: 0c3f85a9-6b74-7e49-9dfd-799f19a50fd3
Ancestors: Morphic-nice.1989

Proposal: Uses Ctrl + mouseWheelUp/mouseWheelDown for increasing/decreasing the ui scale factor. At least on Windows, this even works for the touchpad zoom gestures pinch/stretch out. Adds #isWheelHorizontal and #isWheelVertical tests on MouseWheelEvent.

=============== Diff against Morphic-nice.1989 ===============

Item was added:
+ ----- Method: MouseWheelEvent>>isWheelHorizontal (in category 'testing') -----
+ isWheelHorizontal
+ 	^ direction anyMask: 2r0011!

Item was added:
+ ----- Method: MouseWheelEvent>>isWheelVertical (in category 'testing') -----
+ isWheelVertical
+ 	^ direction anyMask: 2r1100!

Item was added:
+ ----- Method: PasteUpMorph>>handlesMouseWheel: (in category 'as yet unclassified') -----
+ handlesMouseWheel: anEvent
+ 
+ 	self flag: #vmCapability. "Modifier keys are currently missing in MouseWheelEvents. See: https://github.com/OpenSmalltalk/opensmalltalk-vm/issues/630"
+ 	^ "anEvent"Sensor controlKeyPressed
+ 		and: [anEvent isWheelVertical]
+ 		and: [self isWorldMorph]!

Item was added:
+ ----- Method: PasteUpMorph>>mouseWheel: (in category 'as yet unclassified') -----
+ mouseWheel: anEvent
+ 
+ 	anEvent isWheelUp
+ 		ifTrue: [Preferences increaseFontSize]
+ 		ifFalse: [Preferences decreaseFontSize].!

Item was changed:
  ----- Method: ScrollPane>>handlesMouseWheel: (in category 'event handling') -----
  handlesMouseWheel: evt
+ 
+ 	self flag: #vmCapability. "Modifier keys are currently missing in MouseWheelEvents. See: https://github.com/OpenSmalltalk/opensmalltalk-vm/issues/630"
+ 	^ "anEvent"Sensor controlKeyPressed not!
- 	^ true!