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

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

Name: 51Deprecated-mt.34
Author: mt
Time: 31 July 2016, 10:29:55.07349 am
UUID: 99b93939-2985-7149-9b93-1aa8b90728c7
Ancestors: 51Deprecated-mt.33

*** 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 51Deprecated-mt.33 ===============

Item was changed:
  SystemOrganization addCategory: #'51Deprecated-Files-Kernel'!
  SystemOrganization addCategory: #'51Deprecated-Morphic-Support'!
  SystemOrganization addCategory: #'51Deprecated-Morphic-Text Support'!
+ SystemOrganization addCategory: #'51Deprecated-PreferenceBrowser'!
+ SystemOrganization addCategory: #'51Deprecated-System-Support'!

Item was added:
+ ----- Method: Object>>defaultBackgroundColor (in category '*51Deprecated') -----
+ defaultBackgroundColor
+ 	
+ 	self deprecated: 'Implement #uniformWindowColor and #customWindowColor in your model.'.
+ 	^ Color veryVeryLightGray!

Item was added:
+ PBColorPreferenceView subclass: #PBWindowColorPreferenceView
+ 	instanceVariableNames: ''
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: '51Deprecated-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: #yourself arguments: {} balloonText: 'Use standard bright colors for all windows' translated.
+ 	self addActionTitled: 'Pastel' target: Preferences selector: #yourself arguments: {} balloonText: 'Use standard pastel colors for all windows' translated.	
+ 	self addActionTitled: 'Gray' target: Preferences selector: #yourself arguments: {} balloonText: 'Use gray backgrounds for all standard windows' translated.!

Item was added:
+ ----- Method: Preferences class>>setWindowColorFor:to: (in category '*51Deprecated-window colors') -----
+ setWindowColorFor: modelSymbol to: incomingColor
+ 	
+ 	| aColor |
+ 	self deprecated: 'Configure UI themes directly.'.
+ 	aColor := incomingColor asNontranslucentColor.
+ 	(aColor = ColorPickerMorph perniciousBorderColor or: [aColor = Color black]) 
+ 		ifTrue: [^ self].
+ 	UserInterfaceTheme set: #customWindowColor for: modelSymbol to: aColor.	!

Item was added:
+ ----- Method: Preferences class>>uniformWindowColor (in category '*51Deprecated-window colors') -----
+ uniformWindowColor
+ 
+ 	self deprecated: 'Use Model >> #uniformWindowColor.'.
+ 	^Color veryVeryLightGray!

Item was added:
+ ----- Method: Preferences class>>windowColorFor: (in category '*51Deprecated-window colors') -----
+ windowColorFor: aModelClassName
+ 	
+ 	| classToCheck |
+ 	self deprecated: 'Use Model >> #customWindowColor'.	
+ 	classToCheck := Smalltalk at: aModelClassName.
+ 	^ (UserInterfaceTheme current get: #customWindowColor for: classToCheck)
+ 		ifNil: [(UserInterfaceTheme current get: #uniformWindowColor for: classToCheck)
+ 			ifNil: [Color veryVeryLightGray]]!

Item was added:
+ ----- Method: Preferences class>>windowColorTable (in category '*51Deprecated-window colors') -----
+ windowColorTable
+ 	"Answer a list of WindowColorSpec objects, one for each tool to be represented in the window-color panel"
+ 	
+ 	self deprecated: 'Consult current UI theme.'.
+ 	^ {}!

Item was added:
+ ----- Method: SystemWindow>>setLabelFont: (in category '*51Deprecated') -----
+ setLabelFont: aFont
+ 
+ 	label ifNil: [^ self].
+ 	label font: aFont.
+ !

Item was added:
+ Object subclass: #WindowColorRegistry
+ 	instanceVariableNames: ''
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: '51Deprecated-System-Support'!
+ WindowColorRegistry class
+ 	instanceVariableNames: 'registry'!
+ 
+ !WindowColorRegistry commentStamp: 'hpt 10/9/2005 22:54' prior: 0!
+ I provide to the applications developer a place where they can register their WindowColorSpecification for their application's windows.
+ !
+ WindowColorRegistry class
+ 	instanceVariableNames: 'registry'!

Item was added:
+ ----- Method: WindowColorRegistry class>>initialize (in category 'registry') -----
+ initialize
+ 	self refresh.!

Item was added:
+ ----- Method: WindowColorRegistry class>>refresh (in category 'registry') -----
+ refresh
+ 	"This is a one-time only method for bootstraping the new registry. Here we will scan all classes for #windowColorSpecification methods and register those to the registry"
+ 
+ 	registry := nil.
+ 	((self systemNavigation allClassesImplementing: #windowColorSpecification)
+ 		collect: [:aClass | aClass theNonMetaClass windowColorSpecification])
+ 		do: [:spec | self registerColorSpecification: spec toClassNamed: spec classSymbol ].!

Item was added:
+ ----- Method: WindowColorRegistry class>>registerColorSpecification:toClassNamed: (in category 'registry') -----
+ registerColorSpecification: aColorSpec toClassNamed: aClassName
+ 	self registry at: aClassName asSymbol put: aColorSpec.!

Item was added:
+ ----- Method: WindowColorRegistry class>>registeredWindowColorSpecFor: (in category 'registry') -----
+ registeredWindowColorSpecFor: aClassName
+ 	"Return the Window Color Spec for the given class. "
+ 	^self registry at: aClassName asSymbol ifAbsent: [].
+ !

Item was added:
+ ----- Method: WindowColorRegistry class>>registeredWindowColorSpecs (in category 'registry') -----
+ registeredWindowColorSpecs
+ 	^self registry values!

Item was added:
+ ----- Method: WindowColorRegistry class>>registry (in category 'registry') -----
+ registry
+ 	^registry ifNil: [registry := Dictionary new].!

Item was added:
+ ----- Method: WindowColorRegistry class>>unregisterColorSpecificationForClassNamed: (in category 'registry') -----
+ unregisterColorSpecificationForClassNamed: aClassName
+ 	
+ 	self registry removeKey: aClassName asSymbol !

Item was added:
+ Object subclass: #WindowColorSpec
+ 	instanceVariableNames: 'classSymbol wording brightColor pastelColor normalColor helpMessage'
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: '51Deprecated-System-Support'!

Item was added:
+ ----- Method: WindowColorSpec class>>classSymbol:wording:brightColor:pastelColor:helpMessage: (in category 'instance creation') -----
+ classSymbol: sym wording: wrd brightColor: brCol pastelColor: paCol helpMessage: hlpMsg
+ 	"Answer a new instance of the receiver with the given slots filled in"
+ 
+ 	^ self new classSymbol: sym wording: wrd brightColor: brCol pastelColor: paCol helpMessage: hlpMsg!

Item was added:
+ ----- Method: WindowColorSpec class>>classSymbol:wording:brightColor:pastelColor:normalColor:helpMessage: (in category 'instance creation') -----
+ classSymbol: sym wording: wrd brightColor: brCol pastelColor: paCol normalColor: noCol helpMessage: hlpMsg
+ 
+ 	^ self new classSymbol: sym wording: wrd brightColor: brCol pastelColor: paCol normalColor: noCol helpMessage: hlpMsg!

Item was added:
+ ----- Method: WindowColorSpec>>brightColor (in category 'access') -----
+ brightColor
+ 	"Answer the brightColor"
+ 
+ 	^ brightColor!

Item was added:
+ ----- Method: WindowColorSpec>>classSymbol (in category 'access') -----
+ classSymbol
+ 	"Answer the classSymbol"
+ 
+ 	^ classSymbol!

Item was added:
+ ----- Method: WindowColorSpec>>classSymbol:wording:brightColor:pastelColor:helpMessage: (in category 'initialization') -----
+ classSymbol: sym wording: wrd brightColor: brCol pastelColor: paCol helpMessage: hlpMsg
+ 	"Initialize the receiver's instance variables"
+ 
+ 	self
+ 		classSymbol: sym
+ 		wording: wrd
+ 		brightColor: brCol
+ 		pastelColor: paCol
+ 		normalColor: (Color colorFrom: brCol) duller
+ 		helpMessage: hlpMsg!

Item was added:
+ ----- Method: WindowColorSpec>>classSymbol:wording:brightColor:pastelColor:normalColor:helpMessage: (in category 'initialization') -----
+ classSymbol: sym wording: wrd brightColor: brCol pastelColor: paCol normalColor: noCol helpMessage: hlpMsg
+ 	"Initialize the receiver's instance variables"
+ 
+ 	classSymbol := sym.
+ 	wording := wrd.
+ 	brightColor := brCol.
+ 	pastelColor := paCol.
+ 	normalColor := noCol.
+ 	helpMessage := hlpMsg!

Item was added:
+ ----- Method: WindowColorSpec>>helpMessage (in category 'access') -----
+ helpMessage
+ 	"Answer the helpMessage"
+ 
+ 	^ helpMessage!

Item was added:
+ ----- Method: WindowColorSpec>>normalColor (in category 'access') -----
+ normalColor
+ 
+ 	^ normalColor!

Item was added:
+ ----- Method: WindowColorSpec>>pastelColor (in category 'access') -----
+ pastelColor
+ 	"Answer the pastelColor"
+ 
+ 	^ pastelColor!

Item was added:
+ ----- Method: WindowColorSpec>>printOn: (in category 'printing') -----
+ printOn: aStream
+ 	"Print the receiver on a stream"
+ 
+ 	super printOn: aStream.
+ 	classSymbol printOn: aStream. 
+ 	aStream nextPutAll: ' bright: ', brightColor printString, ' pastel: ', pastelColor printString, ' normal: ', normalColor printString!

Item was added:
+ ----- Method: WindowColorSpec>>wording (in category 'access') -----
+ wording
+ 	"Answer the wording"
+ 
+ 	^ wording!

Item was added:
+ (PackageInfo named: '51Deprecated') postscript: 'PBWindowColorPreferenceView unload.
+ WindowColorRegistry refresh.'!