class definition
authorClaus Gittinger <cg@exept.de>
Sat, 29 Jan 2011 13:02:29 +0100
changeset 2316 df2a19de6d8a
parent 2315 dde09d0ab7bf
child 2317 d62da5a37fc3
class definition
ClassDefinitionChange.st
--- 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 $'
 ! !