[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