--- a/Class.st Fri Oct 10 08:25:51 2003 +0200
+++ b/Class.st Fri Oct 10 08:57:01 2003 +0200
@@ -3717,6 +3717,13 @@
"Modified: 22.1.1997 / 18:43:52 / cg"
!
+topNameSpace
+ "return the nameSpace of my topOwningClass (if private) or my own nameSpace."
+
+ self isPrivate ifTrue:[^ self topOwningClass topNameSpace].
+ ^ self nameSpace
+!
+
wasAutoloaded
"return true, if this class came into the system via an
autoload; false otherwise.
@@ -4868,5 +4875,5 @@
!Class class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.445 2003-09-22 09:11:35 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.446 2003-10-10 06:57:01 cg Exp $'
! !
--- a/ClassDescription.st Fri Oct 10 08:25:51 2003 +0200
+++ b/ClassDescription.st Fri Oct 10 08:57:01 2003 +0200
@@ -2936,13 +2936,6 @@
"Created: / 19.6.1998 / 02:28:09 / cg"
!
-topNameSpace
- "return the nameSpace of my topOwningClass (if private) or my own nameSpace."
-
- self isPrivate ifTrue:[^ self topOwningClass topNameSpace].
- ^ self nameSpace
-!
-
whichCategoryIncludesSelector:aSelector
"return the category under which the method for aSelector is
classified"
@@ -3989,7 +3982,7 @@
!ClassDescription class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.159 2003-09-22 09:10:49 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.160 2003-10-10 06:56:58 cg Exp $'
! !
ClassDescription initialize!