Christoph Thiede uploaded a new version of 60Deprecated to project The Trunk:
http://source.squeak.org/trunk/60Deprecated-ct.103.mcz

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

Name: 60Deprecated-ct.103
Author: ct
Time: 10 January 2022, 9:57:47.516477 pm
UUID: 665cba43-46c4-6145-b97d-445a835c8306
Ancestors: 60Deprecated-ct.102

Moves WindowColorSpec from 51Deprecated to 60Deprecated because it is referenced from the latter package already via Object class>>#windowColorSpecification (*60Deprecated-window color). See: http://lists.squeakfoundation.org/pipermail/squeak-dev/2021-April/215018.html

=============== Diff against 60Deprecated-ct.102 ===============

Item was added:
+ Object subclass: #WindowColorSpec
+ 	instanceVariableNames: 'classSymbol wording brightColor pastelColor normalColor helpMessage'
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: '60Deprecated-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!