--- a/BrowserView.st	Tue Jan 17 13:18:46 2006 +0100
+++ b/BrowserView.st	Tue Jan 17 21:50:39 2006 +0100
@@ -5780,8 +5780,7 @@
             |actualNamespace nm|
 
             aClass isMeta ifFalse:[
-                (aClass isNameSpace not
-                or:[aClass == Smalltalk]) ifTrue:[
+                (aClass isNameSpace not or:[aClass == Smalltalk]) ifTrue:[
                     actualNamespace := aClass nameSpace.
                     (actualNamespace isNameSpace not "/ a private class
                     or:[actualNamespace == aNamespace]) ifTrue:[
@@ -5810,8 +5809,7 @@
             aClass isMeta ifFalse:[
                 (aCategory = '* all *'
                 or:[aClass category = aCategory]) ifTrue:[
-                    (aClass isNameSpace not
-                    or:[aClass == Smalltalk]) ifTrue:[
+                    (aClass isNameSpace not or:[aClass == Smalltalk]) ifTrue:[
                         actualNamespace := aClass nameSpace.
                         (actualNamespace isNameSpace not "/ a private class
                         or:[actualNamespace == aNamespace]) ifTrue:[
@@ -6409,8 +6407,7 @@
         self classHierarchyOf:(environment at:#Object) withAutoloaded:true do:[:aClass :lvl|
             |indent|
 
-            (aClass isNameSpace not
-            or:[aClass == Smalltalk]) ifTrue:[
+            (aClass isNameSpace not or:[aClass == Smalltalk]) ifTrue:[
                 aClass isObsolete ifFalse:[
                     nm := self displayedClassNameOf:aClass.
 
@@ -6799,8 +6796,7 @@
             classCategoryListView list:(self listOfAllClassCategories).
         ]
     ].
-    (theClass isNameSpace 
-    and:[theClass ~~ Smalltalk]) ifTrue:[               
+    (theClass isNameSpace and:[theClass ~~ Smalltalk]) ifTrue:[               
         namespaceList select:(namespaceList list indexOf:theClass name).
         self changeNameSpaceTo:(theClass name).
         classListView deselect.
@@ -12331,8 +12327,7 @@
         |actualNamespace match owner|
 
         aClass isMeta ifFalse:[
-            (aClass isNameSpace not
-            or:[aClass == Smalltalk]) ifTrue:[
+            (aClass isNameSpace not or:[aClass == Smalltalk]) ifTrue:[
                 match := allNameSpaces.
                 match ifFalse:[
                     (owner := aClass topOwningClass) notNil ifTrue:[
@@ -14626,7 +14621,7 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.788 2006-01-17 12:17:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.789 2006-01-17 20:50:30 cg Exp $'
 ! !
 
 BrowserView initialize!