The Trunk: Monticello-fbs.550.mcz

Frank Shearar uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-fbs.550.mcz

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

Name: Monticello-fbs.550
Author: fbs
Time: 7 August 2013, 6:52:11.495 pm
UUID: fecae8ba-9dc4-244f-b17a-ad59c1487bdf
Ancestors: Monticello-cmm.549

#asClassDefinition, #classDefinitions implementors belong in Monticello.

=============== Diff against Monticello-cmm.549 ===============

Item was added:
+ ----- Method: Trait>>asClassDefinition (in category '*monticello') -----
+ asClassDefinition
+ ^Smalltalk at: #MCTraitDefinition ifPresent:[:aClass|
+ aClass
+ name: self name
+ traitComposition: self traitCompositionString
+ category: self category
+ comment: self organization classComment asString
+ commentStamp: self organization commentStamp].!

Item was added:
+ ----- Method: Trait>>classDefinitions (in category '*monticello') -----
+ classDefinitions
+ | definitions |
+ definitions := OrderedCollection with: self asClassDefinition.
+ (self hasClassTrait
+ and: [self classTrait hasTraitComposition
+ and: [self classTrait traitComposition isEmpty not]])
+ ifTrue: [definitions add: self classTrait asMCDefinition].
+ ^definitions asArray!