code deobfuscated:
authorClaus Gittinger <cg@exept.de>
Tue, 09 Mar 2010 13:08:22 +0100
changeset 9382 7f6eb9cd29f5
parent 9381 7839c9193cfa
child 9383 dc59d4bf4a56
code deobfuscated: expr not ifTrue: -> expr ifFalse:
BrowserView.st
--- 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!