The Trunk: PreferenceBrowser-mt.62.mcz

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.'!