The Trunk: SMLoader-mt.88.mcz

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)!