Marcel Taeumel uploaded a new version of SMLoader to project The Trunk: http://source.squeak.org/trunk/SMLoader-mt.88.mcz
==================== Summary ====================
Name: SMLoader-mt.88 Author: mt Time: 31 July 2016, 10:39:59.37549 am UUID: 401c17bd-0096-f542-8b44-53ed7ede31ac Ancestors: SMLoader-tpr.87
*** 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 SMLoader-tpr.87 ===============
Item was changed: ----- Method: SMLoader class>>initialize (in category 'class initialization') ----- initialize "Hook us up in the world menu." "self initialize" Smalltalk at: #ToolBuilder ifAbsent: [self registerInFlapsRegistry. - (Preferences windowColorFor: #SMLoader) = Color white - ifTrue: ["not set" - Preferences - setWindowColorFor: #SMLoader - to: (Color colorFrom: self windowColorSpecification brightColor)]. (TheWorldMenu respondsTo: #registerOpenCommand:) ifTrue: [| oldCmds | oldCmds := TheWorldMenu registry select: [:cmd | cmd first includesSubstring: 'Package Loader']. oldCmds do: [:cmd | TheWorldMenu unregisterOpenCommand: cmd first]. TheWorldMenu registerOpenCommand: {self openMenuString. {self. #open}}]]. DefaultFilters := OrderedCollection new. DefaultCategoriesToFilterIds := OrderedCollection new!
Item was removed: - ----- Method: SMLoader class>>windowColorSpecification (in category 'window color') ----- - windowColorSpecification - "Answer a WindowColorSpec object that declares my preference." - - ^WindowColorSpec - classSymbol: self name - wording: 'Package Loader' - brightColor: Color yellow muchLighter duller - pastelColor: Color yellow veryMuchLighter duller - helpMessage: 'The SqueakMap Package Loader'!
Item was added: + ----- Method: SMLoader>>defaultColor (in category 'user interface') ----- + defaultColor + + ^ self defaultWindowColor!
Item was added: + ----- Method: SMLoader>>defaultWindowColor (in category 'user interface') ----- + defaultWindowColor + ^ (Color r: 0.801 g: 0.801 b: 0.614)!
Item was changed: ----- Method: SMLoaderPlus class>>initialize (in category 'class initialization') ----- initialize "Hook us up in the world menu." "self initialize" Smalltalk at: #ToolBuilder ifPresent: [ : tb | self registerInFlapsRegistry. - (Preferences windowColorFor: #SMLoader) = Color white "note set" ifTrue: - [ - #(#SMLoader #SMReleaseBrowser ) do: - [ : each | - Preferences - setWindowColorFor: each - to: (Color colorFrom: self windowColorSpecification brightColor) ] ]. (TheWorldMenu respondsTo: #registerOpenCommand:) ifTrue: [ | oldCmds | oldCmds := TheWorldMenu registry select: [ : cmd | cmd first includesSubstring: 'Package Loader' ]. oldCmds do: [ : cmd | TheWorldMenu unregisterOpenCommand: cmd first ]. TheWorldMenu registerOpenCommand: {self openMenuString. {self. #open}} ] ]. DefaultFilters := OrderedCollection new. DefaultCategoriesToFilterIds := OrderedCollection new!
Item was removed: - ----- Method: SMLoaderPlus class>>windowColorSpecification (in category 'window color') ----- - windowColorSpecification - "Answer a WindowColorSpec object that declares my preference." - - ^WindowColorSpec - classSymbol: self name - wording: 'Package Loader' - brightColor: Color yellow muchLighter duller - pastelColor: Color yellow veryMuchLighter duller - helpMessage: 'The SqueakMap Package Loader'!
Item was added: + ----- Method: SMLoaderPlus>>defaultWindowColor (in category 'user interface') ----- + defaultWindowColor + ^ (Color r: 0.801 g: 0.801 b: 0.614)!
Item was removed: - ----- Method: SMReleaseBrowser class>>windowColorSpecification (in category 'window color') ----- - windowColorSpecification - "Answer a WindowColorSpec object that declares my preference." - ^WindowColorSpec - classSymbol: self name - wording: 'Package Release Browser' - brightColor: Color yellow muchLighter duller - pastelColor: Color yellow veryMuchLighter duller - helpMessage: 'The SqueakMap Release Browser'!
Item was added: + ----- Method: SMReleaseBrowser>>defaultWindowColor (in category 'user interface') ----- + defaultWindowColor + ^ (Color r: 0.801 g: 0.801 b: 0.614)!