--- a/DictionaryInspectorView.st	Fri Jan 25 11:08:16 2008 +0100
+++ b/DictionaryInspectorView.st	Fri Jan 25 11:28:29 2008 +0100
@@ -135,6 +135,10 @@
 
     m := PopUpMenu itemList:items resources:resources.
 
+    (inspectedObject isNameSpace or:[inspectedObject isSharedPool]) ifTrue:[
+        m disableAll:#( doAddKey doRemoveKey )
+    ].
+
     selectionIndex isNil ifTrue:[
         m disableAll:#(doInspect doInspectKey doBasicInspect doNewInspect
                        doRemoveKey doStartMonitor doStopMonitor doCopyKey
@@ -289,7 +293,7 @@
     "return a list of indexes to show in the selectionList.
      Set hasMore to true, if a '...' entry should be added."
 
-    inspectedObject isNameSpace ifTrue:[
+    (inspectedObject isNameSpace or:[inspectedObject isSharedPool]) ifTrue:[
         ^ self indexListForNameSpace.
     ].
 
@@ -375,7 +379,7 @@
     "helper - return the index for a named instVar;
      nil, if self or a keyed instvar is selected."
 
-    inspectedObject isNameSpace ifTrue:[
+    (inspectedObject isNameSpace or:[inspectedObject isSharedPool]) ifTrue:[
         ^ nil
     ].
     ^ super instVarIndexForLine:lineNr
@@ -386,7 +390,7 @@
 
     |firstRealIndex idx line|
 
-    inspectedObject isNameSpace ifTrue:[
+    (inspectedObject isNameSpace or:[inspectedObject isSharedPool]) ifTrue:[
         (self hasSelfEntry
         and:[lineNr == 1 or:[lineNr isNil]]) ifTrue:[
             ^ nil "/ self selected
@@ -407,12 +411,11 @@
 namedFieldList 
     "return a list of instVar names to show in the selectionList."
 
-    inspectedObject isNameSpace ifTrue:[
+    (inspectedObject isNameSpace or:[inspectedObject isSharedPool]) ifTrue:[
         "/ empty ...
         ^ OrderedCollection new
     ].
     ^ super namedFieldList
-
 !
 
 release 
@@ -454,5 +457,5 @@
 !DictionaryInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.60 2007-05-29 17:32:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.61 2008-01-25 10:28:29 cg Exp $'
 ! !