Christoph Thiede uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-ct.2029.mcz

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

Name: Morphic-ct.2029
Author: ct
Time: 23 August 2022, 1:44:06.758308 pm
UUID: 929c72ba-79de-ca41-bfad-4182ac5f0d3f
Ancestors: Morphic-ct.2028

Adds public #updateThumbnail: on ProjectViewMorph.

=============== Diff against Morphic-ct.2028 ===============

Item was changed:
  ----- Method: ProjectViewMorph>>on: (in category 'events') -----
  on: aProject
  
  	project := aProject.
  	self addProjectNameMorphFiller.
+ 	self updateThumbnail: false.!
- 	lastProjectThumbnail := nil.
- 	project viewSize ifNil: [project viewSize: self extent].
- 	project thumbnail: project previewImageForm.
- 	self extent: project thumbnail extent.!

Item was added:
+ ----- Method: ProjectViewMorph>>updateThumbnail: (in category 'accessing') -----
+ updateThumbnail: forceExtent
+ 	"Update the thumbnail of the receiver. If forceExtent is false, keep the extent of the previous thumbnail, if any. After scaling up the receiver, this message should be sent with forceExtent = true."
+ 
+ 	lastProjectThumbnail := nil.
+ 	(forceExtent or: [project viewSize isNil]) ifTrue: [
+ 		project viewSize: self extent].
+ 	project thumbnail: project previewImageForm.
+ 	self extent: project thumbnail extent.!