--- a/DictInspV.st	Thu Jul 23 23:10:54 1998 +0200
+++ b/DictInspV.st	Thu Jul 23 23:15:03 1998 +0200
@@ -55,7 +55,8 @@
                        ('inspect key'          doInspectKey   )
                        ('basicInspect'         doBasicInspect )
                        ('inspect hierarchical' doNewInspect   )
-                       ('references'           doReferences   )
+                       ('references'           showReferences )
+                       ('references to key'    showKeyReferences )
                        ('-'                    nil            )
                        ('add key'              doAddKey       )
                        ('remove key'           doRemoveKey    )
@@ -66,6 +67,7 @@
                        ('inspect key'          doInspectKey   )
                        ('basicInspect'         doBasicInspect )
                        ('inspect hierarchical' doNewInspect   )
+                       ('references'           showReferences )
                        ('-'                    nil            )
                        ('add key'              doAddKey       )
                        ('remove key'           doRemoveKey    )
@@ -155,6 +157,22 @@
 	    self inspect:inspectedObject. "force list update"
 	].
     ]
+!
+
+showKeyReferences
+    "show users of selected key (i.e. global)"
+
+    |k|
+
+    selectedLine notNil ifTrue:[
+        selectedLine == 1 ifFalse:[
+            k := (keys at:selectedLine - 1).
+            self withWaitCursorDo:[
+                SystemBrowser browseReferendsOf:k asSymbol
+            ]
+        ].
+    ]
+
 ! !
 
 !DictionaryInspectorView methodsFor:'private'!
@@ -236,5 +254,5 @@
 !DictionaryInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/DictInspV.st,v 1.29 1998-05-21 11:27:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/DictInspV.st,v 1.30 1998-07-23 21:15:03 cg Exp $'
 ! !

--- a/DictionaryInspectorView.st	Thu Jul 23 23:10:54 1998 +0200
+++ b/DictionaryInspectorView.st	Thu Jul 23 23:15:03 1998 +0200
@@ -55,7 +55,8 @@
                        ('inspect key'          doInspectKey   )
                        ('basicInspect'         doBasicInspect )
                        ('inspect hierarchical' doNewInspect   )
-                       ('references'           doReferences   )
+                       ('references'           showReferences )
+                       ('references to key'    showKeyReferences )
                        ('-'                    nil            )
                        ('add key'              doAddKey       )
                        ('remove key'           doRemoveKey    )
@@ -66,6 +67,7 @@
                        ('inspect key'          doInspectKey   )
                        ('basicInspect'         doBasicInspect )
                        ('inspect hierarchical' doNewInspect   )
+                       ('references'           showReferences )
                        ('-'                    nil            )
                        ('add key'              doAddKey       )
                        ('remove key'           doRemoveKey    )
@@ -155,6 +157,22 @@
 	    self inspect:inspectedObject. "force list update"
 	].
     ]
+!
+
+showKeyReferences
+    "show users of selected key (i.e. global)"
+
+    |k|
+
+    selectedLine notNil ifTrue:[
+        selectedLine == 1 ifFalse:[
+            k := (keys at:selectedLine - 1).
+            self withWaitCursorDo:[
+                SystemBrowser browseReferendsOf:k asSymbol
+            ]
+        ].
+    ]
+
 ! !
 
 !DictionaryInspectorView methodsFor:'private'!
@@ -236,5 +254,5 @@
 !DictionaryInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.29 1998-05-21 11:27:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.30 1998-07-23 21:15:03 cg Exp $'
 ! !