The Trunk: System-ar.367.mcz

Andreas Raab uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-ar.367.mcz

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

Name: System-ar.367
Author: ar
Time: 1 September 2010, 10:53:27.916 pm
UUID: ea5186f8-9f4e-604e-ad4a-45f3e1380905
Ancestors: System-eem.366

Reclassify methods to fix various package dependencies.

=============== Diff against System-eem.366 ===============

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

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

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"
+
+ classSymbol := sym.
+ wording := wrd.
+ brightColor := brCol.
+ pastelColor := paCol.
+ helpMessage := hlpMsg!

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

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