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

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

Name: MorphicExtras-mt.262
Author: mt
Time: 18 September 2019, 1:18:01.785645 pm
UUID: 57e22683-82a2-ba43-b478-2d01cf9b5393
Ancestors: MorphicExtras-mt.261

Fixes thumbnail generation in project-sorter morph.

=============== Diff against MorphicExtras-mt.261 ===============

Item was changed:
  ----- Method: ProjectSorterMorph>>addControls (in category 'initialization') -----
  addControls
  	"Add the control bar at the top of the tool."
  
  	| b r partsBinButton newButton aWrapper |
+ 	newButton := ImageMorph new image: (Project current makeThumbnail scaledToSize: 48 at 36).
- 	newButton := ImageMorph new image: (self world project makeThumbnail scaledToSize: 48 at 36).
  	newButton on: #mouseDown send: #insertNewProject: to: self.
  	newButton setBalloonText: 'Make a new Project' translated.
  	(partsBinButton := UpdatingThreePhaseButtonMorph checkBox)
  		target: self;
  		actionSelector: #togglePartsBinStatus;
  		arguments: #();
  		getSelector: #getPartsBinStatus.
  	(r := AlignmentMorph newRow)
  		color: Color transparent;
  		borderWidth: 0;
  		layoutInset: 0;
  		cellInset: 10 at 0;
  		wrapCentering: #center;
  		cellPositioning: #leftCenter;
  		hResizing: #shrinkWrap;
  		vResizing: #shrinkWrap;
  		extent: 5 at 5.
  	b := SimpleButtonMorph new target: self; color: self defaultColor darker;
  			borderColor: Color black.
  	r addMorphBack: (self wrapperFor: (b label: 'Okay' translated font: ScriptingSystem fontForEToyButtons; actionSelector: #acceptSort)).
  	b := SimpleButtonMorph new target: self; color: self defaultColor darker;
  			borderColor: Color black.
  	r addMorphBack: (self wrapperFor: (b label: 'Cancel' translated font: ScriptingSystem fontForEToyButtons; actionSelector: #delete));
  		addTransparentSpacerOfSize: 8 @ 0;
  		addMorphBack: (self wrapperFor: (newButton));
  		addTransparentSpacerOfSize: 8 @ 0.
  
  	aWrapper := AlignmentMorph newRow beTransparent.
  	aWrapper cellInset: 0; layoutInset: 0; borderWidth: 0.
  	aWrapper
  		addMorphBack: (self wrapperFor: partsBinButton);
  		addMorphBack: (self wrapperFor: (StringMorph contents: 'Parts bin' translated font: ScriptingSystem fontForEToyButtons) lock).
  	r addMorphBack: aWrapper.
  
  	self addMorphFront: r.
  !