Chris Muller uploaded a new version of MonticelloForTraits to project Squeak 4.6:
http://source.squeak.org/squeak46/MonticelloForTraits-fbs.1.mcz==================== Summary ====================
Name: MonticelloForTraits-fbs.1
Author: fbs
Time: 9 August 2013, 8:46:48.716 am
UUID: 160be615-5ab7-4148-a7cb-60dd629ab085
Ancestors:
Initial commit. This package extends Monticello to support Traits.
It exists so that one may freely unload Monticello, Traits, or both, in an image.
==================== Snapshot ====================
----- Method: Trait>>asClassDefinition (in category '*MonticelloForTraits') -----
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].!
----- Method: Trait>>classDefinitions (in category '*MonticelloForTraits') -----
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!