--- a/BrowserView.st Wed Aug 23 19:33:37 2006 +0200
+++ b/BrowserView.st Wed Aug 23 19:34:19 2006 +0200
@@ -3514,9 +3514,7 @@
nameSpaceList do:[:aNamespace |
aNamespace allClassesDo:[:aClass |
aClass isMeta ifFalse:[
- (aClass isNameSpace not
- or:[aClass == NameSpace
- or:[aClass == Smalltalk]]) ifTrue:[
+ (aClass isNameSpace not or:[aClass == Smalltalk]) ifTrue:[
(allNameSpaces or:[aClass nameSpace == aNamespace]) ifTrue:[
cat := aClass category.
cat isNil ifTrue:[
@@ -14557,7 +14555,7 @@
!BrowserView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.799 2006-08-23 12:22:06 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.800 2006-08-23 17:34:19 cg Exp $'
! !
BrowserView initialize!