MCClassDefinition.st
changeset 894 0c981690a584
parent 876 14ab9847bdda
child 897 76481ea7aaba
--- 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 $'
 ! !