A new version of MorphicExtras was added to project The Inbox:
http://source.squeak.org/inbox/MorphicExtras-ct.324.mcz

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

Name: MorphicExtras-ct.324
Author: ct
Time: 23 August 2022, 12:39:40.403308 pm
UUID: 293d6c50-c8a0-4746-b2aa-3adb1d631288
Ancestors: MorphicExtras-eem.322

Fixes high-dpi support in RecordingControlsMorph.

=============== Diff against MorphicExtras-eem.322 ===============

Item was changed:
  ----- Method: RecordingControlsMorph>>addRecordLevelSliderIn: (in category 'other') -----
  addRecordLevelSliderIn: aPoint
  
  	| levelSlider r |
  	levelSlider := SimpleSliderMorph new
  		color: color darker;
  		extent: (aPoint x * 0.75) asInteger@(aPoint y*0.6) asInteger;
  		target: recorder;
  		actionSelector: #recordLevel:;
  		adjustToValue: recorder recordLevel.
  	r := AlignmentMorph newRow
  		color: color;
  		layoutInset: 0;
  		wrapCentering: #center; cellPositioning: #leftCenter;
  		hResizing: #shrinkWrap;
  		vResizing: #rigid;
+ 		height: aPoint y + 2 px.
+ 	r addMorphBack: (StringMorph contents: '0 ' font: TextStyle defaultFont).
- 		height: aPoint y + 2.
- 	r addMorphBack: (StringMorph contents: '0 ' font: Preferences standardButtonFont).
  	r addMorphBack: levelSlider.
+ 	r addMorphBack: (StringMorph contents: ' 10' font: TextStyle defaultFont).
+ 	self addMorphBack: r.!
- 	r addMorphBack: (StringMorph contents: ' 10' font: Preferences standardButtonFont).
- 	self addMorphBack: r.
- !

Item was changed:
  ----- Method: RecordingControlsMorph>>buttonName:action: (in category 'other') -----
  buttonName: aString action: aSymbol
  
  	^ SimpleButtonMorph new
  		target: self;
+ 		label: aString;
- 		label: aString font: Preferences standardButtonFont;
  		actionSelector: aSymbol
  !