--- a/MCClassDefinition.st Mon Aug 12 02:44:57 2013 +0200
+++ b/MCClassDefinition.st Mon Aug 12 02:50:35 2013 +0200
@@ -2,7 +2,7 @@
MCDefinition subclass:#MCClassDefinition
instanceVariableNames:'name superclassName variables category type comment commentStamp
- traitComposition classTraitComposition installedClassName'
+ traitComposition classTraitComposition'
classVariableNames:''
poolDictionaries:''
category:'SCM-Monticello-Modeling'
@@ -196,12 +196,19 @@
!
installedClassName
- "if there was a namespace override, the installedClassName might be different
- from the class name"
+ | installedClassName |
+ installedClassName := self objectAttributeAt: #installedClassName.
^ installedClassName ? name
- "Created: / 07-09-2011 / 13:29:21 / cg"
+ "Created: / 07-09-2011 / 13:36:37 / cg"
+ "Modified: / 12-08-2013 / 01:49:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+installedClassName:aString
+ self objectAttributeAt: #installedClassName put: aString.
+
+ "Modified: / 12-08-2013 / 01:37:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
poolDictionaries
@@ -382,7 +389,7 @@
poolDictionaries: self sharedPoolsString
category: category.
- installedClassName := class name.
+ self installedClassName:class name.
self traitComposition ifNotNil: [
class setTraitComposition: (Compiler
@@ -630,14 +637,14 @@
!MCClassDefinition class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/goodies/monticello/MCClassDefinition.st,v 1.13 2013-05-31 10:39:06 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/monticello/MCClassDefinition.st,v 1.14 2013-08-12 00:50:35 vrany Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/goodies/monticello/MCClassDefinition.st,v 1.13 2013-05-31 10:39:06 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/monticello/MCClassDefinition.st,v 1.14 2013-08-12 00:50:35 vrany Exp $'
!
version_SVN
- ^ '$Id: MCClassDefinition.st,v 1.13 2013-05-31 10:39:06 vrany Exp $'
+ ^ '$Id: MCClassDefinition.st,v 1.14 2013-08-12 00:50:35 vrany Exp $'
! !