<div id="__MailbirdStyleContent" style="font-size: 10pt;font-family: Arial;color: #000000">
<img src="cid:d2b20edb-fe71-4654-af69-cd791c0b439f" width="auto"></img><div class="mb_sig"></div>
<blockquote class="history_container" type="cite" style="border-left-style: solid;border-width: 1px;margin-top: 20px;margin-left: 0px;padding-left: 10px;min-width: 500px">
<p style="color: #AAAAAA; margin-top: 10px;">Am 21.05.2019 11:35:13 schrieb commits@source.squeak.org <commits@source.squeak.org>:</p><div style="font-family:Arial,Helvetica,sans-serif">Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk:<br>http://source.squeak.org/trunk/PreferenceBrowser-mt.85.mcz<br><br>==================== Summary ====================<br><br>Name: PreferenceBrowser-mt.85<br>Author: mt<br>Time: 21 May 2019, 11:35:06.795219 am<br>UUID: 6624fa05-6f97-3742-81a5-50c106c92e33<br>Ancestors: PreferenceBrowser-eem.84<br><br>Fixes the visuals for halo-radio buttons in the preference browser.<br><br>=============== Diff against PreferenceBrowser-eem.84 ===============<br><br>Item was changed:<br> ----- Method: PBHaloThemePreferenceView>>haloThemeRadioButtons (in category 'user interface') -----<br> haloThemeRadioButtons<br> "Answer a column of butons representing the choices of halo theme"<br> <br> | buttonColumn |<br> buttonColumn := self verticalPanel.<br> #( (iconicHaloSpecifications iconic iconicHalosInForce 'circular halos with icons inside')<br> (classicHaloSpecs classic classicHalosInForce 'plain circular halos')<br> (simpleFullHaloSpecifications simple simpleHalosInForce 'fewer, larger halos')<br> (customHaloSpecs custom customHalosInForce 'customizable halos')) do:<br> <br> [:quad |<br>+ | aRadioButton |<br>- | aRow aRadioButton aLabel |<br> aRadioButton := UpdatingThreePhaseButtonMorph radioButton<br> target: Preferences;<br> setBalloonText: quad fourth;<br> actionSelector: #installHaloTheme:;<br> getSelector: quad third;<br> arguments: (Array with: quad first);<br>+ label: quad second asString;<br> yourself.<br>+ buttonColumn addMorphBack: aRadioButton].<br>- aLabel := (StringMorph contents: quad second asString)<br>- setBalloonText: quad fourth;<br>- yourself.<br>- aRow := self horizontalPanel<br>- cellInset: 4;<br>- addMorphBack: aRadioButton;<br>- addMorphBack: aLabel.<br>- buttonColumn addMorphBack: aRow].<br> ^ buttonColumn<br> <br> "(Preferences preferenceAt: #haloTheme) view tearOffButton"!<br><br>Item was changed:<br> ----- Method: PBHaloThemePreferenceView>>representativeButtonWithColor:inPanel: (in category 'user interface') -----<br> representativeButtonWithColor: aColor inPanel: aPreferencesPanel<br> | innerPanel |<br>+ innerPanel := self horizontalFiller<br>+ addMorphBack: self horizontalFiller;<br>- innerPanel := self horizontalPanel<br>- addMorphBack: (self blankSpaceOf: 10@0);<br> addMorphBack: self haloThemeRadioButtons;<br> yourself.<br> ^self verticalPanel<br> color: aColor;<br> layoutInset: 2;<br> addMorphBack: self morphForName;<br> addMorphBack: innerPanel.!<br><br><br></div></blockquote></div>