--- a/ClassDefinitionChange.st Sat Jan 29 13:00:03 2011 +0100
+++ b/ClassDefinitionChange.st Sat Jan 29 13:02:29 2011 +0100
@@ -12,8 +12,8 @@
"{ Package: 'stx:libbasic3' }"
ClassChange subclass:#ClassDefinitionChange
- instanceVariableNames:'objectType nameSpaceOverride superClassName classType indexedType
- otherParameters instanceVariableNames classVariableNames
+ instanceVariableNames:'objectType superClassName classType indexedType otherParameters
+ instanceVariableNames classVariableNames
classInstanceVariableNames poolDictionaries category private
definitionSelector owningClassName'
classVariableNames:''
@@ -314,17 +314,6 @@
!ClassDefinitionChange methodsFor:'queries'!
-cutMyNameSpaceOf:aString
- aString isNil ifTrue:[ ^ aString ].
- nameSpaceOverride isNil ifTrue:[ ^ aString ].
- (aString startsWith:(nameSpaceOverride , '.')) ifTrue:[ ^ self cutNameSpaceOf:aString ].
- (aString startsWith:(nameSpaceOverride , '::')) ifTrue:[ ^ self cutNameSpaceOf:aString ].
-
- ^ aString
-
- "Modified: / 15-06-2010 / 14:51:49 / cg"
-!
-
definitionSelector
definitionSelector isNil ifTrue:[
self setupFromSource.
@@ -477,9 +466,9 @@
!ClassDefinitionChange class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.54 2010-09-05 16:06:35 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.55 2011-01-29 12:02:29 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.54 2010-09-05 16:06:35 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.55 2011-01-29 12:02:29 cg Exp $'
! !