Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2071.mcz
==================== Summary ====================
Name: Morphic-mt.2071 Author: mt Time: 23 January 2023, 5:16:38.044818 pm UUID: 0369b0e1-d46a-ee4e-aa19-bb86a3584bad Ancestors: Morphic-mt.2070
Some clean-up in input-event protocol.
=============== Diff against Morphic-mt.2070 ===============
Item was removed: - ----- Method: DropEvent>>transformedBy: (in category 'transforming') ----- - transformedBy: aMorphicTransform - "Return the receiver transformed by the given transform into a local coordinate system." - ^self shallowCopy transformBy: aMorphicTransform!
Item was added: + ----- Method: DropEvent>>translateBy: (in category 'transforming') ----- + translateBy: delta + "add delta to cursorPoint, and return the new event" + position := position + delta.!
Item was added: + ----- Method: KeyboardEvent>>setKeyValue: (in category 'private') ----- + setKeyValue: aValue + + keyValue := aValue.!
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 setKeyValue: ( - aKeyboardEvent keyValue: ( aKeyboardEvent keyCharacter caseOf: { [$9] -> [$(]. [$0] -> [$)]. [$,] -> [$<]. [$.] -> [$>]. [$[] -> [${]. [$]] -> [$}]. [$'] -> [$"] } otherwise: [aKeyboardEvent keyCharacter]) asInteger]. ('()[]{}|''"<>' includes: aKeyboardEvent keyCharacter) ifTrue: [textMorph handleInteraction: [(textMorph editor enclose: aKeyboardEvent toggleOnly: true) ifTrue: [aKeyboardEvent ignore]] fromEvent: aKeyboardEvent].
^ aKeyboardEvent
" Preferences cmdKeysInText Preferences cmdGesturesEnabled Preferences honorDesktopCmdKeys PasteUpMorph globalCommandKeysEnabled. "!
Item was added: + ----- Method: MorphicEvent>>transformBy: (in category 'transforming') ----- + transformBy: aMorphicTransform + !
Item was changed: ----- Method: MorphicEvent>>transformedBy: (in category 'transforming') ----- transformedBy: aMorphicTransform "Return the receiver transformed by the given transform into a local coordinate system." + + ^self shallowCopy transformBy: aMorphicTransform! - !
Item was added: + ----- Method: MorphicEvent>>translateBy: (in category 'transforming') ----- + translateBy: delta + "Reposition the receiver by delta. For non-UI events, this is meaningless"!
Item was added: + ----- Method: MorphicEvent>>translatedBy: (in category 'transforming') ----- + translatedBy: delta + "Add delta to cursorPoint, and return the new event." + + ^ self shallowCopy translateBy: delta!
Item was added: + ----- Method: MorphicEvent>>translatedTo: (in category 'transforming') ----- + translatedTo: aPoint + "Answer the receiver translated to aPoint." + + ^ self shallowCopy translateTo: aPoint!
Item was changed: ----- Method: MouseEvent>>asMouseEnter (in category 'converting') ----- asMouseEnter + ^ MouseEvent new setType: #mouseEnter position: position buttons: buttons hand: source! - ^self shallowCopy setType: #mouseEnter!
Item was changed: ----- Method: MouseEvent>>asMouseLeave (in category 'converting') ----- asMouseLeave + ^ MouseEvent new setType: #mouseLeave position: position buttons: buttons hand: source! - ^self shallowCopy setType: #mouseLeave!
Item was added: + ----- Method: MouseMoveEvent>>translateTo: (in category 'transforming') ----- + translateTo: newEndPoint + + startPoint := newEndPoint - (position - startPoint) "delta". + position := newEndPoint. + !
Item was removed: - ----- Method: UserInputEvent>>transformedBy: (in category 'transforming') ----- - transformedBy: aMorphicTransform - "Return the receiver transformed by the given transform into a local coordinate system." - ^self shallowCopy transformBy: aMorphicTransform!
Item was changed: ----- Method: UserInputEvent>>translateTo: (in category 'transforming') ----- + translateTo: aPoint + "Translate the receiver to aPoint." + + position := aPoint.! - translateTo: point - - position := point.!
Item was removed: - ----- Method: UserInputEvent>>translatedBy: (in category 'transforming') ----- - translatedBy: delta - "add delta to cursorPoint, and return the new event" - ^self shallowCopy translateBy: delta!
packages@lists.squeakfoundation.org