class: ClassDefinitionChange
authorJan Vrany <jan.vrany@fit.cvut.cz>
Thu, 09 May 2013 14:47:37 +0200
changeset 3270 b986056e7fe8
parent 3269 84de19204303
child 3271 3f992fda1fa6
class: ClassDefinitionChange comment/format in: #nameSpaceName
ClassDefinitionChange.st
--- a/ClassDefinitionChange.st	Tue May 07 21:00:45 2013 +0200
+++ b/ClassDefinitionChange.st	Thu May 09 14:47:37 2013 +0200
@@ -177,12 +177,15 @@
 !
 
 nameSpaceName
+
+    "/ JV: What is the following good for? Please explain..."
     objectType == #variable ifTrue:[
         ^ nil
     ].
     ^ self cutNameSpaceOf:(self nameSpaceOverride ? super nameSpaceName)
 
     "Modified: / 07-09-2011 / 20:47:14 / cg"
+    "Modified (comment): / 09-05-2013 / 13:46:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 nameSpaceName: aNameSpaceName classType: aClassType otherParameters:otherParametersArg
@@ -774,19 +777,19 @@
 !ClassDefinitionChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.82 2013-05-01 08:31:30 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.83 2013-05-09 12:47:37 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.82 2013-05-01 08:31:30 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.83 2013-05-09 12:47:37 vrany Exp $'
 !
 
 version_HG
 
-    ^ '§Changeset: <not expanded> §'
+    ^ '$Changeset: <not expanded> $'
 !
 
 version_SVN
-    ^ '§Id:: ClassDefinitionChange.st 1936 2012-07-24 15:47:21Z vranyj1                                                             §'
+    ^ '$Id: ClassDefinitionChange.st,v 1.83 2013-05-09 12:47:37 vrany Exp $'
 ! !