--- 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 $'
! !