ClassDefinitionChange.st
branchjv
changeset 3422 9e7c2aec7846
parent 3414 72fcb24786da
child 3435 d15ba356cc58
--- a/ClassDefinitionChange.st	Mon Dec 02 22:53:04 2013 +0000
+++ b/ClassDefinitionChange.st	Thu Dec 12 14:06:32 2013 +0000
@@ -88,7 +88,7 @@
     "/ Must enforce current namespace because caller (such as Workspace!!!!!!) enforces
     "/ the namespace wia NameSpaceQuerySignal. Therefore for classes not in Smalltalk.
     "/ `self changeClass` will always return nil, sigh.
-    ns := nameSpaceName notNil ifTrue:[(NameSpace name: nameSpaceName)] ifFalse:[nil].
+    ns := nameSpaceName notNil ifTrue:[(NameSpace fullName: nameSpaceName)] ifFalse:[nil].
     Class nameSpaceQuerySignal answer: nil do:[
         changeClass := self changeClass.
         changeClass isNil ifTrue:[^#+].
@@ -109,7 +109,7 @@
     "
 
     "Modified: / 31-08-2011 / 09:26:48 / cg"
-    "Modified: / 13-11-2013 / 17:09:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 12-12-2013 / 13:41:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 deltaDetail
@@ -213,9 +213,9 @@
     "this instance setup message is used when reading from a VW-xml change file.
      Support for this is not yet complete."
 
-    |indexedType imports|
+    | imports |
 
-    nameSpaceOverride := aNameSpaceName.
+    nameSpaceName := aNameSpaceName.
     classType := aClassType.
     otherParameters := Dictionary new addAll:otherParametersArg; yourself.
 
@@ -232,6 +232,7 @@
     category := otherParameters at:#category: ifAbsent:nil.
 
     "Modified: / 15-06-2010 / 14:50:35 / cg"
+    "Modified: / 12-12-2013 / 12:59:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 objectType