--- a/DebugView.st Sun Aug 17 12:48:08 2014 +0200
+++ b/DebugView.st Mon Aug 18 21:34:03 2014 +0200
@@ -15,17 +15,16 @@
instanceVariableNames:'busy haveControl exitAction canContinue contextView codeView
receiverInspector contextInspector contextArray selectedContext
catchBlock grabber mayProceed traceView tracing bigStep
- skipLineNr steppedContextAddress abortButton terminateButton
- continueButton stepButton nextButton nextOverButton nextOutButton
- sendButton returnButton restartButton exclusive inspecting
- nChainShown inspectedProcess updateProcess stopButton
- updateButton defineButton monitorToggle stepping
- steppedContextLineno stepForReturn actualContext inWrap
- stackInspector steppedContext wrapperContext verboseBacktrace
- firstContext stepHow cachable currentMethod ignoreBreakpoints
+ skipLineNr abortButton terminateButton continueButton stepButton
+ nextButton nextOverButton nextOutButton sendButton returnButton
+ restartButton exclusive inspecting nChainShown inspectedProcess
+ updateProcess updateButton defineButton monitorToggle stepping
+ steppedContextLineno actualContext inWrap stackInspector
+ steppedContext wrapperContext verboseBacktrace firstContext
+ stepHow cachable currentMethod ignoreBreakpoints
stepUntilEntering lastStepUntilEntering
lastSelectionInReceiverInspector lastSelectionInContextInspector
- canShowMore exitAbort reportButton setOfHiddenCallingSelectors
+ canShowMore reportButton setOfHiddenCallingSelectors
isStoppedAtHaltOrBreakPoint exceptionInfoLabel methodCodeToggle
methodCodeToggleSelectionHolder
isStoppedAtBreakPointWithParameter breakPointParameter
@@ -7297,12 +7296,12 @@
suspendContext := nil.
c := con.
1 to:10 do:[:i |
- |sel|
+ |selector|
c notNil ifTrue:[
- (sel := c selector) notNil ifTrue:[
- ((sel isSymbol and:[sel startsWith:'suspend'])
- and:[c receiver isMemberOf:Process]) ifTrue:[
+ selector := c selector.
+ selector notNil ifTrue:[
+ (selector isSymbol and:[(selector startsWith:'suspend') and:[c receiver isMemberOf:Process]]) ifTrue:[
suspendContext := c.
calledBySuspendContext := cc.
].
@@ -7844,9 +7843,6 @@
Here, we hide some well known methods, which are usually not too interesting;
the set of methods which are suppressed is my (claus's) own choice."
- |sel rec mClass
- sender senderReceiver senderSelector senderReceiverClass|
-
hideSupportCode ifFalse:[^ true].
aContext isNil ifTrue:[^ true].
@@ -8383,16 +8379,15 @@
category := givenCategoryOrNil.
sel := selectedContext selector.
implementorClass := selectedContext methodClass.
+ method := selectedContext method.
+
implementorClass isNil ifTrue:[
- method := selectedContext method.
(method notNil and:[method mclass isNil]) ifTrue:[
method := method wrapper.
].
method notNil ifTrue:[
implementorClass := method mclass
].
- ] ifFalse:[
- method := selectedContext method.
].
implementorClass notNil ifTrue:[
category isNil ifTrue:[
@@ -9454,15 +9449,15 @@
!DebugView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.667 2014-08-17 10:48:08 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.668 2014-08-18 19:34:03 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.667 2014-08-17 10:48:08 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.668 2014-08-18 19:34:03 stefan Exp $'
!
version_SVN
- ^ '$Id: DebugView.st,v 1.667 2014-08-17 10:48:08 vrany Exp $'
+ ^ '$Id: DebugView.st,v 1.668 2014-08-18 19:34:03 stefan Exp $'
! !