--- 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!