--- a/BrowserView.st Mon Dec 23 13:23:40 1996 +0100
+++ b/BrowserView.st Mon Dec 23 16:05:31 1996 +0100
@@ -7525,9 +7525,12 @@
nm := aClass nameWithoutPrefix.
ns := aClass nameSpace.
+ ns isNil ifTrue:[
+ ^ nm
+ ].
currentNamespace = '* all *' ifTrue:[
- ns == Smalltalk ifTrue:[
+ (ns == Smalltalk) ifTrue:[
^ nm
].
^ ns name , '::' , nm "/ full name
@@ -8799,6 +8802,6 @@
!BrowserView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.229 1996-12-23 12:23:40 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.230 1996-12-23 15:05:31 ca Exp $'
! !
BrowserView initialize!
--- a/BrwsrView.st Mon Dec 23 13:23:40 1996 +0100
+++ b/BrwsrView.st Mon Dec 23 16:05:31 1996 +0100
@@ -7525,9 +7525,12 @@
nm := aClass nameWithoutPrefix.
ns := aClass nameSpace.
+ ns isNil ifTrue:[
+ ^ nm
+ ].
currentNamespace = '* all *' ifTrue:[
- ns == Smalltalk ifTrue:[
+ (ns == Smalltalk) ifTrue:[
^ nm
].
^ ns name , '::' , nm "/ full name
@@ -8799,6 +8802,6 @@
!BrowserView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.229 1996-12-23 12:23:40 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.230 1996-12-23 15:05:31 ca Exp $'
! !
BrowserView initialize!