Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1998.mcz
==================== Summary ====================
Name: Morphic-mt.1998 Author: mt Time: 3 June 2022, 10:03:38.000381 am UUID: 50a6fd6c-1405-403a-a99b-7944c2f6ce0a Ancestors: Morphic-tonyg.1997
For macOS platform, fixes the preference "Legacy keyboard shortcuts (US/UK only)".
Thanks to Tim (tcj) for the pointer!
=============== Diff against Morphic-tonyg.1997 ===============
Item was changed: ----- Method: LegacyShortcutsFilter class>>filterEvent:for: (in category 'event filter') ----- filterEvent: aKeyboardEvent for: textMorph
+ aKeyboardEvent isKeystroke ifFalse: [^ aKeyboardEvent]. aKeyboardEvent commandKeyPressed ifFalse: [^ aKeyboardEvent]. Preferences cmdKeysInText ifFalse: [^ aKeyboardEvent]. + + (Smalltalk platformName = 'Mac OS' and: [aKeyboardEvent shiftPressed]) + ifTrue: ["Work around an issue in the VM where SHIFT is not honored + in the KeyChar event's character. This should only be the case for + KeyDown events to encode virtual-key presses. The VM should not + do this for KeyChar events. Works for U.S. keyboard layout only." + aKeyboardEvent keyValue: ( + aKeyboardEvent keyCharacter caseOf: { + [$9] -> [$(]. [$0] -> [$)]. + [$,] -> [$<]. [$.] -> [$>]. + [$[] -> [${]. [$]] -> [$}]. + [$'] -> [$"] } + otherwise: [aKeyboardEvent keyCharacter]) asInteger]. + - ('()[]{}|''"<>' includes: aKeyboardEvent keyCharacter) ifTrue: [textMorph handleInteraction: [(textMorph editor enclose: aKeyboardEvent) ifTrue: [aKeyboardEvent ignore]] fromEvent: aKeyboardEvent].
^ aKeyboardEvent
" Preferences cmdKeysInText Preferences cmdGesturesEnabled Preferences honorDesktopCmdKeys PasteUpMorph globalCommandKeysEnabled. "!
squeak-dev@lists.squeakfoundation.org