Christoph Thiede uploaded a new version of MorphicExtras to project The Treated Inbox: http://source.squeak.org/treated/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 !
packages@lists.squeakfoundation.org