definition message of a private-classes private subclass
authorca
Mon, 23 Dec 1996 15:59:31 +0100
changeset 2016 be15327a295c
parent 2015 7e6375a8e0f2
child 2017 fb9627540d0b
definition message of a private-classes private subclass
Class.st
--- a/Class.st	Mon Dec 23 13:20:43 1996 +0100
+++ b/Class.st	Mon Dec 23 15:59:31 1996 +0100
@@ -2231,7 +2231,8 @@
     superclass isNil ifTrue:[
         s := 'nil'
     ] ifFalse:[
-        ns == superclass nameSpace ifTrue:[
+        (ns == superclass nameSpace 
+        and:[superclass owningClass isNil]) ifTrue:[
             s := superclass nameWithoutPrefix
         ] ifFalse:[
             s := superclass name
@@ -4500,6 +4501,6 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.225 1996-12-23 10:56:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.226 1996-12-23 14:59:31 ca Exp $'
 ! !
 Class initialize!