--- a/BrowserView.st	Tue Jan 07 23:06:59 1997 +0100
+++ b/BrowserView.st	Wed Jan 08 10:59:45 1997 +0100
@@ -125,10 +125,7 @@
     |list selector oldMethod|
 
     (changedObject == Smalltalk) ifTrue:[
-        allNamespaces := nil.
-        namespaceList notNil ifTrue:[
-            self setListOfNamespaces
-        ].
+        self updateNamespaceList.
 
         something == #newClass ifTrue:[
             (currentClass notNil
@@ -338,7 +335,7 @@
     ]
 
     "Created: 4.1.1997 / 13:54:00 / cg"
-    "Modified: 4.1.1997 / 14:33:34 / cg"
+    "Modified: 8.1.1997 / 10:54:16 / cg"
 !
 
 refetchClass
@@ -998,10 +995,12 @@
                     self methodCategorySelectionChanged
                 ]
             ]
-        ]
+        ].
+
+        self updateNamespaceList
     ]
 
-    "Modified: 20.12.1996 / 18:58:27 / cg"
+    "Modified: 8.1.1997 / 10:57:57 / cg"
 ! !
 
 !BrowserView methodsFor:'class category source administration'!
@@ -1363,7 +1362,9 @@
 !
 
 updateClassCategoryList
-    self updateClassCategoryListWithScroll:true
+    self updateClassCategoryListWithScroll:true.
+
+    "Modified: 8.1.1997 / 10:58:06 / cg"
 !
 
 updateClassCategoryListWithScroll:scroll
@@ -7489,6 +7490,35 @@
 
     "Created: 26.10.1996 / 11:25:39 / cg"
     "Modified: 20.12.1996 / 19:18:18 / cg"
+!
+
+setListOfNamespaces
+    |l hasSmalltalk|
+
+    namespaceList isNil ifTrue:[ ^ self ].
+
+    l := self listOfAllNamespaces collect:[:ns | ns name].
+    l := l asOrderedCollection.
+    hasSmalltalk := true.
+    l remove:'Smalltalk' ifAbsent:[hasSmalltalk := false].
+    l sort.
+    l addFirst:'-'.
+    hasSmalltalk ifTrue:[
+        l addFirst:'Smalltalk'
+    ].
+    l addFirst:'* all *'.
+    namespaceList list:l
+
+    "Modified: 20.12.1996 / 19:18:29 / cg"
+!
+
+updateNamespaceList
+    allNamespaces := nil.
+    namespaceList notNil ifTrue:[
+        self setListOfNamespaces
+    ].
+
+    "Created: 8.1.1997 / 10:54:03 / cg"
 ! !
 
 !BrowserView methodsFor:'private'!
@@ -8257,26 +8287,6 @@
     "Modified: 3.1.1997 / 15:46:44 / cg"
 !
 
-setListOfNamespaces
-    |l hasSmalltalk|
-
-    namespaceList isNil ifTrue:[ ^ self ].
-
-    l := self listOfAllNamespaces collect:[:ns | ns name].
-    l := l asOrderedCollection.
-    hasSmalltalk := true.
-    l remove:'Smalltalk' ifAbsent:[hasSmalltalk := false].
-    l sort.
-    l addFirst:'-'.
-    hasSmalltalk ifTrue:[
-        l addFirst:'Smalltalk'
-    ].
-    l addFirst:'* all *'.
-    namespaceList list:l
-
-    "Modified: 20.12.1996 / 19:18:29 / cg"
-!
-
 setSearchPattern:aString
     codeView setSearchPattern:aString
 !
@@ -9148,6 +9158,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.247 1997-01-07 22:05:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.248 1997-01-08 09:59:45 cg Exp $'
 ! !
 BrowserView initialize!

--- a/BrwsrView.st	Tue Jan 07 23:06:59 1997 +0100
+++ b/BrwsrView.st	Wed Jan 08 10:59:45 1997 +0100
@@ -125,10 +125,7 @@
     |list selector oldMethod|
 
     (changedObject == Smalltalk) ifTrue:[
-        allNamespaces := nil.
-        namespaceList notNil ifTrue:[
-            self setListOfNamespaces
-        ].
+        self updateNamespaceList.
 
         something == #newClass ifTrue:[
             (currentClass notNil
@@ -338,7 +335,7 @@
     ]
 
     "Created: 4.1.1997 / 13:54:00 / cg"
-    "Modified: 4.1.1997 / 14:33:34 / cg"
+    "Modified: 8.1.1997 / 10:54:16 / cg"
 !
 
 refetchClass
@@ -998,10 +995,12 @@
                     self methodCategorySelectionChanged
                 ]
             ]
-        ]
+        ].
+
+        self updateNamespaceList
     ]
 
-    "Modified: 20.12.1996 / 18:58:27 / cg"
+    "Modified: 8.1.1997 / 10:57:57 / cg"
 ! !
 
 !BrowserView methodsFor:'class category source administration'!
@@ -1363,7 +1362,9 @@
 !
 
 updateClassCategoryList
-    self updateClassCategoryListWithScroll:true
+    self updateClassCategoryListWithScroll:true.
+
+    "Modified: 8.1.1997 / 10:58:06 / cg"
 !
 
 updateClassCategoryListWithScroll:scroll
@@ -7489,6 +7490,35 @@
 
     "Created: 26.10.1996 / 11:25:39 / cg"
     "Modified: 20.12.1996 / 19:18:18 / cg"
+!
+
+setListOfNamespaces
+    |l hasSmalltalk|
+
+    namespaceList isNil ifTrue:[ ^ self ].
+
+    l := self listOfAllNamespaces collect:[:ns | ns name].
+    l := l asOrderedCollection.
+    hasSmalltalk := true.
+    l remove:'Smalltalk' ifAbsent:[hasSmalltalk := false].
+    l sort.
+    l addFirst:'-'.
+    hasSmalltalk ifTrue:[
+        l addFirst:'Smalltalk'
+    ].
+    l addFirst:'* all *'.
+    namespaceList list:l
+
+    "Modified: 20.12.1996 / 19:18:29 / cg"
+!
+
+updateNamespaceList
+    allNamespaces := nil.
+    namespaceList notNil ifTrue:[
+        self setListOfNamespaces
+    ].
+
+    "Created: 8.1.1997 / 10:54:03 / cg"
 ! !
 
 !BrowserView methodsFor:'private'!
@@ -8257,26 +8287,6 @@
     "Modified: 3.1.1997 / 15:46:44 / cg"
 !
 
-setListOfNamespaces
-    |l hasSmalltalk|
-
-    namespaceList isNil ifTrue:[ ^ self ].
-
-    l := self listOfAllNamespaces collect:[:ns | ns name].
-    l := l asOrderedCollection.
-    hasSmalltalk := true.
-    l remove:'Smalltalk' ifAbsent:[hasSmalltalk := false].
-    l sort.
-    l addFirst:'-'.
-    hasSmalltalk ifTrue:[
-        l addFirst:'Smalltalk'
-    ].
-    l addFirst:'* all *'.
-    namespaceList list:l
-
-    "Modified: 20.12.1996 / 19:18:29 / cg"
-!
-
 setSearchPattern:aString
     codeView setSearchPattern:aString
 !
@@ -9148,6 +9158,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.247 1997-01-07 22:05:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.248 1997-01-08 09:59:45 cg Exp $'
 ! !
 BrowserView initialize!