Marcel Taeumel uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-mt.342.mcz

==================== Summary ====================

Name: MorphicExtras-mt.342
Author: mt
Time: 23 January 2023, 5:18:09.430818 pm
UUID: c6f60f1a-0aee-0e4f-8f0f-1d22dec75adf
Ancestors: MorphicExtras-mt.341

Complement Morphic-mt.2071

=============== Diff against MorphicExtras-mt.341 ===============

Item was changed:
  ----- Method: ProjectNavigationMorph>>doNewPainting (in category 'the actions') -----
  doNewPainting
  	
  	| w f |
  
  	w := self world.
  	w assureNotPaintingElse: [^ self].
  	(f := self owner flapTab) ifNotNil: [f hideFlap].
+ 	w makeNewDrawing: (self primaryHand lastEvent translatedTo: w center)
- 	w makeNewDrawing: (self primaryHand lastEvent copy setPosition: w center)
  !

Item was changed:
  ----- Method: RemoteHandMorph>>getNextRemoteEvent (in category 'private') -----
  getNextRemoteEvent
  	"Return the next remote event, or nil if the receive buffer does not contain a full event record. An event record is the storeString for a MorphicEvent terminated by a <CR> character."
  
  	| i s evt |
  	self receiveData.
  	receiveBuffer isEmpty ifTrue: [^ nil].
  
  	i := receiveBuffer indexOf: Character cr ifAbsent: [^ nil].
  	s := receiveBuffer copyFrom: 1 to: i - 1.
  	receiveBuffer := receiveBuffer copyFrom: i + 1 to: receiveBuffer size.
  	evt := (MorphicEvent readFromString: s).
  	evt ifNil:[^nil].
  	evt setHand: self.
+ 	evt isKeyboard ifTrue:[evt translateTo: self position].
- 	evt isKeyboard ifTrue:[evt setPosition: self position].
  	^evt resetHandlerFields!