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

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

Name: Morphic-ct.2036
Author: ct
Time: 25 August 2022, 2:03:11.861239 pm
UUID: ad09cb34-86b8-344f-bfd0-70680b92791f
Ancestors: Morphic-ct.2035

Complements MorphicExtras-ct.327.

=============== Diff against Morphic-ct.2035 ===============

Item was changed:
  ----- Method: IconicButton>>labelGraphic: (in category 'label') -----
  labelGraphic: aForm
  	| oldLabel graphicalMorph |
+ 	(oldLabel := self labelMorph)
- 	(oldLabel := self findA: SketchMorph)
  		ifNotNil: [oldLabel delete].
  	graphicalMorph := SketchMorph withForm: aForm.
  	self extent: graphicalMorph extent + (self borderWidth + 6 px).
  	graphicalMorph position: self center - (graphicalMorph extent // 2).
  	self addMorph: graphicalMorph.
  	graphicalMorph 
  		baseGraphic;
  		lock.!

Item was added:
+ ----- Method: IconicButton>>labelMorph (in category 'label') -----
+ labelMorph
+ 
+ 	^ self findA: SketchMorph!

Item was changed:
  ----- Method: Morph>>helpButton (in category 'menus') -----
  helpButton
  	"Answer a button whose action would be to put up help concerning the receiver"
  
  	| aButton |
  	aButton := SimpleButtonMorph new.
  	aButton
  		target: self;
  		color: Color lightGreen;
  		borderColor: Color lightGreen muchDarker;
+ 		borderWidth: 1 px;
- 		borderWidth: 1;
  		label: '?' translated font: Preferences standardButtonFont;
  		actionSelector: #presentHelp;
  		setBalloonText: 'click here for help' translated.
  	^ aButton!