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

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

Name: Morphic-mt.1746
Author: mt
Time: 13 April 2021, 3:54:24.673381 pm
UUID: 5d6b1c65-025e-d44a-98f0-d73358bb9a0e
Ancestors: Morphic-mt.1745, Morphic-ct.1531, Morphic-ct.1539, Morphic-ct.1556

Merges bugfixes and QoL enhancements from Morphic-ct.1531, Morphic-ct.1539, Morphic-ct.1556

=============== Diff against Morphic-mt.1745 ===============

Item was changed:
  ----- Method: MorphicProject>>canApplyUserInterfaceTheme (in category 'updating') -----
  canApplyUserInterfaceTheme
  
+ 	^ world notNil!
- 	^ true!

Item was changed:
  ----- Method: MorphicProject>>previewImageForm (in category 'display') -----
  previewImageForm
  
+ 	^ self world imageForm scaledToSize: self viewSize!
- 	^ self world imageForm!

Item was added:
+ ----- Method: NewColorPickerMorph class>>on:colorSelector: (in category 'create') -----
+ on: objectToHaveItsColorSet colorSelector: colorSymbol
+ 	^ self 
+ 		on: objectToHaveItsColorSet
+ 		getColorSelector: colorSymbol
+ 		setColorSelector: colorSymbol asMutator!

Item was added:
+ ----- Method: NewColorPickerMorph class>>on:getColorSelector:setColorSelector: (in category 'create') -----
+ on: objectToHaveItsColorSet getColorSelector: colorGetterSymbol setColorSelector: colorSetterSymbol 
+ 	^ self 
+ 		on: objectToHaveItsColorSet
+ 		originalColor: (colorGetterSymbol value: objectToHaveItsColorSet)
+ 		setColorSelector: colorSetterSymbol!

Item was changed:
  ----- Method: ProjectViewMorph class>>newProjectViewInAWindowFor: (in category 'project window creation') -----
  newProjectViewInAWindowFor: aProject
  	"Return an instance of me on a new Morphic project (in a SystemWindow)."
  
  	| window proj |
  	proj := self on: aProject.
  	window := (SystemWindow labelled: aProject name) model: aProject.
+ 	window extent: proj extent.
  	window
  		addMorph: proj
  		frame: (0 at 0 corner: 1.0 at 1.0).
  	proj borderWidth: 0.
  	^ window
  !

Item was changed:
  ----- Method: ProjectViewMorph class>>openOn: (in category 'instance creation') -----
  openOn: aProject
  	"Open a ProjectViewMorph for the project in question"
+ 	ProjectViewOpenNotification signal ifFalse: [^ self].
+ 	
+ 	(Preferences projectViewsInWindows
+ 		ifTrue: [ (self newProjectViewInAWindowFor: aProject) ]
+ 		ifFalse: [ (self on: aProject) ])
+ 			openAsTool.!
- 	ProjectViewOpenNotification signal ifTrue: [
- 		Preferences projectViewsInWindows ifTrue: [
- 			(self newProjectViewInAWindowFor: aProject) openInWorld
- 		] ifFalse: [
- 			(self on: aProject) openInWorld		"but where??"
- 		].
- 	].
- !

Item was added:
+ ----- Method: ProjectViewMorph>>initialExtent (in category 'geometry') -----
+ initialExtent
+ 
+ 	^ 300 @ 200!

Item was changed:
  ----- Method: ProjectViewMorph>>initialize (in category 'initialization') -----
  initialize
  	"Initialize the receiver."
  
  	super initialize.
+ 	self extent: self initialExtent * RealEstateAgent scaleFactor.
  	"currentBorderColor := Color gray."
  	self addProjectNameMorphFiller.
  	self enableDragNDrop: true.
  	self isOpaque: true.
  !

Item was changed:
  ----- Method: ProjectViewMorph>>on: (in category 'events') -----
  on: aProject
  
  	project := aProject.
  	self addProjectNameMorphFiller.
  	lastProjectThumbnail := nil.
+ 	project viewSize ifNil: [project viewSize: self extent].
  	project thumbnail: project previewImageForm.
+ 	self extent: project thumbnail extent.!
- 	project thumbnail
- 		ifNil: [self extent: 100 at 80]		"more like screen dimensions?"
- 		ifNotNil: [self extent: project thumbnail extent].!