The Trunk: PreferenceBrowser-mt.55.mcz

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

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

Name: PreferenceBrowser-mt.55
Author: mt
Time: 28 August 2015, 10:39:02.545 am
UUID: 7a5295ca-614d-3a44-b69e-c8a9b69ec92b
Ancestors: PreferenceBrowser-mt.54

Adds color preference views (moved from EToys package).

=============== Diff against PreferenceBrowser-mt.54 ===============

Item was added:
+ PBPreferenceView subclass: #PBColorPreferenceView
+ instanceVariableNames: 'button'
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'PreferenceBrowser'!

Item was added:
+ ----- Method: PBColorPreferenceView class>>initialize (in category 'class initialization') -----
+ initialize
+ PreferenceViewRegistry ofColorPreferences register: self.!

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

Item was added:
+ ----- Method: PBColorPreferenceView>>adjustLabelColor (in category 'user interface') -----
+ adjustLabelColor
+ | textColor |
+ (self preference preferenceValue luminance < 0.5)
+ ifTrue:[ textColor := Color white]
+ ifFalse:[ textColor := Color black].
+ button allMorphsDo: [:m | (m isKindOf: StringMorph) ifTrue: [ m color: textColor]]. !

Item was added:
+ ----- Method: PBColorPreferenceView>>borderStyleMenu (in category 'user interface') -----
+ borderStyleMenu
+ "Add border-style menu items"
+
+ |  aMenu |
+ aMenu := MenuMorph new defaultTarget: self.
+
+ aMenu addStayUpItemSpecial.
+ aMenu add: 'border color...' translated target: self selector:#changeColor: argument: button.
+ aMenu addLine.
+ BorderStyle borderStyleChoices do:
+ [:sym | (aMenu borderStyleForSymbol: sym)
+ ifNotNil:
+ [aMenu add: sym translated target: self selector: #setBorderStyle: argument: sym]].
+ ^aMenu openNear: ActiveHand bounds.
+ !

Item was added:
+ ----- Method: PBColorPreferenceView>>changeColor: (in category 'user interface') -----
+ changeColor: aButton
+ aButton changeColor.
+ self preference preferenceValue: aButton fillStyle.
+ button label: self preference preferenceValue asString.
+ self adjustLabelColor !

Item was added:
+ ----- Method: PBColorPreferenceView>>colorMenuButton (in category 'user interface') -----
+ colorMenuButton
+ | selector name |
+ name := self preference name.
+ (name includesSubstring: 'border' caseSensitive: false)
+ ifTrue: [ selector := #borderStyleMenu]
+ ifFalse:[ selector := #fillStyleMenu].
+ button := SimpleButtonMorph new
+ label: self preference preferenceValue asString;
+ actionSelector: selector;
+ target: self.
+ name = #menuBorderColor
+ ifTrue:[ ^button borderColor: MenuMorph menuBorderColor; borderWidth: MenuMorph menuBorderWidth].
+ name = #menuTitleBorderColor
+ ifTrue:[ ^button borderColor: MenuMorph menuTitleBorderColor; borderWidth: MenuMorph menuTitleBorderWidth].
+ self adjustLabelColor.
+ ^button color: self preference preferenceValue
+
+
+ "UpdatingRectangleMorph new
+ target: self preference;
+ getSelector: #preferenceValue;
+ putSelector: #preferenceValue:;
+ extent: 22@22;
+ setBalloonText: 'click here to change the color' translated;
+ yourself."!

Item was added:
+ ----- Method: PBColorPreferenceView>>colorSwatch (in category 'user interface') -----
+ colorSwatch
+ ^UpdatingRectangleMorph new
+ target: self preference;
+ getSelector: #preferenceValue;
+ putSelector: #preferenceValue:;
+ extent: 22@22;
+ setBalloonText: 'click here to change the color' translated;
+ yourself.!

Item was added:
+ ----- Method: PBColorPreferenceView>>fillStyleMenu (in category 'user interface') -----
+ fillStyleMenu
+ "Add the items for changing the current fill style of the Morph"
+ |  aMenu |
+ "self canHaveFillStyles ifFalse:[^aMenu add: 'change color...' translated target: self action: #changeColor]."
+ aMenu := MenuMorph new defaultTarget: self.
+ "self preference preferenceValue addFillStyleMenuItems: aMenu hand: nil from: self."
+ aMenu add: 'change color...' translated target: self selector:#changeColor: argument: button.
+ aMenu addLine.
+ aMenu add: 'solid fill' translated action: #useSolidFill.
+ "aMenu add: 'gradient fill' translated action: #useGradientFill.
+ aMenu add: 'bitmap fill' translated action: #useBitmapFill.
+ aMenu add: 'default fill' translated action: #useDefaultFill."
+ ^aMenu openNear: ActiveHand bounds.
+ !

Item was added:
+ ----- Method: PBColorPreferenceView>>representativeButtonWithColor:inPanel: (in category 'user interface') -----
+ representativeButtonWithColor: aColor inPanel: aPreferenceBrowser
+ ^self horizontalPanel
+ layoutInset: 2;
+ color: aColor;
+ cellInset: 20;
+ cellPositioning: #center;
+ addMorphBack: (StringMorph contents: self preference name);
+ addMorphBack: self horizontalFiller;
+ addMorphBack: self colorMenuButton;
+ yourself!

Item was added:
+ ----- Method: PBColorPreferenceView>>setBorderStyle: (in category 'user interface') -----
+ setBorderStyle: aBorderStyle
+ self preference name = #menuBorderColor
+ ifTrue: [button color: MenuMorph menuColor;
+ borderWidth: MenuMorph menuBorderWidth].
+ self preference name = #menuTitleBorderColor
+ ifTrue: [button color: MenuMorph menuTitleColor;
+ borderWidth: MenuMorph menuTitleBorderWidth].
+ self preference preferenceValue: aBorderStyle.
+ button label: self preference preferenceValue asString;
+ borderColor: aBorderStyle.
+ !

Item was added:
+ ----- Method: PBColorPreferenceView>>useGradientFill (in category 'user interface') -----
+ useGradientFill
+
+ "Make receiver use a solid fill style (e.g., a simple color)"
+
+
+ | color1 color2 fill |
+ self preference preferenceValue isGradientFill ifTrue:[^self]. "Already done"
+ color1 := Color white darker.
+ color2 := self preference preferenceValue asColor.
+ fill := GradientFillStyle ramp: {0.0 -> color1. 1.0 -> color2}.
+ fill origin: ActiveWorld topLeft.
+ fill direction: 0 @ ActiveWorld bounds extent y.
+ fill normal: ActiveWorld bounds extent x @ 0.
+ fill radial: false.
+ self preference preferenceValue: fill.
+ button label: self preference preferenceValue asString;
+ color: self preference preferenceValue!

Item was added:
+ ----- Method: PBColorPreferenceView>>useSolidFill (in category 'user interface') -----
+ useSolidFill
+ "Make receiver use a solid fill style (e.g., a simple color)"
+ self preference preferenceValue isSolidFill ifTrue:[^self]. "Already done"
+ self preference preferenceValue: self preference preferenceValue asColor. "Try minimizing changes"
+
+ button label: self preference preferenceValue asString;
+ color: self preference preferenceValue
+ !

Item was added:
+ PBColorPreferenceView subclass: #PBWindowColorPreferenceView
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'PreferenceBrowser'!

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

Item was added:
+ ----- 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 added:
+ ----- Method: PBWindowColorPreferenceView class>>viewRegistry (in category 'class initialization') -----
+ viewRegistry
+ ^(PreferenceViewRegistry registryOf: #windowColorPreferences)
+ viewOrder: 6;
+ yourself.!

Item was added:
+ ----- 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.!