The Trunk: PreferenceBrowser-nice.41.mcz

Nicolas Cellier uploaded a new version of PreferenceBrowser to project The Trunk:
http://source.squeak.org/trunk/PreferenceBrowser-nice.41.mcz

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

Name: PreferenceBrowser-nice.41
Author: nice
Time: 27 December 2009, 4:12:05 am
UUID: a2890b5f-3fbb-4f3f-9f14-e545e9c784ba
Ancestors: PreferenceBrowser-ul.40

Cosmetic: move or remove a few temps inside closures

=============== Diff against PreferenceBrowser-ul.40 ===============

Item was changed:
  ----- Method: PBHaloThemePreferenceView>>haloThemeRadioButtons (in category 'user interface') -----
  haloThemeRadioButtons
  "Answer a column of butons representing the choices of halo theme"
 
+ | buttonColumn |
- | buttonColumn aRow aRadioButton aLabel |
  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 |
+ | aRow aRadioButton aLabel |
  aRadioButton := UpdatingThreePhaseButtonMorph radioButton
  target: Preferences;
  setBalloonText: quad fourth;
  actionSelector: #installHaloTheme:;
  getSelector: quad third;
  arguments: (Array with: quad first);
  yourself.
  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"!