The Trunk: PreferenceBrowser-mt.85.mcz

Am 21.05.2019 11:35:13 schrieb [hidden email] <[hidden email]>:

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

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

Name: PreferenceBrowser-mt.85
Author: mt
Time: 21 May 2019, 11:35:06.795219 am
UUID: 6624fa05-6f97-3742-81a5-50c106c92e33
Ancestors: PreferenceBrowser-eem.84

Fixes the visuals for halo-radio buttons in the preference browser.

=============== Diff against PreferenceBrowser-eem.84 ===============

Item was changed:
----- Method: PBHaloThemePreferenceView>>haloThemeRadioButtons (in category 'user interface') -----
haloThemeRadioButtons
"Answer a column of butons representing the choices of halo theme"

| buttonColumn |
buttonColumn := self verticalPanel.
#( (iconicHaloSpecifications iconic iconicHalosInForce 'circular halos with icons inside')
(classicHaloSpecs classic classicHalosInForce 'plain circular halos')
(simpleFullHaloSpecifications simple simpleHalosInForce 'fewer, larger halos')
(customHaloSpecs custom customHalosInForce 'customizable halos')) do:

[:quad |
+ | aRadioButton |
- | aRow aRadioButton aLabel |
aRadioButton := UpdatingThreePhaseButtonMorph radioButton
target: Preferences;
setBalloonText: quad fourth;
actionSelector: #installHaloTheme:;
getSelector: quad third;
arguments: (Array with: quad first);
+ label: quad second asString;
yourself.
+ buttonColumn addMorphBack: aRadioButton].
- aLabel := (StringMorph contents: quad second asString)
- setBalloonText: quad fourth;
- yourself.
- aRow := self horizontalPanel
- cellInset: 4;
- addMorphBack: aRadioButton;
- addMorphBack: aLabel.
- buttonColumn addMorphBack: aRow].
^ buttonColumn

"(Preferences preferenceAt: #haloTheme) view tearOffButton"!

Item was changed:
----- Method: PBHaloThemePreferenceView>>representativeButtonWithColor:inPanel: (in category 'user interface') -----
representativeButtonWithColor: aColor inPanel: aPreferencesPanel
| innerPanel |
+ innerPanel := self horizontalFiller
+ addMorphBack: self horizontalFiller;
- innerPanel := self horizontalPanel
- addMorphBack: (self blankSpaceOf: 10@0);
addMorphBack: self haloThemeRadioButtons;
yourself.
^self verticalPanel
color: aColor;
layoutInset: 2;
addMorphBack: self morphForName;
addMorphBack: innerPanel.!