Hmmm.... I would rather use that shortcut to increase/decrease the font size in a particular text field as it would be much faster and fine-grained for an ad-hoc demo. :-)

The gesture is too simple for that probably slow update of changing the scale factor. Also that shortcut is already taken on macOS for the very same thing using a OS-based magnifer.

Best,
Marcel
Am 07.05.2022 21:25:12 schrieb commits at source.squeak.org <commits at source.squeak.org>:
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!


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20220509/bc05fba3/attachment.html>