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

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

Name: PreferenceBrowser-mt.62
Author: mt
Time: 31 July 2016, 10:33:35.36249 am
UUID: 2ef5e9cc-18c3-7041-813b-54a1d5856f9f
Ancestors: PreferenceBrowser-topa.61

*** Widget Refactorings and UI Themes (Part 2 of 11) ***

Simplify window colors and prepare them and other properties of system windows to be themed.

=============== Diff against PreferenceBrowser-topa.61 ===============

Item was removed:
- PBColorPreferenceView subclass: #PBWindowColorPreferenceView
- 	instanceVariableNames: ''
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'PreferenceBrowser'!

Item was removed:
- ----- Method: PBWindowColorPreferenceView class>>initialize (in category 'class initialization') -----
- initialize
- 	self viewRegistry register: self.!

Item was removed:
- ----- Method: PBWindowColorPreferenceView class>>unload (in category 'class initialization') -----
- unload
- 	"Unload order is not guaranteed so guard against failure"
- 	[self viewRegistry unregister: self] on: Error do:[]!

Item was removed:
- ----- Method: PBWindowColorPreferenceView class>>viewRegistry (in category 'class initialization') -----
- viewRegistry
- 	^(PreferenceViewRegistry registryOf: #windowColorPreferences)
- 		viewOrder: 6;
- 		yourself.!

Item was removed:
- ----- Method: PBWindowColorPreferenceView>>initialize (in category 'initialization') -----
- initialize
- 	super initialize.
- 	self addActionTitled: 'Bright' target: Preferences selector: #installBrightWindowColors arguments: {} balloonText: 'Use standard bright colors for all windows' translated.
- 	self addActionTitled: 'Pastel' target: Preferences selector: #installPastelWindowColors arguments: {} balloonText: 'Use standard pastel colors for all windows' translated.	
- 	self addActionTitled: 'Gray' target: Preferences selector: #installUniformWindowColors arguments: {} balloonText: 'Use gray backgrounds for all standard windows' translated.!

Item was changed:
  ----- Method: PreferenceBrowser class>>initialize (in category 'class initialization') -----
  initialize
  	self
- 		registerWindowColor;
  		registerInOpenMenu;
  		registerInFlaps!

Item was removed:
- ----- Method: PreferenceBrowser class>>registerWindowColor (in category 'class initialization') -----
- registerWindowColor
- 	(Preferences windowColorFor: self name) = Color white
- 		ifTrue: [ Preferences setWindowColorFor: self name to: (Color colorFrom: self windowColorSpecification brightColor) ].!

Item was removed:
- ----- Method: PreferenceBrowser class>>windowColorSpecification (in category 'window color') -----
- windowColorSpecification
- 	"Answer a WindowColorSpec object that declares my preference"
- 
- 	^ WindowColorSpec classSymbol: self name wording: 'Preference Browser' brightColor: #(0.645 1.0 1.0)	pastelColor: #(0.886 1.0 1.0) helpMessage: 'A tool for expressing personal preferences for numerous options.'!

Item was added:
+ ----- Method: PreferenceBrowser>>defaultWindowColor (in category 'user interface') -----
+ defaultWindowColor
+ 	^ (Color r: 0.671 g: 0.9 b: 0.9)!

Item was changed:
  ----- Method: PreferenceView>>tearOffButton (in category 'user interface') -----
  tearOffButton
  	"Hand the user a button the can control this"
  
  	| aButton |
+ 	aButton := self representativeButtonWithColor: Color white inPanel: nil.
- 	aButton := self representativeButtonWithColor: self preference defaultBackgroundColor inPanel: nil.
  	aButton borderWidth: 1; borderColor:  Color black; useRoundedCorners.
  	aButton openInHand!

Item was removed:
- (PackageInfo named: 'PreferenceBrowser') postscript: 'Preferences removePreference: #syntaxHighlightingAsYouType.
- Preferences removePreference: #syntaxHighlightingAsYouTypeLeftArrowAssignment.
- Preferences removePreference: #syntaxHighlightingAsYouTypeAnsiAssignment.'!