class: TraitDefinitionChange
class definition
added:
#printOn:
#source
--- 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 $'
! !