[Pkg] The Trunk: PreferenceBrowser-nice.41.mcz

commits at source.squeak.org commits at source.squeak.org
Sun Dec 27 03:12:15 UTC 2009

Nicolas Cellier uploaded a new version of PreferenceBrowser to project The Trunk:

==================== 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') -----
  	"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);
  			aLabel := (StringMorph contents: quad second asString)
  						setBalloonText: quad fourth;
  			aRow := self horizontalPanel
  				cellInset: 4;
  				addMorphBack: aRadioButton;
  				addMorphBack: aLabel.
  			buttonColumn addMorphBack: aRow].
  	^ buttonColumn
  	"(Preferences preferenceAt: #haloTheme) view tearOffButton"!

More information about the Packages mailing list