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