Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1971.mcz
==================== Summary ====================
Name: Morphic-mt.1971 Author: mt Time: 25 April 2022, 4:13:00.406696 pm UUID: 9a745727-6a8b-8945-9e84-e36f6806f363 Ancestors: Morphic-mt.1970
Fixes scale of cursor while dragging things in Morphic.
=============== Diff against Morphic-mt.1970 ===============
Item was added: + ----- Method: HandMorph class>>applyUserInterfaceTheme (in category 'preferences') ----- + applyUserInterfaceTheme + + NormalCursor := CursorWithMask normal asCursorForm scaleIconToDisplay.!
Item was added: + ----- Method: HandMorph class>>themeProperties (in category 'preferences') ----- + themeProperties + + ^ super themeProperties, { + { #cursor. 'Cursor'. 'Temporary cursor for drag-drop interaction using submorphs.' } + }!
Item was added: + ----- Method: HandMorph>>applyUserInterfaceTheme (in category 'updating') ----- + applyUserInterfaceTheme + + self showTemporaryCursor: nil.!
Item was changed: ----- Method: HandMorph>>showTemporaryCursor:hotSpotOffset: (in category 'cursor') ----- showTemporaryCursor: cursorOrNil hotSpotOffset: hotSpotOffset "Set the temporary cursor to the given Form. If the argument is nil, revert to the normal hardware cursor."
self changed. temporaryCursorOffset ifNotNil: [bounds := bounds translateBy: temporaryCursorOffset negated]. cursorOrNil isNil ifTrue: [temporaryCursor := temporaryCursorOffset := hardwareCursor := nil] ifFalse: + [temporaryCursor := cursorOrNil asCursorForm scaleIconToDisplay. - [temporaryCursor := cursorOrNil asCursorForm. temporaryCursorOffset := temporaryCursor offset - hotSpotOffset. (cursorOrNil isKindOf: Cursor) ifTrue: [hardwareCursor := cursorOrNil]]. bounds := self cursorBounds. self userInitials: userInitials andPicture: self userPicture; layoutChanged; changed; showHardwareCursor: (temporaryCursor isNil).!
packages@lists.squeakfoundation.org