--- a/BrowserView.st Tue Mar 09 12:14:19 2010 +0100
+++ b/BrowserView.st Tue Mar 09 13:08:22 2010 +0100
@@ -3521,7 +3521,7 @@
nameSpaceList do:[:aNamespace |
aNamespace allClassesDo:[:aClass |
aClass isMeta ifFalse:[
- (aClass isRealNameSpace not) ifTrue:[
+ aClass isRealNameSpace ifFalse:[
(allNameSpaces or:[aClass nameSpace == aNamespace]) ifTrue:[
cat := aClass category.
cat isNil ifTrue:[
@@ -6386,7 +6386,7 @@
self classHierarchyOf:(environment at:#Object) withAutoloaded:true do:[:aClass :lvl|
|indent|
- (aClass isRealNameSpace not) ifTrue:[
+ aClass isRealNameSpace ifFalse:[
aClass isObsolete ifFalse:[
nm := self displayedClassNameOf:aClass.
@@ -6439,7 +6439,7 @@
|thisCategory actualNamespace nm owner|
aClass isMeta ifFalse:[
- (aClass isRealNameSpace not) ifTrue:[
+ aClass isRealNameSpace ifFalse:[
(classesPresent includes:aClass) ifFalse:[
match := anyCategory.
@@ -14512,11 +14512,11 @@
!BrowserView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.826 2009-11-11 21:29:24 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.827 2010-03-09 12:08:22 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.826 2009-11-11 21:29:24 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.827 2010-03-09 12:08:22 cg Exp $'
! !
BrowserView initialize!