- move #originalName from RPackage to kernel

- implement #nonObsoleteClass in terms of #originalName
- add a test

- implement obsoleteClasses to use #isObsolete

fixes #10144

src/Kernel-Tests/BehaviorTest.class.st

@@ -209,6 +209,12 @@ BehaviorTest >> testMethodsWritingSlot [
 	self assert: numberViaSlot equals: numberViaIVar
 ]
 
+{ #category : #tests }
+BehaviorTest >> testNonObsoleteClass [
+	"Does it work on not-obsolete classes?"
+	self assert: Object nonObsoleteClass equals: Object
+]
+
 { #category : #'tests - properties' }
 BehaviorTest >> testPropertyValueAtPut [
 	| testValue |

src/Kernel/Behavior.class.st

@@ -1268,11 +1268,7 @@ Behavior >> new: sizeRequested [
 Behavior >> nonObsoleteClass [
 	"Attempt to find and return the current version of this obsolete class"
 
-	| obsName |
-	obsName := self name.
-	[obsName beginsWith: 'AnObsolete']
-		whileTrue: [obsName := obsName copyFrom: 'AnObsolete' size + 1 to: obsName size].
-	^ self environment at: obsName asSymbol
+	^ self environment at: self originalName
 ]
 
 { #category : #initialization }
@@ -1288,6 +1284,13 @@ Behavior >> obsoleteSubclasses [
 	^ obs copyWithout: nil
 ]
 
+{ #category : #initialization }
+Behavior >> originalName [
+	^ ((self isObsolete and: [ self name beginsWith: 'AnObsolete' ])
+		ifTrue: [ (self name copyFrom:   'AnObsolete' size + 1 to: self name size ) ]
+		ifFalse:  [ self name ]) asSymbol
+]
+
 { #category : #copying }
 Behavior >> postCopy [
 	super postCopy.

src/Kernel/Metaclass.class.st

@@ -191,7 +191,7 @@ Metaclass >> isMetaclassOfClassOrNil [
 { #category : #testing }
 Metaclass >> isObsolete [
 	"Return true if the receiver is obsolete"
-	^self soleInstance == nil "Either no thisClass"
+	^self soleInstance isNil "Either no thisClass"
 		or:[self soleInstance classSide ~~ self "or I am not the class of thisClass"
 			or:[self soleInstance isObsolete]] "or my instance is obsolete"
 ]

src/System-Support/SystemNavigation.class.st

@@ -368,22 +368,22 @@ SystemNavigation >> obsoleteClasses [
 		allInstancesDo: [ :m | 
 			| c |
 			c := m soleInstance.
-			(c notNil and: [ 'AnOb*' match: c name asString ])
+			(c notNil and: [ c isObsolete ])
 				ifTrue: [ obs add: c ] ].
 	^ obs asArray	
 
 "Likely in a ClassDict or Pool...
-(Association allInstances select: [:a | (a value isKindOf: Class) and: ['AnOb*' match: a value name]]) asArray
+(Association allInstances select: [:a | (a value isKindOf: Class) and: [a value isObsolete]]) asArray
 "	
 
 "Obsolete class refs or super pointer in last lit of a method...
 | n l found |
-Smalltalk browseAllSelect:
+SystemNavigation new browseAllSelect:
 	[:m | found := false.
 	1 to: m numLiterals do:
 		[:i | (((l := m literalAt: i) isMemberOf: Association)
 				and: [(l value isKindOf: Behavior)
-				and: ['AnOb*' match: l value name]])
+				and: [l value isObsolete]])
 			ifTrue: [found := true]].
 	found]
 "