hg/stx-libtool: comparison DebugView.st

equal deleted inserted replaced

-:7e9411dba623
+:0e700c9bd085
 		steppedContextAddress canAbort abortButton terminateButton
 		continueButton stepButton nextButton sendButton returnButton
 		restartButton exclusive inspecting nChainShown inspectedProcess
 		updateProcess stopButton updateButton monitorToggle stepping
 		steppedContextLineno stepForReturn actualContext inWrap
-		stackInspector steppedContext wrapperContext verboseBacktrace'
+		stackInspector steppedContext wrapperContext verboseBacktrace
+		firstContext'
 	classVariableNames:'CachedDebugger CachedExclusive OpenDebuggers MoreDebuggingDetail
 		DebuggingDebugger VerboseBacktraceDefault'
 	poolDictionaries:''
 	category:'Interface-Debugger'
 !
 "enter the debugger - get and display the context, then start an
 exclusive event loop on top of eveything else"
 |con selection m idx retval enteredByInterrupt sel|
+verboseBacktrace := VerboseBacktraceDefault ? false.
 busy := true.
 inspecting := false.
 inspectedProcess := Processor activeProcess.
 stepping := false.
 bigStep := false.
 stepButton turnOffWithoutRedraw.
 sendButton turnOffWithoutRedraw.
 m := contextView middleButtonMenu.
 m notNil ifTrue:[
-m disableAll:#(showMore skip skipForoReturn inspectContext).
+m disableAll:#(showMore skip skipForReturn inspectContext).
-]
+].
+verboseBacktrace
+ifTrue:[self showVerboseBacktrace]
+ifFalse:[self showDenseBacktrace].
 ] ifFalse:[
 self iconLabel:'Debugger'.
 ].
 windowGroup isNil ifTrue:[
 self cacheMyself.
 ]
 "Created: 24.11.1995 / 19:52:54 / cg"
 "Modified: 3.5.1996 / 23:58:16 / stefan"
-"Modified: 10.1.1997 / 17:41:58 / cg"
+"Modified: 11.1.1997 / 13:25:07 / cg"
 !
 openOn:aProcess
 "enter the debugger on a process -
 in this case, we are just inspecting the context chain of the process,
 not running on top of the debugged process, but as a separate
 one. (think of it as an inspector showing more detail, and offering
 some more control operations)"
 |bpanel dummy|
+verboseBacktrace := VerboseBacktraceDefault ? false.
 busy := true.
 bigStep := false.
 inspecting := true.
 inspectedProcess := aProcess.
 super destroy
 ].
 ].
 self open
-"Modified: 22.10.1996 / 15:49:55 / cg"
+"Modified: 11.1.1997 / 12:23:49 / cg"
 ! !
 !DebugView methodsFor:'help'!
 helpTextFor:aComponent
 terminateButton turnOff.
 "Modified: 10.1.1997 / 17:42:10 / cg"
 !
-redisplayBacktrace
-|oldSelection con|
-contextArray notNil ifTrue:[
-oldSelection := contextView selection.
-con := contextArray at:1.
-contextArray at:1 put:nil.
-self setContext:con.
-contextView setSelection:oldSelection.
-]
-"Modified: 25.5.1996 / 12:26:55 / cg"
-"Created: 10.1.1997 / 21:36:46 / cg"
-!
 removeAllBreakpoints
 "remove all trace & breakpoints - if any"
 MessageTracer unwrapAllMethods
 !
 "
 (Delay forSeconds:0.2) wait.
 self setContext:(inspectedProcess suspendedContext).
 !
+redisplayBacktrace
+|oldSelection oldContext con idx|
+contextArray notNil ifTrue:[
+oldSelection := contextView selection.
+oldSelection notNil ifTrue:[
+oldContext := contextArray at:oldSelection ifAbsent:nil.
+].
+con := firstContext.
+"/        con := contextArray at:1.
+contextArray at:1 put:nil.
+self setContext:con.
+oldContext isNil ifTrue:[
+idx := oldSelection
+] ifFalse:[
+idx := contextArray identityIndexOf:oldContext ifAbsent:nil.
+].
+contextView setSelection:idx.
+idx notNil ifTrue:[
+self showSelection:idx
+]
+]
+"Created: 10.1.1997 / 21:36:46 / cg"
+"Modified: 11.1.1997 / 13:47:11 / cg"
+!
 setContext:aContext
 "show calling chain from aContext in the walk-back listview"
 ^ self setContext:aContext releaseInspectors:true
 !
 setContext:aContext releaseInspectors:releaseInspectors
 "show calling chain from aContext in the walk-back listview"
-|con text method caller caller2 m count showIt|
+|con text method caller caller2 m count showIt c suspendContext|
 (contextArray notNil and:[aContext == (contextArray at:1)]) ifTrue:[
 "no change"
 ^ false
 ].
+firstContext := aContext.
 m := contextView middleButtonMenu.
 m notNil ifTrue:[
 m disable:#showMore.
 ].
 contextArray := nil.
 ] ifFalse:[
 text := OrderedCollection new:nChainShown.
 contextArray := OrderedCollection new:nChainShown.
 con := aContext.
+verboseBacktrace ~~ true ifTrue:[
+"/ with dense backtrace, hide the ProcessorScheduler
+"/ contexts at the top; look for a Process>>suspend
+"/ context within the first 10 contexts
+suspendContext := nil.
+c := con.
+1 to:10 do:[:i |
+((c selector startsWith:'suspend')
+and:[c receiver isMemberOf:Process]) ifTrue:[
+suspendContext := c
+].
+c := c sender.
+].
+suspendContext notNil ifTrue:[
+con := c.
+].
+].
 "
 get them all
 "
 count := 0.
 m disable:#browseClass.
 ].
 ^ true
 "Created: 14.12.1995 / 19:10:31 / cg"
-"Modified: 10.1.1997 / 21:01:57 / cg"
+"Modified: 11.1.1997 / 13:28:18 / cg"
 !
 setContextSkippingInterruptContexts:aContext
 "show calling chain from aContext in the walk-back listview.
 Ignore any non-interresting interrupt-context."
 showTerminated
 self showError:'** the process has terminated **'
 !
 showingContext:aContext
-"return false, if this context is to be skipped"
+"return false, if this context is to be skipped.
+Here, we hide some wellKnown methods, which are usually
-|sel rec|
+not too interresting; the set of methods which are suppressed
+is my (claus's) own choice."
+|sel rec mClass|
 verboseBacktrace ifTrue:[^ true].
 rec := aContext receiver.
 sel := aContext selector.
+mClass := aContext methodClass.
-(rec isMemberOf:Block) ifTrue:[
+sel == #withCursor:do: ifTrue:[
+(mClass == WindowGroup) ifTrue:[^ false].
+(mClass == TopView) ifTrue:[^ false].
+].
+(sel == #withExecuteCursorDo:
+or:[sel == #withWaitCursorDo:]) ifTrue:[
+(mClass == DisplaySurface) ifTrue:[^ false].
+].
+(mClass == Object) ifTrue:[
+(sel startsWith:'perform:') ifTrue:[^ false]
+].
+(mClass == Method) ifTrue:[
+(sel startsWith:'valueWithReceiver:') ifTrue:[^ false]
+].
+(mClass == Block) ifTrue:[
 sel == #valueNowOrOnUnwindDo: ifTrue:[^ false].
 sel == #valueOnUnwindDo: ifTrue:[^ false].
 sel == #value ifTrue:[^ false].
 sel == #value: ifTrue:[^ false].
 "/        sel == #value:value:value:value: ifTrue:[^ false].
 "/        sel == #value:value:value:value:Value: ifTrue:[^ false].
 "/        sel == #value:value:value:value:value:value: ifTrue:[^ false].
 "/    ].
-((rec isMemberOf:Signal)
+((mClass == Signal)
-or:[(rec isMemberOf:QuerySignal)
+or:[(mClass == QuerySignal)
-or:[rec isMemberOf:SignalSet]]
+or:[mClass == SignalSet]]
 ) ifTrue:[
 sel == #handle:do: ifTrue:[^ false].
 ].
 ^ true.
 "Created: 10.1.1997 / 21:01:39 / cg"
-"Modified: 10.1.1997 / 21:11:32 / cg"
+"Modified: 11.1.1997 / 13:44:39 / cg"
 !
 stepping
 ^ stepping
 !
 (line startsWith:'**') ifTrue:[
 self showMore.
 contextView setSelection:lineNr.
 con := contextArray at:lineNr
 ].
-con isNil ifTrue:[^ self].
+con isNil ifTrue:[
+codeView contents:nil.
+^ self
+].
 ].
 self withWaitCursorDo:[
 "
 give it to the (lower right) inspector
 ]
 ].
 code isNil ifTrue:[
 canAccept := false.
+codeView contents:nil.
 ] ifFalse:[
 codeView contents:code.
 (lineNrInMethod notNil and:[lineNrInMethod ~~ 0]) ifTrue:[
 "/                    lineNrInMethod > codeView list size ifTrue:[
 "/                        lineNrInMethod := codeView list size + 1
 "/                    ].
 "/                    codeView selectLine:lineNrInMethod.
 ].
 selectedContext := homeContext.
 actualContext := con
 ].
+] ifFalse:[
+codeView contents:nil.
 ].
 con isContext ifFalse:[
 sendButton disable.
 ] ifTrue:[
 ] ifFalse:[
 m disableAll:#(browse browseClass browseClassHierarchy browseFullClassProtocol).
 ].
 ]
-"Modified: 10.1.1997 / 21:29:48 / cg"
+"Modified: 11.1.1997 / 13:34:20 / cg"
 ! !
 !DebugView class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.124 1997-01-11 11:16:27 cg Exp $'
+^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.125 1997-01-11 12:53:57 cg Exp $'
 ! !

changeset 939	0e700c9bd085
parent 937	e1520a0db57e
child 940	b27a64095304