--- a/TraitDefinitionChange.st	Tue Apr 02 14:03:05 2013 +0200
+++ b/TraitDefinitionChange.st	Tue Apr 02 21:18:40 2013 +0200
@@ -1,6 +1,6 @@
 "{ Package: 'stx:libbasic3' }"
 
-Change subclass:#TraitDefinitionChange
+ClassChange subclass:#TraitDefinitionChange
 	instanceVariableNames:'baseTrait traitComposition category'
 	classVariableNames:''
 	poolDictionaries:''
@@ -36,6 +36,24 @@
     category := something.
 !
 
+source
+    ^ String streamContents:[:s |
+        s 
+            nextPutAll: 'Trait named: ';
+            nextPutAll: className; cr;
+            nextPutAll: '    uses: '. 
+        traitComposition isEmptyOrNil ifTrue:[
+            s nextPutAll: '{}'. 
+        ] ifFalse:[
+            s nextPutAll: traitComposition. 
+        ].
+        s 
+            cr; 
+            nextPutAll: '    category: '.
+        category asString storeOn:s.    
+    ]
+!
+
 traitComposition
     ^ traitComposition
 !
@@ -44,13 +62,21 @@
     traitComposition := something.
 ! !
 
+!TraitDefinitionChange methodsFor:'printing & storing'!
+
+printOn:aStream
+    aStream nextPutAll:className; nextPutAll:' {trait definition}'
+
+    "Modified: / 12-10-2006 / 17:48:28 / cg"
+! !
+
 !TraitDefinitionChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/TraitDefinitionChange.st,v 1.1 2013-01-18 12:55:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/TraitDefinitionChange.st,v 1.2 2013-04-02 19:18:40 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/TraitDefinitionChange.st,v 1.1 2013-01-18 12:55:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/TraitDefinitionChange.st,v 1.2 2013-04-02 19:18:40 cg Exp $'
 ! !