--- a/ClassDescription.st Fri Oct 10 08:57:01 2003 +0200
+++ b/ClassDescription.st Fri Oct 10 09:05:57 2003 +0200
@@ -936,6 +936,12 @@
"Modified: 22.8.1997 / 14:59:14 / cg"
!
+nameSpace
+ "raise an error: must be redefined in concrete subclass(es)"
+
+ ^ self subclassResponsibility
+!
+
renameCategory:oldCategory to:newCategory
"{ Pragma: +optSpace }"
@@ -2936,6 +2942,13 @@
"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"
@@ -3982,7 +3995,7 @@
!ClassDescription class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.160 2003-10-10 06:56:58 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.161 2003-10-10 07:05:54 cg Exp $'
! !
ClassDescription initialize!