ClassDefinitionChange.st
changeset 3485 d191b20c93a5
parent 3446 6ebdd350bc35
child 3491 39ab3f1bc8fa
--- a/ClassDefinitionChange.st	Tue Feb 11 16:07:33 2014 +0100
+++ b/ClassDefinitionChange.st	Wed Feb 12 21:47:37 2014 +0100
@@ -372,14 +372,16 @@
     cls superclass name ~= superClassName ifTrue:[ ^ true ].
     cls instanceVariableString ~= instanceVariableNames ifTrue:[ ^ true ].
     cls classVariableString ~= classVariableNames ifTrue:[ ^ true ].
-    cls class instanceVariableString ~= classInstanceVariableNames ifTrue:[ ^ true ].
-    cls sharedPoolNames ~= poolDictionaries ifTrue:[ ^ true ].
+    cls class instanceVariableString ~= (classInstanceVariableNames ? '') ifTrue:[ ^ true ].
+    cls poolDictionaries ~= poolDictionaries ifTrue:[ ^ true ].
     cls category ~= category ifTrue:[ ^ true ].
     cls isPrivate ifTrue:[
         cls owningClass name ~= owningClassName ifTrue:[ ^ true ].
     ].
     cls definitionSelector ~= self definitionSelector ifTrue:[ ^ true ].
     ^  false
+
+    "Modified: / 12-02-2014 / 20:25:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 isForSameAs:changeB
@@ -615,10 +617,14 @@
 definitionSelector
     definitionSelector isNil ifTrue:[
         self setupFromSource.
+        definitionSelector isNil ifTrue:[ 
+            definitionSelector := #'subclass:instanceVariableNames:classVariableNames:poolDictionaries:category:'
+        ].
     ].
     ^ definitionSelector
 
     "Modified: / 11-10-2006 / 14:11:44 / cg"
+    "Modified: / 12-02-2014 / 20:25:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 definitionSelector:aSelector
@@ -827,11 +833,11 @@
 !ClassDefinitionChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.87 2014-02-05 17:51:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.88 2014-02-12 20:47:37 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.87 2014-02-05 17:51:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.88 2014-02-12 20:47:37 vrany Exp $'
 !
 
 version_HG
@@ -840,6 +846,6 @@
 !
 
 version_SVN
-    ^ '$Id: ClassDefinitionChange.st,v 1.87 2014-02-05 17:51:59 cg Exp $'
+    ^ '$Id: ClassDefinitionChange.st,v 1.88 2014-02-12 20:47:37 vrany Exp $'
 ! !