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).!