diff -r b5f0d32b09d3 -r 14b7cc070a6b DebugView.st
--- a/DebugView.st	Wed Feb 02 20:35:28 2000 +0100
+++ b/DebugView.st	Wed Feb 02 20:35:59 2000 +0100
@@ -1524,8 +1524,10 @@
                     ('browse (receivers class)'         browseClass             )
                     ('browse class hierarchy'           browseClassHierarchy    )
                     ('browse full class protocol'       browseFullClassProtocol )
-                    ('implementors'                     implementors            )
-                    ('senders'                          senders                 )
+                    ('implementors'                     browseImplementors            )
+                    ('implementors of...'               browseImplementorsOf            )
+                    ('senders'                          browseSenders                 )
+                    ('senders of...'                    browseSendersOf                 )
                     ('-'                                                        )
                     ('inspect context'                  inspectContext          )
                     ('copy walkback text'               copyWalkbackText        )
@@ -1554,7 +1556,7 @@
         m notNil ifTrue:[
             m disableAll:#(doTraceStep removeBreakpoint browse browseClass
                            browseClassHierarchy browseFullClassProtocol
-                           implementors senders inspectContext skip doStepOut).
+                           browseImplementors browseSenders inspectContext skip doStepOut).
         ].
     ]
 
@@ -2210,6 +2212,58 @@
     "Modified: / 3.2.1998 / 20:23:44 / cg"
 !
 
+browseImplementors
+    "open a browser on the implementors of the selected methods selector"
+
+    selectedContext isNil ifTrue:[
+        ^ self showError:'** select a context first **'
+    ].
+    SystemBrowser browseImplementorsOf:selectedContext selector.
+!
+
+browseImplementorsOf
+    "open a browser on the implementors of some selector"
+
+    |initial selector|
+
+    initial := codeView selection 
+                  ifNil:[selectedContext isNil 
+                            ifTrue:[nil]
+                            ifFalse:[selectedContext selector]].
+    selector := Dialog 
+                    request:'Selector to browse implementors of:'
+                    initialAnswer:initial.
+    selector size == 0 ifFalse:[
+        SystemBrowser browseImplementorsOf:selector asSymbol.
+    ]
+!
+
+browseSenders
+    "open a browser on the senders of the selected methods selector"
+
+    selectedContext isNil ifTrue:[
+        ^ self showError:'** select a context first **'
+    ].
+    SystemBrowser browseAllCallsOn:selectedContext selector.
+!
+
+browseSendersOf
+    "open a browser on the senders of some selector"
+
+    |initial selector|
+
+    initial := codeView selection 
+                  ifNil:[selectedContext isNil 
+                            ifTrue:[nil]
+                            ifFalse:[selectedContext selector]].
+    selector := Dialog 
+                    request:'Selector to browse senders of:'
+                    initialAnswer:initial.
+    selector size == 0 ifFalse:[
+        SystemBrowser browseAllCallsOn:selector asSymbol.
+    ]
+!
+
 copyWalkbackText
     "place the contents of the walkback view into the copy-paste buffer.
      This allows pasting it into some other view for printing ..."
@@ -2685,15 +2739,6 @@
     OperatingSystem exit
 !
 
-implementors
-    "open a browser on the implementors"
-
-    selectedContext isNil ifTrue:[
-        ^ self showError:'** select a context first **'
-    ].
-    SystemBrowser browseImplementorsOf:selectedContext selector.
-!
-
 inspectContext
     "launch an inspector on the currently selected context"
 
@@ -2765,15 +2810,6 @@
     "Modified: / 13.1.1998 / 00:24:47 / cg"
 !
 
-senders
-    "open a browser on the senders"
-
-    selectedContext isNil ifTrue:[
-        ^ self showError:'** select a context first **'
-    ].
-    SystemBrowser browseAllCallsOn:selectedContext selector.
-!
-
 showDenseBacktrace
     verboseBacktrace := false.
     contextView middleButtonMenu labelAt:#showDenseBacktrace put:(resources string:'show verbose backtrace').
@@ -3090,8 +3126,8 @@
 
     m notNil ifTrue:[
         m disable:#removeBreakpoint.
-        m disable:#implementors.
-        m disable:#senders.
+        m disable:#browseImplementors.
+        m disable:#browseSenders.
         m disable:#browseClass.
     ].
     ^ true
@@ -3783,7 +3819,7 @@
         selectedContext := con.
         m := contextView middleButtonMenu.
         (m notNil and:[selectedContext notNil]) ifTrue:[
-            m enableAll:#(implementors senders inspectContext)
+            m enableAll:#(browseImplementors browseSenders inspectContext)
         ].
 
         self withExecuteCursorDo:[
@@ -4071,7 +4107,7 @@
     "
     m := contextView middleButtonMenu.
     (m notNil and:[selectedContext notNil]) ifTrue:[
-        m enableAll:#(implementors senders inspectContext skip skipForReturn).
+        m enableAll:#(browseImplementors browseSenders inspectContext skip skipForReturn).
 
         (method notNil and:[method isWrapped]) ifTrue:[
             m enable:#removeBreakpoint.
@@ -4108,6 +4144,6 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.256 2000-01-18 14:28:05 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.257 2000-02-02 19:35:59 cg Exp $'
 ! !
 DebugView initialize!