--- a/InspectorView.st	Sun Jan 27 17:06:20 2008 +0100
+++ b/InspectorView.st	Sun Jan 27 17:06:28 2008 +0100
@@ -596,7 +596,8 @@
                        ('Inspect'                      #doInspect              )
                        ('BasicInspect'                 #doBasicInspect         )
                        ('Inspect Hierarchical'         #doNewInspect           )
-                       ('-')
+                       ('-') 
+                       ('Owners'                       #showOwners             )  
                        ('Ref Chains'                   #showReferences         )
                        ('-')
                        ('Browse'                       #browse                 )
@@ -998,6 +999,42 @@
     (UserPreferences current fileBrowserClass) openOnFileNamed:fn.
 !
 
+showOwners
+    |o|
+
+    o := self selection.
+    self withCursor:(Cursor questionMark) do:[
+        |owners dict|
+
+        owners := (ObjectMemory whoReferences:o).
+        owners isEmptyOrNil ifTrue:[
+            self information:'No owners found.'.
+            ^ self
+        ].
+        owners := owners asOrderedCollection.
+        "
+         skip weakArrays ... (they dont count)
+        "
+        owners := owners reject:[:owner | owner isMemberOf:WeakArray].
+        owners inspect.
+"/        inspector := DictionaryInspectorView openOn:dict.
+"/        inspector listView doubleClickAction:[:lineNr | inspector doInspectKey].
+    ]
+
+    "Modified: 15.10.1996 / 22:09:38 / cg"
+!
+
+showReferences
+    "user selected references-menu entry"
+
+    self selection class hasImmediateInstances ifTrue:[
+        ^ self warn:'Sorry - cannot show references to immediate objects'
+    ].
+    ObjectMemory displayRefChainTo:(self selection)
+
+    "Modified: / 30.7.1998 / 14:03:16 / cg"
+!
+
 showStreamContents
     |sel|
 
@@ -1939,17 +1976,6 @@
     "Modified: 18.3.1997 / 18:22:54 / cg"
 !
 
-showReferences
-    "user selected references-menu entry"
-
-    self selection class hasImmediateInstances ifTrue:[
-        ^ self warn:'Sorry - cannot show references to immediate objects'
-    ].
-    ObjectMemory displayRefChainTo:(self selection)
-
-    "Modified: / 30.7.1998 / 14:03:16 / cg"
-!
-
 toggleHex
     |sel|
 
@@ -1989,5 +2015,5 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.175 2007-12-06 21:40:25 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.176 2008-01-27 16:06:28 cg Exp $'
 ! !