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.'!
packages@lists.squeakfoundation.org