<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>