Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Thu, 02 Jan 1997 20:21:42 +0100
changeset 892 70512e323623
parent 891 26ac48ced53b
child 893 39307a122c30
checkin from browser
BrowserView.st file | annotate | diff | comparison | revisions
BrwsrView.st file | annotate | diff | comparison | revisions 
--- a/BrowserView.st	Thu Jan 02 20:08:40 1997 +0100
+++ b/BrowserView.st	Thu Jan 02 20:21:42 1997 +0100
@@ -1231,22 +1231,13 @@
 listOfAllNamespaces
     "return a list of all namespaces"
 
-    |set|
-
     allNamespaces isNil ifTrue:[
-        set := IdentitySet with:Smalltalk.
-        Smalltalk allBehaviorsDo:[:aClass |
-            (aClass isNamespace 
-            and:[aClass ~~ Namespace
-            and:[aClass ~~ Smalltalk]]) ifTrue:[
-                set add:aClass
-            ]
-        ].
-        allNamespaces := set
+        allNamespaces := Namespace allNamespaces.
     ].
     ^ allNamespaces
 
     "Created: 20.12.1996 / 19:18:03 / cg"
+    "Modified: 2.1.1997 / 20:18:43 / cg"
 !
 
 listOfNamespaces
@@ -8802,6 +8793,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.230 1996-12-23 15:05:31 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.231 1997-01-02 19:21:42 cg Exp $'
 ! !
 BrowserView initialize!
--- a/BrwsrView.st	Thu Jan 02 20:08:40 1997 +0100
+++ b/BrwsrView.st	Thu Jan 02 20:21:42 1997 +0100
@@ -1231,22 +1231,13 @@
 listOfAllNamespaces
     "return a list of all namespaces"
 
-    |set|
-
     allNamespaces isNil ifTrue:[
-        set := IdentitySet with:Smalltalk.
-        Smalltalk allBehaviorsDo:[:aClass |
-            (aClass isNamespace 
-            and:[aClass ~~ Namespace
-            and:[aClass ~~ Smalltalk]]) ifTrue:[
-                set add:aClass
-            ]
-        ].
-        allNamespaces := set
+        allNamespaces := Namespace allNamespaces.
     ].
     ^ allNamespaces
 
     "Created: 20.12.1996 / 19:18:03 / cg"
+    "Modified: 2.1.1997 / 20:18:43 / cg"
 !
 
 listOfNamespaces
@@ -8802,6 +8793,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.230 1996-12-23 15:05:31 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.231 1997-01-02 19:21:42 cg Exp $'
 ! !
 BrowserView initialize!
hg/stx-libtool