[Pkg] The Trunk: PreferenceBrowser-mt.62.mcz
commits at source.squeak.org
commits at source.squeak.org
Sun Jul 31 08:33:40 UTC 2016
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.'!
More information about the Packages
mailing list