hg/stx-libtool: comparison DebugView.st

equal deleted inserted replaced

-:25c2a13f00c5
+:184cea584be5
 "
 COPYRIGHT (c) 1989 by Claus Gittinger
-All Rights Reserved
+	      All Rights Reserved
 This software is furnished under a license and may be used
 only in accordance with the terms of that license and with the
 inclusion of the above copyright notice.   This software may not
 be provided or otherwise made available to, or used by, any
 other person.  No title to or ownership of the software is
 hereby transferred.
 "
 "{ Package: 'stx:libtool' }"
+"{ NameSpace: Smalltalk }"
 StandardSystemView subclass:#DebugView
 	instanceVariableNames:'busy haveControl exitAction canContinue contextView codeView
 		receiverInspector contextInspector contextArray selectedContext
 		catchBlock grabber mayProceed traceView tracing bigStep
-		skipLineNr steppedContextAddress abortButton terminateButton
+		skipLineNr abortButton terminateButton continueButton stepButton
-		continueButton stepButton nextButton nextOverButton nextOutButton
+		nextButton nextOverButton nextOutButton sendButton returnButton
-		sendButton returnButton restartButton exclusive inspecting
+		restartButton exclusive inspecting nChainShown inspectedProcess
-		nChainShown inspectedProcess updateProcess stopButton
+		updateProcess updateButton defineButton monitorToggle stepping
-		updateButton defineButton monitorToggle stepping
+		steppedContextLineno actualContext inWrap stackInspector
-		steppedContextLineno stepForReturn actualContext inWrap
+		steppedContext wrapperContext firstContext stepHow cachable
-		stackInspector steppedContext wrapperContext verboseBacktrace
+		currentMethod ignoreBreakpoints stepUntilEntering
-		firstContext stepHow cachable currentMethod ignoreBreakpoints
+		lastStepUntilEntering lastSelectionInReceiverInspector
-		stepUntilEntering lastStepUntilEntering
+		lastSelectionInContextInspector canShowMore reportButton
-		lastSelectionInReceiverInspector lastSelectionInContextInspector
+		setOfHiddenCallingSelectors isStoppedAtHaltOrBreakPoint
-		canShowMore exitAbort reportButton setOfHiddenCallingSelectors
+		exceptionInfoLabel methodCodeToggle
-		isStoppedAtHaltOrBreakPoint exceptionInfoLabel methodCodeToggle
 		methodCodeToggleSelectionHolder
 		isStoppedAtBreakPointWithParameter breakPointParameter
 		hideSupportCode contextInfoLabel resendButton
 		gotoDialogOpenerButton isStoppedInModalDialog selectorToDefine
-		classToDefineIn'
+		classToDefineIn gotoApplicationActionMethodButton
+		isStoppedInApplicationAction isStoppedAtStatementBreakpoint
+		verboseBacktraceHolder'
 	classVariableNames:'CachedDebugger CachedExclusive OpenDebuggers MoreDebuggingDetail
-		DebuggingDebugger DebuggingDebugger2
+		DebuggingDebugger DebuggingDebugger2 DebuggingContextWalk
 		DefaultDebuggerBackgroundColor InitialNChainShown IgnoredHalts
 		ShowThreadID LastIgnoreHaltNTimes LastIgnoreHaltDuration
 		LastExtent LastOrigin RememberedCallChain DebuggingDebugger3
-		NumberOfDebuggers'
+		NumberOfDebuggers DebuggerOnMainDisplayOnly'
 	poolDictionaries:''
 	category:'Interface-Debugger'
 !
 Object subclass:#IgnoredHaltOrBreakpoint
 	instanceVariableNames:'ignoreEndTime ignoreCount ignoreUntilShiftKeyPressed
-		ignoredReceiverClasses ignoredProcesses'
+		ignoredReceiverClasses ignoredProcesses
+		ignoredSendingClassAndSelectors'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:DebugView
 !
 !DebugView class methodsFor:'documentation'!
 copyright
 "
 COPYRIGHT (c) 1989 by Claus Gittinger
-All Rights Reserved
+	      All Rights Reserved
 This software is furnished under a license and may be used
 only in accordance with the terms of that license and with the
 inclusion of the above copyright notice.   This software may not
 be provided or otherwise made available to, or used by, any
 The debugger usually sits on top of the faulting process,
 taking over its event processing.
 (this is different from other Smalltalk debuggers, which control
 the debuggee as a separate process. Consider this an historic
-leftover - the debugger was one of the first applications written for
+leftover - the debugger was one of the first applications written for ST/X.
-ST/X.
 The whole setup might be changed, once the required process primitives
 are available, which allow control of another processes execution
 (i.e. single-step, restart & return). The setup will be changed then,
-to have the debugger control the debuggee (i.e. two processes)
+to have the debugger control the debuggee (i.e. two processes).
-however, why should we change it without a particular need...).
+However, as it works as it is, and is reliable enough,
+why should we change it without a particular need...).
 Only the 'stopped' debugged process is affected;
 other processes continue to respond to events.
 The one exception to this is when an error occurs within the dispatcher process
 or in one of the eventhandler processes. In this case, the debugger
 will sit on an exclusive display connection.
 See additional information in 'doc/misc/debugger.doc'.
-Notice & Warning:
+Notice & Warning (attention when changing thingslike menus, window spec etc. here):
-the DebugView class caches the last used debugger in a class variable.
+	the DebugView class caches the last used debugger in a class variable,
-It may happen, that a malfunctioning debugger (for example, a halfway destroyed one)
+	and hides/shows this window without recreating one from scratch. This is done to make
-is kept there. You will notice this, if a debugger comes up without showing any contents.
+	the debugger come up faster when single stepping, or hopping from breakpoint to breakpoint.
-In this case, close (or destroy) the broken debugView, and execute
-Debugger newDebugger
+	It may happen, that a malfunctioning debugger (for example, a halfway created/destroyed one)
-which removes the cached debugger and forces creation of a new one the next time.
+	is kept there. You will notice this, if a debugger comes up without showing any contents.
-This is a temporary workaround - the debugger should be fixed to avoid this situation.
+	In this case, close (or destroy) the broken debugView, and execute
+	    Debugger newDebugger
-You must also flush the cached debugger, if you change the debugger's
+	which removes the cached debugger and forces creation of a new one the next time.
-initialization code (buttons, menu, etc.) or the debugger's class layout,
+	This is a temporary workaround - the debugger should be fixed to avoid this situation.
-and you want the new code to become effective.
+	You must also flush the cached debugger, if you change the debugger's
+	initialization code (buttons, menu, etc.) or the debugger's class layout,
+	and you want the new code to become effective.
 [author:]
-Claus Gittinger
+	Claus Gittinger
 [see also:]
-Exception Signal
+	Exception Signal
-Process
+	Process
 "
 ! !
 !DebugView class methodsFor:'initialization'!
 CachedDebugger := nil.
 CachedExclusive := nil.
 OpenDebuggers := nil.
 (Debugger isBehavior and:[Debugger name = #DebugView]) ifTrue:[
-Debugger := self
+	Debugger := self
 ].
 "
 DebugView newDebugger
 "
 ! !
 !DebugView class methodsFor:'defaults'!
+debuggerOnMainDisplayOnly
+^ DebuggerOnMainDisplayOnly ? true
+!
 defaultIcon
 "return the browsers default window icon"
 <resource: #programImage>
 "the information (if any) about the ignore-state of a halt"
 IgnoredHalts isNil ifTrue:[^ nil].
 IgnoredHalts do:[:ign |
-(ign isForMethod:haltingMethod line:lineNrInHaltingMethod)
+	(ign isForMethod:haltingMethod line:lineNrInHaltingMethod)
-"/ (ign isHaltIgnoredInMethod:haltingMethod line:lineNrInHaltingMethod)
+	"/ (ign isHaltIgnoredInMethod:haltingMethod line:lineNrInHaltingMethod)
-ifTrue:[
+	ifTrue:[
-^ ign
+	    ^ ign
-].
+	].
 ].
 ^ nil.
 !
 hasIgnoredHalts
 self removeInactiveIgnores.
 ^ IgnoredHalts notEmptyOrNil
 !
-ignoreBreakpointWithParameter:parameterOrNil forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey orReceiverClass:receiverClassOrNil orProcess:processOrNil
+ignoreBreakpointWithParameter:parameterOrNil
+	forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
+	orReceiverClass:receiverClassOrNil orProcess:processOrNil
 "remember to ignore a breakpoint with a parameter (i.e. breakpoint:#cg) for some number of invocations
 or until some time has elapsed.
 With nil count and time arguments, such an ignored breakpoint is reactivated"
 self
-ignoreHaltOrBreakpoint:#halt
+	ignoreHaltOrBreakpoint:#halt
-method:nil line:nil
+	method:nil line:nil
-parameter:parameterOrNil
+	parameter:parameterOrNil
-forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
+	forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
-orReceiverClass:receiverClassOrNil orProcess:processOrNil
+	orReceiverClass:receiverClassOrNil orProcess:processOrNil
-!
+	orIfCalledFromMethod:nil
+!
-ignoreHaltIn:haltingMethod at:lineNrOfHalt forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey orReceiverClass:receiverClassOrNil orProcess:processOrNil
+ignoreHaltIn:haltingMethod at:lineNrOfHalt
+	forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
+	orReceiverClass:receiverClassOrNil orProcess:processOrNil
 "remember to ignore a halt in some method for some number of invocations
 or until some time has elapsed.
 With nil count and time arguments, such an ignored halt is reactivated"
 self
-ignoreHaltOrBreakpoint:#halt
+	ignoreHaltOrBreakpoint:#halt
-method:haltingMethod line:lineNrOfHalt
+	method:haltingMethod line:lineNrOfHalt
-parameter:nil
+	parameter:nil
-forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
+	forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
-orReceiverClass:receiverClassOrNil orProcess:processOrNil
+	orReceiverClass:receiverClassOrNil orProcess:processOrNil
-!
+	orIfCalledFromMethod:nil
+!
-ignoreHaltOrBreakpoint:type method:methodOrNil line:lineNrOfHaltOrNil parameter:parameterOrNil
-forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
+ignoreHaltIn:haltingMethod at:lineNrOfHalt
-orReceiverClass:receiverClassOrNil orProcess:processOrNil
+	forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
+	orReceiverClass:receiverClassOrNil orProcess:processOrNil
+	orIfCalledFromMethod:ifCalledForMethodOrNil
+"remember to ignore a halt in some method for some number of invocations
+or until some time has elapsed.
+With nil count and time arguments, such an ignored halt is reactivated"
+self
+	ignoreHaltOrBreakpoint:#halt
+	method:haltingMethod line:lineNrOfHalt
+	parameter:nil
+	forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
+	orReceiverClass:receiverClassOrNil orProcess:processOrNil
+	orIfCalledFromMethod:ifCalledForMethodOrNil
+!
+ignoreHaltOrBreakpoint:type method:methodOrNil line:lineNrOfHaltOrNil parameter:parameterOrNil
+	forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
+	orReceiverClass:receiverClassOrNil orProcess:processOrNil
 "remember to ignore a breakpoint with a parameter (i.e. breakpoint:#cg) for some number of invocations
 or until some time has elapsed.
 With nil count and time arguments, such an ignored breakpoint is reactivated"
+^ self
+	ignoreHaltOrBreakpoint:type method:methodOrNil line:lineNrOfHaltOrNil parameter:parameterOrNil
+	forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
+	orReceiverClass:receiverClassOrNil orProcess:processOrNil
+	orIfCalledFromMethod:nil
+!
+ignoreHaltOrBreakpoint:type method:methodOrNil line:lineNrOfHaltOrNil parameter:parameterOrNil
+	forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
+	orReceiverClass:receiverClassOrNil orProcess:processOrNil
+	orIfCalledFromMethod:ifCalledFromMethodOrNil
+"remember to ignore a breakpoint with a parameter (i.e. breakpoint:#cg) for some number of invocations
+or until some time has elapsed.
+With nil count and time arguments, such an ignored breakpoint is reactivated"
 |oldEntry ign|
 IgnoredHalts notNil ifTrue:[
-self removeInactiveIgnores.
+	self removeInactiveIgnores.
-type == #halt ifTrue:[
+	type == #halt ifTrue:[
-oldEntry := IgnoredHalts
+	    oldEntry := IgnoredHalts
-detect:[:ign | ign isForMethod:methodOrNil line:lineNrOfHaltOrNil]
+			    detect:[:ign | ign isForMethod:methodOrNil line:lineNrOfHaltOrNil]
-ifNone:nil.
+			    ifNone:nil.
-] ifFalse:[
+	] ifFalse:[
-oldEntry := IgnoredHalts
+	    oldEntry := IgnoredHalts
-detect:[:ign | ign isForBreakpointWithParameter:parameterOrNil]
+			    detect:[:ign | ign isForBreakpointWithParameter:parameterOrNil]
-ifNone:nil.
+			    ifNone:nil.
-].
+	].
-oldEntry notNil ifTrue:[
+	oldEntry notNil ifTrue:[
-(processOrNil notNil or:[receiverClassOrNil notNil]) ifTrue:[
+	    (processOrNil notNil or:[receiverClassOrNil notNil]) ifTrue:[
-receiverClassOrNil notNil ifTrue:[
+		receiverClassOrNil notNil ifTrue:[
-oldEntry ignoreForReceiverClass:receiverClassOrNil.
+		    oldEntry ignoreForReceiverClass:receiverClassOrNil.
-].
+		].
-processOrNil notNil ifTrue:[
+		processOrNil notNil ifTrue:[
-oldEntry ignoreForProcess:processOrNil.
+		    oldEntry ignoreForProcess:processOrNil.
-].
+		].
-^ self.
+		^ self.
-].
+	    ].
-IgnoredHalts remove:oldEntry ifAbsent:[].
+	    IgnoredHalts remove:oldEntry ifAbsent:[].
-]
+	]
 ].
 (countOrNil notNil
 or:[dTOrNil notNil
 or:[untilShiftKey == true
 or:[receiverClassOrNil notNil
-or:[processOrNil notNil]]]]
+or:[processOrNil notNil
+or:[ifCalledFromMethodOrNil notNil]]]]]
 ) ifTrue:[
-IgnoredHalts isNil ifTrue:[
+	IgnoredHalts isNil ifTrue:[
-IgnoredHalts := OrderedCollection new.
+	    IgnoredHalts := OrderedCollection new.
-].
+	].
-type == #halt ifTrue:[
+	type == #halt ifTrue:[
-ign := IgnoredHalt new method:methodOrNil lineNumber:lineNrOfHaltOrNil.
+	    ign := IgnoredHalt new method:methodOrNil lineNumber:lineNrOfHaltOrNil.
-] ifFalse:[
+	] ifFalse:[
-ign := IgnoredHalt new breakpointWithParameter:parameterOrNil.
+	    ign := IgnoredHalt new breakpointWithParameter:parameterOrNil.
-].
+	].
-(countOrNil notNil and:[countOrNil > 0]) ifTrue:[
+	(countOrNil notNil and:[countOrNil > 0]) ifTrue:[
-ign ignoreCount:countOrNil.
+	    ign ignoreCount:countOrNil.
-].
+	].
-(dTOrNil notNil) ifTrue:[
+	(dTOrNil notNil) ifTrue:[
-ign ignoreEndTime:(Timestamp now + dTOrNil).
+	    ign ignoreEndTime:(Timestamp now + dTOrNil).
-].
+	].
-untilShiftKey == true ifTrue:[
+	untilShiftKey == true ifTrue:[
-ign ignoreUntilShiftKeyPressed:true.
+	    ign ignoreUntilShiftKeyPressed:true.
-].
+	].
-receiverClassOrNil notNil ifTrue:[
+	receiverClassOrNil notNil ifTrue:[
-ign ignoreForReceiverClass:receiverClassOrNil.
+	    ign ignoreForReceiverClass:receiverClassOrNil.
-].
+	].
-processOrNil notNil ifTrue:[
+	processOrNil notNil ifTrue:[
-ign ignoreForProcess:processOrNil.
+	    ign ignoreForProcess:processOrNil.
-].
+	].
-IgnoredHalts add:ign.
+	ifCalledFromMethodOrNil notNil ifTrue:[
+	    ign ignoreIfCalledFromMethod:ifCalledFromMethodOrNil.
+	].
+	IgnoredHalts add:ign.
 ].
 Smalltalk changed:#ignoredHalts.
 "Created: / 06-03-2012 / 12:37:58 / cg"
 !
 IgnoredHalts isNil ifTrue:[^ false].
 "/ Transcript showCR:'halt/break in ',haltingMethod printString,' at ',lineNrInHaltingMethod printString.
 IgnoredHalts do:[:ign |
-(ign isForBreakpointWithParameter:parameter) ifTrue:[
+	(ign isForBreakpointWithParameter:parameter) ifTrue:[
-Transcript show:'Debugger [info]: break ignored for ', parameter.
+	    Transcript show:'Debugger [info]: break ignored for ', parameter.
-modifyCount ifTrue:[ ign decrementIgnoreCount ].
+	    modifyCount ifTrue:[ ign decrementIgnoreCount ].
-ign isHaltIgnored ifFalse:[
+	    ign isHaltIgnored ifFalse:[
-Transcript showCR:'Debugger [info]: no longer ignore breakpoint for ', parameter.
+		Transcript showCR:'Debugger [info]: no longer ignore breakpoint for ', parameter.
-IgnoredHalts remove:ign ifAbsent:[].
+		IgnoredHalts remove:ign ifAbsent:[].
-].
+	    ].
-^ true.
+	    ^ true.
-].
+	].
 ].
 IgnoredHalts := (IgnoredHalts reject:[:ign | ign isActive not ]) asNilIfEmpty.
 ^ false.
 IgnoredHalts isNil ifTrue:[^ false].
 "/ Transcript showCR:'halt/break in ',haltingMethod printString,' at ',lineNrInHaltingMethod printString.
 IgnoredHalts do:[:ign |
-(ign isHaltIgnoredInMethod:haltingMethod line:lineNrInHaltingMethod context:aContext) ifTrue:[
+	(ign isHaltIgnoredInMethod:haltingMethod line:lineNrInHaltingMethod context:aContext) ifTrue:[
-Transcript show:'Debugger [info]: halt/break ignored in ', haltingMethod whoString.
+	    Transcript show:'Debugger [info]: halt/break ignored in ', haltingMethod whoString.
-Transcript show:' ('; show:ign; showCR:')'.
+	    Transcript show:' ('; show:ign; showCR:')'.
-modifyCount ifTrue:[ ign decrementIgnoreCount ].
+	    modifyCount ifTrue:[ ign decrementIgnoreCount ].
-ign isHaltIgnored ifFalse:[
+	    ign isHaltIgnored ifFalse:[
-Transcript showCR:'Debugger [info]: no longer ignore halt in ', haltingMethod whoString.
+		Transcript showCR:'Debugger [info]: no longer ignore halt in ', haltingMethod whoString.
-IgnoredHalts remove:ign ifAbsent:[].
+		IgnoredHalts remove:ign ifAbsent:[].
-].
+	    ].
-^ true.
+	    ^ true.
-].
+	].
 ].
 IgnoredHalts := (IgnoredHalts reject:[:ign | ign isActive not]) asNilIfEmpty.
 ^ false.
 "Modified (comment): / 06-03-2012 / 12:51:43 / cg"
 !
 removeInactiveIgnores
 IgnoredHalts notNil ifTrue:[
-IgnoredHalts := IgnoredHalts select:[:i | i isActive].
+	IgnoredHalts := IgnoredHalts select:[:i | i isActive].
 ].
 !
 stopIgnoringHalts
 "forget about all ignored halts"
 IgnoredHalts := nil.
 Smalltalk changed:#ignoredHalts.
+!
+stopIgnoringHaltsFor:haltingMethod atLineNr:lineNrInHaltingMethod
+"remove the information (if any) about the ignore-state of a halt;
+effectively reenables the breakpoint/halt"
+IgnoredHalts isNil ifTrue:[^ self].
+IgnoredHalts := IgnoredHalts reject:[:ign |
+	(ign isForMethod:haltingMethod line:lineNrInHaltingMethod)
+].
 ! !
 !DebugView class methodsFor:'instance creation / entering'!
 enter
 "enter a debugger"
 <context: #return>
 ^ self
-enter:thisContext sender
+	enter:thisContext sender
-withMessage:'Debugger Entered'
+	withMessage:'Debugger Entered'
-mayProceed:true.
+	mayProceed:true.
 !
 enter:aContext withMessage:aString
 "enter a debugger"
 <context: #return>
 ^ self
-enter:aContext
+	enter:aContext
-withMessage:aString
+	withMessage:aString
-mayProceed:true
+	mayProceed:true
 !
 enter:aContext withMessage:aString mayProceed:mayProceed
 "enter a debugger; if this is a recursive invocation, enter
 a MiniDebugger instead.
 This is the standard way of entering the debugger;
 sent from error- and halt messages."
 <context: #return>
-|active|
+|display|
 (NumberOfDebuggers ? 0) > self maxNumberOfDebuggers ifTrue:[
-NumberOfDebuggers := self allInstances count:[:d | d isOpen].
+	NumberOfDebuggers := self allInstances count:[:d | d isOpen].
-NumberOfDebuggers > self maxNumberOfDebuggers ifTrue:[
+	NumberOfDebuggers > self maxNumberOfDebuggers ifTrue:[
-MiniDebugger enter:aContext withMessage:'too many debuggers - looping?' mayProceed:true.
+	    MiniDebugger enter:aContext withMessage:'too many debuggers - looping?' mayProceed:true.
-].
+	].
 ].
 DebuggingDebugger == true ifTrue:[
-'==> enter1: (' print. aContext print. ')' printCR.
+	'==> enter1: (' print. aContext print. ')' printCR.
 ].
-StepInterruptPending := nil.
+display := (self debuggerOnMainDisplayOnly)
-ControlInterrupt handle:[:ex |
+		ifTrue:[ Display ]
-'DebugView [info]: breakpoint in debugger setup ignored [enter.]' infoPrintCR.
+		ifFalse:[ Screen current ].
-('DebugView [info]: breakpoint on:' , ex suspendedContext printString) infoPrintCR.
-ex proceed
+Screen currentScreenQuerySignal answer:display
-] do:[
+do:[
-"
+	StepInterruptPending := nil.
-well, it could be a stepping or sending debugger up there;
+	ControlInterrupt handle:[:ex |
-in this case, return to it. This happens, when a stepping process
+	    'DebugView [info]: breakpoint in debugger setup ignored [enter.]' infoPrintCR.
-runs into an error (for example, a halt). In this case, we want the
+	    ('DebugView [info]: breakpoint on:' , ex suspendedContext printString) infoPrintCR.
-stepping debugger to come up again instead of a new one.
+	    ex proceed
-"
+	] do:[
-OpenDebuggers notNil ifTrue:[
+	    |debugger|
-active := Processor activeProcess.
-OpenDebuggers do:[:aDebugger |
+	    "
-|debuggersProcess|
+	     well, it could be a stepping or sending debugger up there;
+	     in this case, return to it. This happens, when a stepping process
-(aDebugger notNil and:[aDebugger ~~ 0]) ifTrue:[
+	     runs into an error (for example, a halt). In this case, we want the
-debuggersProcess := aDebugger inspectedProcess.
+	     stepping debugger to come up again instead of a new one.
-debuggersProcess == active ifTrue:[
+	    "
-aDebugger device isOpen ifTrue:[
+	    (debugger := self openDebuggerForActiveProcess) notNil ifTrue:[
-DebuggingDebugger == true ifTrue:[
+		debugger unstep.
-'reusing cached debugger' errorPrintCR.
+		debugger setLabelFor:aString in:Processor activeProcess.
-].
+		debugger mayProceed:mayProceed.
-aDebugger unstep.
+		^ debugger enter:aContext select:nil.
-aDebugger setLabelFor:aString in:active.
+	    ].
-aDebugger mayProceed:mayProceed.
+	].
-^ aDebugger enter:aContext select:nil.
+	^ self enterUnconditional:aContext withMessage:aString mayProceed:mayProceed
-]
+].
-].
-(debuggersProcess notNil and:[ debuggersProcess isDead ]) ifTrue:[
+"Modified: / 06-11-2013 / 20:58:54 / cg"
-aDebugger destroy.
-].
-]
-]
-].
-].
-^ self enterUnconditional:aContext withMessage:aString mayProceed:mayProceed
-"Modified: / 17-07-2012 / 19:08:18 / cg"
 !
 enterException:ex
 "enter a debugger; if this is a recursive invocation, enter
 a MiniDebugger instead.
 This is the standard way of entering the debugger;
 sent from error- and halt messages."
 ^ self
-enter:ex returnableSuspendedContext
+	enter:ex returnableSuspendedContext
-withMessage:('[',ex originalSignal class name,']: ',ex descriptionForDebugger)
+	withMessage:('[',ex originalSignal class name,']: ',ex descriptionForDebugger)
-mayProceed:(ex mayProceed).
+	mayProceed:(ex mayProceed).
 !
 enterUnconditional:aContext withMessage:aString mayProceed:mayProceed
 "enter a debugger - do not check for recursive invocation"
 NumberOfDebuggers := (NumberOfDebuggers ? 0) + 1.
 "/ ignore halts & breakpoints while setting up the debugger
 "/ to avoid recursive debugging ...
 ControlInterrupt handle:[:ex |
-'DebugView [info]: breakpoint in debugger setup ignored [enterUncond.]' infoPrintCR.
+	'DebugView [info]: breakpoint in debugger setup ignored [enterUncond.]' infoPrintCR.
-('DebugView [info]: breakpoint on:' , ex suspendedContext printString) infoPrintCR.
+	('DebugView [info]: breakpoint on:' , ex suspendedContext printString) infoPrintCR.
-ex proceed
+	ex proceed
 ] do:[
-aDebugger := self new.
+	aDebugger := self new.
 ].
 aDebugger isNil ifTrue:[
-'DebugView [error]: cannot open debugger' errorPrintCR.
+	'DebugView [error]: cannot open debugger' errorPrintCR.
-'DebugView [error]: Exception: ' errorPrint. aString errorPrintCR.
+	'DebugView [error]: Exception: ' errorPrint. aString errorPrintCR.
-mayProceed ifTrue:[
+	mayProceed ifTrue:[
-(Dialog confirm:'Error/Breakpoint caught.\\Press Continue or Abort.' withCRs
+	    (Dialog confirm:'Error/Breakpoint caught.\\Press Continue or Abort.' withCRs
-yesLabel:'Continue' noLabel:'Abort')
+		   yesLabel:'Continue' noLabel:'Abort')
-ifTrue:[
+	    ifTrue:[
-^ nil
+		^ nil
-].
+	    ].
-] ifFalse:[
+	] ifFalse:[
-self information:'Error caught.\\Press OK to abort the operation.' withCRs.
+	    self information:'Error caught.\\Press OK to abort the operation.' withCRs.
-].
+	].
-AbortOperationRequest raise.
+	AbortOperationRequest raise.
-"not reached"
+	"not reached"
 ].
 aDebugger mayProceed:mayProceed.
 aDebugger setLabelFor:aString in:Processor activeProcess.
 aDebugger enter:aContext select:nil.
 ^ nil.
 "
-nil halt
+	nil halt
 "
 "Modified: / 18.11.2001 / 00:29:23 / cg"
 !
 "enter a debugger"
 <context: #return>
 ^ self
-enter:(thisContext sender)
+	enter:(thisContext sender)
-withMessage:message
+	withMessage:message
-mayProceed:true.
+	mayProceed:true.
 !
 new
 "return a new DebugView.
 - return a cached debugger if it already exists.
 Also, care for remote displays on which no debugger is wanted
 (ask with mayOpenDebugger) - if so, open on the default screen."
-|debugger currentScreen debuggerDevice|
+|debugger currentScreen debuggerScreen|
 currentScreen := Screen current.
 currentScreen notNil ifTrue:[
-(currentScreen suppressDebugger) ifTrue:[
+	(currentScreen suppressDebugger) ifTrue:[
-"/ no debuggers with that device - show an alertBox which aborts...
+	    "/ no debuggers with that device - show an alertBox which aborts...
-^ nil.
+	    ^ nil.
-].
+	].
-(currentScreen mayOpenDebugger) ifFalse:[
+	(currentScreen mayOpenDebugger) ifFalse:[
-"/ no debugger on that device - but on the main screen
+	    "/ no debugger on that device - but on the main screen
-currentScreen := Screen default.
+	    currentScreen := Display ? Screen default.
-].
+	].
 ].
 "
 need a blocking debugger if no processes or
 or if its a timing/interrupt process
 (because otherwise we would not get any events here ...
 "
 Processor activeProcessIsSystemProcess ifTrue:[
-((debugger := CachedExclusive) isNil
+	((debugger := CachedExclusive) isNil
-or:[debugger device ~~ currentScreen
+	or:[debugger device ~~ currentScreen
-or:[currentScreen isNil
+	or:[currentScreen isNil
-or:[currentScreen isOpen not]]]) ifTrue:[
+	or:[currentScreen isOpen not]]]) ifTrue:[
-debugger := self newExclusive
+	    debugger := self newExclusive
-].
+	].
-CachedExclusive := nil.
+	CachedExclusive := nil.
 ] ifFalse:[
-CachedDebugger notNil ifTrue:[
+	CachedDebugger notNil ifTrue:[
-(CachedDebugger device ~~ currentScreen
+	    (CachedDebugger device ~~ currentScreen
-or:[currentScreen isNil
+	    or:[currentScreen isNil
-or:[currentScreen isOpen not
+	    or:[currentScreen isOpen not
-or:[CachedDebugger class ~~ self]]]) ifTrue:[
+	    or:[CachedDebugger class ~~ self]]]) ifTrue:[
-CachedDebugger := nil
+		CachedDebugger := nil
-]
+	    ]
-].
+	].
-(debugger := CachedDebugger) notNil ifTrue:[
+	(debugger := CachedDebugger) notNil ifTrue:[
-CachedDebugger := nil.
+	    CachedDebugger := nil.
-] ifFalse:[
+	] ifFalse:[
-debuggerDevice := currentScreen.
+	    debuggerScreen := currentScreen.
-debuggerDevice isNil ifTrue:[
+	    debuggerScreen isNil ifTrue:[
-"/ use the default display
+		"/ use the default display
-debuggerDevice := Screen default.
+		debuggerScreen := Screen default.
-].
+	    ].
-(debuggerDevice isNil
+	    (debuggerScreen isNil
-or:[debuggerDevice isOpen not
+	    or:[debuggerScreen isOpen not
-"/ or:[debuggerDevice mayOpenDebugger not]
+	    "/ or:[debuggerDevice mayOpenDebugger not]
-]) ifTrue:[
+	    ]) ifTrue:[
-"/ no debugger
+		"/ no debugger
-^ nil.
+		^ nil.
-].
+	    ].
-Screen currentScreenQuerySignal answer:debuggerDevice
+	    Screen currentScreenQuerySignal answer:debuggerScreen
-do:[
+	    do:[
-debugger := super new.
+		debugger := super new.
-].
+	    ].
-debugger label:'Debugger'.
+	    debugger label:'Debugger'.
-debugger icon:self defaultIcon.
+	    debugger icon:self defaultIcon.
-]
+	]
 ].
 ^ debugger
 "Modified: 31.7.1997 / 21:20:27 / cg"
 !
 ^ debugger
 "Modified: 1.1.1970 / 23:27:06 / cg"
 !
+openDebuggerForActiveProcess
+"return an already open debugger for the active process, or nil, if there is none.
+Open debuggers exist when stepping only, as then, the debugger is left open until the step
+is reached, to avoid too much flickering and redrawing on the screen"
+|active|
+"
+well, it could be a stepping or sending debugger up there;
+in this case, return to it. This happens, when a stepping process
+runs into an error (for example, a halt). In this case, we want the
+stepping debugger to come up again instead of a new one.
+"
+OpenDebuggers notNil ifTrue:[
+	active := Processor activeProcess.
+	OpenDebuggers do:[:aDebugger |
+	    |debuggersProcess|
+	    (aDebugger notNil and:[aDebugger ~~ 0]) ifTrue:[
+		debuggersProcess := aDebugger inspectedProcess.
+		debuggersProcess == active ifTrue:[
+		    aDebugger device isOpen ifTrue:[
+			DebuggingDebugger == true ifTrue:[
+			    'reusing cached debugger' errorPrintCR.
+			].
+			aDebugger unstep.
+			^ aDebugger.
+		    ]
+		].
+		(debuggersProcess notNil and:[ debuggersProcess isDead ]) ifTrue:[
+		    aDebugger destroy.
+		].
+	    ]
+	]
+].
+^ nil
+"Created: / 06-11-2013 / 20:57:49 / cg"
+!
 openOn:aProcess
 "start a  debugger on aProcess
 (actually not more than a good-looking inspector)"
 |aDebugger label nm|
 aDebugger := super new.
 aDebugger icon:self defaultIcon.
 aProcess notNil ifTrue:[
-nm := aProcess name.
+	nm := aProcess name.
-nm notNil ifTrue:[
+	nm notNil ifTrue:[
-nm := (nm contractTo:17) , '-' , aProcess id printString
+	    nm := (nm contractTo:17) , '-' , aProcess id printString
-] ifFalse:[
+	] ifFalse:[
-nm := aProcess id printString
+	    nm := aProcess id printString
-].
+	].
-label := 'Debugger [' , nm , ']'.
+	label := 'Debugger [' , nm , ']'.
 ] ifFalse:[
-label := 'no process'
+	label := 'no process'
 ].
 aDebugger label:label iconLabel:'Debugger'.
 aDebugger openOn:aProcess.
 ^ nil
 (Menu new fromLiteralArrayEncoding:(DebugView breakPointMenuSpec)) startUp
 "
 <resource: #menu>
 ^
 #(Menu
-(
+	(
-(MenuItem
+	 (MenuItem
-enabled: canRemoveBreakpoint
+	    enabled: canRemoveBreakpoint
-label: 'Remove Breakpoint'
+	    label: 'Remove Breakpoint'
-itemValue: removeBreakpoint
+	    itemValue: removeBreakpoint
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Remove all Breakpoints'
+	    label: 'Remove all Breakpoints'
-itemValue: removeAllBreakpoints
+	    itemValue: removeAllBreakpoints
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Ignore this Halt/BreakPoint'
+	    label: 'Ignore this Halt/BreakPoint'
-submenu:
+	    submenu:
-(Menu
+	   (Menu
-(
+	      (
-(MenuItem
+	       (MenuItem
-enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
+		  enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
-label: 'Forever (Until Ignoring is Stopped)'
+		  label: 'Forever (Until Ignoring is Stopped)'
-itemValue: ignoreHaltForever
+		  itemValue: ignoreHaltForever
-)
+		)
-(MenuItem
+	       (MenuItem
-enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
+		  enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
-label: 'For Some Time...'
+		  label: 'For Some Time...'
-itemValue: openIgnoreHaltUntilTimeElapsedDialog
+		  itemValue: openIgnoreHaltUntilTimeElapsedDialog
-)
+		)
-(MenuItem
+	       (MenuItem
-enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
+		  enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
-label: 'For the Next N Times...'
+		  label: 'For the Next N Times...'
-itemValue: openIgnoreHaltNTimesDialog
+		  itemValue: openIgnoreHaltNTimesDialog
-)
+		)
-(MenuItem
+	       (MenuItem
-enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
+		  enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
-label: 'Until Shift-Key is Pressed'
+		  label: 'Until Shift-Key is Pressed'
-itemValue: ignoreHaltUntilShiftKeyIsPressed
+		  itemValue: ignoreHaltUntilShiftKeyIsPressed
-)
+		)
-(MenuItem
+	       (MenuItem
-label: '-'
+		  label: '-'
-)
+		)
-(MenuItem
+	       (MenuItem
-enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
+		  enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
-label: 'In Current Process'
+		  label: 'In Current Process'
-itemValue: ignoreHaltForCurrentProcess
+		  itemValue: ignoreHaltForCurrentProcess
-)
+		)
-(MenuItem
+	       (MenuItem
-enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
+		  enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
-label: 'For this Receiver Class'
+		  label: 'For this Receiver Class'
-itemValue: ignoreHaltForThisReceiverClass
+		  itemValue: ignoreHaltForThisReceiverClass
-)
+		)
-)
+	       (MenuItem
-nil
+		  enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
-nil
+		  label: 'If Called from Any Of'
-)
+		  submenuChannel: menuForIgnoreBreakpointIfCalledFromAnyOf
-)
+		)
-(MenuItem
+	       )
-enabled: isStoppedAtBreakPointWithParameter
+	      nil
-label: 'Ignore all BreakPoints with this Parameter'
+	      nil
-submenu:
+	    )
-(Menu
+	  )
-(
+	 (MenuItem
-(MenuItem
+	    enabled: isStoppedAtBreakPointWithParameter
-enabled: isStoppedAtBreakPointWithParameter
+	    label: 'Ignore all BreakPoints with this Parameter'
-label: 'Forever (Reenable in BreakPoint-Browser)'
+	    submenu:
-itemValue: ignoreBreakpointsWithThisParameterForever
+	   (Menu
-)
+	      (
-(MenuItem
+	       (MenuItem
-enabled: isStoppedAtBreakPointWithParameter
+		  enabled: isStoppedAtBreakPointWithParameter
-label: 'For Some Time...'
+		  label: 'Forever (Reenable in BreakPoint-Browser)'
-itemValue: openIgnoreBreakpointsWithThisParameterUntilTimeElapsedDialog
+		  itemValue: ignoreBreakpointsWithThisParameterForever
-)
+		)
-(MenuItem
+	       (MenuItem
-enabled: isStoppedAtBreakPointWithParameter
+		  enabled: isStoppedAtBreakPointWithParameter
-label: 'For the Next N Times...'
+		  label: 'For Some Time...'
-itemValue: openIgnoreBreakpointsWithThisParameterNTimesDialog
+		  itemValue: openIgnoreBreakpointsWithThisParameterUntilTimeElapsedDialog
-)
+		)
-(MenuItem
+	       (MenuItem
-enabled: isStoppedAtBreakPointWithParameter
+		  enabled: isStoppedAtBreakPointWithParameter
-label: 'Until Shift-Key is Pressed'
+		  label: 'For the Next N Times...'
-itemValue: ignoreBreakpointsWithThisParameterUntilShiftKeyIsPressed
+		  itemValue: openIgnoreBreakpointsWithThisParameterNTimesDialog
-)
+		)
-)
+	       (MenuItem
-nil
+		  enabled: isStoppedAtBreakPointWithParameter
-nil
+		  label: 'Until Shift-Key is Pressed'
-)
+		  itemValue: ignoreBreakpointsWithThisParameterUntilShiftKeyIsPressed
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'Ignore all Halts/BreakPoints'
+		  label: '-'
-submenu:
+		)
-(Menu
+	       (MenuItem
-(
+		  enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
-(MenuItem
+		  label: 'In Current Process'
-label: 'Forever (Until Ignoring is Stopped)'
+		  itemValue: ignoreAllHaltsForCurrentProcess
-itemValue: ignoreAllHaltsForever
+		)
-)
+	       (MenuItem
-(MenuItem
+		  enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
-label: 'For Some Time...'
+		  label: 'For this Receiver Class'
-itemValue: openIgnoreAllHaltsUntilTimeElapsedDialog
+		  itemValue: ignoreAllHaltsForThisReceiverClass
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'Until Shift-Key is Pressed'
+		  enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
-itemValue: ignoreAllHaltsUntilShiftKeyIsPressed
+		  label: 'If Called from Any Of'
-)
+		  submenuChannel: menuForIgnoreAllBreakpointsIfCalledFromAnyOf
-)
+		)
-nil
+	       )
-nil
+	      nil
-)
+	      nil
-)
+	    )
-(MenuItem
+	  )
-enabled: hasHaltsToIgnore
+	 (MenuItem
-label: 'Stop Ignoring'
+	    label: 'Ignore all Halts/BreakPoints'
-itemValue: stopIgnoringHalts
+	    submenu:
-)
+	   (Menu
-(MenuItem
+	      (
-label: '-'
+	       (MenuItem
-)
+		  label: 'Forever (Until Ignoring is Stopped)'
-(MenuItem
+		  itemValue: ignoreAllHaltsForever
-enabled: canAddBreakpoint
+		)
-label: 'Add Breakpoint'
+	       (MenuItem
-itemValue: addBreakpoint
+		  label: 'For Some Time...'
-)
+		  itemValue: openIgnoreAllHaltsUntilTimeElapsedDialog
-(MenuItem
+		)
-label: 'Manage Breakpoints'
+	       (MenuItem
-itemValue: openBreakPointBrowser
+		  label: 'Until Shift-Key is Pressed'
-)
+		  itemValue: ignoreAllHaltsUntilShiftKeyIsPressed
-(MenuItem
+		)
-label: '-'
+	       )
-)
+	      nil
-(MenuItem
+	      nil
-label: 'Allow Halt in Debugger'
+	    )
-itemValue: allowBreakPointsInDebugger:
+	  )
-indication: allowBreakPointsInDebugger
+	 (MenuItem
-)
+	    enabled: hasHaltsToIgnore
-)
+	    label: 'Stop Ignoring'
-nil
+	    itemValue: stopIgnoringHalts
-nil
+	  )
+	 (MenuItem
+	    label: '-'
+	  )
+	 (MenuItem
+	    enabled: canAddBreakpoint
+	    label: 'Add Breakpoint'
+	    itemValue: addBreakpoint
+	  )
+	 (MenuItem
+	    label: 'Manage Breakpoints'
+	    itemValue: openBreakPointBrowser
+	  )
+	 (MenuItem
+	    label: '-'
+	  )
+	 (MenuItem
+	    label: 'Allow Halt in Debugger'
+	    itemValue: allowBreakPointsInDebugger:
+	    indication: allowBreakPointsInDebugger
+	  )
+	 )
+	nil
+	nil
 )
 !
 classMenuSpec
 "This resource specification was automatically generated
 (Menu new fromLiteralArrayEncoding:(DebugView receiverMenuSpec)) startUp
 "
 <resource: #menu>
 ^
 #(Menu
-(
+	(
-(MenuItem
+	 (MenuItem
-enabled: canBrowseImplementingClass
+	    enabled: canBrowseImplementingClass
-label: 'Browse Implementing Class'
+	    label: 'Browse Implementing Class'
-itemValue: browseImplementingClass
+	    itemValue: browseImplementingClass
-)
+	  )
-(MenuItem
+	 (MenuItem
-enabled: canBrowseReceiversClass
+	    enabled: canBrowseReceiversClass
-label: 'Browse Receiver''s Class'
+	    label: 'Browse Receiver''s Class'
-itemValue: browseReceiversClass
+	    itemValue: browseReceiversClass
-)
+	  )
-(MenuItem
+	 (MenuItem
-enabled: canBrowseProcessesApplication
+	    enabled: canBrowseProcessesApplication
-label: 'Browse Application Class'
+	    label: 'Browse Application Class'
-itemValue: browseProcessesApplication
+	    itemValue: browseProcessesApplication
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-enabled: canBrowseClassHierarchy
+	    enabled: canBrowseClassHierarchy
-label: 'Browse Receiver''s Class Hierarchy'
+	    label: 'Browse Receiver''s Class Hierarchy'
-itemValue: browseClassHierarchy
+	    itemValue: browseClassHierarchy
-isVisible: false
+	    isVisible: false
-)
+	  )
-(MenuItem
+	 (MenuItem
-enabled: canBrowseFullClassProtocol
+	    enabled: canBrowseFullClassProtocol
-label: 'Browse Receiver''s Full Protocol'
+	    label: 'Browse Receiver''s Full Protocol'
-itemValue: browseFullClassProtocol
+	    itemValue: browseFullClassProtocol
-isVisible: false
+	    isVisible: false
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-isVisible: false
+	    isVisible: false
-)
+	  )
-(MenuItem
+	 (MenuItem
-enabled: canInspectWidgetHierarchy
+	    enabled: canInspectWidgetHierarchy
-label: 'Inspect Widget Hierarchy'
+	    label: 'Inspect Widget Hierarchy'
-itemValue: inspectWidgetHierarchy
+	    itemValue: inspectWidgetHierarchy
-)
+	  )
-)
+	 )
-nil
+	nil
-nil
+	nil
 )
 !
 contextMenuSpec
 "This resource specification was automatically generated
 (Menu new fromLiteralArrayEncoding:(DebugView contextMenuSpec)) startUp
 "
 <resource: #menu>
 ^
 #(Menu
-(
+	(
-(MenuItem
+	 (MenuItem
-enabled: canReturn
+	    enabled: canReturn
-label: 'Return'
+	    label: 'Return'
-itemValue: doReturn
+	    itemValue: doReturn
-)
+	  )
-(MenuItem
+	 (MenuItem
-enabled: canRestart
+	    enabled: canRestart
-label: 'Restart'
+	    label: 'Restart'
-itemValue: doRestart
+	    itemValue: doRestart
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-enabled: hasContextSelected
+	    enabled: hasContextSelected
-label: 'Inspect'
+	    label: 'Inspect'
-itemValue: inspectContext
+	    itemValue: inspectContext
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Copy WalkBack Text'
+	    label: 'Copy WalkBack Text'
-itemValue: copyWalkbackText
+	    itemValue: copyWalkbackText
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Bookmark Method in SystemBrowser'
+	    label: 'Inspect Method'
-itemValue: addBrowserBookmark
+	    itemValue: inspectContextsMethod
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: 'Bookmark Method in SystemBrowser'
-)
+	    itemValue: addBrowserBookmark
-(MenuItem
+	  )
-enabled: hasContextSelected
+	 (MenuItem
-label: 'Find Context with String in Source...'
+	    label: '-'
-itemValue: findContextWithStringInSource
+	  )
-)
+	 (MenuItem
-(MenuItem
+	    enabled: hasBlockContextSelected
-enabled: hasContextSelected
+	    label: 'Find Home Context in Caller Chain...'
-label: 'Find Context with Value in Variable...'
+	    itemValue: findHomeContext
-itemValue: findContextWithValueInVariable
+	  )
-)
+	 (MenuItem
-(MenuItem
+	    enabled: hasContextSelected
-enabled: hasContextSelected
+	    label: 'Find Context with String in Source...'
-label: 'Find Next Exception Handler'
+	    itemValue: findContextWithStringInSource
-itemValue: findNextExceptionHandlerContext
+	  )
-)
+	 (MenuItem
-(MenuItem
+	    enabled: hasContextSelected
-enabled: hasContextSelected
+	    label: 'Find Context with Value in Variable...'
-label: 'Find Handler For...'
+	    itemValue: findContextWithValueInVariable
-itemValue: findHandlerFor
+	  )
-)
+	 (MenuItem
-(MenuItem
+	    enabled: hasContextSelected
-label: 'Find Dialog Opener...'
+	    label: 'Find Next Exception Handler'
-itemValue: doGotoDialogOpener
+	    itemValue: findNextExceptionHandlerContext
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    enabled: hasContextSelected
-)
+	    label: 'Find Handler For...'
-(MenuItem
+	    itemValue: findHandlerFor
-label: 'Remember Callchain && Highlight on Next Entry'
+	  )
-itemValue: rememberCallchain
+	 (MenuItem
-)
+	    label: 'Find Dialog Opener...'
-(MenuItem
+	    itemValue: doGotoDialogOpener
-label: 'Clear Remembered Callchain'
+	  )
-itemValue: clearRememberedCallchain
+	 (MenuItem
-)
+	    label: 'Find Application Action Method...'
-)
+	    itemValue: doGotoApplicationActionMethod
-nil
+	  )
-nil
+	 (MenuItem
+	    label: '-'
+	  )
+	 (MenuItem
+	    label: 'Remember Callchain && Highlight on Next Entry'
+	    itemValue: rememberCallchain
+	  )
+	 (MenuItem
+	    label: 'Clear Remembered Callchain'
+	    itemValue: clearRememberedCallchain
+	  )
+	 )
+	nil
+	nil
 )
 !
 fileMenuSpec
 "This resource specification was automatically generated
 (Menu new fromLiteralArrayEncoding:(DebugView fileMenuSpec)) startUp
 "
 <resource: #menu>
 ^
 #(Menu
-(
+	(
-(MenuItem
+	 (MenuItem
-enabled: canSendEmail
+	    enabled: canSendEmail
-label: 'Report a Bug via eMail...'
+	    label: 'Report a Bug via eMail...'
-itemValue: doOpenReportMailApp
+	    itemValue: doOpenReportMailApp
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-enabled: canCloseAllDebuggers
+	    enabled: canCloseAllDebuggers
-label: 'Close all Debuggers...'
+	    label: 'Close all Debuggers...'
-itemValue: closeAllDebuggers
+	    itemValue: closeAllDebuggers
-isVisible: isNotInspecting
+	    isVisible: isNotInspecting
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Exit'
+	    label: 'Exit'
-itemValue: closeRequest
+	    itemValue: closeRequest
-isVisible: isInspecting
+	    isVisible: isInspecting
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Close Debugger and Abort'
+	    label: 'Close Debugger and Abort'
-itemValue: closeRequest
+	    itemValue: closeRequest
-isVisible: isNotInspecting
+	    isVisible: isNotInspecting
-)
+	  )
-)
+	 )
-nil
+	nil
-nil
+	nil
 )
 !
 helpMenuSpec
 "This resource specification was automatically generated
 (Menu new fromLiteralArrayEncoding:(DebugView helpMenuSpec)) startUp
 "
 <resource: #menu>
 ^
 #(Menu
-(
+	(
-(MenuItem
+	 (MenuItem
-label: 'Debugger''s Documentation'
+	    label: 'Debugger''s Documentation'
-itemValue: openHTMLDocument:
+	    itemValue: openHTMLDocument:
-argument: 'tools/debugger/TOP.html'
+	    argument: 'tools/debugger/TOP.html'
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'About DebugView...'
+	    label: 'About DebugView...'
-itemValue: openAboutThisApplication
+	    itemValue: openAboutThisApplication
-)
+	  )
-)
+	 )
-nil
+	nil
-nil
+	nil
 )
 !
 menuSpec
 "This resource specification was automatically generated
 (Menu new fromLiteralArrayEncoding:(DebugView menuSpec)) startUp
 "
 <resource: #menu>
 ^
 #(Menu
-(
+	(
-(MenuItem
+	 (MenuItem
-label: 'File'
+	    label: 'File'
-submenuChannel: fileMenuSpec
+	    submenuChannel: fileMenuSpec
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'View'
+	    label: 'View'
-submenuChannel: viewMenuSpec
+	    submenuChannel: viewMenuSpec
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Process'
+	    label: 'Process'
-submenuChannel: processMenuSpec
+	    submenuChannel: processMenuSpec
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Context'
+	    label: 'Context'
-submenuChannel: contextMenuSpec
+	    submenuChannel: contextMenuSpec
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Receiver'
+	    label: 'Receiver'
-submenuChannel: classMenuSpec
+	    submenuChannel: classMenuSpec
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Selector'
+	    label: 'Selector'
-submenuChannel: selectorMenuSpec
+	    submenuChannel: selectorMenuSpec
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Breakpoint'
+	    label: 'Breakpoint'
-submenuChannel: breakPointMenuSpec
+	    submenuChannel: breakPointMenuSpec
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Help'
+	    label: 'MENU_Help'
-startGroup: conditionalRight
+	    startGroup: conditionalRight
-submenuChannel: helpMenuSpec
+	    submenuChannel: helpMenuSpec
-)
+	  )
-)
+	 )
-nil
+	nil
-nil
+	nil
 )
 !
 processMenuSpec
 "This resource specification was automatically generated
 (Menu new fromLiteralArrayEncoding:(DebugView processMenuSpec)) startUp
 "
 <resource: #menu>
 ^
 #(Menu
-(
+	(
-(MenuItem
+	 (MenuItem
-label: 'Continue'
+	    label: 'Continue'
-itemValue: doContinue
+	    itemValue: doContinue
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Next (Line-Step)'
+	    label: 'Next (Line-Step)'
-itemValue: doNext
+	    itemValue: doNext
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Step'
+	    label: 'Step'
-itemValue: doStep
+	    itemValue: doStep
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'After 5 Seconds'
+	    label: 'After 5 Seconds'
-submenu:
+	    submenu:
-(Menu
+	   (Menu
-(
+	      (
-(MenuItem
+	       (MenuItem
-label: 'Continue'
+		  label: 'Continue'
-itemValue: doContinueAfterDelay
+		  itemValue: doContinueAfterDelay
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'Next (Line-Step)'
+		  label: 'Next (Line-Step)'
-itemValue: doNextAfterDelay
+		  itemValue: doNextAfterDelay
-)
+		)
-(MenuItem
+	       (MenuItem
-label: 'Step'
+		  label: 'Step'
-itemValue: doStepAfterDelay
+		  itemValue: doStepAfterDelay
-)
+		)
-)
+	       )
-nil
+	      nil
-nil
+	      nil
-)
+	    )
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Skip to Cursor Line'
+	    label: 'Skip to Cursor Line'
-itemValue: skip
+	    itemValue: skip
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Step Out (Skip until Return)'
+	    label: 'Step Out (Skip until Return)'
-itemValue: skipForReturn
+	    itemValue: skipForReturn
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Skip until Entering...'
+	    label: 'Skip until Entering...'
-itemValue: skipUntilEntering
+	    itemValue: skipUntilEntering
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Abort'
+	    label: 'Abort'
-itemValue: doAbort
+	    itemValue: doAbort
-)
+	  )
-(MenuItem
+	 (MenuItem
-enabled: abortAllIsHandled
+	    enabled: abortAllIsHandled
-label: 'Abort All'
+	    label: 'Abort All'
-itemValue: doAbortAll
+	    itemValue: doAbortAll
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Inspect'
+	    label: 'Inspect'
-itemValue: doInspectProcess
+	    itemValue: doInspectProcess
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Change Priority...'
+	    label: 'Change Priority...'
-itemValue: doChangeProcessPriority
+	    itemValue: doChangeProcessPriority
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Terminate'
+	    label: 'Terminate'
-itemValue: doTerminate
+	    itemValue: doTerminate
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Hard Terminate (Danger)'
+	    label: 'Hard Terminate (Danger)'
-itemValue: quickTerminate
+	    itemValue: quickTerminate
-isVisible: false
+	    isVisible: false
-)
+	  )
-)
+	 )
-nil
+	nil
-nil
+	nil
 )
 !
 selectorMenuSpec
 "This resource specification was automatically generated
 (Menu new fromLiteralArrayEncoding:(DebugView selectorMenuSpec)) startUp
 "
 <resource: #menu>
 ^
 #(Menu
-(
+	(
-(MenuItem
+	 (MenuItem
-label: 'Browse Implementors...'
+	    label: 'Browse Implementors...'
-itemValue: browseImplementorsOf
+	    itemValue: browseImplementorsOf
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Browse Senders...'
+	    label: 'Browse Senders...'
-itemValue: browseSendersOf
+	    itemValue: browseSendersOf
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-enabled: canDefineMethod
+	    enabled: canDefineMethod
-label: 'Define Missing Method'
+	    label: 'Define Missing Method'
-itemValue: doDefineMethod
+	    itemValue: doDefineMethod
-)
+	  )
-)
+	 )
-nil
+	nil
-nil
+	nil
 )
 !
 viewMenuSpec
 "This resource specification was automatically generated
 (Menu new fromLiteralArrayEncoding:(DebugView viewMenuSpec)) startUp
 "
 <resource: #menu>
 ^
 #(Menu
-(
+	(
-(MenuItem
+	 (MenuItem
-enabled: canShowMore
+	    enabled: canShowMore
-label: 'Show More WalkBack'
+	    label: 'Show More WalkBack'
-itemValue: showMoreWalkback
+	    itemValue: showMoreWalkback
-)
+	  )
-(MenuItem
+	 (MenuItem
-enabled: canShowMore
+	    enabled: canShowMore
-label: 'Show Full WalkBack'
+	    label: 'Show Full WalkBack'
-itemValue: showFullWalkback
+	    itemValue: showFullWalkback
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: '-'
+	    label: '-'
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Show Dense WalkBack'
+	    label: 'Show Dense WalkBack'
-itemValue: showingDenseWalkback:
+	    itemValue: showingDenseWalkback:
-hideMenuOnActivated: false
+	    hideMenuOnActivated: false
-indication: showingDenseWalkback
+	    indication: showingDenseWalkback
-)
+	  )
-(MenuItem
+	 (MenuItem
-label: 'Show Support Code (Implementation of Enumerations, Exceptions etc.)'
+	    enabled: notShowingDenseWalkbackHolder
-itemValue: showingSupportCode:
+	    label: 'Show Support Code (Implementation of Enumerations, Exceptions etc.)'
-hideMenuOnActivated: false
+	    itemValue: showingSupportCode:
-indication: showingSupportCode
+	    hideMenuOnActivated: false
-)
+	    indication: showingSupportCode
-(MenuItem
+	  )
-label: '-'
+	 (MenuItem
-)
+	    label: '-'
-(MenuItem
+	  )
-label: 'Raise Debugger when Entering'
+	 (MenuItem
-itemValue: autoRaiseView:
+	    label: 'Raise Debugger when Entering'
-hideMenuOnActivated: false
+	    itemValue: autoRaiseView:
-indication: autoRaiseView
+	    hideMenuOnActivated: false
-)
+	    indication: autoRaiseView
-(MenuItem
+	  )
-label: '-'
+	 (MenuItem
-)
+	    label: '-'
-(MenuItem
+	  )
-label: 'Settings...'
+	 (MenuItem
-itemValue: openSettingsDialog
+	    label: 'Settings...'
-)
+	    itemValue: openSettingsDialog
-)
+	  )
-nil
+	 )
-nil
+	nil
+	nil
 )
 ! !
 !DebugView class methodsFor:'misc'!
 "/ fetch some contexts...
 someContexts := Array new:25.
 con := aContext.
 idx := 1.
 [(idx <= someContexts size) and:[con notNil]] whileTrue:[
-someContexts at:idx put:con.
+	someContexts at:idx put:con.
-con := con sender.
+	con := con sender.
-idx := idx + 1.
+	idx := idx + 1.
 ].
 "/ search...
 idx := self interestingContextIndexIn:someContexts.
 ^ someContexts at:idx.
 (con method notNil and:[ con method isWrapped ]) ifTrue:[^ 1].  "/ we are already there
 "/ somewhere, at the bottom, there must be a raise ...
 "/ find the exception
 1 to:5 do:[:i |
-found isNil ifTrue:[
+	found isNil ifTrue:[
-con := aContextArray at:i ifAbsent:nil.
+	    con := aContextArray at:i ifAbsent:nil.
-con notNil ifTrue:[
+	    con notNil ifTrue:[
-sel := con selector ? ''.
+		sel := con selector ? ''.
-(sel isSymbol
+		(sel isSymbol
-and:[ (sel startsWith:'raise')
+		and:[ (sel startsWith:'raise')
-and:[ ((rcvr := con receiver) isLazyValue not)
+		and:[ ((rcvr := con receiver) isLazyValue not)
-and:[ rcvr isExceptionCreator]]]) ifTrue:[
+		and:[ rcvr isExceptionCreator]]]) ifTrue:[
-offset := i.
+		    offset := i.
-found := con.
+		    found := con.
-"/ if this is a noHandler exception,
+		    "/ if this is a noHandler exception,
-"/ skip forward to the erronous context
+		    "/ skip forward to the erronous context
-(rcvr isException) ifTrue:[
+		    (rcvr isException) ifTrue:[
-rcvr creator == Signal noHandlerSignal ifTrue:[
+			rcvr creator == Signal noHandlerSignal ifTrue:[
-found := rcvr suspendedContext.
+			    found := rcvr suspendedContext.
-offset := aContextArray identityIndexOf:found.
+			    offset := aContextArray identityIndexOf:found.
-]
+			]
-].
+		    ].
-].
+		].
-].
+	    ].
-].
+	].
 ].
 "/ Transcript showCR:con.
 "/ Transcript show:'1 '; showCR:found.
 found isNil ifTrue:[
-"/ this is a kludge, but convenient.
+	"/ this is a kludge, but convenient.
-"/ show the place where the error (divisionByZero...) happend,
+	"/ show the place where the error (divisionByZero...) happend,
-"/ not where the signal was raised.
+	"/ not where the signal was raised.
-con := (aContextArray at:1).
+	con := (aContextArray at:1).
-sel := con methodHome selector.
+	sel := con methodHome selector.
 "/ Transcript show:'2 '; showCR:con.
-"/ typically a DivisionByZero - show caller of division
+	"/ typically a DivisionByZero - show caller of division
-(sel == #//
+	(sel == #//
-or:[sel == #/
+	or:[sel == #/
-or:[sel == #\\]]) ifTrue:[
+	or:[sel == #\\]]) ifTrue:[
-^ 2
+	    ^ 2
-].
+	].
-"/ show the place of the bad message; not where the Signal was raised...
+	"/ show the place of the bad message; not where the Signal was raised...
-(sel == #doesNotUnderstand:) ifTrue:[
+	(sel == #doesNotUnderstand:) ifTrue:[
-idx := 3.
+	    idx := 3.
-nMax > 2 ifTrue:[
+	    nMax > 2 ifTrue:[
-sel := (aContextArray at:idx) selector ? ''.
+		sel := (aContextArray at:idx) selector ? ''.
-sel == #doesNotUnderstand: ifTrue:[
+		sel == #doesNotUnderstand: ifTrue:[
-idx := 4
+		    idx := 4
-].
+		].
-nMax > idx ifTrue:[
+		nMax > idx ifTrue:[
-sel := (aContextArray at:idx) selector ? ''.
+		    sel := (aContextArray at:idx) selector ? ''.
-"/ show the place of the perfor-send; not where the Signal was raised...
+		    "/ show the place of the perfor-send; not where the Signal was raised...
-((sel == #perform:)
+		    ((sel == #perform:)
-or:[sel startsWith:'perform:with']) ifTrue:[
+		    or:[sel startsWith:'perform:with']) ifTrue:[
-idx := idx + 1
+			idx := idx + 1
-].
+		    ].
-]
+		]
-].
+	    ].
-^ idx min:nMax
+	    ^ idx min:nMax
-].
+	].
-"/ show the bad method; not where the Signal was raised...
+	"/ show the bad method; not where the Signal was raised...
-(sel == #noByteCode) ifTrue:[
+	(sel == #noByteCode) ifTrue:[
-^ 2
+	    ^ 2
-].
+	].
 "/        "/ show the place of the halt; not where the HaltSignal was raised...
 "/        ((sel == #halt) or:[sel == #halt:]) ifTrue:[
 "/            ^ 2
 "/        ].
 "/                ].
 "/            ].
 "/            ^ 2
 "/        ].
-"/ show the place of signalInterrupt-call; not where the Signal was raised...
+	"/ show the place of signalInterrupt-call; not where the Signal was raised...
-(sel == #signalInterrupt:) ifTrue:[
+	(sel == #signalInterrupt:) ifTrue:[
-^ 2
+	    ^ 2
-].
+	].
 "/        "/ show the place of error-call; not where the ErrorSignal was raised...
 "/        ((sel == #error) or:[sel == #error:]) ifTrue:[
 "/            con method mclass == Object ifTrue:[
 "/                ^ 2
 "/        "/ show the place of the send; not where the Signal was raised...
 "/        (sel == #subclassResponsibility) ifTrue:[
 "/            ^ 2
 "/        ].
-"/ show the place of the bad index; not where the Signal was raised...
+	"/ show the place of the bad index; not where the Signal was raised...
-( #(#notIndexed
+	( #(#notIndexed
-#indexNotIntegerOrOutOfBounds:
+	    #indexNotIntegerOrOutOfBounds:
-#subscriptBoundsError:
+	    #subscriptBoundsError:
-#elementBoundsError:
+	    #elementBoundsError:
-"/ #subclassResponsibility
+	    "/ #subclassResponsibility
-) includes:sel) ifTrue:[
+	) includes:sel) ifTrue:[
-idx := 2.
+	    idx := 2.
-[ idx <= 3
+	    [ idx <= 3
-and:[
+		and:[
-sel := (aContextArray at:idx) selector.
+		    sel := (aContextArray at:idx) selector.
-#(#notIndexed
+		    #(#notIndexed
-#indexNotIntegerOrOutOfBounds:
+		      #indexNotIntegerOrOutOfBounds:
-#subscriptBoundsError:
+		      #subscriptBoundsError:
-#elementBoundsError: ) includes:sel
+		      #elementBoundsError: ) includes:sel
-]
+		]
-] whileTrue:[ idx := idx + 1 ].
+	    ] whileTrue:[ idx := idx + 1 ].
-sel := (aContextArray at:idx) selector.
+	    sel := (aContextArray at:idx) selector.
-(nMax > idx and:[ #(#basicAt: #basicAt:put: #at: #at:put: ) includes:sel])
+	    (nMax > idx and:[ #(#basicAt: #basicAt:put: #at: #at:put: ) includes:sel])
-ifTrue:[
+	    ifTrue:[
-sel := (aContextArray at:idx+1) selector.
+		sel := (aContextArray at:idx+1) selector.
-(nMax > (idx+1) and:[ #(#basicAt: #basicAt:put: #at: #at:put: ) includes:sel])
+		(nMax > (idx+1) and:[ #(#basicAt: #basicAt:put: #at: #at:put: ) includes:sel])
-ifTrue:[
+		ifTrue:[
-sel := (aContextArray at:idx+2) selector.
+		    sel := (aContextArray at:idx+2) selector.
-(nMax > (idx+2) and:[ #(#basicAt: #basicAt:put: #at: #at:put: ) includes:sel])
+		    (nMax > (idx+2) and:[ #(#basicAt: #basicAt:put: #at: #at:put: ) includes:sel])
-ifTrue:[
+		    ifTrue:[
-^ idx+3
+			^ idx+3
-].
+		    ].
-^ idx+2
+		    ^ idx+2
-].
+		].
-^ idx+1
+		^ idx+1
-].
+	    ].
-^ idx
+	    ^ idx
-].
+	].
-offset := 1.
+	offset := 1.
 ].
 "/ the above is all too hard-coded;
 "/ ask the method, if it thinks it should be skipped in the walkback.
 "/ as more methods get flagged, remove code from above.
 con := aContextArray at:offset ifAbsent:nil.
 "/ Transcript show:'2 '; showCR:con.
 [
-con notNil
+	con notNil
-and:[ (methodHome := con methodHome) notNil
+	and:[ (methodHome := con methodHome) notNil
-and:[ (method := methodHome method) notNil
+	and:[ (method := methodHome method) notNil
-and:[ method shouldBeSkippedInDebuggersWalkBack ]]]
+	and:[ method shouldBeSkippedInDebuggersWalkBack ]]]
 ] whileTrue:[
 "/ Transcript showCR:con methodHome method.
-offset := offset + 1.
+	offset := offset + 1.
-con := aContextArray at:offset ifAbsent:nil.
+	con := aContextArray at:offset ifAbsent:nil.
 ].
 methodHome := nil. "/ help GC
 "
 got it; move up, skipping all intermediate Signal and
 Exception contexts
 "
 prev := nil.
 rcvr := con receiver.
 [
-rcvr isLazyValue not and:[(rcvr isExceptionHandler) or:[(rcvr isException)]]
+	rcvr isLazyValue not and:[(rcvr isExceptionHandler) or:[(rcvr isException)]]
 ] whileTrue:[
-prev := con.
+	prev := con.
-nMax > offset ifFalse:[^ offset].
+	nMax > offset ifFalse:[^ offset].
-offset := offset + 1.
+	offset := offset + 1.
-con := aContextArray at:offset.
+	con := aContextArray at:offset.
-rcvr := con receiver.
+	rcvr := con receiver.
 ].
 "
 now, we are one above the raising context
 "
 "/ Transcript show:'3 '; showCR:con.
 (con selector == #retry:coercing:) ifTrue:[
-"/ show the operation which failed to coerce, not the coerce
+	"/ show the operation which failed to coerce, not the coerce
-^ offset + 1
+	^ offset + 1
 ].
 "
 if the sender-method of the raise is one of object's error methods ...
 "
 ( #( halt halt:
-error error:
+	 error error:
-doesNotUnderstand:
+	 doesNotUnderstand:
-subclassResponsibility
+	 subclassResponsibility
-primitiveFailed) includes:con selector)
+	 primitiveFailed) includes:con selector)
 ifTrue:[
-con selector == #doesNotUnderstand: ifTrue:[
+	con selector == #doesNotUnderstand: ifTrue:[
-"
+	    "
-one more up, to get to the originating context
+	     one more up, to get to the originating context
-"
+	    "
-con := aContextArray at:(offset + 1).
+	    con := aContextArray at:(offset + 1).
-con isNil ifTrue:[^ offset].
+	    con isNil ifTrue:[^ offset].
-offset := offset + 1.
+	    offset := offset + 1.
-].
+	].
-con := aContextArray at:(offset + 1).
+	con := aContextArray at:(offset + 1).
-con isNil ifTrue:[^ offset].
+	con isNil ifTrue:[^ offset].
-offset := offset + 1.
+	offset := offset + 1.
 ] ifFalse:[
-"
+	"
-ok, got the raise - if its a BreakPoint, look for the sender
+	 ok, got the raise - if its a BreakPoint, look for the sender
-"
+	"
-(prev notNil and:[prev receiver == BreakPointInterrupt]) ifTrue:[
+	(prev notNil and:[prev receiver == BreakPointInterrupt]) ifTrue:[
-offset := offset + 1
+	    offset := offset + 1
-].
+	].
 ].
 ^ offset
 "Created: / 17-11-2001 / 20:37:49 / cg"
 "Modified: / 28-08-2013 / 20:23:35 / cg"
 ! !
+!DebugView methodsFor:'accessing'!
+contextInspector
+^ contextInspector
+!
+inspectedProcess
+^ inspectedProcess
+! !
+!DebugView methodsFor:'aspects'!
+verboseBacktraceHolder
+verboseBacktraceHolder isNil ifTrue:[
+	verboseBacktraceHolder := ValueHolder with:false
+].
+^ verboseBacktraceHolder
+! !
 !DebugView methodsFor:'basic'!
 enableDisableActions
 |m|
 m := contextView middleButtonMenu.
 m notNil ifTrue:[
-self updateMenuItems.
+	self updateMenuItems.
-(inspecting or:[AbortOperationRequest isHandled]) ifTrue:[
+	(inspecting or:[AbortOperationRequest isHandled]) ifTrue:[
-abortButton enable.
+	    abortButton enable.
-m enable:#doAbort.
+	    m enable:#doAbort.
-] ifFalse:[
+	] ifFalse:[
-abortButton disable.
+	    abortButton disable.
-m disable:#doAbort.
+	    m disable:#doAbort.
-].
+	].
-exclusive ifTrue:[
+	exclusive ifTrue:[
-terminateButton disable.
+	    terminateButton disable.
-m disable:#doTerminate.
+	    m disable:#doTerminate.
-] ifFalse:[
+	] ifFalse:[
-terminateButton enable.
+	    terminateButton enable.
-m enable:#doTerminate.
+	    m enable:#doTerminate.
-]
+	]
 ].
 mayProceed == false ifTrue:[
-continueButton disable.
+	continueButton disable.
-m notNil ifTrue:[m disable:#doContinue].
+	m notNil ifTrue:[m disable:#doContinue].
 ] ifFalse:[
-continueButton enable.
+	continueButton enable.
-m notNil ifTrue:[m enable:#doContinue]
+	m notNil ifTrue:[m enable:#doContinue]
 ].
 "Created: / 16.11.2001 / 17:40:51 / cg"
 !
 "enter a debugger"
 <context: #return>
 ^ self
-enter:thisContext sender
+	enter:thisContext sender
-select: nil.
+	select: nil.
 "Modified: / 28-08-2012 / 21:13:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 enter:aContext select:initialSelectionOrNil
 <context: #return>
 |con m enteredByInterrupt sel iAmNew foundNoByteCodeContext foundExitContext c|
 DebuggingDebugger == true ifTrue:[
-'==> enter2: (' print. aContext print.
+	'==> enter2: (' print. aContext print.
-') select: ' print. initialSelectionOrNil printCR.
+	') select: ' print. initialSelectionOrNil printCR.
 ].
 thisContext isRecursive ifTrue:[
-"/ care for the special case, were the Debugger was autoloaded.
+	"/ care for the special case, were the Debugger was autoloaded.
-"/ in this case, thisContext IS recursive, but thats no error
+	"/ in this case, thisContext IS recursive, but thats no error
-"/ condition.
+	"/ condition.
-foundNoByteCodeContext := false.
+	foundNoByteCodeContext := false.
-foundExitContext := false.
+	foundExitContext := false.
-c := thisContext findNextContextWithSelector:#enter:withMessage:mayProceed: or:#noByteCode or:#exit_unwindThenDo:.
+	c := thisContext findNextContextWithSelector:#enter:withMessage:mayProceed: or:#noByteCode or:#exit_unwindThenDo:.
-[
+	[
-foundNoByteCodeContext not
+	 foundNoByteCodeContext not
-and:[ foundExitContext not
+	 and:[ foundExitContext not
-and:[c notNil
+	 and:[c notNil
-and:[c selector ~~ #enter:withMessage:mayProceed:
+	 and:[c selector ~~ #enter:withMessage:mayProceed:
-]]]]
+	]]]]
-whileTrue:[
+	whileTrue:[
-c selector == #exit_unwindThenDo: ifTrue:[
+	    c selector == #exit_unwindThenDo: ifTrue:[
-foundExitContext := true
+		foundExitContext := true
-].
+	    ].
-c selector == #noByteCode ifTrue:[
+	    c selector == #noByteCode ifTrue:[
-foundNoByteCodeContext := true
+		foundNoByteCodeContext := true
-].
+	    ].
-c := c findNextContextWithSelector:#enter:withMessage:mayProceed: or:#noByteCode or:#exit_unwindThenDo:.
+	    c := c findNextContextWithSelector:#enter:withMessage:mayProceed: or:#noByteCode or:#exit_unwindThenDo:.
-].
+	].
-(foundNoByteCodeContext not
+	(foundNoByteCodeContext not
-and:[ foundExitContext not]) ifFalse:[
+	and:[ foundExitContext not]) ifFalse:[
-('DebugView [warning]: reentered') errorPrintCR.
+	    ('DebugView [warning]: reentered') errorPrintCR.
-^ MiniDebugger
+	    ^ MiniDebugger
-enter:aContext
+		enter:aContext
-withMessage:'DebugView [error]: recursive error (in debugger)'
+		withMessage:'DebugView [error]: recursive error (in debugger)'
-mayProceed:mayProceed.
+		mayProceed:mayProceed.
-].
+	].
-foundExitContext ifTrue:[
+	foundExitContext ifTrue:[
-'DebugView [error]: recursive error (in debugger) ignored' printCR.
+	    'DebugView [error]: recursive error (in debugger) ignored' printCR.
-^ self.
+	    ^ self.
-].
+	].
 ].
 "/'entering: ' print. aContext printCR.
 "/'initial: ' print. initialSelectionOrNil printCR.
 thisContext sender fixAllLineNumbers. "/ _CONTEXTLINENOS(s)
 (self isHaltToBeIgnored) ifTrue:[
-^ self.
+	^ self.
 ].
 "/    "/ does not work yet - but we should ignore any breakpoints while stepping
 "/    (stepping and:[steppedContext notNil]) ifTrue:[
 "/        self isEnteredDueToBreakpointOrHalt ifTrue:[
 "/            'DebugView [info]: ignored other interrupt while stepping' infoPrintCR.
 "/            ^ self
 "/        ].
 "/    ].
-iAmNew := drawableId isNil.
+iAmNew := self drawableId isNil.
-verboseBacktrace := UserPreferences current verboseBacktraceInDebugger.
+self verboseBacktraceHolder value:(UserPreferences current verboseBacktraceInDebugger).
 busy := cachable := true.
 inspecting := false.
 inspectedProcess := Processor activeProcess.
 stepping := false.
 "/ On a multiUser system, ungrab all of them ...
 "/ Q: this is good for multi-screen apps (where an error should not happen),
 "/    but not for multi-user development, where the debugger is entered often.
 "/    What is a good solution to this dilemma ?
 Screen allScreens do:[:aScreen |
-aScreen ungrabPointer.
+	aScreen ungrabPointer.
-aScreen ungrabKeyboard.
+	aScreen ungrabKeyboard.
 ].
 ("inspectedProcess suspendedContext isNil
 or:["inspectedProcess isSystemProcess"]") ifTrue:[
-terminateButton disable.
+	terminateButton disable.
 ] ifFalse:[
-terminateButton enable.
+	terminateButton enable.
-abortButton enable.
+	abortButton enable.
 ].
 iAmNew ifFalse:[
-"/ not the first time - disable buttons & menus
+	"/ not the first time - disable buttons & menus
-"/ from the previous life
+	"/ from the previous life
-self turnOffAllButtons.
+	self turnOffAllButtons.
-m := contextView middleButtonMenu.
+	m := contextView middleButtonMenu.
-m notNil ifTrue:[
+	m notNil ifTrue:[
-m disableAll:#(showMore "skip skipForReturn" inspectContext).
+	    m disableAll:#(showMore "skip skipForReturn" inspectContext).
-].
+	].
-self showingDenseWalkback:(verboseBacktrace not).
+	self showingDenseWalkback:(self verboseBacktraceHolder value not).
 ].
 self iconLabel:'Debugger'.
 windowGroup isNil ifTrue:[
-self windowGroup: WindowGroup new.
+	self windowGroup: WindowGroup new.
-windowGroup addTopView:self.
+	windowGroup addTopView:self.
 ].
 exclusive ifFalse:[
-"/ create a (modal) windowGroup for myself
+	"/ create a (modal) windowGroup for myself
-windowGroup setModal:true.
+	windowGroup setModal:true.
 ] ifTrue:[
-"/ create a windowGroup with a synchronous sensor for me
+	"/ create a windowGroup with a synchronous sensor for me
-windowGroup beSynchronous.
+	windowGroup beSynchronous.
 ].
 windowGroup setProcess:Processor activeProcess.
+IsDebuggingQuery answer:true do:[
-"
-get the walkback list; clear inspectors if we did not come here by single stepping)
+	"
-"
+	 get the walkback list; clear inspectors if we did not come here by single stepping)
+	"
 "/Transcript show:'0 '; showCR:aContext.
 "/Transcript show:'0 '; showCR:thisContext sender.
 "/Transcript show:'0 '; showCR:thisContext sender sender.
 "/Transcript show:'0 '; showCR:thisContext sender sender sender.
 "/Transcript show:'0 '; showCR:thisContext sender sender sender sender.
 "/Transcript show:'0 '; showCR:thisContext sender sender sender sender sender sender sender sender .
 "/Transcript show:'0 '; showCR:thisContext sender sender sender sender sender sender sender sender sender.
 "/Transcript show:'0 '; showCR:thisContext sender sender sender sender sender sender sender sender sender sender.
 "/Transcript show:'0 '; showCR:thisContext sender sender sender sender sender sender sender sender sender sender sender.
 "/Transcript showCR:initialSelectionOrNil.
-self setContext:aContext releaseInspectors:(exitAction ~~ #step).
+	self setContext:aContext releaseInspectors:(exitAction ~~ #step).
-"/'after setContext; first is ' print.
+	"/'after setContext; first is ' print.
-"/(contextArray at:1 ifAbsent:nil) printCR.
+	"/(contextArray at:1 ifAbsent:nil) printCR.
-self setInitialSelectionOnEntry:initialSelectionOrNil context:aContext.
+	self setInitialSelectionOnEntry:initialSelectionOrNil context:aContext.
-IsDebuggingQuery answer:true do:[
+	self updateButtonsAndMenuItemsForContext:aContext.
-self updateButtonsAndMenuItemsForContext:aContext.
+	"
-"
+	 If this is a new debugger, do a realize.
-If this is a new debugger, do a realize.
+	 Otherwise, its probably better to do a map, which shows the
-Otherwise, its probably better to do a map, which shows the
+	 view at the previous position, without a need for the user to set the
-view at the previous position, without a need for the user to set the
+	 position again
-position again
+	"
-"
+	iAmNew ifTrue:[
-iAmNew ifTrue:[
+	    self realize.
-self realize.
+	] ifFalse:[
-] ifFalse:[
+	    self remap.
-self remap.
+	].
-].
+	self setForegroundWindow.
-self setForegroundWindow.
+	exclusive ifTrue:[
-exclusive ifTrue:[
+	    self showError:'
-self showError:'
 Debugging system process `' , (inspectedProcess nameOrId) printString , '''.
 This is a modal debugger - all event processing is stopped..
 Therefore, you cannot interact with other views or
 open any other tools while this debugger is active.
 Also, there is no event processing (redraw) for other views.'
-].
+	].
-self autoRaiseView ifTrue:[
+	self autoRaiseView ifTrue:[
-"/ self raise.
+	    "/ self raise.
-self raiseDeiconified.
+	    self raiseDeiconified.
-self topView activate; setForegroundWindow; activate.
+	    self topView activate; setForegroundWindow; activate.
-].
+	].
-canContinue := true.
+	canContinue := true.
-exitAction := nil.
+	exitAction := nil.
-"/ enter private event handling loop. This is left (and we come back here again)
+	"/ enter private event handling loop. This is left (and we come back here again)
-"/ when any button was pressed which requires continuation of the debuggee or
+	"/ when any button was pressed which requires continuation of the debuggee or
-"/ closedown of the debugger.
+	"/ closedown of the debugger.
-[self controlLoop] ifCurtailed:[
+	[self controlLoop] ifCurtailed:[
-windowGroup notNil ifTrue:[
+	    windowGroup notNil ifTrue:[
-windowGroup setProcess:nil.
+		windowGroup setProcess:nil.
-].
+	    ].
-NumberOfDebuggers := (NumberOfDebuggers ? 1) - 1.
+	    NumberOfDebuggers := (NumberOfDebuggers ? 1) - 1.
-self destroy
+	    self destroy
-].
+	].
-NumberOfDebuggers := (NumberOfDebuggers ? 1) - 1.
+	NumberOfDebuggers := (NumberOfDebuggers ? 1) - 1.
 ].
 "/ here after my own control loop is finished.
 "/ release all context stuff.
 "/ This is required to avoid keeping references to the debuggees objects
 codeView acceptAction:nil.
 codeView doItAction:nil.
 ObjectMemory stepInterruptHandler == self ifTrue:[
-ObjectMemory stepInterruptHandler:nil.
+	ObjectMemory stepInterruptHandler:nil.
 ].
 lastSelectionInReceiverInspector := receiverInspector selectedKeyName.
 lastSelectionInContextInspector := contextInspector selectedKeyName.
 (exitAction ~~ #step) ifTrue:[
-"/ not stepping or continue - close window
+	"/ not stepping or continue - close window
-self cacheMyself.
+	self cacheMyself.
-receiverInspector release.
+	receiverInspector release.
-contextInspector release.
+	contextInspector release.
-self unmap.
+	self unmap.
-device flush.
+	self flush.
-(exitAction == #abort) ifTrue:[ self exit_abort. "does not return" ].
+	(exitAction == #abort) ifTrue:[ self exit_abort. "does not return" ].
-(exitAction == #abortAll) ifTrue:[ self exit_abortAll. "does not return" ].
+	(exitAction == #abortAll) ifTrue:[ self exit_abortAll. "does not return" ].
-(exitAction == #return) ifTrue:[ self exit_return. "does not return" ].
+	(exitAction == #return) ifTrue:[ self exit_return. "does not return" ].
-(exitAction == #restart) ifTrue:[ self exit_restart. "does not return" ].
+	(exitAction == #restart) ifTrue:[ self exit_restart. "does not return" ].
-(exitAction == #resend) ifTrue:[ self exit_resend. "does not return" ].
+	(exitAction == #resend) ifTrue:[ self exit_resend. "does not return" ].
-(exitAction == #quickTerminate) ifTrue:[ self exit_quickTerminate. "does not return" ].
+	(exitAction == #quickTerminate) ifTrue:[ self exit_quickTerminate. "does not return" ].
-(exitAction == #terminate) ifTrue:[ self exit_terminate. "does not return" ].
+	(exitAction == #terminate) ifTrue:[ self exit_terminate. "does not return" ].
-exitAction isBlock ifTrue:[
+	exitAction isBlock ifTrue:[
-self exit_unwindThenDo:exitAction.
+	    self exit_unwindThenDo:exitAction.
-"does not return"
+	    "does not return"
-].
+	].
-"not reached"
+	"not reached"
-^ self
+	^ self
 ].
 "/ stepping - window stays open
 selectedContext := actualContext := firstContext := nil.
 "/ restore the previous pointer grab
 grabber notNil ifTrue:[
-device grabPointerInView:grabber.
+	self graphicsDevice grabPointerInView:grabber.
-grabber := nil.
+	grabber := nil.
 ].
 (exitAction == #step) ifTrue:[
-"
+	"
-schedule another stepInterrupt
+	 schedule another stepInterrupt
-- must enter myself into the collection of open debuggers,
+	 - must enter myself into the collection of open debuggers,
-in case the stepping process comes back again via a halt or signal
+	   in case the stepping process comes back again via a halt or signal
-before the step is finished. In this case, the stepping debugger should
+	   before the step is finished. In this case, the stepping debugger should
-come up (instead of a new one)
+	   come up (instead of a new one)
-- must flush caches since optimized methods not always
+	 - must flush caches since optimized methods not always
-look for pending interrupts
+	   look for pending interrupts
-"
+	"
-"/
+	"/
-"/ also must care for stepping into a return
+	"/ also must care for stepping into a return
-"/
+	"/
-steppedContext notNil ifTrue:[
+	steppedContext notNil ifTrue:[
-Processor activeProcess forceInterruptOnReturnOf:steppedContext.
+	    Processor activeProcess forceInterruptOnReturnOf:steppedContext.
-].
+	].
-OpenDebuggers isNil ifTrue:[
+	OpenDebuggers isNil ifTrue:[
-OpenDebuggers := WeakIdentitySet new.
+	    OpenDebuggers := WeakIdentitySet new.
-].
+	].
-OpenDebuggers add:self.
+	OpenDebuggers add:self.
-self label:'single stepping - please wait ...'.
+	self label:'single stepping - please wait ...'.
-stepping := true.
+	stepping := true.
-ObjectMemory stepInterruptHandler:self.
+	ObjectMemory stepInterruptHandler:self.
-Processor activeProcess stepInterruptHandler:self.
+	Processor activeProcess stepInterruptHandler:self.
-ObjectMemory flushCaches.
+	ObjectMemory flushCaches.
-Context singleStepInterruptRequest isHandled ifTrue:[
+	Context singleStepInterruptRequest isHandled ifTrue:[
-Context singleStepInterruptRequest
+	    Context singleStepInterruptRequest
-raiseWith:
+		raiseWith:
-(("bigStep" steppedContextLineno notNil)
+		    (("bigStep" steppedContextLineno notNil)
-ifTrue:[#next]
+			ifTrue:[#next]
-ifFalse:[#step])
+			ifFalse:[#step])
-] ifFalse:[
+	] ifFalse:[
-"/ see if we came here through an interrupt-action
+	    "/ see if we came here through an interrupt-action
-"/ (i.e. aProcess interruptWith:...)
+	    "/ (i.e. aProcess interruptWith:...)
-enteredByInterrupt := false.
+	    enteredByInterrupt := false.
-con := thisContext findNextContextWithSelector:#timerInterrupt or:#ioInterrupt or:nil.
+	    con := thisContext findNextContextWithSelector:#timerInterrupt or:#ioInterrupt or:nil.
-[enteredByInterrupt not
+	    [enteredByInterrupt not
-and:[con notNil
+	     and:[con notNil
-and:[con ~~ aContext]]] whileTrue:[
+	     and:[con ~~ aContext]]] whileTrue:[
-((sel := con selector) == #timerInterrupt
+		((sel := con selector) == #timerInterrupt
-or:[sel == #ioInterrupt]) ifTrue:[
+		or:[sel == #ioInterrupt]) ifTrue:[
-enteredByInterrupt := true.
+		    enteredByInterrupt := true.
-] ifFalse:[
+		] ifFalse:[
-con := con findNextContextWithSelector:#timerInterrupt or:#ioInterrupt or:nil.
+		    con := con findNextContextWithSelector:#timerInterrupt or:#ioInterrupt or:nil.
-].
+		].
-].
+	    ].
-ObjectMemory flushInlineCaches.
+	    ObjectMemory flushInlineCaches.
-DebuggingDebugger == true ifTrue:[
+	    DebuggingDebugger == true ifTrue:[
-enteredByInterrupt printCR.
+		enteredByInterrupt printCR.
-].
+	    ].
-enteredByInterrupt ifTrue:[
+	    enteredByInterrupt ifTrue:[
-"/ don't want to step through all intermediate
+		"/ don't want to step through all intermediate
-"/ (scheduler-) contexts; place a return-trap on the
+		"/ (scheduler-) contexts; place a return-trap on the
-"/ one right below the interesting one
+		"/ one right below the interesting one
 "/                'special unwind return' printCR.
-con unwindThenDo:[
+		con unwindThenDo:[
-Processor activeProcess stepInterruptHandler:self.
+				  Processor activeProcess stepInterruptHandler:self.
-ObjectMemory stepInterruptHandler:self.
+				  ObjectMemory stepInterruptHandler:self.
-InStepInterrupt := nil.
+				  InStepInterrupt := nil.
-StepInterruptPending := 1.
+				  StepInterruptPending := 1.
-InterruptPending := 1].
+				  InterruptPending := 1].
-] ifFalse:[
+	    ] ifFalse:[
 "/                'normal step return' printCR.
-skipLineNr ~~ #return ifTrue:[
+		skipLineNr ~~ #return ifTrue:[
-StepInterruptPending := 1.
+		    StepInterruptPending := 1.
-InterruptPending := 1.
+		    InterruptPending := 1.
-] ifFalse:[
+		] ifFalse:[
 "/                    'step for return' printCR.
-]
+		]
-].
+	    ].
-InStepInterrupt := nil
+	    InStepInterrupt := nil
-]
+	]
 ] ifFalse:[
-OpenDebuggers notNil ifTrue:[
+	OpenDebuggers notNil ifTrue:[
-OpenDebuggers remove:self ifAbsent:[].
+	    OpenDebuggers remove:self ifAbsent:[].
-].
+	].
-self cacheMyself.
+	self cacheMyself.
 ]
 "Modified: / 17-04-1997 / 13:01:32 / stefan"
 "Created: / 30-10-1997 / 21:08:18 / cg"
 "Modified: / 13-10-1998 / 19:56:59 / ps"
 exit_resend
 |con|
 selectedContext notNil ifTrue:[
-con := selectedContext.
+	con := selectedContext.
-self cacheMyself.
+	self cacheMyself.
-"
+	"
-have to catch errors occuring in unwind-blocks
+	 have to catch errors occuring in unwind-blocks
-"
+	"
-Error handle:[:ex |
+	Error handle:[:ex |
-'DebugView [info]: ignored error while unwinding: ' infoPrint.
+	    'DebugView [info]: ignored error while unwinding: ' infoPrint.
-ex description infoPrintCR.
+	    ex description infoPrintCR.
-ex proceed
+	    ex proceed
-] do:[
+	] do:[
-^ con unwindThenResend.
+	    ^ con unwindThenResend.
-].
+	].
-'DebugView [warning]: cannot resend selected context''s message' errorPrintCR
+	'DebugView [warning]: cannot resend selected context''s message' errorPrintCR
 ]
 !
 exit_restart
 |con|
 selectedContext notNil ifTrue:[
-con := selectedContext.
+	con := selectedContext.
-self cacheMyself.
+	self cacheMyself.
-"
+	"
-have to catch errors occuring in unwind-blocks
+	 have to catch errors occuring in unwind-blocks
-"
+	"
-Error handle:[:ex |
+	Error handle:[:ex |
-'DebugView [info]: ignored error while unwinding: ' infoPrint.
+	    'DebugView [info]: ignored error while unwinding: ' infoPrint.
-ex description infoPrintCR.
+	    ex description infoPrintCR.
-ex proceed
+	    ex proceed
-] do:[
+	] do:[
-con unwindAndRestart.
+	    con unwindAndRestart.
-].
+	].
-'DebugView [warning]: cannot restart selected context' errorPrintCR
+	'DebugView [warning]: cannot restart selected context' errorPrintCR
 ]
 "Created: / 16-11-2001 / 17:23:17 / cg"
 "Modified: / 26-09-2012 / 15:09:52 / cg"
 !
 exit_return
 |con retVal|
+retVal := nil.
 selectedContext notNil ifTrue:[
-"
+	"
-if there is a selection in the codeView,
+	 if there is a selection in the codeView,
-evaluate it and use the result as return value
+	 evaluate it and use the result as return value
-"
+	"
 "/ disabled for now, there is almost always a selection (the current line)
 "/ and that is syntactically incorrect ...
 "/ ... leading to a popup warning from the codeView
 "/
 "/                codeView hasSelection ifTrue:[
 "/                        s := codeView selection asString.
 "/                        retVal := codeView doItAction value:s.
 "/                    ].
 "/                ].
-con := selectedContext.
+	con := selectedContext.
-self cacheMyself.
+	self cacheMyself.
-"
+	"
-have to catch errors occuring in unwind-blocks
+	 have to catch errors occuring in unwind-blocks
-"
+	"
-Error handle:[:ex |
+	Error handle:[:ex |
-'DebugView [info]: ignored error while unwinding: ' infoPrint.
+	    'DebugView [info]: ignored error while unwinding: ' infoPrint.
-ex description infoPrintCR.
+	    ex description infoPrintCR.
-ex proceed
+	    ex proceed
-] do:[
+	] do:[
-con unwind:retVal.
+	    con unwind:retVal.
-].
+	].
-'DebugView [warning]: cannot return from selected context' errorPrintCR
+	'DebugView [warning]: cannot return from selected context' errorPrintCR
 ]
 "Created: / 16.11.2001 / 17:22:24 / cg"
 "Modified: / 17.11.2001 / 23:20:21 / cg"
 !
 "
 have to catch errors occuring in unwind-blocks
 "
 Error handle:[:ex |
-'DebugView [info]: ignored error while unwinding: ' infoPrint.
+	'DebugView [info]: ignored error while unwinding: ' infoPrint.
-ex description infoPrintCR.
+	ex description infoPrintCR.
-ex proceed
+	ex proceed
 ] do:[
-self cacheMyself.
+	self cacheMyself.
-Processor activeProcess terminate.
+	Processor activeProcess terminate.
 ].
 'DebugView [warning]: cannot terminate process' errorPrintCR
 "Created: / 16.11.2001 / 17:24:20 / cg"
 "Modified: / 17.11.2001 / 23:20:27 / cg"
 "
 self cacheMyself.
 con := thisContext sender.
 Error handle:[:ex |
-'DebugView [info]: ignored error while unwinding: ' infoPrint.
+	'DebugView [info]: ignored error while unwinding: ' infoPrint.
-ex description infoPrintCR.
+	ex description infoPrintCR.
-ex proceed
+	ex proceed
 ] do:[
-"/ find the enter:select context.
+	"/ find the enter:select context.
-[(con selector ~~ #enter:select:) or:[con receiver ~~ self]] whileTrue:[
+	[(con selector ~~ #enter:select:) or:[con receiver ~~ self]] whileTrue:[
-con := con sender
+	    con := con sender
-].
+	].
-"/ must skip over its caller (because this one has a ControlInterrupt handler too)
+	"/ must skip over its caller (because this one has a ControlInterrupt handler too)
-con sender receiver == self class ifTrue:[
+	con sender receiver == self class ifTrue:[
-con := con sender.
+	    con := con sender.
-con sender receiver == self class ifTrue:[
+	    con sender receiver == self class ifTrue:[
-con := con sender methodHome.
+		con := con sender methodHome.
-].
+	    ].
-].
+	].
-con unwindThenDo:aBlock.
+	con unwindThenDo:aBlock.
 ].
 'DebugView [warning]: abort failed' errorPrintCR
 "Created: / 16.11.2001 / 17:20:45 / cg"
 "Modified: / 18.11.2001 / 00:58:14 / cg"
 initialSelectionOnEntry:initialSelectionOrNil context:aContext
 |selection con1 con2 h|
 initialSelectionOrNil notNil ifTrue:[
-^ initialSelectionOrNil
+	^ initialSelectionOrNil
 ].
 "
 and find the one context to show initially
 - if we came here by a send (single step), its the top context;
 con2 := (contextArray at:2 ifAbsent:nil).
 "/ Transcript show:'x '; showCR:exitAction.
 "/ came here via a step?
 exitAction == #step ifTrue:[
-selection := 1.
+	selection := 1.
-steppedContext notNil ifTrue:[
+	steppedContext notNil ifTrue:[
-"
+	    "
-if we came here by a big-step, show the method where we are
+	     if we came here by a big-step, show the method where we are
-"
+	    "
-con1 == steppedContext ifTrue:[
+	    con1 == steppedContext ifTrue:[
-selection := 1
+		selection := 1
-] ifFalse:[
+	    ] ifFalse:[
-con2 == steppedContext ifTrue:[
+		con2 == steppedContext ifTrue:[
-selection := 2
+		    selection := 2
-]
+		]
-].
+	    ].
-"
+	    "
-for bigStep, we could also be in a block below the actual method ...
+	     for bigStep, we could also be in a block below the actual method ...
-"
+	    "
-((h := con1 home) notNil
+	    ((h := con1 home) notNil
-and:[h == steppedContext]) ifTrue:[
+	     and:[h == steppedContext]) ifTrue:[
-selection := 1
+		selection := 1
-] ifFalse:[
+	    ] ifFalse:[
-(con2 notNil
+		(con2 notNil
-and:[(h := con2 home) notNil
+		and:[(h := con2 home) notNil
-and:[h == steppedContext]]) ifTrue:[
+		and:[h == steppedContext]]) ifTrue:[
-selection := 2
+		    selection := 2
-]
+		]
-].
+	    ].
-h := nil.
+	    h := nil.
-]
+	]
 ] ifFalse:[
-steppedContext isNil ifTrue:[
+	steppedContext isNil ifTrue:[
-"
+	    "
-preselect a more interesting context, (where halt/raise was ...)
+	     preselect a more interesting context, (where halt/raise was ...)
-"
+	    "
-"/ selection := self class interestingContextIndexFrom:aContext.
+	    "/ selection := self class interestingContextIndexFrom:aContext.
-selection := self class interestingContextIndexIn:contextArray.
+	    selection := self class interestingContextIndexIn:contextArray.
 "/ Transcript show:'x '; showCR:selection.
-selection := selection min:(contextArray size).
+	    selection := selection min:(contextArray size).
-] ifFalse:[
+	] ifFalse:[
-"
+	    "
-if we came here by a big-step, show the method where we are
+	     if we came here by a big-step, show the method where we are
-"
+	    "
-con1 == steppedContext ifTrue:[
+	    con1 == steppedContext ifTrue:[
-selection := 1
+		selection := 1
-] ifFalse:[
+	    ] ifFalse:[
-con2 == steppedContext ifTrue:[
+		con2 == steppedContext ifTrue:[
-selection := 2.
+		    selection := 2.
-]
+		]
-]
+	    ]
-]
+	]
 ].
 ^ selection
 "Created: / 17.11.2001 / 20:26:26 / cg"
 "Modified: / 17.11.2001 / 22:51:46 / cg"
 one. (think of it as an inspector showing more detail, and offering
 some more control operations)"
 |bpanel dummy w|
-verboseBacktrace := UserPreferences current verboseBacktraceInDebugger.
+self verboseBacktraceHolder value:( UserPreferences current verboseBacktraceInDebugger ).
 busy := true.
 bigStep := false.
 stepHow := nil.
 inspecting := true.
 continueButton label:(resources string:'Stop').
 w := w max:(continueButton preferredWidth).
 continueButton preferredExtent:(w @ continueButton preferredHeight).
 aProcess state == #run ifTrue:[
-device hasColors ifTrue:[
+	self graphicsDevice hasColors ifTrue:[
-continueButton foregroundColor:Color red darkened.
+	    continueButton foregroundColor:Color red darkened.
-].
+	].
-continueButton label:(resources string:'Stop').
+	continueButton label:(resources string:'Stop').
-continueButton action:[self doStop].
+	continueButton action:[self doStop].
 ] ifFalse:[
-device hasColors ifTrue:[
+	self graphicsDevice hasColors ifTrue:[
-continueButton foregroundColor:Color green darkened darkened.
+	    continueButton foregroundColor:Color green darkened darkened.
-].
+	].
-continueButton label:(resources string:'Continue').
+	continueButton label:(resources string:'Continue').
-continueButton action:[self doContinue].
+	continueButton action:[self doContinue].
 ].
 continueButton preferredExtent:(w @ continueButton preferredHeight).
 returnButton disable.
 restartButton disable.
 "/    stepButton destroy.
 "/    sendButton destroy.
 updateButton := Button
-label:(resources string:'Update')
+			label:(resources string:'Update')
-action:[self updateContext]
+			action:[self updateContext]
-in:bpanel.
+			in:bpanel.
 monitorToggle := Toggle in:bpanel.
 monitorToggle label:(resources string:'Monitor').
 monitorToggle pressAction:[self autoUpdateOn].
 monitorToggle releaseAction:[self autoUpdateOff].
 nextButton disable; beInvisible.
 nextOverButton notNil ifTrue:[nextOverButton disable; beInvisible].
 nextOutButton notNil ifTrue:[nextOutButton disable; beInvisible].
 aProcess isNil ifTrue:[
-terminateButton disable.
+	terminateButton disable.
-abortButton disable.
+	abortButton disable.
-continueButton disable.
+	continueButton disable.
-returnButton disable.
+	returnButton disable.
-restartButton disable.
+	restartButton disable.
 ] ifFalse:[
-(aProcess suspendedContext isNil
+	(aProcess suspendedContext isNil
-or:[aProcess isSystemProcess]) ifTrue:[
+	or:[aProcess isSystemProcess]) ifTrue:[
-terminateButton disable.
+	    terminateButton disable.
-].
+	].
-self setContextSkippingInterruptContexts:aProcess suspendedContext.
+	self setContextSkippingInterruptContexts:aProcess suspendedContext.
-catchBlock := [
+	catchBlock := [
-catchBlock := nil.
+	    catchBlock := nil.
-contextArray := nil.
+	    contextArray := nil.
-selectedContext := actualContext := firstContext := nil.
+	    selectedContext := actualContext := firstContext := nil.
-steppedContext := wrapperContext := nil.
+	    steppedContext := wrapperContext := nil.
-(exitAction == #terminate) ifTrue:[
+	    (exitAction == #terminate) ifTrue:[
-aProcess terminate.
+		aProcess terminate.
-].
+	    ].
-(exitAction == #quickTerminate) ifTrue:[
+	    (exitAction == #quickTerminate) ifTrue:[
-aProcess terminateNoSignal.
+		aProcess terminateNoSignal.
-].
+	    ].
-super destroy
+	    super destroy
-].
+	].
 ].
 self open
 "Modified: 20.3.1997 / 16:53:56 / cg"
 "Modified: 17.4.1997 / 13:01:57 / stefan"
 selectContextWithIndex:index
 self showSelection:index.
 contextView setSelection:index.
 index > 1 ifTrue:[
-contextView scrollToLine:(index - 1)
+	contextView scrollToLine:(index - 1)
 ].
 !
 setInitialSelectionOnEntry:initialSelectionOrNil context:aContext
 |selection|
 selection := self initialSelectionOnEntry:initialSelectionOrNil context:aContext.
 selection notNil ifTrue:[
-self selectContextWithIndex:selection
+	self selectContextWithIndex:selection
 ].
 "Created: / 16.11.2001 / 17:28:07 / cg"
 "Modified: / 17.11.2001 / 20:27:21 / cg"
 !
 flyByHelpTextFor:aComponent
 |s|
 aComponent == abortButton ifTrue:[
-s := 'Abort (unwind to eventLoop)'
+	s := 'Abort (unwind to eventLoop)'
 ].
 aComponent == terminateButton ifTrue:[
-Processor activeProcess isGUIProcess ifTrue:[
+	Processor activeProcess isGUIProcess ifTrue:[
-s := 'Terminate the process (closes view and shuts down application)'
+	    s := 'Terminate the process (closes view and shuts down application)'
-] ifFalse:[
+	] ifFalse:[
-s := 'Terminate the process'
+	    s := 'Terminate the process'
-]
+	]
 ].
 aComponent == continueButton ifTrue:[
-continueButton label = (resources string:'Stop') ifTrue:[
+	continueButton label = (resources string:'Stop') ifTrue:[
-s := 'Stop'
+	    s := 'Stop'
-] ifFalse:[
+	] ifFalse:[
-s := 'Continue execution'
+	    s := 'Continue execution'
-]
+	]
 ].
 aComponent == stepButton ifTrue:[
-s := 'Step to next send in selected context (don''t enter into called methods)'
+	s := 'Step to next send in selected context (don''t enter into called methods)'
 ].
 aComponent == nextButton ifTrue:[
-s := 'Step to next line in selected context (don''t enter into called methods)'
+	s := 'Step to next line in selected context (don''t enter into called methods)'
 ].
 aComponent == nextOverButton ifTrue:[
-s := 'Step over to cursor-line'
+	s := 'Step over to cursor-line'
 ].
 aComponent == nextOutButton ifTrue:[
-s := 'Step out to caller'
+	s := 'Step out to caller'
 ].
 aComponent == sendButton ifTrue:[
-s := 'Send next message (enter into called methods)'
+	s := 'Send next message (enter into called methods)'
 ].
 aComponent == returnButton ifTrue:[
-restartButton enabled ifTrue:[
+	restartButton enabled ifTrue:[
-s := 'Return from the selected method'
+	    s := 'Return from the selected method'
-] ifFalse:[
+	] ifFalse:[
-s := 'Return from the selected method.\Disabled, because this method was compiled with context optimization, and cannot be returned from.' withCRs
+	    s := 'Return from the selected method.\Disabled, because this method was compiled with context optimization, and cannot be returned from.' withCRs
-]
+	]
 ].
 aComponent == restartButton ifTrue:[
-restartButton enabled ifTrue:[
+	restartButton enabled ifTrue:[
-s := 'Restart the selected method.\If the code was changed in the meanwhile, the original method will be executed again'
+	    s := 'Restart the selected method.\If the code was changed in the meanwhile, the original method will be executed again'
-] ifFalse:[
+	] ifFalse:[
-s := 'Restart the selected method.\Disabled, because this method was compiled with context optimization, and cannot be returned from.' withCRs
+	    s := 'Restart the selected method.\Disabled, because this method was compiled with context optimization, and cannot be returned from.' withCRs
-]
+	]
 ].
 aComponent == resendButton ifTrue:[
-resendButton enabled ifTrue:[
+	resendButton enabled ifTrue:[
-s := 'Resend the selected method''s message.\If the code was changed in the meanwhile, the new method will be called with the original arguments.'
+	    s := 'Resend the selected method''s message.\If the code was changed in the meanwhile, the new method will be called with the original arguments.'
-] ifFalse:[
+	] ifFalse:[
-s := 'Resend the selected method''s message.\Disabled, because this method was compiled with context optimization, and cannot be returned from.' withCRs
+	    s := 'Resend the selected method''s message.\Disabled, because this method was compiled with context optimization, and cannot be returned from.' withCRs
-]
+	]
 ].
 aComponent == monitorToggle ifTrue:[
-s := 'Toggle monitoring'
+	s := 'Toggle monitoring'
 ].
 aComponent == updateButton ifTrue:[
-s := 'Update'
+	s := 'Update'
 ].
 aComponent == defineButton ifTrue:[
-s := 'Define the missing method (as halting) and proceed into it.\A debugger will reopen there, so you can add the code then'
+	s := 'Define the missing method (as halting) and proceed into it.\A debugger will reopen there, so you can add the code then'
 ].
 aComponent == reportButton ifTrue:[
-s := 'Send a defect report via eMail'
+	s := 'Send a defect report via eMail'
 ].
 s notNil ifTrue:[
-^ resources stringWithCRs:s
+	^ resources stringWithCRs:s
 ].
 ^ nil
 "Modified: / 29-08-1995 / 23:38:54 / claus"
 "Modified: / 18-06-2010 / 11:34:51 / cg"
 pos := codeView characterPositionOfLine:line col:col.
 interval := pos to:pos.
 self
-withNodeValueAtInterval:interval
+	withNodeValueAtInterval:interval
-do:[:value :description |
+	do:[:value :description |
-|valueClassOrSizeString valueString|
+	    |valueClassOrSizeString valueString|
-valueClassOrSizeString := valueString := ''.
+	    valueClassOrSizeString := valueString := ''.
-"/ some heuristics as when to show the class name (a purely subjective preference)
+	    "/ some heuristics as when to show the class name (a purely subjective preference)
-value isString ifTrue:[
+	    value isString ifTrue:[
-value isText ifTrue:[
+		value isText ifTrue:[
-valueString := '"',(value contractTo:80),'"'.
+		    valueString := '"',(value contractTo:80),'"'.
-] ifFalse:[
+		] ifFalse:[
-valueString := value storeString contractTo:80.
+		    valueString := value storeString contractTo:80.
-].
+		].
-] ifFalse:[
+	    ] ifFalse:[
-(value isBoolean
+		(value isBoolean
-or:[ value isInteger
+		or:[ value isInteger
-or:[ value isSymbol ]]) ifTrue:[
+		or:[ value isSymbol ]]) ifTrue:[
-valueString := value printString.
+		    valueString := value printString.
-] ifFalse:[
+		] ifFalse:[
-valueClassOrSizeString := ' (',value class name,')'.
+		    valueClassOrSizeString := ' (',value class name,')'.
-(value isArray
+		    (value isArray
-or:[ value isOrderedCollection ]) ifTrue:[
+		    or:[ value isOrderedCollection ]) ifTrue:[
-valueClassOrSizeString := ' (size=',value size printString,')'.
+			valueClassOrSizeString := ' (size=',value size printString,')'.
-].
+		    ].
-Error handle:[:ex |
+		    Error handle:[:ex |
-valueString := '??? (',ex description,')'
+			valueString := '??? (',ex description,')'
-] do:[
+		    ] do:[
-[
+			[
-valueString := value printString contractTo:80.
+			    valueString := value printString contractTo:80.
-] valueWithWatchDog:[ valueString := value classNameWithArticle ] afterMilliseconds:30.
+			] valueWithWatchDog:[ valueString := value classNameWithArticle ] afterMilliseconds:30.
-]
+		    ]
-]
+		]
-].
+	    ].
-description isEmptyOrNil ifTrue:[
+	    description isEmptyOrNil ifTrue:[
-s := valueString , valueClassOrSizeString
+		s := valueString , valueClassOrSizeString
-] ifFalse:[
+	    ] ifFalse:[
-s := description , ': ', valueString, valueClassOrSizeString
+		s := description , ': ', valueString, valueClassOrSizeString
-].
+	    ].
-].
+	].
 "/ Transcript showCR:s.
 ^ s
 "Modified: / 27-04-2010 / 17:51:53 / cg"
 !
 helpTextFor:aComponent
 |s|
 aComponent == abortButton ifTrue:[
-s := 'HELP_ABORT'
+	s := 'HELP_ABORT'
 ].
 aComponent == terminateButton ifTrue:[
-s := 'HELP_TERMINATE'
+	s := 'HELP_TERMINATE'
 ].
 aComponent == continueButton ifTrue:[
-continueButton label = (resources string:'Stop') ifTrue:[
+	continueButton label = (resources string:'Stop') ifTrue:[
-s := 'HELP_STOP'
+	    s := 'HELP_STOP'
-] ifFalse:[
+	] ifFalse:[
-s := 'HELP_CONTINUE'
+	    s := 'HELP_CONTINUE'
-]
+	]
 ].
 aComponent == stepButton ifTrue:[
-s := 'HELP_STEP'
+	s := 'HELP_STEP'
 ].
 aComponent == nextButton ifTrue:[
-s := 'HELP_NEXT'
+	s := 'HELP_NEXT'
 ].
 aComponent == nextOverButton ifTrue:[
-s := 'HELP_NEXTOVER'
+	s := 'HELP_NEXTOVER'
 ].
 aComponent == nextOutButton ifTrue:[
-s := 'HELP_NEXTOUT'
+	s := 'HELP_NEXTOUT'
 ].
 aComponent == stepButton ifTrue:[
-s := 'HELP_STEP'
+	s := 'HELP_STEP'
 ].
 aComponent == sendButton ifTrue:[
-s := 'HELP_SEND'
+	s := 'HELP_SEND'
 ].
 aComponent == returnButton ifTrue:[
-returnButton enabled ifTrue:[
+	returnButton enabled ifTrue:[
-s := 'HELP_RETURN'
+	    s := 'HELP_RETURN'
-] ifFalse:[
+	] ifFalse:[
-s := 'HELP_RETURN_DISABLED'
+	    s := 'HELP_RETURN_DISABLED'
-].
+	].
 ].
 aComponent == restartButton ifTrue:[
-restartButton enabled ifTrue:[
+	restartButton enabled ifTrue:[
-s := 'HELP_RESTART'
+	    s := 'HELP_RESTART'
-] ifFalse:[
+	] ifFalse:[
-s := 'HELP_RESTART_DISABLED'
+	    s := 'HELP_RESTART_DISABLED'
-].
+	].
 ].
 aComponent == resendButton ifTrue:[
-resendButton enabled ifTrue:[
+	resendButton enabled ifTrue:[
-s := 'HELP_RESEND'
+	    s := 'HELP_RESEND'
-] ifFalse:[
+	] ifFalse:[
-s := 'HELP_RESEND_DISABLED'
+	    s := 'HELP_RESEND_DISABLED'
-].
+	].
 ].
 aComponent == contextView ifTrue:[
-s := 'HELP_WALKBACK'
+	s := 'HELP_WALKBACK'
 ].
 aComponent == codeView ifTrue:[
-s := 'HELP_CODEVIEW'
+	s := 'HELP_CODEVIEW'
 ].
 aComponent == monitorToggle ifTrue:[
-s := 'HELP_MONITOR'
+	s := 'HELP_MONITOR'
 ].
 aComponent == updateButton ifTrue:[
-s := 'HELP_UPDATE'
+	s := 'HELP_UPDATE'
+].
+aComponent == gotoDialogOpenerButton ifTrue:[
+	s := 'HELP_GOTO_DIALOG_OPENER'
+].
+aComponent == gotoApplicationActionMethodButton ifTrue:[
+	s := 'HELP_GOTO_APPLICATION_ACTION'
 ].
 "/    aComponent == stopButton ifTrue:[
 "/        s := 'HELP_STOP'
 "/    ].
 (aComponent isComponentOf:receiverInspector) ifTrue:[
-s := 'HELP_REC_INSP'
+	s := 'HELP_REC_INSP'
 ].
 (aComponent isComponentOf:contextInspector) ifTrue:[
-s := 'HELP_CON_INSP'
+	s := 'HELP_CON_INSP'
 ].
 s notNil ifTrue:[
-^ resources stringWithCRs:s
+	^ resources stringWithCRs:s
 ].
 ^ nil
 "Modified: 29.8.1995 / 23:38:54 / claus"
 "Modified: 4.3.1997 / 01:54:03 / cg"
 "closing the debugger implies an abort or continue"
 |m|
 withConfirmation ifTrue:[
-self checkIfCodeIsReallyModified ifTrue:[
+	self checkIfCodeIsReallyModified ifTrue:[
-(self confirm:('Code modified - exit anyway ?'))
+	    (self confirm:('Code modified - exit anyway ?'))
-ifFalse:[
+	    ifFalse:[
-^ self
+		^ self
-]
+	    ]
-]
+	]
 ].
 self autoUpdateOff.
 (m := contextView middleButtonMenu) notNil ifTrue:[m hide].
 inspecting ifFalse:[
-"I am running on top of a process, abort or continue it"
+	"I am running on top of a process, abort or continue it"
-windowGroup notNil ifTrue:[
+	windowGroup notNil ifTrue:[
-windowGroup setProcess:nil.
+	    windowGroup setProcess:nil.
-].
+	].
-self uncacheMyself.
+	self uncacheMyself.
-"/
+	"/
-"/ catch invalid return;
+	"/ catch invalid return;
-"/ this happens, when my process has somehow died (quickterminate)
+	"/ this happens, when my process has somehow died (quickterminate)
-"/ and I am a leftOver view, which gets terminated via the launchers
+	"/ and I am a leftOver view, which gets terminated via the launchers
-"/ #destroy-window function.
+	"/ #destroy-window function.
-"/
+	"/
-Context cannotReturnSignal handle:[:ex |
+	Context cannotReturnSignal handle:[:ex |
-'DebugView [info]: OOPS - non regular debugView closing(1)' infoPrintCR.
+	    'DebugView [info]: OOPS - non regular debugView closing(1)' infoPrintCR.
-self uncacheMyself.
+	    self uncacheMyself.
-Debugger newDebugger.
+	    Debugger newDebugger.
-ex return.
+	    ex return.
-] do:[
+	] do:[
-AbortOperationRequest isHandled ifTrue:[
+	    AbortOperationRequest isHandled ifTrue:[
-self doAbort.
+		self doAbort.
-] ifFalse:[
+	    ] ifFalse:[
-self doContinue
+		self doContinue
-]
+	    ]
-].
+	].
-"/ We don't reach this point normally
+	"/ We don't reach this point normally
-'DebugView [info]: OOPS - non regular debugView closing(2)' infoPrintCR.
+	'DebugView [info]: OOPS - non regular debugView closing(2)' infoPrintCR.
 ].
 Debugger newDebugger.
 "/ since I am going to be destroyed, remove me from the cache
 self uncacheMyself.
 |menu menuPanel mH panel bpanel bH bpanel1 bH1 bpanel2 bH2 codePanel
 newLayout v exceptionAndTogglePanel codeToggleLabels userPrefs|
 super initialize.
-font := font onDevice:device.
 userPrefs := UserPreferences current.
-verboseBacktrace := userPrefs verboseBacktraceInDebugger ? false.
+self verboseBacktraceHolder value:(userPrefs verboseBacktraceInDebugger).
 hideSupportCode := userPrefs hideSupportCodeInDebugger ? false.
 ignoreBreakpoints := true.    "/ ignore halts/breakpoints in doIts of
-"/ the debugger
+				  "/ the debugger
 busy := false.
 exclusive := false.
 inspecting := false.
 exitAction := nil.
 mH := menuPanel preferredHeight.
 menuPanel origin:(0.0 @ 0.0) corner:(1.0 @ (mH)).
 newLayout := userPrefs useNewLayoutInDebugger.
 newLayout ifFalse:[
-bpanel := HorizontalPanelView in:self.
+	bpanel := HorizontalPanelView in:self.
-self initializeButtonsIn:bpanel.
+	self initializeButtonsIn:bpanel.
-bH := bpanel preferredHeight + 5.
+	bH := bpanel preferredHeight + 5.
-bpanel origin:(0.0 @ mH)
+	bpanel origin:(0.0 @ mH)
-extent:(1.0 @ bH).
+	       extent:(1.0 @ bH).
-panel := VariableVerticalPanel
+	panel := VariableVerticalPanel
-origin:(0.0 @ (mH + bH))
+			    origin:(0.0 @ (mH + bH))
-corner:(1.0 @ 1.0)
+			    corner:(1.0 @ 1.0)
-in:self.
+			    in:self.
-v := self initializeContextListViewIn:panel.
+	v := self initializeContextListViewIn:panel.
-v origin:(0.0 @ 0.0) corner:(1.0 @ 0.25).
+	v origin:(0.0 @ 0.0) corner:(1.0 @ 0.25).
-codePanel := View in:panel.
+	codePanel := View in:panel.
-v := self initializeCodeViewIn:codePanel.
+	v := self initializeCodeViewIn:codePanel.
-v origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
+	v origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
-codePanel origin:(0.0 @ 0.25) corner:(1.0 @ 0.75).
+	codePanel origin:(0.0 @ 0.25) corner:(1.0 @ 0.75).
-v := self initializeInspectorViewsIn:panel.
+	v := self initializeInspectorViewsIn:panel.
-v origin:(0.0 @ 0.75) corner:(1.0 @ 1.0).
+	v origin:(0.0 @ 0.75) corner:(1.0 @ 1.0).
 ] ifTrue:[
-bpanel1 := HorizontalPanelView in:self.
+	bpanel1 := HorizontalPanelView in:self.
-self initializeButtons1In:bpanel1.
+	self initializeButtons1In:bpanel1.
-contextInfoLabel := Label label:''.
+	contextInfoLabel := Label label:''.
-contextInfoLabel adjust:#left.
+	contextInfoLabel adjust:#left.
-bpanel1 add:contextInfoLabel.
+	bpanel1 add:contextInfoLabel.
-bH1 := bpanel1 preferredHeight + 5.
+	bH1 := bpanel1 preferredHeight + 5.
-bpanel1 origin:(0.0 @ mH)
+	bpanel1 origin:(0.0 @ mH)
-extent:(1.0 @ bH1).
+		extent:(1.0 @ bH1).
-panel := VariableVerticalPanel
+	panel := VariableVerticalPanel
-origin:(0.0 @ (mH + bH1))
+			    origin:(0.0 @ (mH + bH1))
-corner:(1.0 @ 1.0)
+			    corner:(1.0 @ 1.0)
-in:self.
+				in:self.
-"/ panel showHandle:true.
+	"/ panel showHandle:true.
-"/ panel handlePosition:#left.
+	"/ panel handlePosition:#left.
-v := self initializeContextListViewIn:panel.
+	v := self initializeContextListViewIn:panel.
-v origin:(0.0 @ 0.0) corner:(1.0 @ 0.25).
+	v origin:(0.0 @ 0.0) corner:(1.0 @ 0.25).
-codePanel := View in:panel.
+	codePanel := View in:panel.
-bpanel2 := HorizontalPanelView in:codePanel.
+	bpanel2 := HorizontalPanelView in:codePanel.
-self initializeButtons2In:bpanel2.
+	self initializeButtons2In:bpanel2.
-bH2 := bpanel2 preferredHeight + 5.
+	bH2 := bpanel2 preferredHeight + 5.
-bpanel2 origin:(0.0 @ 0.0)
+	bpanel2 origin:(0.0 @ 0.0)
-extent:(1.0 @ bH2).
+		extent:(1.0 @ bH2).
-exceptionInfoLabel := Label label:''.
+	exceptionInfoLabel := Label label:''.
-exceptionInfoLabel adjust:#left.
+	exceptionInfoLabel adjust:#left.
-exceptionAndTogglePanel := HorizontalPanelView in:codePanel.
+	exceptionAndTogglePanel := HorizontalPanelView in:codePanel.
-exceptionAndTogglePanel horizontalLayout:#left.
+	exceptionAndTogglePanel horizontalLayout:#left.
-exceptionAndTogglePanel
+	exceptionAndTogglePanel
-geometryLayout:
+	    geometryLayout:
-((LayoutFrame
+		((LayoutFrame
-origin:(0.0 @ 0.0)
+		    origin:(0.0 @ 0.0)
-corner:(1.0 @ 0.0))
+		    corner:(1.0 @ 0.0))
-topOffset:bH2;
+			topOffset:bH2;
-bottomOffset:(bH2 + exceptionInfoLabel preferredHeight + 6);
+			bottomOffset:(bH2 + exceptionInfoLabel preferredHeight + 6);
-rightOffset:-2).
+			rightOffset:-2).
-methodCodeToggleSelectionHolder := 1 asValue.
+	methodCodeToggleSelectionHolder := 1 asValue.
-methodCodeToggleSelectionHolder onChangeSend:#methodCodeToggleChanged to:self.
+	methodCodeToggleSelectionHolder onChangeSend:#methodCodeToggleChanged to:self.
-codeToggleLabels := resources array:{
+	codeToggleLabels := resources array:{
-'Showing Original Code (being executed, but obsolete)' asText backgroundColorizeAllWith:Color red lightened .
+		    'Showing Original Code (being executed, but obsolete)' asText backgroundColorizeAllWith:Color red lightened .
-'Showing Current Code'                                 asText backgroundColorizeAllWith:Color green lightened .
+		    'Showing Current Code'                                 asText backgroundColorizeAllWith:Color green lightened .
-}.
+		  }.
-methodCodeToggle := PopUpList label:codeToggleLabels first in:exceptionAndTogglePanel.
+	methodCodeToggle := PopUpList label:codeToggleLabels first in:exceptionAndTogglePanel.
-methodCodeToggle list:codeToggleLabels.
+	methodCodeToggle list:codeToggleLabels.
-methodCodeToggle useIndex:true.
+	methodCodeToggle useIndex:true.
-methodCodeToggle model:methodCodeToggleSelectionHolder.
+	methodCodeToggle model:methodCodeToggleSelectionHolder.
-methodCodeToggle beInvisible.
+	methodCodeToggle beInvisible.
-exceptionAndTogglePanel add:exceptionInfoLabel.
+	exceptionAndTogglePanel add:exceptionInfoLabel.
-v := self initializeCodeViewIn:codePanel.
+	v := self initializeCodeViewIn:codePanel.
-v origin:(0.0 @ (bH2+exceptionInfoLabel preferredHeight+6)) corner:(1.0 @ 1.0).
+	v origin:(0.0 @ (bH2+exceptionInfoLabel preferredHeight+6)) corner:(1.0 @ 1.0).
-codePanel origin:(0.0 @ 0.25) corner:(1.0 @ 0.75).
+	codePanel origin:(0.0 @ 0.25) corner:(1.0 @ 0.75).
-v := self initializeInspectorViewsIn:panel.
+	v := self initializeInspectorViewsIn:panel.
-v origin:(0.0 @ 0.75) corner:(1.0 @ 1.0).
+	v origin:(0.0 @ 0.75) corner:(1.0 @ 1.0).
 ].
 DefaultDebuggerBackgroundColor notNil ifTrue:[
-self allViewBackground:DefaultDebuggerBackgroundColor.
+	self allViewBackground:DefaultDebuggerBackgroundColor.
 ].
 LastExtent notNil ifTrue:[
-self extent:LastExtent.
+	self extent:LastExtent.
 ].
 LastOrigin notNil ifTrue:[
-self origin:LastOrigin.
+	self origin:LastOrigin.
 ].
 "
 Debugger newDebugger
 "
 "Modified: / 27-07-2012 / 14:46:07 / cg"
 !
 initializeAbortButtonIn:bpanel
 abortButton := Button
-label:(resources string:'Abort')
+		label:(resources string:'Abort')
-action:[
+		action:[
-abortButton turnOffWithoutRedraw.
+		    abortButton turnOffWithoutRedraw.
-self doAbort
+		    self doAbort
-]
+		]
-in:bpanel.
+		in:bpanel.
 "Created: / 17.11.2001 / 20:56:47 / cg"
 "Modified: / 17.11.2001 / 20:57:17 / cg"
 !
 separator := View extent:(50 @ 5) in:bpanel.
 separator borderWidth:0; level:0.
 self initializeGotoDialogOpenerButtonIn:bpanel.
+self initializeGotoApplicationActionMethodButtonIn:bpanel.
 self initializeDefineButtonIn:bpanel.
 (UserPreferences current allowSendMailFromDebugger and:[SendMailTool notNil]) ifTrue:[
-separator := View extent:(10 @ 5) in:bpanel.
+	separator := View extent:(10 @ 5) in:bpanel.
-separator borderWidth:0; level:0.
+	separator borderWidth:0; level:0.
-self initializeReportButtonIn:bpanel.
+	self initializeReportButtonIn:bpanel.
 ].
 "Modified: / 17.11.2001 / 21:02:59 / cg"
 !
 initializeButtons2In:bpanel
 separator := View extent:(30 @ 5) in:bpanel.
 separator borderWidth:0; level:0.
 self initializeDefineButtonIn:bpanel.
 (UserPreferences current allowSendMailFromDebugger and:[SendMailTool notNil]) ifTrue:[
-self initializeReportButtonIn:bpanel.
+	self initializeReportButtonIn:bpanel.
 ].
 "Created: / 17.11.2001 / 20:56:20 / cg"
 "Modified: / 17.11.2001 / 21:03:18 / cg"
 initializeCodeViewIn:panel
 |scrollableCodeView|
 (UserPreferences current useCodeView2In: #Debugger) ifTrue:[
-scrollableCodeView := codeView := Tools::CodeView2 new.
+	scrollableCodeView := codeView := Tools::CodeView2 new.
-codeView model: ValueHolder new.
+	codeView model: ValueHolder new.
-codeView methodHolder: ValueHolder new.
+	codeView methodHolder: ValueHolder new.
-codeView classHolder: ValueHolder new.
+	codeView classHolder: ValueHolder new.
 ] ifFalse:[
-scrollableCodeView := HVScrollableView
+	scrollableCodeView := HVScrollableView
-for:CodeView
+		    for:CodeView
-miniScrollerH:true
+		    miniScrollerH:true
-miniScrollerV:false
+		    miniScrollerV:false
-in:panel.
+		    in:panel.
-codeView := scrollableCodeView scrolledView.
+	codeView := scrollableCodeView scrolledView.
-codeView enableMotionEvents. "/ for active help
+	codeView enableMotionEvents. "/ for active help
 ].
 (UserPreferences current showAcceptCancelBarInBrowser
-and:[codeView isCodeView2 not or:[UserPreferences current codeView2ShowAcceptCancel not]]) ifTrue:[
+	and:[codeView isCodeView2 not or:[UserPreferences current codeView2ShowAcceptCancel not]]) ifTrue:[
-ViewWithAcceptAndCancelBar notNil ifTrue:[
+	ViewWithAcceptAndCancelBar notNil ifTrue:[
-|v|
+	    |v|
-v := ViewWithAcceptAndCancelBar new.
+	    v := ViewWithAcceptAndCancelBar new.
-v slaveView:scrollableCodeView.
+	    v slaveView:scrollableCodeView.
-v reallyModifiedHolder:(codeView isCodeView2
+	    v reallyModifiedHolder:(codeView isCodeView2
-ifTrue:[ codeView reallyModifiedChannel ]
+					ifTrue:[ codeView reallyModifiedChannel ]
-ifFalse:[
+					ifFalse:[
-BlockValue
+					    BlockValue
-with:[:m |
+						with:[:m |
-|same|
+						    |same|
-same := (codeView contentsAsString string = currentMethod source string).
+						    same := (codeView contentsAsString string = currentMethod source string).
-codeView modifiedChannel setValue:false.  "/ so it triggers again
+						    codeView modifiedChannel setValue:false.  "/ so it triggers again
-same not.
+						    same not.
-]
+						]
-argument:codeView modifiedChannel
+						argument:codeView modifiedChannel
-]).
+					]).
-v cancelAction:
+	    v cancelAction:
-[
+		[
-"/ codeView setClipboardText:(codeView contents).   "/ for undo
+		    "/ codeView setClipboardText:(codeView contents).   "/ for undo
-codeView device rememberInCopyBufferHistory:(codeView contents).  "/ for undo
+		    codeView device rememberInCopyBufferHistory:(codeView contents).  "/ for undo
-codeView contents:(currentMethod source).
+		    codeView contents:(currentMethod source).
-codeView modifiedChannel setValue:false; changed.   "/ trigger
+		    codeView modifiedChannel setValue:false; changed.   "/ trigger
-codeView requestFocus.
+		    codeView requestFocus.
-].
+		].
-v compareAction:
+	    v compareAction:
-[
+		[
-v := DiffCodeView
+		    v := DiffCodeView
-openOn:codeView contentsAsString
+			    openOn:codeView contentsAsString
-label:(resources string:'Changed definition (to be accepted ?)')
+			    label:(resources string:'Changed definition (to be accepted ?)')
-and:currentMethod source
+			    and:currentMethod source
-label:(resources string:'Method''s Original Code').
+			    label:(resources string:'Method''s Original Code').
-v label:(resources string:'Changed Code in Debugger').
+		    v label:(resources string:'Changed Code in Debugger').
-v waitUntilVisible.
+		    v waitUntilVisible.
-"/ codeView requestFocus
+		    "/ codeView requestFocus
-].
+		].
-scrollableCodeView := v.
+	    scrollableCodeView := v.
-]
+	]
 ].
 panel add:scrollableCodeView.
 ^ scrollableCodeView
 initializeContextListViewIn:panel
 |v|
 v := HVScrollableView
-for:SelectionInListView
+		for:SelectionInListView
-miniScrollerH:true
+		miniScrollerH:true
-miniScrollerV:false
+		miniScrollerV:false
-in:panel.
+		in:panel.
 v autoHideHorizontalScrollBar:true.
 contextView := v scrolledView.
 contextView action:[:lineNr | self showSelection:lineNr].
 contextView doubleClickAction:[:line | self browseImplementingClass].
 contextView middleButtonMenu:(self middleButtonMenu).
 !
 initializeContinueButtonIn:bpanel
 continueButton := Button
-label:(resources string:'Continue')
+		label:(resources string:'Continue')
-action:[
+		action:[
-continueButton turnOffWithoutRedraw.
+		    continueButton turnOffWithoutRedraw.
-self doContinue
+		    self doContinue
-]
+		]
-in:bpanel.
+		in:bpanel.
 "Created: / 17.11.2001 / 20:57:34 / cg"
 !
 initializeDefineButtonIn:bpanel
 defineButton := Button
-label:(resources string:'Define')
+		label:(resources string:'Define')
-action:[
+		action:[
-defineButton turnOffWithoutRedraw.
+		    defineButton turnOffWithoutRedraw.
-self doDefine
+		    self doDefine
-]
+		]
-in:bpanel.
+		in:bpanel.
 defineButton beInvisible
 "Created: / 17.11.2001 / 21:02:48 / cg"
+!
+initializeGotoApplicationActionMethodButtonIn:bpanel
+gotoApplicationActionMethodButton := Button
+		label:(resources string:'Goto Responsible Application Method')
+		action:[
+		    gotoApplicationActionMethodButton turnOffWithoutRedraw.
+		    self doGotoApplicationActionMethod
+		]
+		in:bpanel.
+gotoApplicationActionMethodButton beInvisible
 !
 initializeGotoDialogOpenerButtonIn:bpanel
 gotoDialogOpenerButton := Button
-label:(resources string:'Goto Dialog Opener')
+		label:(resources string:'Goto Dialog Opener')
-action:[
+		action:[
-gotoDialogOpenerButton turnOffWithoutRedraw.
+		    gotoDialogOpenerButton turnOffWithoutRedraw.
-self doGotoDialogOpener
+		    self doGotoDialogOpener
-]
+		]
-in:bpanel.
+		in:bpanel.
 gotoDialogOpenerButton beInvisible
 !
 initializeInspectorViewsIn:panel
 |hpanel|
 hpanel := VariableHorizontalPanel in:panel.
 receiverInspector := InspectorView
-origin:(0.0 @ 0.0) corner:(0.5 @ 1.0)
+				origin:(0.0 @ 0.0) corner:(0.5 @ 1.0)
-in:hpanel.
+				    in:hpanel.
 receiverInspector fieldListLabel:'Receiver'.
 contextInspector := ContextInspectorView
-origin:(0.5 @ 0.0) corner:(1.0 @ 1.0)
+				origin:(0.5 @ 0.0) corner:(1.0 @ 1.0)
-in:hpanel.
+				    in:hpanel.
 contextInspector fieldListLabel:'Context'.
 ^ hpanel
 !
 initializeNextButtonIn:bpanel
 nextButton := Button
-label:(resources string:'Debug_Next')
+		label:(resources string:'Debug_Next')
-action:[
+		action:[
-stepButton turnOff.
+		    stepButton turnOff.
-self doNext
+		    self doNext
-]
+		]
-in:bpanel.
+		in:bpanel.
 "Created: / 17.11.2001 / 20:59:38 / cg"
 !
 initializeReportButtonIn:bpanel
 reportButton := Button
-label:(resources string:'Report by Mail...')
+		label:(resources string:'Report by Mail...')
-action:[
+		action:[
-reportButton turnOffWithoutRedraw.
+		    reportButton turnOffWithoutRedraw.
-self doOpenReportMailApp.
+		    self doOpenReportMailApp.
-]
+		]
-in:bpanel.
+		in:bpanel.
 "Created: / 17.11.2001 / 21:02:20 / cg"
 !
 initializeResendButtonIn:bpanel
 resendButton := Button
-label:(resources string:'Resend')
+		label:(resources string:'Resend')
-action:[
+		action:[
-resendButton turnOff.
+		    resendButton turnOff.
-self doResend
+		    self doResend
-]
+		]
-in:bpanel.
+		in:bpanel.
 "/ if we have this, we do not need the restart button
 restartButton beInvisible.
 !
 initializeRestartButtonIn:bpanel
 restartButton := Button
-label:(resources string:'Restart')
+		label:(resources string:'Restart')
-action:[
+		action:[
-restartButton turnOff.
+		    restartButton turnOff.
-self doRestart
+		    self doRestart
-]
+		]
-in:bpanel.
+		in:bpanel.
 "Created: / 17.11.2001 / 20:58:52 / cg"
 !
 initializeReturnButtonIn:bpanel
 returnButton := Button
-label:(resources string:'Return')
+		label:(resources string:'Return')
-action:[
+		action:[
-returnButton turnOff.
+		    returnButton turnOff.
-self doReturn
+		    self doReturn
-]
+		]
-in:bpanel.
+		in:bpanel.
 "Created: / 17.11.2001 / 20:58:22 / cg"
 !
 initializeSendButtonIn:bpanel
 sendButton := Button
-label:(resources string:'Send')
+		label:(resources string:'Send')
-action:[
+		action:[
-sendButton turnOff.
+		    sendButton turnOff.
-self doSend
+		    self doSend
-]
+		]
-in:bpanel.
+		in:bpanel.
 "Created: / 17.11.2001 / 21:01:20 / cg"
 !
 initializeStepButtonIn:bpanel
 stepButton := Button
-label:(resources string:'Debug_Step')
+		label:(resources string:'Debug_Step')
-action:[
+		action:[
-stepButton turnOff.
+		    stepButton turnOff.
-self doStep
+		    self doStep
-]
+		]
-in:bpanel.
+		in:bpanel.
 "Created: / 17.11.2001 / 21:00:13 / cg"
 !
 initializeTerminateButtonIn:bpanel
 terminateButton := Button
-label:(resources string:'Debug_Terminate')
+		label:(resources string:'Debug_Terminate')
-action:[
+		action:[
-terminateButton turnOffWithoutRedraw.
+		    terminateButton turnOffWithoutRedraw.
-self doTerminate
+		    self doTerminate
-]
+		]
-in:bpanel.
+		in:bpanel.
 terminateButton backgroundColor:Color red lightened.
 "/ terminateButton foregroundColor:Color red.
 "Created: / 17.11.2001 / 21:02:20 / cg"
 postRealize
 super postRealize.
 inspecting ifTrue:[
-inspectedProcess notNil ifTrue:[
+	inspectedProcess notNil ifTrue:[
-"
+	    "
-set prio somewhat higher (by 2, to allow walkBack-update process
+	     set prio somewhat higher (by 2, to allow walkBack-update process
-to run between mine and the debugged processes prio)
+	     to run between mine and the debugged processes prio)
-"
+	    "
-Processor activeProcess
+	    Processor activeProcess
-priority:(((inspectedProcess priority + 2) min:(Processor highIOPriority)) max:(Processor userSchedulingPriority+1)).
+		priority:(((inspectedProcess priority + 2) min:(Processor highIOPriority)) max:(Processor userSchedulingPriority+1)).
-]
+	]
 ].
 self sensor addEventListener:self.
 "Created: 24.7.1997 / 18:17:44 / cg"
 reinitialize
 "/ redefined - since the debugView runs on top of
 "/ the debuggee, there would be no event loop for me.
-drawableId notNil ifTrue:[
+self drawableId notNil ifTrue:[
-^ self
+	^ self
 ].
 "physically create the view & subviews"
 self recreate.
 !
 releaseDebuggee
 "We have to be careful to release all refs to the debuggee,
 because we may be in the cache.
 receiverInspector release.
 contextInspector release.
 inspectedProcess := nil.
 contextArray := nil.
 ((exitAction == #restart) or:[exitAction == #return or:[exitAction == #resend]]) ifFalse:[
-selectedContext := nil.
+	selectedContext := nil.
 ].
 actualContext := firstContext := nil.
 steppedContext := wrapperContext := nil.
 catchBlock := nil.
 grabber := nil.
 setLabelFor:aMessage in:aProcess
 |l lines processNameOrNil pidOrNil osPidString|
 lines := aMessage asStringCollection.
 lines size > 1 ifTrue:[
-l := lines first
+	l := lines first
 ] ifFalse:[
-l := aMessage.
+	l := aMessage.
 ].
 l := l , ' ('.
 Error handle:[:ex |
-l := l , '???'
+	l := l , '???'
 ] do:[
-processNameOrNil := aProcess name.
+	processNameOrNil := aProcess name.
-processNameOrNil notNil ifTrue:[
+	processNameOrNil notNil ifTrue:[
-l := l , (processNameOrNil contractTo:20) , ''.
+	    l := l , (processNameOrNil contractTo:20) , ''.
-].
+	].
-pidOrNil := aProcess id printString.
+	pidOrNil := aProcess id printString.
-l := l , '[' , pidOrNil , ']'.
+	l := l , '[' , pidOrNil , ']'.
 ].
 l := l , ')'.
 self label:l.
 ((ShowThreadID == true) and:[OperatingSystem isMSDOSlike]) ifTrue:[
-osPidString := ' {threadID: ',OperatingSystem getThreadId printString,'}'.
+	osPidString := ' {threadID: ',OperatingSystem getThreadId printString,'}'.
 ].
 exceptionInfoLabel notNil ifTrue:[
-exceptionInfoLabel
+	exceptionInfoLabel
-label:(resources
+	    label:(resources
-string:'%1 in process %2 [%3]%4'
+		    string:'%1 in process %2 [%3]%4'
-with:(lines first colorizeAllWith:Color red)
+		    with:(lines first colorizeAllWith:Color red)
-with:(processNameOrNil ? '')
+		    with:(processNameOrNil ? '')
-with:(pidOrNil ? '')
+		    with:(pidOrNil ? '')
-with:(osPidString ? ''))
+		    with:(osPidString ? ''))
 ].
 "Modified: / 06-07-2006 / 12:43:19 / cg"
 ! !
 !DebugView methodsFor:'interrupt handling'!
 contextInterrupt
 DebuggingDebugger == true ifTrue:[
-'contextIRQ' printCR.
+	'contextIRQ' printCR.
-thisContext methodHome sender fullPrint.
+	thisContext methodHome sender fullPrint.
 ].
 self stepOrNext
 "Modified: / 30.10.1997 / 21:22:25 / cg"
 !
 stepInterrupt
 DebuggingDebugger == true ifTrue:[
-'stepIRQ' print.
+	'stepIRQ' print.
-"/ ' in ' print. thisContext sender fullPrint.
+	"/ ' in ' print. thisContext sender fullPrint.
-'' printCR.
+	'' printCR.
 ].
 Processor yield.
 self stepOrNext
 "Modified: / 20-07-2012 / 14:06:54 / cg"
 !
 stepOrNext
 |where here con s isWrap method wrappedMethod
 originalMethodOfWrappedMethod originalMethodsContext
 inBlock subBlockLeft ignore contextBelow wrapContext
 leftWrap enteredWrap anyStepBlocks
 oneMore initiallyShown inBlockBelow receiver processName|
 "/ '' printCR
 processName := (Processor activeProcess nameOrId),' [',Processor activeProcess id printString,']'.
 skipLineNr == #return ifTrue:[
-self label:('stepping context returned ' , ' (process: ' , processName , ')').
+	self label:('stepping context returned ' , ' (process: ' , processName , ')').
-here := thisContext sender sender.
+	here := thisContext sender sender.
-here setLineNumber:nil.
+	here setLineNumber:nil.
-here := nil.
+	here := nil.
-con := thisContext sender sender sender.
+	con := thisContext sender sender sender.
-HaltInterrupt handle:[:ex |
+	HaltInterrupt handle:[:ex |
-('DebugView [info]: halt/breakpoint in debugger at %1 ignored [stepOrNext]' bindWith:ex suspendedContext) infoPrintCR.
+	    ('DebugView [info]: halt/breakpoint in debugger at %1 ignored [stepOrNext]' bindWith:ex suspendedContext) infoPrintCR.
-ex proceed
+	    ex proceed
-] do:[
+	] do:[
-self enter:con select:nil.
+	    self enter:con select:nil.
-].
+	].
-con := nil.
+	con := nil.
-^ self
+	^ self
 ].
 "/    "/
 "/    "/ should no longer happen
 "/    "/
 "/        self enter:thisContext sender.
 "/        ^ self
 "/    ].
 Processor activeProcess ~~ inspectedProcess ifTrue:[
-'DebugView [info]: stray step interrupt' infoPrintCR.
+	'DebugView [info]: stray step interrupt' infoPrintCR.
-^ self
+	^ self
 ].
 here := thisContext.        "stepInterrupt"
 here := here sender.        "the caller; step- or contextIRQ"
 here := here sender.        "the interrupted context"
 DebuggingDebugger2 == true ifTrue:[
-'***************************' printCR.
+	'***************************' printCR.
-'here in ' print.
+	'here in ' print.
-inWrap ifTrue:['(wrap) ' print.].
+	inWrap ifTrue:['(wrap) ' print.].
-((ObjectMemory addressOf:here) printStringRadix:16) print. ' ' print.
+	((ObjectMemory addressOf:here) printStringRadix:16) print. ' ' print.
-here selector printCR.
+	here selector printCR.
-'stepping in ' print.
+	'stepping in ' print.
-steppedContext notNil ifTrue:[
+	steppedContext notNil ifTrue:[
-((ObjectMemory addressOf:steppedContext) printStringRadix:16) print. ' ' print.
+	    ((ObjectMemory addressOf:steppedContext) printStringRadix:16) print. ' ' print.
-].
+	].
-steppedContext printCR.
+	steppedContext printCR.
 ].
 "/ when single stepping, ignore breakpoints
 here selector == #break ifTrue:[
-(here receiver isKindOf:Breakpoint) ifTrue:[
+	(here receiver isKindOf:Breakpoint) ifTrue:[
-false "here receiver isEnabled" ifFalse:[
+	    false "here receiver isEnabled" ifFalse:[
-con := nil.
+		con := nil.
-where := nil. here := nil.
+		where := nil. here := nil.
-StepInterruptPending := 1.
+		StepInterruptPending := 1.
-InterruptPending := 1.
+		InterruptPending := 1.
-InStepInterrupt := nil.
+		InStepInterrupt := nil.
-^ self
+		^ self
-]
+	    ]
-].
+	].
 ].
 "/ kludge: a bug-workaround;
 "/ I should not see those...
 here selector == #ioInterrupt ifTrue:[
-DebuggingDebugger2 == true ifTrue:[
+	DebuggingDebugger2 == true ifTrue:[
-'oops - should not get that one' printCR.
+	    'oops - should not get that one' printCR.
-].
+	].
-Processor ioInterrupt.
+	Processor ioInterrupt.
-StepInterruptPending := 1.
+	StepInterruptPending := 1.
-InterruptPending := 1.
+	InterruptPending := 1.
-where := nil. here := nil.
+	where := nil. here := nil.
-InStepInterrupt := nil.
+	InStepInterrupt := nil.
-^ self
+	^ self
 ].
 stepUntilEntering notNil ifTrue:[
-DebuggingDebugger2 == true ifTrue:[
+	DebuggingDebugger2 == true ifTrue:[
-'check if entering ' print. stepUntilEntering printCR.
+	    'check if entering ' print. stepUntilEntering printCR.
-].
+	].
-(stepUntilEntering match:here selector) ifTrue:[
+	(stepUntilEntering match:here selector) ifTrue:[
-DebuggingDebugger2 == true ifTrue:[
+	    DebuggingDebugger2 == true ifTrue:[
-'entering...' printCR.
+		'entering...' printCR.
-].
+	    ].
-self label:('arrived at ' , stepUntilEntering , ' (process: ' , processName , ')').
+	    self label:('arrived at ' , stepUntilEntering , ' (process: ' , processName , ')').
-lastStepUntilEntering := stepUntilEntering.
+	    lastStepUntilEntering := stepUntilEntering.
-stepUntilEntering := nil.
+	    stepUntilEntering := nil.
-self enter:here select:nil.
+	    self enter:here select:nil.
-con := nil.
+	    con := nil.
-^ self
+	    ^ self
-].
+	].
-"/ see if stepping context is still active ...
+	"/ see if stepping context is still active ...
-con := here.
+	con := here.
-DebuggingDebugger2 == true ifTrue:[
+	DebuggingDebugger2 == true ifTrue:[
-'start searching at: ' print.
+	    'start searching at: ' print.
-con fullPrint.
+	    con fullPrint.
-].
+	].
-[con notNil and:[con ~~ steppedContext]] whileTrue:[
+	[con notNil and:[con ~~ steppedContext]] whileTrue:[
-con := con sender
+	    con := con sender
-].
+	].
-con notNil ifTrue:[
+	con notNil ifTrue:[
-DebuggingDebugger2 == true ifTrue:[
+	    DebuggingDebugger2 == true ifTrue:[
-'steppingContext still active - continue stepping' printCR.
+		'steppingContext still active - continue stepping' printCR.
-].
+	    ].
-con := nil.
+	    con := nil.
-where := nil. here := nil.
+	    where := nil. here := nil.
-StepInterruptPending := 1.
+	    StepInterruptPending := 1.
-InterruptPending := 1.
+	    InterruptPending := 1.
-InStepInterrupt := nil.
+	    InStepInterrupt := nil.
-^ self
+	    ^ self
-].
+	].
-stepUntilEntering := nil.
+	stepUntilEntering := nil.
 ].
 "
 kludge to hide breakpoint wrappers in the context list and when single stepping:
-check if we are in a wrapper method's hidden setup-sequence
+	 check if we are in a wrapper method's hidden setup-sequence
-if so, ignore the interrupt and continue single sending.
+	 if so, ignore the interrupt and continue single sending.
-Assume we are in a wrappers setup code, if there is another context above,
+	 Assume we are in a wrappers setup code, if there is another context above,
-which is for the wrapper method (i.e. if there is context with an originalmethod
+	 which is for the wrapper method (i.e. if there is context with an originalmethod
-of some other context higher in the caller chain
+	 of some other context higher in the caller chain
 "
 isWrap := false.
 subBlockLeft := false.
 leftWrap := enteredWrap := false.
 inWrap ifTrue:[
-"/ situation1:
+	"/ situation1:
-"/   valueWithReceiver or other
+	"/   valueWithReceiver or other
-"/   foo (wrapped)                 <- wrapContext
+	"/   foo (wrapped)                 <- wrapContext
-"/
+	"/
-"/ situation2:
+	"/ situation2:
-"/   foo (original)                <- originalMethodsContext
+	"/   foo (original)                <- originalMethodsContext
-"/   valueWithReceiver
+	"/   valueWithReceiver
-"/   foo (wrapped)                 <- wrapContext
+	"/   foo (wrapped)                 <- wrapContext
-"/
+	"/
-"/ situation3:
+	"/ situation3:
-"/   other
+	"/   other
-"/   foo (original)                <- originalMethodsContext
+	"/   foo (original)                <- originalMethodsContext
-"/   valueWithReceiver
+	"/   valueWithReceiver
-"/   foo (wrapped)                 <- wrapContext
+	"/   foo (wrapped)                 <- wrapContext
-"/
+	"/
-"/ situation4:
+	"/ situation4:
-"/   ... many-contexts ... (more than 8)
+	"/   ... many-contexts ... (more than 8)
-"/   possibly foo (original)
+	"/   possibly foo (original)
-"/   valueWithReceiver or other
+	"/   valueWithReceiver or other
-"/   foo (wrapped)
+	"/   foo (wrapped)
-"/
+	"/
-"/ search for the wrapped method's context and extract the original method
+	"/ search for the wrapped method's context and extract the original method
-where := here.
+	where := here.
-8 timesRepeat:[
+	8 timesRepeat:[
-wrapContext isNil ifTrue:[
+	    wrapContext isNil ifTrue:[
-where notNil ifTrue:[
+		where notNil ifTrue:[
-DebuggingDebugger2 == true ifTrue:[
+		    DebuggingDebugger2 == true ifTrue:[
-((ObjectMemory addressOf:where) printStringRadix:16) print. ' ' print.
+			((ObjectMemory addressOf:where) printStringRadix:16) print. ' ' print.
-where printCR
+			where printCR
-].
+		    ].
-where isBlockContext ifFalse:[
+		    where isBlockContext ifFalse:[
-method := where method.
+			method := where method.
-(method notNil and:[method isWrapped]) ifTrue:[
+			(method notNil and:[method isWrapped]) ifTrue:[
-originalMethodOfWrappedMethod := method originalMethod.
+			    originalMethodOfWrappedMethod := method originalMethod.
-wrappedMethod := method.
+			    wrappedMethod := method.
-wrapContext := where.
+			    wrapContext := where.
-].
+			].
-].
+		    ].
-where := where sender
+		    where := where sender
-]
+		]
-]
+	    ]
-].
+	].
-DebuggingDebugger2 == true ifTrue:[
+	DebuggingDebugger2 == true ifTrue:[
-'wrap-context is: ' print.
+	    'wrap-context is: ' print.
-wrapContext notNil ifTrue:[
+	    wrapContext notNil ifTrue:[
-((ObjectMemory addressOf:wrapContext) printStringRadix:16) print. ' ' print.
+		((ObjectMemory addressOf:wrapContext) printStringRadix:16) print. ' ' print.
-].
+	    ].
-wrapContext printCR
+	    wrapContext printCR
-].
+	].
-originalMethodOfWrappedMethod isNil ifTrue:[
+	originalMethodOfWrappedMethod isNil ifTrue:[
-'oops no wrap?' errorPrintCR.
+	    'oops no wrap?' errorPrintCR.
-].
+	].
 ].
 (inWrap and:[ originalMethodOfWrappedMethod notNil ]) ifTrue:[
-isWrap := false.
+	isWrap := false.
-"/ DebuggingDebugger2 ifTrue:[ '----------->' print. originalMethodOfWrappedMethod printCR ].
+	"/ DebuggingDebugger2 ifTrue:[ '----------->' print. originalMethodOfWrappedMethod printCR ].
-where := here.
+	where := here.
-8 timesRepeat:[
+	8 timesRepeat:[
-originalMethodsContext isNil ifTrue:[
+	    originalMethodsContext isNil ifTrue:[
-where notNil ifTrue:[
+		where notNil ifTrue:[
-DebuggingDebugger2 ifTrue:[
+		    DebuggingDebugger2 ifTrue:[
-((ObjectMemory addressOf:where) printStringRadix:16) print. ' ' print.
+			((ObjectMemory addressOf:where) printStringRadix:16) print. ' ' print.
-where printCR
+			where printCR
-].
+		    ].
-where isBlockContext ifFalse:[
+		    where isBlockContext ifFalse:[
-method := where method.
+			method := where method.
-method == originalMethodOfWrappedMethod ifTrue:[
+			method == originalMethodOfWrappedMethod ifTrue:[
-originalMethodsContext := here.
+			    originalMethodsContext := here.
-where == here ifTrue:[
+			    where == here ifTrue:[
-"/ situation2
+				"/ situation2
-DebuggingDebugger2 ifTrue:[ 's2' printCR ].
+				DebuggingDebugger2 ifTrue:[ 's2' printCR ].
-isWrap := true.
+				isWrap := true.
-"/ here setSender:(wrapContext sender). --- leads to a crash
+				"/ here setSender:(wrapContext sender). --- leads to a crash
-] ifFalse: [
+			    ] ifFalse: [
-"/ situation3
+				"/ situation3
-DebuggingDebugger2 ifTrue:[ 's3' printCR ].
+				DebuggingDebugger2 ifTrue:[ 's3' printCR ].
-inWrap := false.
+				inWrap := false.
-isWrap := false.
+				isWrap := false.
-].
+			    ].
-steppedContext := where
+			    steppedContext := where
 "/                        ] ifFalse:[
 "/                            where selector == wrapContext selector ifTrue:[
 "/                                where receiver == wrapContext receiver ifTrue:[
 "/                                    '!!!!!!!!!!!!!!!!!!!!!!!!' printCR.
 "/                                    method printCR.
 "/                                    method originalMethod printCR.
 "/                                    originalMethodOfWrappedMethod printCR.
 "/                                    '!!!!!!!!!!!!!!!!!!!!!!!!' printCR.
 "/                                ].
 "/                            ].
-].
+			].
-where := where sender
+			where := where sender
-].
+		    ].
-].
+		].
-].
+	    ].
-].
+	].
-DebuggingDebugger2 ifTrue:[
+	DebuggingDebugger2 ifTrue:[
-'original method-context is: ' print.
+	    'original method-context is: ' print.
-originalMethodsContext notNil ifTrue:[
+	    originalMethodsContext notNil ifTrue:[
-((ObjectMemory addressOf:originalMethodsContext) printStringRadix:16) print. ' ' print.
+		((ObjectMemory addressOf:originalMethodsContext) printStringRadix:16) print. ' ' print.
-].
+	    ].
-originalMethodsContext printCR
+	    originalMethodsContext printCR
-].
+	].
-originalMethodsContext isNil ifTrue:[
+	originalMethodsContext isNil ifTrue:[
-originalMethodOfWrappedMethod isNil ifTrue:[
+	    originalMethodOfWrappedMethod isNil ifTrue:[
-"/ situation4
+		"/ situation4
-DebuggingDebugger2 ifTrue:[ 's4' printCR ].
+		DebuggingDebugger2 ifTrue:[ 's4' printCR ].
-DebuggingDebugger2 ifTrue:[ steppedContext printCR ].
+		DebuggingDebugger2 ifTrue:[ steppedContext printCR ].
-isWrap := false.
+		isWrap := false.
-] ifFalse:[
+	    ] ifFalse:[
-"/ situation1
+		"/ situation1
-DebuggingDebugger2 ifTrue:[ 's1' printCR ].
+		DebuggingDebugger2 ifTrue:[ 's1' printCR ].
-isWrap := true.
+		isWrap := true.
-"/ steppedContext := wrapContext
+		"/ steppedContext := wrapContext
-].
+	    ].
-].
+	].
 ].
 isWrap ifTrue:[
-DebuggingDebugger2 == true ifTrue:[
+	DebuggingDebugger2 == true ifTrue:[
-'ignore wrap' printCR.
+	    'ignore wrap' printCR.
-].
+	].
-"/
+	"/
-"/ ignore, while in wrappers hidden setup
+	"/ ignore, while in wrappers hidden setup
-"/
+	"/
-where := nil. here := nil.
+	where := nil. here := nil.
-ObjectMemory flushInlineCaches.
+	ObjectMemory flushInlineCaches.
-DebuggingDebugger2 == true ifTrue:[
+	DebuggingDebugger2 == true ifTrue:[
-skipLineNr == #return ifTrue:[
+	    skipLineNr == #return ifTrue:[
-'skipRet in wrap' printCR.
+		'skipRet in wrap' printCR.
-]
+	    ]
-].
+	].
-StepInterruptPending := 1.
+	StepInterruptPending := 1.
-InterruptPending := 1.
+	InterruptPending := 1.
-InStepInterrupt := nil.
+	InStepInterrupt := nil.
-^ self
+	^ self
 ].
 inBlock := inBlockBelow := anyStepBlocks := false.
 DebuggingDebugger2 == true ifTrue:[
-'bigStep is: ' print. bigStep printCR.
+	'bigStep is: ' print. bigStep printCR.
-'steppedContext is: ' print. steppedContext printCR.
+	'steppedContext is: ' print. steppedContext printCR.
 ].
 "/
 "/ is this for a send or a step/next ?
 "/
 (bigStep
 and:[steppedContext notNil]) ifTrue:[
-"
+	"
-a step or next - ignore all contexts below the interesting one
+	 a step or next - ignore all contexts below the interesting one
-"
+	"
-where := here.      "the interrupted context"
+	where := here.      "the interrupted context"
-contextBelow := nil.
+	contextBelow := nil.
-where home notNil ifTrue:[
+	where home notNil ifTrue:[
-"/
+	    "/
-"/ in a block called by 'our' context ?
+	    "/ in a block called by 'our' context ?
-"/
+	    "/
-where home == steppedContext ifTrue:[
+	    where home == steppedContext ifTrue:[
-"/ '*block*' printCR.
+		"/ '*block*' printCR.
-inBlock := true
+		inBlock := true
-]
+	    ]
-].
+	].
-where == steppedContext ifFalse:[
+	where == steppedContext ifFalse:[
-where := where sender.
+	    where := where sender.
-where notNil ifTrue:[
+	    where notNil ifTrue:[
-where home == steppedContext ifTrue:[
+		where home == steppedContext ifTrue:[
-"/ '*block*' printCR.
+		    "/ '*block*' printCR.
-inBlock := true.
+		    inBlock := true.
-]
+		]
-].
+	    ].
 "/ 'looking for ' print.
 "/  (steppedContextAddress printStringRadix:16)print. '' printCR.
 "/where print. ' ' print. ((ObjectMemory addressOf:where)printStringRadix:16) printCR.
 "/steppedContext print. ' ' print. ((ObjectMemory addressOf:steppedContext)printStringRadix:16) printCR.
-where == steppedContext ifFalse:[
+	    where == steppedContext ifFalse:[
-"/ check if we are in a context below steppedContext
+		"/ check if we are in a context below steppedContext
-"/ (i.e. if steppedContext can be reached from
+		"/ (i.e. if steppedContext can be reached from
-"/  interrupted context. Not using context-ref but its
+		"/  interrupted context. Not using context-ref but its
-"/  address to avoid creation of many useless contexts.)
+		"/  address to avoid creation of many useless contexts.)
-inBlock ifFalse:[
+		inBlock ifFalse:[
-[where notNil] whileTrue:[
+		    [where notNil] whileTrue:[
-"/ if either the receiver or any arg of this context
+			"/ if either the receiver or any arg of this context
-"/ is a block of the steppedContext, we must really
+			"/ is a block of the steppedContext, we must really
-"/ do a single step. Otherwise, stepping through a
+			"/ do a single step. Otherwise, stepping through a
-"/ do:-loop would be very difficult.
+			"/ do:-loop would be very difficult.
-receiver := where receiver.
+			receiver := where receiver.
 where selector == #critical: ifTrue:[
 anyStepBlocks := true.
 ] ifFalse:[
-(receiver isBlock
+			(receiver isBlock
-and:[(receiver isKindOf:Block)
+			and:[(receiver isKindOf:Block)
-and:[receiver homeMethod == steppedContext method
+			and:[receiver homeMethod == steppedContext method
-"receiver home == steppedContext"]])
+			     "receiver home == steppedContext"]])
-ifTrue:[
+			ifTrue:[
-anyStepBlocks := true.
+			    anyStepBlocks := true.
-] ifFalse:[
+			] ifFalse:[
-where args do:[:arg |
+			    where args do:[:arg |
-(arg isBlock
+				(arg isBlock
-and:[(arg isKindOf:Block)
+				and:[(arg isKindOf:Block)
-and:[arg homeMethod == steppedContext method
+				and:[arg homeMethod == steppedContext method
-"arg home == steppedContext"]])
+				     "arg home == steppedContext"]])
-ifTrue:[
+				ifTrue:[
-anyStepBlocks := true.
+				    anyStepBlocks := true.
-] ifFalse:[
+				] ifFalse:[
-(where methodHome notNil
+				    (where methodHome notNil
-and:[where methodHome receiver isBlock
+				    and:[where methodHome receiver isBlock
-and:[(where methodHome receiver isKindOf:Block)
+				    and:[(where methodHome receiver isKindOf:Block)
-and:[where methodHome receiver homeMethod == steppedContext method
+				    and:[where methodHome receiver homeMethod == steppedContext method
-"where methodHome receiver home == steppedContext"]]])
+					 "where methodHome receiver home == steppedContext"]]])
-ifTrue:[
+				    ifTrue:[
-anyStepBlocks := true.
+					anyStepBlocks := true.
-]
+				    ]
-].
+				].
-]
+			    ]
-].
+			].
 ].
-DebuggingDebugger2 == true ifTrue:[
+			DebuggingDebugger2 == true ifTrue:[
-((ObjectMemory addressOf:where) printStringRadix:16)print. ' ' print.
+			    ((ObjectMemory addressOf:where) printStringRadix:16)print. ' ' print.
-where selector printCR.
+			    where selector printCR.
-].
+			].
-where == steppedContext ifTrue:[
+			where == steppedContext ifTrue:[
 "/ 'found it - below; ignore' printCR.
-"
+			    "
-found the interesting context somwehere up in the
+			     found the interesting context somwehere up in the
-chain. We seem to be still below the interesting one ...
+			     chain. We seem to be still below the interesting one ...
-"
+			    "
-tracing == true ifTrue:[
+			    tracing == true ifTrue:[
-here printString printCR
+				here printString printCR
-].
+			    ].
-"
+			    "
-yes, a context below
+			      yes, a context below
-- continue and schedule another stepInterrupt.
+			      - continue and schedule another stepInterrupt.
-Must flush caches since optimized methods not always
+			      Must flush caches since optimized methods not always
-look for pending interrupts
+			      look for pending interrupts
-"
+			    "
-contextBelow notNil ifTrue:[
+			    contextBelow notNil ifTrue:[
 "/ 'prepare for unwind-catch' printCR.
 "/ 'con= ' print. contextBelow printCR.
 "/                                contextBelow selector notNil ifTrue:[
 "/                                    self label:'single stepping - please wait ...(' , contextBelow selector , ')'.
 "/                                ].
-DebuggingDebugger2 == true ifTrue:[
+				DebuggingDebugger2 == true ifTrue:[
-'below stepCon; continue until unwind of: ' print.
+				    'below stepCon; continue until unwind of: ' print.
-contextBelow printCR.
+				    contextBelow printCR.
-].
+				].
-Processor activeProcess forceInterruptOnReturnOf:contextBelow.
+				Processor activeProcess forceInterruptOnReturnOf:contextBelow.
-StepInterruptPending := nil.
+				StepInterruptPending := nil.
-] ifFalse:[
+			    ] ifFalse:[
-ObjectMemory flushInlineCaches.
+				ObjectMemory flushInlineCaches.
 "/                                here selector notNil ifTrue:[
 "/                                    self label:'single stepping - please wait ...(' , here selector , ')'.
 "/                                ].
-DebuggingDebugger2 == true ifTrue:[
+				DebuggingDebugger2 == true ifTrue:[
-'in stepCon; continue single stepping' printCR.
+				    'in stepCon; continue single stepping' printCR.
-].
+				].
-StepInterruptPending := 1.
+				StepInterruptPending := 1.
-InterruptPending := 1.
+				InterruptPending := 1.
-].
+			    ].
-where := nil. here := nil.
+			    where := nil. here := nil.
-InStepInterrupt := nil.
+			    InStepInterrupt := nil.
-^ self
+			    ^ self
-].
+			].
-(steppedContext notNil and:[
+			(steppedContext notNil and:[
-where methodHome == steppedContext methodHome]) ifTrue:[
+			 where methodHome == steppedContext methodHome]) ifTrue:[
-inBlockBelow := true.
+			    inBlockBelow := true.
-].
+			].
-anyStepBlocks ifFalse:[
+			anyStepBlocks ifFalse:[
-inBlock ifFalse:[
+			    inBlock ifFalse:[
 "/ workaround a VM bug,
 "/ which does not honor interrupt-on-return of block contexts
 "/ sigh
 where isBlockContext ifFalse:[
-contextBelow := where
+				contextBelow := where
 ].
-]
+			    ]
-].
+			].
-where := where sender
+			where := where sender
-].
+		    ].
-s := 'context returned'.
+		    s := 'Debugger: context returned'.
-subBlockLeft := true.
+		    subBlockLeft := true.
-].
+		].
-] ifTrue:[
+	    ] ifTrue:[
 "/ 'found it right in sender' printCR.
-s := 'after step'
+		s := 'Debugger: after step'
-].
+	    ].
-] ifTrue:[
+	] ifTrue:[
 "/ 'found it right away' printCR.
-s := 'after step'
+	    s := 'Debugger: after step'
-].
+	].
 ] ifFalse:[
 "/ ' send' printCR.
-"
+	"
-a send
+	 a send
-"
+	"
-DebuggingDebugger2 == true ifTrue:[
+	DebuggingDebugger2 == true ifTrue:[
-'clear steppedContext' printCR.
+	    'clear steppedContext' printCR.
-].
+	].
-steppedContext := nil.
+	steppedContext := nil.
-s := 'after send'
+	s := 'Debugger: after send'
 ].
 ignore := false.
 (inBlock and:[stepHow == #nextOver or:[stepHow == #nextOut]]) ifTrue:[
-ignore := true.
+	ignore := true.
 ].
 "/ handle the case, when a subBlock leaves;
 "/ continue stepping in the home context.
 subBlockLeft ifTrue:[
-steppedContext home notNil ifTrue:[
+	steppedContext home notNil ifTrue:[
-steppedContext := steppedContext home.
+	    steppedContext := steppedContext home.
-s := 'after step'.
+	    s := 'Debugger: after step'.
-subBlockLeft := false.
+	    subBlockLeft := false.
 "/ DebugView enterUnconditional:thisContext withMessage:'debug'.
-]
+	]
 ].
 "
 kludge to hide breakpoint wrappers in the context list:
-check if we are in a wrapper methods hidden exit-sequence
+	 check if we are in a wrapper methods hidden exit-sequence
-if so, ignore the interrupt and continue single sending
+	 if so, ignore the interrupt and continue single sending
 "
 (where isNil
 and:[wrapperContext notNil])
 ifTrue:[
-"/ did not find our steppedContext along the chain;
+	"/ did not find our steppedContext along the chain;
-"/ could be in a wrappedMethods exitBlock ...
+	"/ could be in a wrappedMethods exitBlock ...
-leftWrap ifFalse:[
+	leftWrap ifFalse:[
-where := here.
+	    where := here.
-wrappedMethod := nil.
+	    wrappedMethod := nil.
-5 timesRepeat:[
+	    5 timesRepeat:[
-where notNil ifTrue:[
+		where notNil ifTrue:[
-where isBlockContext ifFalse:[
+		    where isBlockContext ifFalse:[
-method := where method.
+			method := where method.
-(method notNil and:[method isWrapped]) ifTrue:[
+			(method notNil and:[method isWrapped]) ifTrue:[
-where == wrapperContext ifTrue:[
+			    where == wrapperContext ifTrue:[
-DebuggingDebugger2 == true ifTrue:[
+				DebuggingDebugger2 == true ifTrue:[
-'change stepCon fromWrapped: ' print.
+				    'change stepCon fromWrapped: ' print.
-steppedContext print.
+				    steppedContext print.
-' to: ' print.
+				    ' to: ' print.
-wrapperContext printCR.
+				    wrapperContext printCR.
-].
+				].
-inWrap := true.
+				inWrap := true.
-enteredWrap := true.
+				enteredWrap := true.
-steppedContext := wrapperContext.
+				steppedContext := wrapperContext.
-wrapperContext := nil.
+				wrapperContext := nil.
-]
+			    ]
-].
+			].
-].
+		    ].
-where := where sender
+		    where := where sender
-]
+		]
-].
+	    ].
-].
+	].
-enteredWrap ifTrue:[
+	enteredWrap ifTrue:[
-ignore := true
+	    ignore := true
-]
+	]
 ].
 "/
 subBlockLeft ifTrue:[
-"/ special care for stepInterrupt in send,
+	"/ special care for stepInterrupt in send,
-"/ when created a dummy context (lineNr == 1)
+	"/ when created a dummy context (lineNr == 1)
-steppedContext lineNumber isNil ifTrue:[
+	steppedContext lineNumber isNil ifTrue:[
-steppedContext selector == here sender selector ifTrue:[
+	    steppedContext selector == here sender selector ifTrue:[
-subBlockLeft := false.
+		subBlockLeft := false.
-s := 'after step'.
+		s := 'Debugger: after step'.
-steppedContext := here sender.
+		steppedContext := here sender.
-].
+	    ].
-].
+	].
-oneMore := true
+	oneMore := true
 ].
 inBlock ifTrue:[
-DebuggingDebugger2 == true ifTrue:[
+	DebuggingDebugger2 == true ifTrue:[
-'inBlock' printCR.
+	    'inBlock' printCR.
-].
+	].
-s := 'in block'.
+	s := 'Debugger: in block'.
 ].
 inBlockBelow ifTrue:[
-DebuggingDebugger2 == true ifTrue:[
+	DebuggingDebugger2 == true ifTrue:[
-'inBlockBelow' printCR.
+	    'inBlockBelow' printCR.
-].
+	].
-ignore := true
+	ignore := true
 ].
 DebuggingDebugger2 == true ifTrue:[
-where notNil ifTrue:[
+	where notNil ifTrue:[
-'(' print. steppedContextLineno print. ') ' print.
+	    '(' print. steppedContextLineno print. ') ' print.
-where printCR.
+	    where printCR.
-].
+	].
 ].
 ignore ifFalse:[
-(bigStep
+	(bigStep
-and:[steppedContextLineno notNil
+	and:[steppedContextLineno notNil
-and:[where notNil
+	and:[where notNil
-and:[where lineNumber == steppedContextLineno]]]) ifTrue:[
+	and:[where lineNumber == steppedContextLineno]]]) ifTrue:[
-(here isBlockContext
+	    (here isBlockContext
-and:[(here methodHome == steppedContext)
+	    and:[(here methodHome == steppedContext)
-or:[here home == steppedContext]]) ifTrue:[
+		 or:[here home == steppedContext]]) ifTrue:[
-DebuggingDebugger2 == true ifTrue:[
+		DebuggingDebugger2 == true ifTrue:[
-'same line but in block' printCR.
+		    'same line but in block' printCR.
-].
+		].
-steppedContext := actualContext := here.
+		steppedContext := actualContext := here.
-steppedContextLineno := here lineNumber.
+		steppedContextLineno := here lineNumber.
-] ifFalse:[
+	    ] ifFalse:[
-"/ kludge - I only have the info for up to 255 lines
+		"/ kludge - I only have the info for up to 255 lines
-steppedContextLineno ~~ 255 ifTrue:[
+		steppedContextLineno ~~ 255 ifTrue:[
-DebuggingDebugger2 == true ifTrue:[
+		    DebuggingDebugger2 == true ifTrue:[
-'same line - ignored' printCR.
+			'same line - ignored' printCR.
-].
+		    ].
-ignore := true
+		    ignore := true
-].
+		].
-].
+	    ].
-].
+	].
-(subBlockLeft not
+	(subBlockLeft not
-and:[skipLineNr notNil
+	and:[skipLineNr notNil
-and:[where notNil
+	and:[where notNil
-and:[where lineNumber notNil
+	and:[where lineNumber notNil
-and:[where lineNumber < skipLineNr]]]]) ifTrue:[
+	and:[where lineNumber < skipLineNr]]]]) ifTrue:[
-DebuggingDebugger2 == true ifTrue:[
+	    DebuggingDebugger2 == true ifTrue:[
-'skip (' print. skipLineNr print. ' unreached - ignored' printCR.
+		'skip (' print. skipLineNr print. ' unreached - ignored' printCR.
-].
+	    ].
-ignore := true
+	    ignore := true
-].
+	].
-(steppedContextLineno isNil
+	(steppedContextLineno isNil
-and:[skipLineNr isNil
+	and:[skipLineNr isNil
-and:[thisContext sender selector == #contextInterrupt]]) ifTrue:[
+	and:[thisContext sender selector == #contextInterrupt]]) ifTrue:[
-DebuggingDebugger2 == true ifTrue:[
+	    DebuggingDebugger2 == true ifTrue:[
-'same line2 (after conIRQ) - ignored' printCR.
+		'same line2 (after conIRQ) - ignored' printCR.
-].
+	    ].
-ignore := true
+	    ignore := true
-].
+	].
 ].
 ignore ifTrue:[
 "/' ' printCR.
-where := nil. here := nil.
+	where := nil. here := nil.
-"
+	"
-yes, a context below
+	 yes, a context below
-- continue and schedule another stepInterrupt.
+	  - continue and schedule another stepInterrupt.
-Must flush caches since optimized methods not always
+	  Must flush caches since optimized methods not always
-look for pending interrupts
+	  look for pending interrupts
-"
+	"
-ObjectMemory flushInlineCaches.
+	ObjectMemory flushInlineCaches.
-StepInterruptPending := 1.
+	StepInterruptPending := 1.
-InterruptPending := 1.
+	InterruptPending := 1.
-InStepInterrupt := nil.
+	InStepInterrupt := nil.
-^ self
+	^ self
 ].
 "/ ' ' printCR.
 self label:(s , ' (process: ' , processName , ')').
 "release refs to context"
 where := nil. here := nil.
 "/'enter' printCR.
 DebuggingDebugger2 == true ifTrue:[
-'==> enter on: ' print. thisContext sender sender printCR.
+	'==> enter on: ' print. thisContext sender sender printCR.
 ].
 initiallyShown := nil.
 (oneMore == true) ifTrue:[
-(thisContext sender sender lineNumber ? 0) <= 1 ifTrue:[
+	(thisContext sender sender lineNumber ? 0) <= 1 ifTrue:[
-initiallyShown := 2
+	    initiallyShown := 2
-] ifFalse:[
+	] ifFalse:[
-initiallyShown := 1
+	    initiallyShown := 1
-]
+	]
 ].
 con := thisContext sender sender.
 HaltInterrupt handle:[:ex |
-'DebugView [info]: halt/breakpoint in debugger ignored [stepOpNext 2]' infoPrintCR.
+	'DebugView [info]: halt/breakpoint in debugger ignored [stepOpNext 2]' infoPrintCR.
-ex proceed
+	ex proceed
 ] do:[
-self enter:con select:initiallyShown
+	self enter:con select:initiallyShown
 ].
 con := nil
 "Created: / 14-10-1996 / 12:53:39 / cg"
 "Modified: / 20-07-2012 / 15:26:26 / cg"
 selectedContext isNil ifTrue:[^ self].
 cls := selectedContext receiver class.
 sel := selectedContext selector.
 (cls includesSelector:sel) ifFalse:[
-sel := nil
+	sel := nil
 ].
 Tools::NewSystemBrowser addToBookMarks:cls selector:sel
 !
 autoRaiseView
 autoUpdateOff
 "stop the update process"
 updateProcess notNil ifTrue:[
-monitorToggle lampColor:(Color yellow).
+	monitorToggle lampColor:(Color yellow).
-updateProcess terminate.
+	updateProcess terminate.
-updateProcess := nil
+	updateProcess := nil
 ]
 !
 autoUpdateOn
 "fork a subprocess which updates the contextList in regular intervals"
 updateProcess isNil ifTrue:[
-updateProcess :=
+	updateProcess :=
-[
+	    [
-[true] whileTrue:[
+		[true] whileTrue:[
-monitorToggle showLamp ifTrue:[
+		    monitorToggle showLamp ifTrue:[
-monitorToggle lampColor:(Color yellow).
+			monitorToggle lampColor:(Color yellow).
-] ifFalse:[
+		    ] ifFalse:[
-monitorToggle activeForegroundColor:Color black.
+			monitorToggle activeForegroundColor:Color black.
-].
+		    ].
-(Delay forSeconds:0.25) wait.
+		    (Delay forSeconds:0.25) wait.
-self updateContext.
+		    self updateContext.
-monitorToggle showLamp ifTrue:[
+		    monitorToggle showLamp ifTrue:[
-monitorToggle lampColor:(Color red).
+			monitorToggle lampColor:(Color red).
-] ifFalse:[
+		    ] ifFalse:[
-monitorToggle activeForegroundColor:Color red.
+			monitorToggle activeForegroundColor:Color red.
-].
+		    ].
-(Delay forSeconds:0.25) wait.
+		    (Delay forSeconds:0.25) wait.
-self updateContext.
+		    self updateContext.
-]
+		]
-] forkAt:(Processor activePriority - 1)
+	    ] forkAt:(Processor activePriority - 1)
 ]
 !
 browseBlocksHome
 mthd := block method.
 cls := mthd mclass.
 sel := mthd selector.
 (cls notNil and:[(cls includesSelector:sel)]) ifTrue:[
-cls browserClass openInClass:cls selector:sel.
+	cls browserClass openInClass:cls selector:sel.
-^ self
+	^ self
 ].
 mthd source notEmptyOrNil ifTrue:[
-(Dialog confirm:'Block''s home method is (no longer) present in any class.\Do you want to see the method anyway?' withCRs)
+	(Dialog confirm:'Block''s home method is (no longer) present in any class.\Do you want to see the method anyway?' withCRs)
-ifTrue:[
+	ifTrue:[
-UserPreferences current systemBrowserClass
+	    UserPreferences current systemBrowserClass
-browseMethods:{ mthd } title:'Unbound Method' sort:false
+		browseMethods:{ mthd } title:'Unbound Method' sort:false
-"/ TextView openWith:mthd source title:'Unbound Method''s Source'.
+	    "/ TextView openWith:mthd source title:'Unbound Method''s Source'.
-].
+	].
-^ self
+	^ self
 ].
 cls notNil ifTrue:[
-(Dialog confirm:'Block''s home method is (no longer) present in any class and no source can be shown.\Do you want to browse the method''s last class instead?' withCRs)
+	(Dialog confirm:'Block''s home method is (no longer) present in any class and no source can be shown.\Do you want to browse the method''s last class instead?' withCRs)
-ifTrue:[
+	ifTrue:[
-cls browserClass openInClass:cls selector:nil.
+	    cls browserClass openInClass:cls selector:nil.
-].
+	].
-^ self
+	^ self
 ].
 Dialog information:'Block''s home method is (no longer) present in any class.'.
 !
 browseClass
 selectedContext isNil ifTrue:[^ self].
 cls := selectedContext receiver class.
 sel := selectedContext selector.
 (cls includesSelector:sel) ifFalse:[
-sel := nil
+	sel := nil
 ].
 cls browserClass openInClass:cls selector:sel.
 "Modified: / 3.2.1998 / 20:23:36 / cg"
 !
 selectedContext isNil ifTrue:[^ self].
 mthd := selectedContext method.
 mthd notNil ifTrue:[
-cls := mthd containingClass.
+	cls := mthd containingClass.
-"/ still nil if unbound - then use receivers class
+	"/ still nil if unbound - then use receivers class
 ].
 cls isNil ifTrue:[
-cls := selectedContext receiver class
+	cls := selectedContext receiver class
 ].
 cls browserClass browseClassHierarchy:cls.
 "Modified: / 17.11.2001 / 19:43:06 / cg"
 !
 selectedContext isNil ifTrue:[^ self].
 mthd := selectedContext method.
 mthd notNil ifTrue:[
-cls := mthd containingClass.
+	cls := mthd containingClass.
-"/ still nil if unbound - then use receivers class
+	"/ still nil if unbound - then use receivers class
 ].
 cls isNil ifTrue:[
-cls := selectedContext receiver class
+	cls := selectedContext receiver class
 ].
 cls browserClass browseFullClassProtocol:cls.
 "Modified: / 17.11.2001 / 19:43:43 / cg"
 !
 con := selectedContext ? actualContext.
 con isNil ifTrue:[^ self].
 mthd := con method.
 mthd notNil ifTrue:[
-who := mthd who.
+	who := mthd who.
-who notNil ifTrue:[
+	who notNil ifTrue:[
-cls := who methodClass.
+	    cls := who methodClass.
-sel := who methodSelector.
+	    sel := who methodSelector.
-] ifFalse:[
+	] ifFalse:[
-"might have been re-accepted"
+	    "might have been re-accepted"
-(home := con methodHome) notNil ifTrue:[
+	    (home := con methodHome) notNil ifTrue:[
-(sel := home selector) notNil ifTrue:[
+		(sel := home selector) notNil ifTrue:[
-cls := home receiver class
+		    cls := home receiver class
-whichClassImplements:selectedContext selector.
+			    whichClassImplements:selectedContext selector.
-cls notNil ifTrue:[
+		    cls notNil ifTrue:[
-Dialog information:'Method has been changed/moved in the meanwhile.\Browser will show the most recent (current) version.' withCRs.
+			Dialog information:'Method has been changed/moved in the meanwhile.\Browser will show the most recent (current) version.' withCRs.
-].
+		    ].
-]
+		]
-].
+	    ].
-].
+	].
 ].
 cls isNil ifTrue:[
-"/ class not found - try receiver
+	"/ class not found - try receiver
-cls := con receiver class
+	cls := con receiver class
 ].
 cls browserClass openInClass:cls selector:sel.
 "Created: / 22-11-1995 / 21:27:01 / cg"
 browseImplementors
 "open a browser on the implementors of the selected method's selector"
 selectedContext isNil ifTrue:[
-^ self showError:'** select a context first **'
+	^ self showError:'** select a context first **'
 ].
 "/ selectedContext receiver class browserClass
 self withWaitCursorDo:[
-UserPreferences systemBrowserClass
+	UserPreferences systemBrowserClass
-browseImplementorsOf:selectedContext selector.
+	     browseImplementorsOf:selectedContext selector.
 ]
 "Modified: / 19-07-2012 / 11:44:03 / cg"
 !
 "open a browser on the implementors of some selector"
 |initial selector sel|
 (sel := codeView selection) notNil ifTrue:[
-initial := SystemBrowser extractSelectorFrom:sel
+	initial := SystemBrowser extractSelectorFrom:sel
 ].
 initial isNil ifTrue:[
-initial := selectedContext isNil
+	initial := selectedContext isNil
-ifTrue:[nil]
+			    ifTrue:[nil]
-ifFalse:[selectedContext selector].
+			    ifFalse:[selectedContext selector].
 ].
 selector := Dialog
-requestSelector:'Selector to browse implementors of:'
+		    requestSelector:'Selector to browse implementors of:'
-initialAnswer:initial.
+		    initialAnswer:initial.
 selector notEmptyOrNil ifTrue:[
-self withWaitCursorDo:[
+	self withWaitCursorDo:[
-UserPreferences systemBrowserClass
+	    UserPreferences systemBrowserClass
-browseImplementorsMatching:selector.
+		browseImplementorsMatching:selector.
-]
+	]
 ]
 "Modified: / 19-07-2012 / 11:43:52 / cg"
 !
 "browse the application class (of the process, if it is a GUI process)"
 |app appClass|
 (app := self processesApplication) notNil ifTrue:[
-appClass := app class.
+	appClass := app class.
-appClass browserClass openInClass:appClass selector:nil.
+	appClass browserClass openInClass:appClass selector:nil.
-^ self
+	^ self
 ].
 !
 browseReceiversClass
 "browse the receiver's class (of the selected context's message)"
 |cls sel|
 selectedContext isNil ifTrue:[^ self].
 selectedContext isCheapBlockContext ifTrue:[
-cls := selectedContext method mclass.
+	cls := selectedContext method mclass.
-sel := selectedContext method selector.
+	sel := selectedContext method selector.
 ] ifFalse:[
-cls := selectedContext receiver class.
+	cls := selectedContext receiver class.
-sel := selectedContext selector.
+	sel := selectedContext selector.
 ].
 (cls includesSelector:sel) ifFalse:[
-sel := nil
+	sel := nil
 ].
 cls browserClass openInClass:cls selector:sel.
 "Modified: / 19-07-2012 / 11:29:48 / cg"
 !
 browseSenders
 "open a browser on the senders of the selected method's selector"
 selectedContext isNil ifTrue:[
-^ self showError:'** select a context first **'
+	^ self showError:'** select a context first **'
 ].
 self withWaitCursorDo:[
-UserPreferences systemBrowserClass
+	UserPreferences systemBrowserClass
-browseAllCallsOn:selectedContext selector.
+	    browseAllCallsOn:selectedContext selector.
 ]
 "Modified: / 19-07-2012 / 11:43:02 / cg"
 !
 "open a browser on the senders of some selector"
 |initial selector sel|
 (sel := codeView selection) notNil ifTrue:[
-initial := SystemBrowser extractSelectorFrom:sel
+	initial := SystemBrowser extractSelectorFrom:sel
 ].
 initial isNil ifTrue:[
-initial := selectedContext isNil
+	initial := selectedContext isNil
-ifTrue:[nil]
+			    ifTrue:[nil]
-ifFalse:[selectedContext selector].
+			    ifFalse:[selectedContext selector].
 ].
 selector := Dialog
-requestSelector:'Selector to browse senders of:'
+		    requestSelector:'Selector to browse senders of:'
-initialAnswer:initial.
+		    initialAnswer:initial.
 selector notEmptyOrNil ifTrue:[
-self withWaitCursorDo:[
+	self withWaitCursorDo:[
-UserPreferences systemBrowserClass
+	    UserPreferences systemBrowserClass
-browseAllCallsOn:selector asSymbol.
+		browseAllCallsOn:selector asSymbol.
-]
+	]
 ]
 "Modified: / 19-07-2012 / 11:43:29 / cg"
 !
 !
 closeAllDebuggers
 (Dialog confirm:'Close all Debuggers (without confirmation if code was changed)?')
 ifFalse:[
-^ self
+	^ self
 ].
 self class allInstancesDo:[:debugger |
-debugger ~~ self ifTrue:[
+	debugger ~~ self ifTrue:[
-debugger busy ifTrue:[
+	    debugger busy ifTrue:[
-debugger destroyWithConfirmation:true.
+		debugger destroyWithConfirmation:true.
-].
+	    ].
-].
+	].
 ].
 self closeRequest.
 "Created: / 23-03-2012 / 12:40:22 / cg"
 !
 Show the full verbose context without filtering."
 |infoText|
 firstContext isNil ifTrue:[
-infoText := 'No context, no walkback'.
+	infoText := 'No context, no walkback'.
 ] ifFalse:[
-infoText := firstContext fullPrintAllString asStringCollection.
+	exceptionInfoLabel notNil ifTrue:[
+	    infoText := exceptionInfoLabel label , '\\' withCRs.
+	] ifFalse:[
+	    infoText := ''
+	].
+	infoText := infoText asStringCollection, firstContext fullPrintAllString asStringCollection.
 ].
 self setClipboardText:infoText
 "Modified: 28.8.1995 / 15:31:59 / claus"
 "abort - send Object>>abortSignal, which is usually caught
 at save places (for example: in the event loop) and returns back
 from whatever the process is doing, but does not terminate it."
 self checkIfCodeIsReallyModified ifTrue:[
-(self confirm:('Code modified - abort anyway ?'))
+	(self confirm:('Code modified - abort anyway ?'))
-ifFalse:[
+	ifFalse:[
-^ self
+	    ^ self
-]
+	]
 ].
 inspecting ifTrue:[
-inspectedProcess isDead ifTrue:[
+	inspectedProcess isDead ifTrue:[
-self showTerminated.
+	    self showTerminated.
-^ self
+	    ^ self
-].
+	].
-(AbortOperationRequest isHandledIn:inspectedProcess suspendedContext) ifFalse:[
+	(AbortOperationRequest isHandledIn:inspectedProcess suspendedContext) ifFalse:[
-self showError:'** the process does not handle the abort signal **'
+	    self showError:'** the process does not handle the abort signal **'
-] ifTrue:[
+	] ifTrue:[
-self interruptProcessWith:[AbortOperationRequest raise].
+	    self interruptProcessWith:[AbortOperationRequest raise].
-].
+	].
-^ self
+	^ self
 ].
 steppedContext := wrapperContext := nil.
 haveControl := false.
 exitAction := #abort.
 "exit private event-loop"
 catchBlock notNil ifTrue:[
-abortButton turnOff.
+	abortButton turnOff.
-catchBlock value.
+	catchBlock value.
-"/ not reached
+	"/ not reached
-'DebugView [warning]: abort failed' errorPrintCR.
+	'DebugView [warning]: abort failed' errorPrintCR.
 ].
 ^ self.
 "Modified: / 17.11.2001 / 22:53:22 / cg"
 "abortAll - send Object>>abortAllSignal, which is usually caught
 at save places (for example: in the event loop) and returns back
 from whatever the process is doing, but does not terminate it."
 self checkIfCodeIsReallyModified ifTrue:[
-(self confirm:('Code modified - abort anyway ?'))
+	(self confirm:('Code modified - abort anyway ?'))
-ifFalse:[
+	ifFalse:[
-^ self
+	    ^ self
-]
+	]
 ].
 inspecting ifTrue:[
-inspectedProcess isDead ifTrue:[
+	inspectedProcess isDead ifTrue:[
-self showTerminated.
+	    self showTerminated.
-^ self
+	    ^ self
-].
+	].
-(AbortOperationRequest isHandledIn:inspectedProcess suspendedContext) ifFalse:[
+	(AbortOperationRequest isHandledIn:inspectedProcess suspendedContext) ifFalse:[
-self showError:'** the process does not handle the abort signal **'
+	    self showError:'** the process does not handle the abort signal **'
-] ifTrue:[
+	] ifTrue:[
-self interruptProcessWith:[AbortAllOperationRequest raise].
+	    self interruptProcessWith:[AbortAllOperationRequest raise].
-].
+	].
-^ self
+	^ self
 ].
 steppedContext := wrapperContext := nil.
 haveControl := false.
 exitAction := #abortAll.
 "exit private event-loop"
 catchBlock notNil ifTrue:[
-abortButton turnOff.
+	abortButton turnOff.
-catchBlock value.
+	catchBlock value.
-"/ not reached
+	"/ not reached
-'DebugView [warning]: abort failed' errorPrintCR.
+	'DebugView [warning]: abort failed' errorPrintCR.
 ].
 ^ self.
 "Modified: / 17.11.2001 / 22:53:22 / cg"
 |oldPrio newPrio s|
 oldPrio := (inspectedProcess ? Processor activeProcess) priority.
 [
-s := Dialog
+	s := Dialog
-request:(resources stringWithCRs:'Change the processes priority to (proceed with prio):\\    2 - system background\    4 - user background\    8 - normal\    9 - high\   16 - I/O (danger alert)\')
+		request:(resources stringWithCRs:'Change the processes priority to (proceed with prio):\\    2 - system background\    4 - user background\    8 - normal\    9 - high\   16 - I/O (danger alert)\')
-initialAnswer:oldPrio printString.
+		initialAnswer:oldPrio printString.
-s isEmptyOrNil ifTrue:[^ self].
+	s isEmptyOrNil ifTrue:[^ self].
-newPrio := Integer readFrom:s onError:nil.
+	newPrio := Integer readFrom:s onError:nil.
-newPrio isNil
+	newPrio isNil
 ] whileTrue.
 newPrio := newPrio max:(Processor lowestPriority).
 newPrio := newPrio min:(Processor highestPriority).
 newPrio >= Processor highIOPriority ifTrue:[
-(Dialog
+	(Dialog
-confirm:(resources
+		confirm:(resources
-stringWithCRs:'Attention: event handling takes place at prio 16.\An ever running high priority process\could block the system and make the UI unusable.\\Proceed?'))
+			    stringWithCRs:'Attention: event handling takes place at prio 16.\An ever running high priority process\could block the system and make the UI unusable.\\Proceed?'))
-ifFalse:[^ self].
+	ifFalse:[^ self].
 ].
 (inspectedProcess ? Processor activeProcess) priority:newPrio.
 "Created: / 07-03-2012 / 14:15:09 / cg"
 !
 "continue from menu"
 |proc exContext ex answer|
 self checkIfCodeIsReallyModified ifTrue:[
-(self confirm:('Code modified - continue anyway ?')) ifFalse:[
+	(self confirm:('Code modified - continue anyway ?')) ifFalse:[
-^ self
+	    ^ self
-]
+	]
 ].
 inspecting ifTrue:[
-device hasColors ifTrue:[
+	self graphicsDevice hasColors ifTrue:[
-continueButton foregroundColor:Color red darkened.
+	    continueButton foregroundColor:Color red darkened.
-].
+	].
-continueButton label:(resources string:'Stop').
+	continueButton label:(resources string:'Stop').
-continueButton action:[self doStop].
+	continueButton action:[self doStop].
-self processPerform:#resume.
+	self processPerform:#resume.
-^ self
+	^ self
 ].
 canContinue ifTrue:[
-exContext := thisContext findSpecialHandle:false raise:true.
+	exContext := thisContext findSpecialHandle:false raise:true.
-(exContext notNil
+	(exContext notNil
-and:[ (ex := exContext receiver) isLazyValue not
+	and:[ (ex := exContext receiver) isLazyValue not
-and:[ ex isException
+	and:[ ex isException
-and:[ ex creator == NoHandlerError
+	and:[ ex creator == NoHandlerError
-and:[ ex exception creator == RecursionError]]]])
+	and:[ ex exception creator == RecursionError]]]])
-ifTrue:[
+	ifTrue:[
-"/ debug due to unhandled recursionInterrupt.
+	    "/ debug due to unhandled recursionInterrupt.
-"/ ask if we should proceed with more stack.
+	    "/ ask if we should proceed with more stack.
-answer := self confirm:'Debugger entered due to a stack overflow.\\Continue with more stack ?' withCRs.
+	    answer := self confirm:'Debugger entered due to a stack overflow.\\Continue with more stack ?' withCRs.
-answer == true ifTrue:[
+	    answer == true ifTrue:[
-proc := Processor activeProcess.
+		proc := Processor activeProcess.
-proc setMaximumStackSize:(proc maximumStackSize * 2).
+		proc setMaximumStackSize:(proc maximumStackSize * 2).
-].
+	    ].
-].
+	].
-steppedContext := wrapperContext := nil.
+	steppedContext := wrapperContext := nil.
-tracing := false.
+	tracing := false.
-haveControl := false.
+	haveControl := false.
-exitAction := #continue.
+	exitAction := #continue.
-"exit private event-loop"
+	"exit private event-loop"
-catchBlock value.
+	catchBlock value.
-"/ not reached.
+	"/ not reached.
-'DebugView [warning]: continue failed' errorPrintCR.
+	'DebugView [warning]: continue failed' errorPrintCR.
-continueButton turnOff.
+	continueButton turnOff.
 ] ifFalse:[
-inspecting ifFalse:[
+	inspecting ifFalse:[
-'DebugView [info]: resuming top context' infoPrintCR.
+	    'DebugView [info]: resuming top context' infoPrintCR.
-self showSelection:1.
+	    self showSelection:1.
-self doReturn
+	    self doReturn
-]
+	]
 ]
 "Modified: / 5.10.1998 / 13:03:47 / cg"
 "Modified: / 26.7.1999 / 15:38:45 / stefan"
 !
 selectionIndex := contextView selection.
 restart := true.
 selectorToDefine notNil ifTrue:[
-selector := selectorToDefine.
+	selector := selectorToDefine.
-receiversClass := classToDefineIn.
+	receiversClass := classToDefineIn.
 ] ifFalse:[
-selector := actualContext selector.
+	selector := actualContext selector.
-receiversClass := actualContext receiver class.
+	receiversClass := actualContext receiver class.
 ].
 implClass := actualContext receiver class whichClassIncludesSelector:selector.
 implClass notNil ifTrue:[
-"/ must be a subclassResponsibility
+	"/ must be a subclassResponsibility
-idx := contextArray identityIndexOf:actualContext.
+	idx := contextArray identityIndexOf:actualContext.
-idx > 1 ifTrue:[
+	idx > 1 ifTrue:[
-callee := contextArray at:idx-1.
+	    callee := contextArray at:idx-1.
-callee selector == #subclassResponsibility ifTrue:[
+	    callee selector == #subclassResponsibility ifTrue:[
-restart := false.
+		restart := false.
-]
+	    ]
-].
+	].
 ].
 "generate nice argument names"
 bagOfClassNames := (actualContext args collect:[:eachArg | eachArg class name]) asBag.
 bagOfUsedClassNames := Bag new.
 argNames := actualContext args
-collect:
+		    collect:
-[:eachArg |
+			[:eachArg |
-|nm|
+			    |nm|
-nm := eachArg class nameWithoutPrefix.
+			    nm := eachArg class nameWithoutPrefix.
-(bagOfClassNames occurrencesOf:nm) == 1 ifTrue:[
+			    (bagOfClassNames occurrencesOf:nm) == 1 ifTrue:[
-nm article , nm
+				nm article , nm
-] ifFalse:[
+			    ] ifFalse:[
-bagOfUsedClassNames add:nm.
+				bagOfUsedClassNames add:nm.
-nm asLowercaseFirst , (bagOfUsedClassNames occurrencesOf:nm) printString
+				nm asLowercaseFirst , (bagOfUsedClassNames occurrencesOf:nm) printString
-].
+			    ].
-].
+			].
 proto := Method methodDefinitionTemplateForSelector:selector andArgumentNames:argNames.
 haltStmtDef := '    self halt:''please define %2 here''.'.
 haltStmtFix := '    self halt:''please change %2 as required''.'.
 ( { UndefinedObject . True . False } includes:receiversClass ) ifTrue:[
-(self confirm:'Are you sure you want to add this method (to ',receiversClass name,') ?')
+	(self confirm:'Are you sure you want to add this method (to ',receiversClass name,') ?')
-ifFalse:[
+	ifFalse:[
-^ self
+	    ^ self
-]
+	]
 ].
 "/ code for a getter
 (receiversClass instVarNames includes:selector) ifTrue:[
-code := '%1\' , haltStmtFix , '\    ^ %2'.
+	code := '%1\' , haltStmtFix , '\    ^ %2'.
-cat := 'accessing'.
+	cat := 'accessing'.
 ].
 "/ code for a setter
 (selector numArgs == 1
 and:[(selector endsWith:':')
 and:[receiversClass instVarNames includes:(selector copyButLast:1)]])
 ifTrue:[
-varName := selector copyButLast:1.
+	varName := selector copyButLast:1.
-argName := argNames first.
+	argName := argNames first.
-code := '%1\' , haltStmtFix , '\    %3 := %4.'.
+	code := '%1\' , haltStmtFix , '\    %3 := %4.'.
-cat := 'accessing'.
+	cat := 'accessing'.
 ].
 "/ code for a tester
 (selector numArgs == 0
 and:[(selector startsWith:'is')
 and:[(Smalltalk classNamed:(selector copyFrom:3)) notNil ]])
 ifTrue:[
-(receiversClass nameWithoutPrefix = (selector copyFrom:3)) ifTrue:[
+	(receiversClass nameWithoutPrefix = (selector copyFrom:3)) ifTrue:[
-code := '%1\' , haltStmtFix , '\    ^ true.'.
+	    code := '%1\' , haltStmtFix , '\    ^ true.'.
-] ifFalse:[
+	] ifFalse:[
-code := '%1\' , haltStmtFix , '\    ^ false.'.
+	    code := '%1\' , haltStmtFix , '\    ^ false.'.
-].
+	].
-cat := 'testing'.
+	cat := 'testing'.
 ].
 "/    actualContext receiver isClass ifTrue:[
 "/        selector == #new ifTrue:[
 "/            code := '%1\' , haltStmt , '\    ^ self basicNew initialize'
 "/        selector == #'new:' ifTrue:[
 "/            code := '%1\' , haltStmt , '\    ^ (self basicNew:arg) initialize'
 "/        ].
 "/    ].
 code isNil ifTrue:[
-code := '%1\' , haltStmtDef
+	code := '%1\' , haltStmtDef
 ].
 self
-codeAccept:(code bindWith:proto with:selector with:varName with:argName) withCRs
+	codeAccept:(code bindWith:proto with:selector with:varName with:argName) withCRs
-inClass:receiversClass
+	inClass:receiversClass
-unwind:false
+	unwind:false
-category:cat
+	category:cat
-onCancel:[^ self].
+	onCancel:[^ self].
 self doShowSelection:selectionIndex.
 restart ifTrue:[
-self doRestart
+	self doRestart
 ]
 "Modified: / 23-03-2012 / 09:49:31 / cg"
 !
+doGotoApplicationActionMethod
+"select the first application-model context.
+This is another great helper, when you hit an exception,
+to quickly navigate to the responsible code of you application"
+contextArray keysAndValuesDo:[:i :c |
+	|nextCon nextRcvr dialog|
+	"/ find the first appModel context
+	nextCon := contextArray at:i+1.
+	"/
+	"/ while not in the appModel
+	"/
+	[
+	    nextRcvr := nextCon receiver.
+	    (nextRcvr isKindOf:ApplicationModel)
+	] whileFalse:[
+	    nextCon := nextCon sender
+	].
+	self selectContext:nextCon.
+	^ self.
+].
+"/ not found
+gotoApplicationActionMethodButton disable.
+!
 doGotoDialogOpener
-"select the context where the dialog was opened"
+"select the context where the dialog was opened.
+This is a great helper, when you press interrupt while a modal dialog
+is open, to quickly navigate to the corresponding opening code of you application"
 contextArray keysAndValuesDo:[:i :c |
-|nextCon nextRcvr dialog|
+	|nextCon nextRcvr dialog|
-"/ find the openModal, then walk upward
+	"/ find the openModal, then walk upward
-((c selector == #openModal) or:[c selector == #openModal:]) ifTrue:[
+	((c selector == #openModal) or:[c selector == #openModal:]) ifTrue:[
-dialog := c receiver.
+	    dialog := c receiver.
-nextCon := contextArray at:i+1.
+	    nextCon := contextArray at:i+1.
-"/ while still in dialog code
+	    "/
-[
+	    "/ while still in dialog code
-nextRcvr := nextCon receiver.
+	    "/
-(nextRcvr == dialog)
+	    [
-or:[ nextRcvr == dialog class
+		nextRcvr := nextCon receiver.
-or:[ nextRcvr == DialogBox ]]
+		(nextRcvr == dialog)
-] whileTrue:[
+		or:[ nextRcvr == dialog class
-(nextCon isBlockContext and:[ nextCon methodHome notNil]) ifTrue:[
+		or:[ nextRcvr == DialogBox ]]
-nextCon := nextCon methodHome
+	    ] whileTrue:[
-].
+		(nextCon isBlockContext and:[ nextCon methodHome notNil]) ifTrue:[
-nextCon := nextCon sender.
+		    nextCon := nextCon methodHome
-].
+		].
-"/ while still in a Notification
+		nextCon := nextCon sender.
-[
+	    ].
-nextRcvr := nextCon receiver.
+	    "/
-(nextRcvr isKindOf:UserInformation)
+	    "/ while still in a Notification
-or:[ nextRcvr isBehavior
+	    "/
-and:[nextRcvr includesBehavior:UserInformation]]
+	    [
-] whileTrue:[
+		nextRcvr := nextCon receiver.
-nextCon := nextCon sender
+		(nextRcvr isKindOf:UserInformation)
-].
+		or:[ nextRcvr isBehavior
-self selectContext:nextCon.
+		     and:[nextRcvr includesBehavior:UserInformation]]
-^ self.
+	    ] whileTrue:[
-]
+		nextCon := nextCon sender
+	    ].
+	    "/
+	    "/ while still in UIBuilder
+	    "/
+	    [
+		nextRcvr := nextCon receiver.
+		(nextRcvr isKindOf:WindowBuilder)
+	    ] whileTrue:[
+		nextCon := nextCon sender
+	    ].
+	    "/
+	    "/ while still in SimpleDialog
+	    "/
+	    [
+		nextRcvr := nextCon receiver.
+		(nextRcvr class == SimpleDialog)
+	    ] whileTrue:[
+		nextCon := nextCon sender
+	    ].
+	    "/
+	    "/ while still in applicationModel support code
+	    "/
+	    [
+		(nextCon selector startsWith:'openDialogSpec').
+	    ] whileTrue:[
+		nextCon := nextCon sender
+	    ].
+	    self selectContext:nextCon.
+	    ^ self.
+	]
 ].
 "/ not found
 gotoDialogOpenerButton disable.
 !
 "single send; reenter with next message send"
 inspecting ifTrue:[^ self].
 self checkIfCodeIsReallyModified ifTrue:[
-(self confirm:('Code modified - step anyway ?'))
+	(self confirm:('Code modified - step anyway ?'))
-ifFalse:[
+	ifFalse:[
-^ self
+	    ^ self
-]
+	]
 ].
 canContinue ifTrue:[
-steppedContext := wrapperContext := nil.
+	steppedContext := wrapperContext := nil.
-haveControl := false.
+	haveControl := false.
-exitAction := #step.
+	exitAction := #step.
-"exit private event-loop"
+	"exit private event-loop"
-catchBlock value.
+	catchBlock value.
-"/ not reached
+	"/ not reached
-'DebugView [warning]: send failed' errorPrintCR.
+	'DebugView [warning]: send failed' errorPrintCR.
-sendButton turnOff.
+	sendButton turnOff.
 ]
 "Created: / 6.3.1997 / 21:09:36 / cg"
 "Modified: / 29.7.1998 / 21:49:29 / cg"
 !
 "Modified: 7.3.1997 / 18:39:00 / cg"
 !
 doNoTrace
 traceView notNil ifTrue:[
-traceView topView destroy.
+	traceView topView destroy.
-traceView := nil.
+	traceView := nil.
 ].
 tracing := false
 !
 doOpenReportMailApp
 | str |
 str := '' writeStream.
 str nextPutLine:('Error notification from '
-, OperatingSystem getLoginName
+		    , OperatingSystem getLoginName
-, '@'
+		    , '@'
-, OperatingSystem getHostName).
+		    , OperatingSystem getHostName).
 str cr.
 str nextPutLine:('Time: ' , Timestamp now printString).
 str nextPutLine:('STX Version: ' , Smalltalk versionString).
 str nextPutLine:('Description: ' , self label).
 "/    str nextPutLine:('Parameter: ', printedException parameter printString).
 str nextPutLine:'Backtrace:'.
 str cr.
 firstContext notNil ifTrue:[
-firstContext fullPrintAllOn:str.
+	firstContext fullPrintAllOn:str.
 ].
 str cr;cr.
 SendMailTool
-openForMessage:(str contents)
+	openForMessage:(str contents)
-withSubject:('STX Error:[', self label, ']')
+	withSubject:('STX Error:[', self label, ']')
-preOpenBlock:[:inst|
+	preOpenBlock:[:inst|
-inst recipientEntryField value:'error@exept.de'
+	    inst recipientEntryField value:'error@exept.de'
-].
+	].
 "Modified: / 20-09-2007 / 12:40:40 / cg"
 !
 doResend
 "resend - the selected context is unwound and its message resent.
 To be done after a cde change, to get nto the new method"
 self checkIfCodeIsReallyModified ifTrue:[
-(self confirm:('Code modified - resend anyway ?')) ifFalse:[
+	(self confirm:('Code modified - resend anyway ?')) ifFalse:[
-^ self
+	    ^ self
-]
+	]
 ].
 inspecting ifTrue:[
-^ self showError:'** not avail in inspecting debugger **'
+	^ self showError:'** not avail in inspecting debugger **'
 ].
 steppedContext := wrapperContext := nil.
 haveControl := false.
 exitAction := #resend. "exit private event-loop"
 doRestart
 "restart - the selected context will be restarted"
 self checkIfCodeIsReallyModified ifTrue:[
-(self confirm:('Code modified - restart anyway ?')) ifFalse:[
+	(self confirm:('Code modified - restart anyway ?')) ifFalse:[
-^ self
+	    ^ self
-]
+	]
 ].
 inspecting ifTrue:[
-selectedContext isNil ifTrue:[
+	selectedContext isNil ifTrue:[
-^ self showError:'** select a context first **'
+	    ^ self showError:'** select a context first **'
-].
+	].
-self interruptProcessWith:[ selectedContext unwindAndRestart ].
+	self interruptProcessWith:[ selectedContext unwindAndRestart ].
-^ self
+	^ self
 ].
 steppedContext := wrapperContext := nil.
 haveControl := false.
 exitAction := #restart. "exit private event-loop"
 doReturn
 "return - the selected context will do a ^nil"
 self checkIfCodeIsReallyModified ifTrue:[
-(self confirm:('Code modified - return anyway ?'))
+	(self confirm:('Code modified - return anyway ?'))
-ifFalse:[
+	ifFalse:[
-^ self
+	    ^ self
-]
+	]
 ].
 inspecting ifTrue:[
-selectedContext isNil ifTrue:[
+	selectedContext isNil ifTrue:[
-^ self showError:'** select a context first **'
+	    ^ self showError:'** select a context first **'
-].
+	].
-self interruptProcessWith:[selectedContext unwind:nil].
+	self interruptProcessWith:[selectedContext unwind:nil].
-^ self
+	^ self
 ].
 steppedContext := wrapperContext := nil.
 haveControl := false.
 exitAction := #return.
 |con method|
 inspecting ifTrue:[^ self].
 self checkIfCodeIsReallyModified ifTrue:[
-(self confirm:('Code modified - step anyway ?'))
+	(self confirm:('Code modified - step anyway ?'))
-ifFalse:[
+	ifFalse:[
-^ self
+	    ^ self
-]
+	]
 ].
 canContinue ifTrue:[
-selectedContext notNil ifTrue:[
+	selectedContext notNil ifTrue:[
-con := actualContext. "/ selectedContext.
+	    con := actualContext. "/ selectedContext.
-steppedContextLineno := actualContext lineNumber.
+	    steppedContextLineno := actualContext lineNumber.
-] ifFalse:[
+	] ifFalse:[
-con := contextArray at:2.
+	    con := contextArray at:2.
-steppedContextLineno := con lineNumber.
+	    steppedContextLineno := con lineNumber.
-].
+	].
-skipLineNr := lineNrOrNilOrMinus1.
+	skipLineNr := lineNrOrNilOrMinus1.
-lineNrOrNilOrMinus1 == -1 ifTrue:[
+	lineNrOrNilOrMinus1 == -1 ifTrue:[
-steppedContextLineno := skipLineNr := nil.
+	    steppedContextLineno := skipLineNr := nil.
-].
+	].
-(stepUntilEntering isNil and:[stepHow == #send]) ifTrue:[
+	(stepUntilEntering isNil and:[stepHow == #send]) ifTrue:[
-steppedContext := contextArray at:1.
+	    steppedContext := contextArray at:1.
-stepHow := #nextIn.
+	    stepHow := #nextIn.
-] ifFalse:[
+	] ifFalse:[
-stepHow == #nextOut ifTrue:[
+	    stepHow == #nextOut ifTrue:[
-steppedContext := con home.
+		steppedContext := con home.
-] ifFalse:[
+	    ] ifFalse:[
-steppedContext := con.
+		steppedContext := con.
-].
+	    ].
-].
+	].
-wrapperContext := nil.
+	wrapperContext := nil.
 "/ ' step con:' print. (ObjectMemory addressOf:steppedContext) printHex. ' ' print. steppedContext printCR.
-"
+	"
-if we step in a wrapped method,
+	 if we step in a wrapped method,
-prepare to skip the prolog ...
+	 prepare to skip the prolog ...
-"
+	"
-inWrap := false.
+	inWrap := false.
-method := con method.
+	method := con method.
-(method notNil
+	(method notNil
-and:[method isWrapped
+	and:[method isWrapped
-and:[method originalMethod ~~ method]]) ifTrue:[
+	and:[method originalMethod ~~ method]]) ifTrue:[
-inWrap := true
+	    inWrap := true
-].
+	].
-lineNrOrNilOrMinus1 == #return ifTrue:[
+	lineNrOrNilOrMinus1 == #return ifTrue:[
-Processor activeProcess forceInterruptOnReturnOf:con.
+	    Processor activeProcess forceInterruptOnReturnOf:con.
-].
+	].
-con := nil.
+	con := nil.
-bigStep := true.
+	bigStep := true.
-haveControl := false.
+	haveControl := false.
-exitAction := #step.
+	exitAction := #step.
-"exit private event-loop"
+	"exit private event-loop"
-catchBlock value.
+	catchBlock value.
-"/ not reached
+	"/ not reached
-'DebugView [warning]: step failed' errorPrintCR.
+	'DebugView [warning]: step failed' errorPrintCR.
-stepButton turnOff. nextButton turnOff. sendButton turnOff.
+	stepButton turnOff. nextButton turnOff. sendButton turnOff.
 ]
 "Modified: / 29.7.1998 / 21:50:16 / cg"
 !
 doStop
 "stop the process (if its running, otherwise this is a no-op)"
 inspecting ifTrue:[
-device hasColors ifTrue:[
+	self graphicsDevice hasColors ifTrue:[
-continueButton foregroundColor:Color green darkened darkened.
+	    continueButton foregroundColor:Color green darkened darkened.
-].
+	].
-continueButton label:(resources string:'Continue').
+	continueButton label:(resources string:'Continue').
-continueButton action:[self doContinue].
+	continueButton action:[self doContinue].
-self processPerform:#stop.
+	self processPerform:#stop.
-^ self
+	^ self
 ].
 "Modified: 20.10.1996 / 18:30:48 / cg"
 !
 doTerminate
 "terminate - the process has a chance for cleanup"
 self checkIfCodeIsReallyModified ifTrue:[
-(self confirm:('Code modified - terminate anyway ?'))
+	(self confirm:('Code modified - terminate anyway ?'))
-ifFalse:[
+	ifFalse:[
-^ self
+	    ^ self
-]
+	]
 ].
 inspecting ifTrue:[
-self processPerform:#terminate.
+	self processPerform:#terminate.
-^ self
+	^ self
 ].
 steppedContext := wrapperContext := nil.
 haveControl := false.
 exitAction := #terminate.
 "exit private event-loop"
 catchBlock value.
 "/ not reached (normally)
 inspecting ifFalse:[
-'DebugView [warning]: terminate failed' errorPrintCR.
+	'DebugView [warning]: terminate failed' errorPrintCR.
-(self confirm:'Regular terminate failed - do it the hard way ?') ifTrue:[
+	(self confirm:'Regular terminate failed - do it the hard way ?') ifTrue:[
-Debugger newDebugger.
+	    Debugger newDebugger.
-Processor activeProcess terminate.
+	    Processor activeProcess terminate.
-]
+	]
 ].
 terminateButton turnOff.
 "Modified: / 29.7.1998 / 21:50:35 / cg"
 !
 doTraceStep
 "tracestep - not implemented yet"
 canContinue ifTrue:[
-tracing := true.
+	tracing := true.
-self doStep
+	self doStep
 ]
 !
 exit
 "exit from menu: immediate exit from smalltalk"
-OperatingSystem exit
+OperatingSystem exit:10
 !
 findContextForWhich:aBlock thenDo:additionalAction
 |con|
 con := self selectedContext.
 con isNil ifTrue:[^ self].
 con := con sender.
 [con notNil] whileTrue:[
-(aBlock value:con) ifTrue:[
+	(aBlock value:con) ifTrue:[
-(self selectContext:con) ifTrue:[
+	    (self selectContext:con) ifTrue:[
-additionalAction value:con.
+		additionalAction value:con.
-^ self.
+		^ self.
-]
+	    ]
-].
+	].
-con := con sender.
+	con := con sender.
 ].
 Dialog information:'None found'.
 !
 |stringToSearch source|
 stringToSearch := Dialog request:'Search what:'.
 stringToSearch isEmptyOrNil ifTrue:[^ self].
 self
-findContextForWhich:[:con |
+	findContextForWhich:[:con |
-con method notNil
+	    con method notNil
-and:[ (source := con method source) notNil
+	    and:[ (source := con method source) notNil
-and:[ (source includesString:stringToSearch) ]]
+	    and:[ (source includesString:stringToSearch) ]]
-]
+	]
-thenDo:[:con |
+	thenDo:[:con |
-codeView searchFwd:stringToSearch.
+	    codeView searchFwd:stringToSearch.
-]
+	]
 !
 findContextWithValueInVariable
 |valueStringToSearch|
 valueStringToSearch := Dialog request:'Search for a local value whith printString containing:'.
 valueStringToSearch isEmptyOrNil ifTrue:[^ self].
 self
-findContextForWhich:[:con |
+	findContextForWhich:[:con |
-con argsAndVars contains:[:val | val printString asLowercase includesString: valueStringToSearch asLowercase]
+	    con argsAndVars contains:[:val | val printString asLowercase includesString: valueStringToSearch asLowercase]
-]
+	]
-thenDo:[:con | ]
+	thenDo:[:con | ]
 !
 findHandlerFor
 |exClass con|
 (con := self selectedContext) isNil ifTrue:[
-con := contextArray at:1
+	con := contextArray at:1
 ].
 con sender isNil ifTrue:[
-self information:'Context has already returned'.
+	self information:'Context has already returned'.
-^ self
+	^ self
 ].
 exClass := Dialog
-choose:'Exception class:'
+		choose:'Exception class:'
-fromList:(GenericException withAllSubclasses copyAsOrderedCollection sort:[:a :b | a name < b name])
+		fromList:(GenericException withAllSubclasses copyAsOrderedCollection sort:[:a :b | a name < b name])
-lines:25
+		lines:25
-title:'Choose Exception class'.
+		title:'Choose Exception class'.
+exClass isNil ifTrue:[^ self].
-self
-findContextForWhich:[:con |
+self
-con isHandleContext
+	findContextForWhich:[:con |
-and:[ (con receiver handlerForSignal:exClass context:con originator:nil) notNil ]
+	    con isHandleContext
-]
+	    and:[ (con receiver handlerForSignal:exClass context:con originator:nil) notNil ]
-thenDo:[:con |
+	]
-self selectContext:con sender.
+	thenDo:[:con |
-]
+	    self selectContext:con sender.
+	]
+!
+findHomeContext
+|con home|
+(con := self selectedContext) isNil ifTrue:[
+	self beep.
+	^ self.
+].
+(home := con home) isNil ifTrue:[
+	self beep.
+	^ self.
+].
+"/ still have to find it - home could be elsewhere (another process)
+"/ (i.e. cannot simply select it)
+self
+	findContextForWhich:[:con |
+	    con == home
+	]
+	thenDo:[:con |
+	    self selectContext:con.
+	]
 !
 findNextExceptionHandlerContext
 self
-findContextForWhich:[:con |
+	findContextForWhich:[:con |
-con isHandleContext
+	    con isHandleContext
-]
+	]
-thenDo:[:con |
+	thenDo:[:con |
-self selectContext:con sender.
+	    self selectContext:con sender.
-]
+	]
 !
 inspectContext
 "launch an inspector on the currently selected context"
 |con|
 (con := self selectedContext) notNil ifTrue:[
-con inspect.
+	con inspect.
 ]
 "Modified: / 17-07-2012 / 12:52:34 / cg"
+!
+inspectContextsMethod
+"launch an inspector on the currently selected context's method"
+|con|
+(con := self selectedContext) notNil ifTrue:[
+	con method inspect.
+]
 !
 inspectWidgetHierarchy
 |rcvr view|
 selectedContext isNil ifTrue:[ ^ self ].
 Tools::ViewTreeInspectorApplication isNil ifTrue:[
-Dialog warn:'Missing class: Tools::ViewTreeInspectorApplication'.
+	Dialog warn:'Missing class: Tools::ViewTreeInspectorApplication'.
-^ self.
+	^ self.
 ].
 rcvr := selectedContext receiver.
 rcvr isView ifTrue:[
-view := rcvr
+	view := rcvr
 ] ifFalse:[
-view := rcvr window
+	view := rcvr window
 ].
 Tools::ViewTreeInspectorApplication openOn:view
 !
 middleButtonMenu
 <resource: #programMenu >
 |items m nameOfExecutable|
 exclusive ifTrue:[
-items := #(
+	items := #(
-('Show More WalkBack'               showMore                )
+		    ('Show More WalkBack'               showMore                )
-('-'                                                        )
+		    ('-'                                                        )
-('Add Breakpoint'                   addBreakpoint           )
+		    ('Add Breakpoint'                   addBreakpoint           )
-('Remove Breakpoint'                removeBreakpoint        )
+		    ('Remove Breakpoint'                removeBreakpoint        )
-('Remove all Break- && Tracepoints'  removeAllBreakpoints   )
+		    ('Remove all Break- && Tracepoints'  removeAllBreakpoints   )
-('-'                                                        )
+		    ('-'                                                        )
-).
+		  ).
 ] ifFalse:[
-items := #(
+	items := #(
-('Show More WalkBack'               showMore                )
+		    ('Show More WalkBack'               showMore                )
-('-'                                                        )
+		    ('-'                                                        )
-('Skip'                             skip                    )
+		    ('Skip'                             skip                    )
-('Step Out'                         skipForReturn           )
+		    ('Step Out'                         skipForReturn           )
-('Skip until Entering...'           skipUntilEntering       )
+		    ('Skip until Entering...'           skipUntilEntering       )
-('-'                                                        )
+		    ('-'                                                        )
 "
-('Continue'                         doContinue              )
+		    ('Continue'                         doContinue              )
-('Terminate'                        doTerminate             )
+		    ('Terminate'                        doTerminate             )
-('Abort'                            doAbort                 )
+		    ('Abort'                            doAbort                 )
-('-'                                                        )
+		    ('-'                                                        )
-('Step'                             doStep                  )
+		    ('Step'                             doStep                  )
-('Send'                             doSend                  )
+		    ('Send'                             doSend                  )
-('-'                                                        )
+		    ('-'                                                        )
-('Return'                           doReturn                )
+		    ('Return'                           doReturn                )
-('Restart'                          doRestart               )
+		    ('Restart'                          doRestart               )
-('-'                                                        )
+		    ('-'                                                        )
 "
-('Add Breakpoint'                   addBreakpoint           )
+		    ('Add Breakpoint'                   addBreakpoint           )
-('Remove Breakpoint'                removeBreakpoint        )
+		    ('Remove Breakpoint'                removeBreakpoint        )
-('Remove all Break- & Tracepoints'  removeAllBreakpoints    )
+		    ('Remove all Break- & Tracepoints'  removeAllBreakpoints    )
-).
+		).
 "/        self allowBreakPointsInDebugger ifFalse:[
 "/            items := items , #(
 "/                        ('Allow Breakpoints & halt in Debugger'      doNotIgnoreBreakpoints  )
 "/                    ).
 "/            items := items , #(
 "/                        ('Ignore Breakpoints & halt in Debugger'     doIgnoreBreakpoints  )
 "/                    ).
 "/        ].
-items := items , #(
+	items := items , #(
-('-'                                                        )
+		    ('-'                                                        )
-('Browse Implementing Class'      browseImplementingClass )
+		    ('Browse Implementing Class'      browseImplementingClass )
-('Browse Receiver''s Class'             browseReceiversClass    )
+		    ('Browse Receiver''s Class'             browseReceiversClass    )
-('Browse Blocks''s Home'                browseBlocksHome    )
+		    ('Browse Blocks''s Home'                browseBlocksHome    )
 "/                    ('Browse Receivers Class Hierarchy'   browseClassHierarchy    )
 "/                    ('Browse Receivers Full Protocol'     browseFullClassProtocol )
-('Implementors'                     browseImplementors      )
+		    ('Implementors'                     browseImplementors      )
-('Implementors Of...'               browseImplementorsOf    )
+		    ('Implementors Of...'               browseImplementorsOf    )
-('Senders'                          browseSenders           )
+		    ('Senders'                          browseSenders           )
-('Senders Of...'                    browseSendersOf         )
+		    ('Senders Of...'                    browseSendersOf         )
-('-'                                                        )
+		    ('-'                                                        )
-('Inspect Context'                  inspectContext          )
+		    ('Inspect Context'                  inspectContext          )
-).
+		  ).
 ].
 items := items , #(
-('Copy WalkBack Text'               copyWalkbackText        )
+		('Copy WalkBack Text'               copyWalkbackText        )
-('-'                                                        )
+		('-'                                                        )
-('Hard Terminate (Danger)'          quickTerminate          )
+		('Hard Terminate (Danger)'          quickTerminate          )
-('='                                                        )).
+		('='                                                        )).
 nameOfExecutable := OperatingSystem nameOfSTXExecutable asFilename withoutSuffix baseName.
 nameOfExecutable = 'stx' ifTrue:[ nameOfExecutable := 'Smalltalk' ].
 items := items , {
-{ 'Exit %1 (No Confirmation)' bindWith:nameOfExecutable. #exit                 }}.
+	{ 'Exit %1 (No Confirmation)' bindWith:nameOfExecutable. #exit                 }}.
 m := PopUpMenu
-itemList:items
+		itemList:items
-resources:resources
+		resources:resources
-receiver:self
+		receiver:self
-for:contextView.
+		for:contextView.
 inspecting ifTrue:[
-m notNil ifTrue:[
+	m notNil ifTrue:[
-m disableAll:#(doTraceStep removeBreakpoint browseImplementingClass browseReceiversClass
+	    m disableAll:#(doTraceStep removeBreakpoint browseImplementingClass browseReceiversClass
-browseClassHierarchy browseFullClassProtocol
+			   browseClassHierarchy browseFullClassProtocol
-browseImplementors browseSenders browseBlocksHome inspectContext skip doStepOut).
+			   browseImplementors browseSenders browseBlocksHome inspectContext skip doStepOut).
-].
+	].
 ].
 self updateMenuItems.
 ^ m.
 "Modified: / 22-07-2013 / 15:30:05 / cg"
+!
+notShowingDenseWalkbackHolder
+^ BlockValue forLogicalNot: self showingDenseWalkbackHolder.
 !
 notShowingSupportCode
 ^ hideSupportCode == true.
 "Modified: / 12-09-2006 / 17:20:38 / cg"
 !
 openSettingsDialog
-|settingsList settingsApp|
+|settingsList|
 settingsList :=
-#(
+	#(
-#('Debugger'       #'AbstractSettingsApplication::DebuggerSettingsAppl'            )
+	   #('Debugger'       #'AbstractSettingsApplication::DebuggerSettingsAppl'            )
-#('Editor'         #'AbstractSettingsApplication::EditSettingsAppl'                )
+	   #('Editor'         #'AbstractSettingsApplication::EditSettingsAppl'                )
-#('Syntax Color'   #'AbstractSettingsApplication::SyntaxColorSettingsAppl'         )
+	   #('Syntax Color'   #'AbstractSettingsApplication::SyntaxColorSettingsAppl'         )
-#('Code Format'    #'AbstractSettingsApplication::SourceCodeFormatSettingsAppl'    )
+	   #('Code Format'    #'AbstractSettingsApplication::SourceCodeFormatSettingsAppl'    )
-).
+	).
-settingsApp := SettingsDialog new.
+SettingsDialog
-"/ settingsApp requestor:self.
+	openWithList:settingsList
-settingsApp installSettingsEntries:settingsList.
+	label:(resources string:'Debugger Settings').
-settingsApp allButOpen.
-settingsApp window label:('Debugger Settings').
-settingsApp openWindow.
 !
 processesApplication
 "if the debugged process is a GUI process,
 AND it has an applicaiton, return it.
 Otherwise, return nil"
-|p wgs app|
+|p wgs app nonModalWGs|
 p := inspectedProcess ? Processor activeProcess.
 (p notNil and:[p isGUIProcess]) ifTrue:[
-wgs := WindowGroup scheduledWindowGroups select:[:wg | wg process == p].
+	wgs := WindowGroup scheduledWindowGroups select:[:wg | wg process == p].
-wgs do:[:wg |
+	nonModalWGs := wgs reject:[:wg | wg isModal].
-|wgi|
+	nonModalWGs notEmpty ifTrue:[^ nonModalWGs first application].
-wgi := wg.
+	wgs do:[:wg |
-[wgi notNil] whileTrue:[
+	    |wgi|
-(app := wgi application) notNil ifTrue:[^ app].
-wgi isModal ifTrue:[
+	    wgi := wg.
-wgi := wgi previousGroup
+	    [wgi notNil] whileTrue:[
-] ifFalse:[
+		(app := wgi application) notNil ifTrue:[^ app].
-wgi := nil.
+		wgi isModal ifTrue:[
-]
+		    wgi := wgi previousGroup
-]
+		] ifFalse:[
-]
+		    wgi := nil.
+		]
+	    ]
+	]
 ].
 ^ nil
 !
 quickTerminate
 "quick terminate - the process will get no chance for cleanup actions"
 inspecting ifTrue:[
-self processPerform:#terminateNoSignal.
+	self processPerform:#terminateNoSignal.
-^ self
+	^ self
 ].
 steppedContext := wrapperContext := nil.
 haveControl := false.
 exitAction := #quickTerminate.
 "exit private event-loop"
 catchBlock value.
 "/ not reached (normally)
 inspecting ifFalse:[
-'DebugView [warning]: quick terminate failed' errorPrintCR.
+	'DebugView [warning]: quick terminate failed' errorPrintCR.
-(self confirm:'Regular quick terminate failed - do it the hard way ?') ifTrue:[
+	(self confirm:'Regular quick terminate failed - do it the hard way ?') ifTrue:[
-Debugger newDebugger.
+	    Debugger newDebugger.
-Processor activeProcess terminateNoSignal.
+	    Processor activeProcess terminateNoSignal.
-]
+	]
 ].
 terminateButton turnOff.
 "Modified: 10.1.1997 / 17:42:10 / cg"
 !
 selectContext:aContext
 |idx|
 idx := contextArray identityIndexOf:aContext.
 idx == 0 ifTrue:[
-"/ some contexts hidden?
+	"/ some contexts hidden?
-(self showingDenseWalkback or:[self showingSupportCode not]) ifTrue:[
+	(self showingDenseWalkback or:[self showingSupportCode not]) ifTrue:[
-Dialog information:'Context is hidden - disabling the "hideSupportCode" option (see view menu)'.
+	    Dialog information:'Context is hidden - disabling the "hideSupportCode" option (see view menu)'.
-self showFullWalkback.
+	    self showFullWalkback.
-self showingDenseWalkback:false.
+	    self showingDenseWalkback:false.
-self showingSupportCode:true.
+	    self showingSupportCode:true.
-].
+	].
-idx := contextArray identityIndexOf:aContext.
+	idx := contextArray identityIndexOf:aContext.
 ].
 idx ~~ 0 ifTrue:[
-self selectContextWithIndex:idx.
+	self selectContextWithIndex:idx.
-^ true.
+	^ true.
 ].
 ^ false
 !
 selectedContext
 contextView selection notNil ifTrue:[
-(contextView selectionValue startsWith:'**') ifFalse:[
+	(contextView selectionValue startsWith:'**') ifFalse:[
-^ (contextArray at:(contextView selection)).
+	    ^ (contextArray at:(contextView selection)).
-]
+	]
 ].
 ^ nil
 "Created: / 17-07-2012 / 12:52:10 / cg"
 !
 showFullWalkback
 "double the number of contexts shown"
 contextArray notNil ifTrue:[
-nChainShown := 9999.
+	nChainShown := 9999.
-self redisplayBacktrace.
+	self redisplayBacktrace.
 ]
 "Created: / 23-07-2012 / 12:24:02 / cg"
 !
 showMore
 "double the number of contexts shown"
 contextArray notNil ifTrue:[
-nChainShown := nChainShown * 2.
+	nChainShown := nChainShown * 2.
-self redisplayBacktrace.
+	self redisplayBacktrace.
 ]
 "Modified: / 17.11.2001 / 20:14:31 / cg"
 !
 "Created: / 10-06-2012 / 21:27:53 / cg"
 !
 showingDenseWalkback
-^ verboseBacktrace == false.
+^ self verboseBacktraceHolder value not
 "Created: / 17.11.2001 / 20:13:53 / cg"
 !
 showingDenseWalkback:aBoolean
-verboseBacktrace := aBoolean not.
+self verboseBacktraceHolder value:aBoolean not.
 self redisplayBacktrace.
 "Created: / 27-07-2012 / 14:58:00 / cg"
+!
+showingDenseWalkbackHolder
+^ BlockValue forLogicalNot:self verboseBacktraceHolder
 !
 showingSupportCode
 ^ hideSupportCode == false.
 "Created: / 27-07-2012 / 14:58:00 / cg"
 !
 showingVerboseWalkback
-^ verboseBacktrace == true.
+^ self verboseBacktraceHolder value
 "Created: / 17.11.2001 / 20:13:46 / cg"
 !
 sizeChanged:how
 "skip until some particular method is invoked."
 |selector|
 selector := Dialog
-request:'Skip until entering what (matchpattern):'
+		request:'Skip until entering what (matchpattern):'
-initialAnswer:self goodSkipUntilSelector.
+		initialAnswer:self goodSkipUntilSelector.
 selector size == 0 ifTrue:[^ self].
 stepUntilEntering := selector asSymbol.
 stepHow := #send.
 self doStep:-1.
 "Modified: 3.3.1997 / 20:56:32 / cg"
 !
 toggleShowSupportCode
 hideSupportCode ifTrue:[
-self showSupportCode
+	self showSupportCode
 ] ifFalse:[
-self hideSupportCode
+	self hideSupportCode
 ].
 "Modified: / 17-11-2001 / 20:07:45 / cg"
 "Created: / 10-06-2012 / 21:28:17 / cg"
 !
 |m mthd cls mCls rCls|
 m := contextView middleButtonMenu.
 m notNil ifTrue:[
-m disable:#removeBreakpoint.
+	m disable:#removeBreakpoint.
-m disable:#addBreakpoint.
+	m disable:#addBreakpoint.
-canShowMore ifFalse:[
+	canShowMore ifFalse:[
-m disable:#showMore
+	    m disable:#showMore
-].
+	].
-selectedContext notNil ifTrue:[
+	selectedContext notNil ifTrue:[
-m enableAll:#(browseImplementors browseSenders inspectContext skip skipForReturn).
+	    m enableAll:#(browseImplementors browseSenders inspectContext skip skipForReturn).
-mthd := selectedContext method.
+	    mthd := selectedContext method.
-mthd notNil ifTrue:[
+	    mthd notNil ifTrue:[
-cls := mCls := mthd containingClass.
+		cls := mCls := mthd containingClass.
-mthd isBreakpointed ifTrue:[
+		mthd isBreakpointed ifTrue:[
-m enable:#removeBreakpoint.
+		    m enable:#removeBreakpoint.
-] ifFalse:[
+		] ifFalse:[
-m enable:#addBreakpoint.
+		    m enable:#addBreakpoint.
-]
+		]
-].
+	    ].
-(selectedContext isBlockContext and:[selectedContext home isNil]) ifTrue:[
+	    (selectedContext isBlockContext and:[selectedContext home isNil]) ifTrue:[
-"/ a cheap block's context
+		"/ a cheap block's context
-] ifFalse:[
+	    ] ifFalse:[
-rCls := selectedContext receiver class.
+		rCls := selectedContext receiver class.
-cls isNil ifTrue:[
+		cls isNil ifTrue:[
-cls := rCls
+		    cls := rCls
-].
+		].
-].
+	    ].
-cls notNil ifTrue:[
+	    cls notNil ifTrue:[
-m enableAll:#(browseImplementingClass browseReceiversClass browseClassHierarchy browseFullClassProtocol).
+		m enableAll:#(browseImplementingClass browseReceiversClass browseClassHierarchy browseFullClassProtocol).
-rCls == mCls ifTrue:[
+		rCls == mCls ifTrue:[
-m disable:#browseReceiversClass
+		    m disable:#browseReceiversClass
-].
+		].
-mCls isNil ifTrue:[
+		mCls isNil ifTrue:[
-m disable:#browseImplementingClass
+		    m disable:#browseImplementingClass
-]
+		]
-] ifFalse:[
+	    ] ifFalse:[
-m disableAll:#(browseImplementingClass browseReceiversClass browseClassHierarchy browseFullClassProtocol).
+		m disableAll:#(browseImplementingClass browseReceiversClass browseClassHierarchy browseFullClassProtocol).
-].
+	    ].
-mthd notNil ifTrue:[
+	    mthd notNil ifTrue:[
-m enableAll:#(browseImplementingClass).
+		m enableAll:#(browseImplementingClass).
-].
+	    ].
-selectedContext isCheapBlockContext ifTrue:[
+	    selectedContext isCheapBlockContext ifTrue:[
-m disableAll:#(browseReceiversClass).
+		m disableAll:#(browseReceiversClass).
-].
+	    ].
-selectedContext receiver isBlock ifTrue:[
+	    selectedContext receiver isBlock ifTrue:[
-m enableAll:#(browseBlocksHome).
+		m enableAll:#(browseBlocksHome).
-] ifFalse:[
+	    ] ifFalse:[
-m disableAll:#(browseBlocksHome).
+		m disableAll:#(browseBlocksHome).
-].
+	    ].
-] ifFalse:[
+	] ifFalse:[
-m disableAll:#(browseImplementingClass browseReceiversClass browseClassHierarchy
+	    m disableAll:#(browseImplementingClass browseReceiversClass browseClassHierarchy
-browseBlocksHome browseFullClassProtocol).
+			   browseBlocksHome browseFullClassProtocol).
-]
+	]
 ]
 "Modified: / 19-07-2012 / 11:53:30 / cg"
 ! !
 "add a breakpoint on the selected contexts method - if any"
 |implementorClass method|
 selectedContext isNil ifTrue:[
-^ self showError:'** select a context first **'
+	^ self showError:'** select a context first **'
 ].
 (MessageTracer isNil or:[MessageTracer isLoaded not]) ifTrue:[
-^ self
+	^ self
 ].
 implementorClass := selectedContext methodClass.
 implementorClass notNil ifTrue:[
-method := implementorClass compiledMethodAt:selectedContext selector.
+	method := implementorClass compiledMethodAt:selectedContext selector.
-(method notNil and:[method isBreakpointed not]) ifTrue:[
+	(method notNil and:[method isBreakpointed not]) ifTrue:[
-method setBreakPoint
+	    method setBreakPoint
-]
+	]
 ].
 contextView middleButtonMenu disable:#addBreakpoint.
 contextView middleButtonMenu enable:#removeBreakpoint.
 "Modified: / 13.1.1998 / 00:24:47 / cg"
 doNotIgnoreBreakpoints
 self allowBreakPointsInDebugger:true
 !
+ignoreAllHaltsForCurrentProcess
+self
+	addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:false
+	orThisReceiverClass:false orCurrentProcess:true
+	orIfCalledFromMethod:nil
+	forAll:true.
+"Created: / 27-01-2012 / 11:32:14 / cg"
+!
+ignoreAllHaltsForThisReceiverClass
+self
+	addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:false
+	orThisReceiverClass:true orCurrentProcess:false
+	orIfCalledFromMethod:nil
+	forAll:true.
+"Created: / 27-01-2012 / 11:32:14 / cg"
+!
 ignoreAllHaltsForever
 self
-addIgnoredHaltForCount:-1 orTimeDuration:nil orUntilShiftKey:false
+	addIgnoredHaltForCount:-1 orTimeDuration:nil orUntilShiftKey:false
-orThisReceiverClass:false orCurrentProcess:false
+	orThisReceiverClass:false orCurrentProcess:false
-forAll:true.
+	orIfCalledFromMethod:nil
+	forAll:true.
 "Created: / 08-05-2011 / 10:19:56 / cg"
 !
+ignoreAllHaltsIfCalledFromMethod:aMethod
+self
+	addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:false
+	orThisReceiverClass:false orCurrentProcess:false
+	orIfCalledFromMethod:aMethod
+	forAll:true.
+!
 ignoreAllHaltsUntilShiftKeyIsPressed
 self
-addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:true
+	addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:true
-orThisReceiverClass:false orCurrentProcess:false
+	orThisReceiverClass:false orCurrentProcess:false
-forAll:true.
+	orIfCalledFromMethod:nil
+	forAll:true.
 "Created: / 27-01-2012 / 11:32:14 / cg"
 !
 ignoreBreakpointsWithThisParameterForever
 "Created: / 06-03-2012 / 12:35:48 / cg"
 !
 ignoreBreakpointsWithThisParameterUntilShiftKeyIsPressed
 self
-addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:true
+	addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:true
-orThisReceiverClass:false orCurrentProcess:false
+	orThisReceiverClass:false orCurrentProcess:false
-forAll:false.
+	orIfCalledFromMethod:nil
+	forAll:false.
 "Created: / 06-03-2012 / 12:35:22 / cg"
 !
 ignoreHaltForCurrentProcess
 self
-addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:false
+	addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:false
-orThisReceiverClass:false orCurrentProcess:true
+	orThisReceiverClass:false orCurrentProcess:true
-forAll:false.
+	orIfCalledFromMethod:nil
+	forAll:false.
 "Created: / 27-01-2012 / 11:32:14 / cg"
 !
 ignoreHaltForThisReceiverClass
 self
-addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:false
+	addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:false
-orThisReceiverClass:true orCurrentProcess:false
+	orThisReceiverClass:true orCurrentProcess:false
-forAll:false.
+	orIfCalledFromMethod:nil
+	forAll:false.
 "Created: / 27-01-2012 / 11:32:14 / cg"
 !
 ignoreHaltForever
 self
-addIgnoredHaltForCount:-1 orTimeDuration:nil orUntilShiftKey:false
+	addIgnoredHaltForCount:-1 orTimeDuration:nil orUntilShiftKey:false
-orThisReceiverClass:false orCurrentProcess:false
+	orThisReceiverClass:false orCurrentProcess:false
-forAll:false.
+	orIfCalledFromMethod:nil
+	forAll:false.
 "Modified: / 27-01-2012 / 11:31:37 / cg"
 !
+ignoreHaltIfCalledFromMethod:aMethod
+self
+	addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:false
+	orThisReceiverClass:false orCurrentProcess:false
+	orIfCalledFromMethod:aMethod
+	forAll:false.
+!
 ignoreHaltUntilShiftKeyIsPressed
 self
-addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:true
+	addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:true
-orThisReceiverClass:false orCurrentProcess:false
+	orThisReceiverClass:false orCurrentProcess:false
-forAll:false.
+	orIfCalledFromMethod:nil
+	forAll:false.
 "Created: / 27-01-2012 / 11:36:54 / cg"
+!
+menuForIgnoreAllBreakpointsIfCalledFromAnyOf
+<resource: #programMenu >
+^ self menuForIgnoreBreakpointIfCalledFromAnyOfForAll:true
+!
+menuForIgnoreBreakpointIfCalledFromAnyOf
+<resource: #programMenu >
+^ self menuForIgnoreBreakpointIfCalledFromAnyOfForAll:false
+!
+menuForIgnoreBreakpointIfCalledFromAnyOfForAll:forAllHaltsBoolean
+<resource: #programMenu >
+|m count already|
+m := Menu new.
+count := 0.
+already := IdentitySet new.
+contextArray do:[:con |
+	|mthd cls sel|
+	mthd := con method.
+	mthd notNil ifTrue:[
+	    mthd isWrapped ifFalse:[
+		(already includes:already) ifFalse:[
+		    already add:mthd.
+		    m addItem:(MenuItem
+				label: (mthd whoString)
+				itemValue: [ forAllHaltsBoolean
+						ifTrue:[self ignoreHaltIfCalledFromMethod:mthd]
+						ifFalse:[self ignoreAllHaltsIfCalledFromMethod:mthd]
+					   ]
+				translateLabel: false).
+		    count := count + 1.
+		    (count > 20) ifTrue:[
+			^ m
+		    ].
+		]
+	    ]
+	]
+].
+^ m
 !
 openBreakPointBrowser
 Tools::BreakpointBrowser open
 openIgnoreAllHaltsUntilTimeElapsedDialog
 |answer dT|
 [
-answer := Dialog
+	answer := Dialog
-request:(resources string:'How long should all halts/breakpoints be ignored [smh] ?')
+		    request:(resources string:'How long should all halts/breakpoints be ignored [smh] ?')
-initialAnswer:(LastIgnoreHaltDuration ? '30s') printString.
+		    initialAnswer:(LastIgnoreHaltDuration ? '30s') printString.
-answer isEmptyOrNil ifTrue:[^ self].
+	answer isEmptyOrNil ifTrue:[^ self].
-dT := TimeDuration readFrom:answer onError:[ nil ].
+	dT := TimeDuration readFrom:answer onError:[ nil ].
-dT notNil ifTrue:[
+	dT notNil ifTrue:[
-LastIgnoreHaltDuration := dT.
+	    LastIgnoreHaltDuration := dT.
-self
+	    self
-addIgnoredHaltForCount:nil orTimeDuration:dT orUntilShiftKey:false
+		addIgnoredHaltForCount:nil orTimeDuration:dT orUntilShiftKey:false
-orThisReceiverClass:false orCurrentProcess:false
+		orThisReceiverClass:false orCurrentProcess:false
-forAll:true.
+		orIfCalledFromMethod:nil
-^ self.
+		forAll:true.
-].
+	    ^ self.
+	].
 ] loop
 "Created: / 08-05-2011 / 10:19:20 / cg"
 !
 openIgnoreBreakpointsWithThisParameterNTimesDialog
 |answer n|
 [
-answer := Dialog
+	answer := Dialog
-request:(resources
+		    request:(resources
-string:'How often should breakpoints with parameter "%1" be ignored ?'
+				string:'How often should breakpoints with parameter "%1" be ignored ?'
-with:breakPointParameter)
+				with:breakPointParameter)
-initialAnswer:(LastIgnoreHaltNTimes ? '') printString.
+		    initialAnswer:(LastIgnoreHaltNTimes ? '') printString.
-answer isEmptyOrNil ifTrue:[^ self].
+	answer isEmptyOrNil ifTrue:[^ self].
-n := Integer readFrom:answer onError:nil.
+	n := Integer readFrom:answer onError:nil.
-n notNil ifTrue:[
+	n notNil ifTrue:[
-LastIgnoreHaltNTimes := n.
+	    LastIgnoreHaltNTimes := n.
-self
+	    self
-addIgnoredHaltForCount:n orTimeDuration:nil orUntilShiftKey:false
+		addIgnoredHaltForCount:n orTimeDuration:nil orUntilShiftKey:false
-orThisReceiverClass:false orCurrentProcess:false
+		orThisReceiverClass:false orCurrentProcess:false
-forAll:false.
+		orIfCalledFromMethod:nil
-^ self.
+		forAll:false.
-].
+	    ^ self.
+	].
 ] loop.
 "Modified: / 27-01-2012 / 11:31:44 / cg"
 "Created: / 06-03-2012 / 12:28:51 / cg"
 !
 openIgnoreBreakpointsWithThisParameterUntilTimeElapsedDialog
 |answer dT|
 [
-answer := Dialog
+	answer := Dialog
-request:(resources
+		    request:(resources
-string:'How long should breakpoints with parameter "%1" be ignored (s/m/h) ?'
+				string:'How long should breakpoints with parameter "%1" be ignored (s/m/h) ?'
-with:breakPointParameter)
+				with:breakPointParameter)
-initialAnswer:(LastIgnoreHaltDuration ? '30s') printString.
+		    initialAnswer:(LastIgnoreHaltDuration ? '30s') printString.
-answer isEmptyOrNil ifTrue:[^ self].
+	answer isEmptyOrNil ifTrue:[^ self].
-dT := TimeDuration readFrom:answer onError:[ nil ].
+	dT := TimeDuration readFrom:answer onError:[ nil ].
-dT notNil ifTrue:[
+	dT notNil ifTrue:[
-LastIgnoreHaltDuration := dT.
+	    LastIgnoreHaltDuration := dT.
-self
+	    self
-addIgnoredHaltForCount:nil orTimeDuration:dT orUntilShiftKey:false
+		addIgnoredHaltForCount:nil orTimeDuration:dT orUntilShiftKey:false
-orThisReceiverClass:false orCurrentProcess:false
+		orThisReceiverClass:false orCurrentProcess:false
-forAll:false.
+		orIfCalledFromMethod:nil
-^ self.
+		forAll:false.
-].
+	    ^ self.
+	].
 ] loop
 "Created: / 06-03-2012 / 12:03:36 / cg"
 !
 openIgnoreHaltNTimesDialog
 |answer n|
 [
-answer := Dialog
+	answer := Dialog
-request:(resources string:'How often should this halt be ignored ?')
+		    request:(resources string:'How often should this halt be ignored ?')
-initialAnswer:(LastIgnoreHaltNTimes ? '') printString.
+		    initialAnswer:(LastIgnoreHaltNTimes ? '') printString.
-answer isEmptyOrNil ifTrue:[^ self].
+	answer isEmptyOrNil ifTrue:[^ self].
-n := Integer readFrom:answer onError:nil.
+	n := Integer readFrom:answer onError:nil.
-n notNil ifTrue:[
+	n notNil ifTrue:[
-LastIgnoreHaltNTimes := n.
+	    LastIgnoreHaltNTimes := n.
-self
+	    self
-addIgnoredHaltForCount:n orTimeDuration:nil orUntilShiftKey:false
+		addIgnoredHaltForCount:n orTimeDuration:nil orUntilShiftKey:false
-orThisReceiverClass:false orCurrentProcess:false
+		orThisReceiverClass:false orCurrentProcess:false
-forAll:false.
+		orIfCalledFromMethod:nil
-^ self.
+		forAll:false.
-].
+	    ^ self.
+	].
 ] loop.
 "Modified: / 27-01-2012 / 11:31:44 / cg"
 !
 openIgnoreHaltUntilTimeElapsedDialog
 |answer dT|
 [
-answer := Dialog
+	answer := Dialog
-request:(resources string:'How long should this halt/breakpoint be ignored (s/m/h) ?')
+		    request:(resources string:'How long should this halt/breakpoint be ignored (s/m/h) ?')
-initialAnswer:(LastIgnoreHaltDuration ? '30s') printString.
+		    initialAnswer:(LastIgnoreHaltDuration ? '30s') printString.
-answer isEmptyOrNil ifTrue:[^ self].
+	answer isEmptyOrNil ifTrue:[^ self].
-dT := TimeDuration readFrom:answer onError:[ nil ].
+	dT := TimeDuration readFrom:answer onError:[ nil ].
-dT notNil ifTrue:[
+	dT notNil ifTrue:[
-LastIgnoreHaltDuration := dT.
+	    LastIgnoreHaltDuration := dT.
-self
+	    self
-addIgnoredHaltForCount:nil orTimeDuration:dT orUntilShiftKey:false
+		addIgnoredHaltForCount:nil orTimeDuration:dT orUntilShiftKey:false
-orThisReceiverClass:false orCurrentProcess:false
+		orThisReceiverClass:false orCurrentProcess:false
-forAll:false.
+		orIfCalledFromMethod:nil
-^ self.
+		forAll:false.
-].
+	    ^ self.
+	].
 ] loop
 "Modified: / 27-01-2012 / 11:31:47 / cg"
 !
 removeAllBreakpoints
 "remove all trace & breakpoints - if any"
-(MessageTracer notNil and:[MessageTracer isLoaded]) ifTrue:[
+self withExecuteCursorDo:[
-self withExecuteCursorDo:[
+	(MessageTracer notNil and:[MessageTracer isLoaded]) ifTrue:[
-MessageTracer unwrapAllMethods
+	    MessageTracer unwrapAllMethods
-]
+	].
+	(MethodWithBreakpoints notNil and:[MethodWithBreakpoints isLoaded]) ifTrue:[
+	    MethodWithBreakpoints removeAllBreakpoints
+	].
 ]
 "Modified: / 21.5.1998 / 01:44:43 / cg"
 !
 "remove breakpoint on the selected contexts method - if any"
 |implementorClass method|
 selectedContext isNil ifTrue:[
-^ self showError:'** select a context first **'
+	^ self showError:'** select a context first **'
 ].
 (MessageTracer isNil or:[MessageTracer isLoaded not]) ifTrue:[
-^ self
+	^ self
 ].
 implementorClass := selectedContext methodClass.
 implementorClass notNil ifTrue:[
-method := implementorClass compiledMethodAt:selectedContext selector.
+	method := implementorClass compiledMethodAt:selectedContext selector.
-(method notNil and:[method isBreakpointed]) ifTrue:[
+	(method notNil and:[method isBreakpointed]) ifTrue:[
-method clearBreakPoint
+	    method clearBreakPoint
-]
+	]
 ].
 contextView middleButtonMenu disable:#removeBreakpoint.
 contextView middleButtonMenu enable:#addBreakpoint.
 "Modified: / 13.1.1998 / 00:24:47 / cg"
 explainSelection
 |interval crsrPos|
 interval := self selectedInterval.
 interval isEmpty ifTrue:[
-crsrPos := codeView characterPositionOfCursor.
+	crsrPos := codeView characterPositionOfCursor.
-codeView characterUnderCursor isSeparator ifTrue:[
+	codeView characterUnderCursor isSeparator ifTrue:[
-crsrPos := (crsrPos - 1) max:1
+	    crsrPos := (crsrPos - 1) max:1
-].
+	].
-interval := crsrPos to:crsrPos.
+	interval := crsrPos to:crsrPos.
 ].
 self
-withNodeValueAtInterval:interval
+	withNodeValueAtInterval:interval
-do:[:value :description |
+	do:[:value :description |
-self showValue:value
+	    self showValue:value
-].
+	].
 !
 findNodeForInterval:interval
 |source|
 |node|
 self obsoleteMethodWarning.
 node := nil.
 tree nodesDo:[:each |
-(each intersectsInterval:interval) ifTrue:[
+	(each intersectsInterval:interval) ifTrue:[
-(node isNil or:[node == each parent]) ifTrue:[
+	    (node isNil or:[node == each parent]) ifTrue:[
-node := each
+		node := each
-] ifFalse:[
+	    ] ifFalse:[
-(node parent notNil
+		(node parent notNil
-and:[node parent isCascade and:[each parent isCascade]]) ifFalse:[^ nil]
+		    and:[node parent isCascade and:[each parent isCascade]]) ifFalse:[^ nil]
-]
+	    ]
-]
+	]
 ].
 ^ node
 !
 goodSkipUntilSelector
 lastStepUntilEntering notNil ifTrue:[^ lastStepUntilEntering].
 selectedContext isNil ifTrue:[^ nil].
 current := selectedContext selector.
 current isNil ifTrue:[^ nil].
 ('change:*' match:current) ifTrue:[
-^ 'update:*'
+	^ 'update:*'
 ].
 ^ nil
 !
 haltSelectors
 ^ #( #'halt' #'halt:' #'breakPoint:' #'breakPoint:info:' #'break').
 "Modified (format): / 27-01-2012 / 11:10:00 / cg"
 !
-inspectedProcess
-^ inspectedProcess
-!
 interruptProcessWith:aBlock
 "let inspected process do something, then update the context list"
 inspectedProcess isDead ifTrue:[
-self showTerminated.
+	self showTerminated.
-^ self
+	^ self
 ].
 inspectedProcess interruptWith:aBlock.
 "
 give the process a chance to run, then update
 "
 processPerform:aMessage
 "do something, then update the context list"
 inspectedProcess isDead ifTrue:[
-self showTerminated.
+	self showTerminated.
-^ self
+	^ self
 ].
 inspectedProcess perform:aMessage.
 "
 give the process a chance to run, then update
 verbose-flag setting is changed"
 |oldSelection oldContext con idx|
 contextArray notNil ifTrue:[
-self withExecuteCursorDo:[
+	self withExecuteCursorDo:[
-oldSelection := contextView selection.
+	    oldSelection := contextView selection.
-oldSelection notNil ifTrue:[
+	    oldSelection notNil ifTrue:[
-oldContext := contextArray at:oldSelection ifAbsent:nil.
+		oldContext := contextArray at:oldSelection ifAbsent:nil.
-].
+	    ].
-con := firstContext.
+	    con := firstContext.
 "/            con := contextArray at:1.
-"/ force redeisplay, even if same by changing the first entry
+	    "/ force redeisplay, even if same by changing the first entry
-contextArray size > 0 ifTrue:[
+	    contextArray size > 0 ifTrue:[
-contextArray at:1 put:nil.
+		contextArray at:1 put:nil.
-].
+	    ].
-self setContext:con.
+	    self setContext:con.
-oldContext isNil ifTrue:[
+	    oldContext isNil ifTrue:[
-idx := oldSelection
+		idx := oldSelection
-] ifFalse:[
+	    ] ifFalse:[
-idx := contextArray identityIndexOf:oldContext ifAbsent:nil.
+		idx := contextArray identityIndexOf:oldContext ifAbsent:nil.
-].
+	    ].
-contextView setSelection:idx.
+	    contextView setSelection:idx.
-idx notNil ifTrue:[
+	    idx notNil ifTrue:[
-self showSelection:idx
+		self showSelection:idx
-]
+	    ]
-]
+	]
 ]
 "Created: / 10.1.1997 / 21:36:46 / cg"
 "Modified: / 21.5.1998 / 01:47:07 / cg"
 !
 !
 showError:message
 codeView contents:(resources string:message).
 shown ifTrue:[
-exclusive ifTrue:[
+	exclusive ifTrue:[
-"/ consider this a kludge:
+	    "/ consider this a kludge:
-"/ if exclusive, cannot use flash, since it suspends
+	    "/ if exclusive, cannot use flash, since it suspends
-"/ (but we cannot suspend here ...)
+	    "/ (but we cannot suspend here ...)
-codeView redrawInverted. device flush.
+	    codeView redrawInverted. self flush.
-OperatingSystem millisecondDelay:200.
+	    OperatingSystem millisecondDelay:200.
-codeView redraw
+	    codeView redraw
-] ifFalse:[
+	] ifFalse:[
-codeView flash
+	    codeView flash
-]
+	]
 ]
 "Modified: / 18.11.2001 / 00:01:13 / cg"
 !
 updateButtonsAndMenuItemsForContext:aContext
 |m|
 m := contextView middleButtonMenu.
 m notNil ifTrue:[
-self updateMenuItems.
+	self updateMenuItems.
-(inspecting or:[AbortOperationRequest isHandledIn:aContext]) ifTrue:[
+	(inspecting or:[AbortOperationRequest isHandledIn:aContext]) ifTrue:[
-abortButton enable.
+	    abortButton enable.
-m enable:#doAbort.
+	    m enable:#doAbort.
-] ifFalse:[
+	] ifFalse:[
-abortButton disable.
+	    abortButton disable.
-m disable:#doAbort.
+	    m disable:#doAbort.
-].
+	].
-exclusive ifTrue:[
+	exclusive ifTrue:[
-terminateButton disable.
+	    terminateButton disable.
-m disable:#doTerminate.
+	    m disable:#doTerminate.
-] ifFalse:[
+	] ifFalse:[
-terminateButton enable.
+	    terminateButton enable.
-m enable:#doTerminate.
+	    m enable:#doTerminate.
-].
+	].
 ].
 mayProceed == false ifTrue:[
-continueButton disable.
+	continueButton disable.
-m notNil ifTrue:[m disable:#doContinue].
+	m notNil ifTrue:[m disable:#doContinue].
 ] ifFalse:[
-continueButton enable.
+	continueButton enable.
-m notNil ifTrue:[m enable:#doContinue]
+	m notNil ifTrue:[m enable:#doContinue]
 ].
 isStoppedInModalDialog ifTrue:[
-gotoDialogOpenerButton enable.
+	gotoDialogOpenerButton enable.
-gotoDialogOpenerButton beVisible.
+	gotoDialogOpenerButton beVisible.
 ] ifFalse:[
-gotoDialogOpenerButton beInvisible.
+	gotoDialogOpenerButton beInvisible.
+].
+(isStoppedInModalDialog not & isStoppedInApplicationAction) ifTrue:[
+	gotoApplicationActionMethodButton enable.
+	gotoApplicationActionMethodButton beVisible.
+] ifFalse:[
+	gotoApplicationActionMethodButton beInvisible.
 ].
 "Created: / 06-07-2011 / 12:24:53 / cg"
 !
 updateContext
 |oldContext idx|
 inspectedProcess state == #dead ifTrue:[
-self showTerminated.
+	self showTerminated.
-^ self
+	^ self
 ].
 oldContext := selectedContext.
 [
-(self setContextSkippingInterruptContexts:inspectedProcess suspendedContext) ifTrue:[
+	(self setContextSkippingInterruptContexts:inspectedProcess suspendedContext) ifTrue:[
-oldContext notNil ifTrue:[
+	    oldContext notNil ifTrue:[
-contextArray notNil ifTrue:[
+		contextArray notNil ifTrue:[
-idx := contextArray identityIndexOf:oldContext.
+		    idx := contextArray identityIndexOf:oldContext.
-idx ~~ 0 ifTrue:[
+		    idx ~~ 0 ifTrue:[
-self showSelection:idx
+			self showSelection:idx
-] ifFalse:[
+		    ] ifFalse:[
-codeView contents:('** context returned **')
+			codeView contents:('** context returned **')
-]
+		    ]
-]
+		]
-]
+	    ]
-].
+	].
 ] valueUninterruptably.
 "Modified: 20.10.1996 / 18:11:24 / cg"
 !
 withNodeValueAtInterval:interval do:aBlock
-|node definingNode nm nmBold varIdx parentNode receiver con receiversNonMetaClass|
+"helper for flyByHelp and explan-selection"
-"/interval printCR.
+|node definingNode nm nmBold nameSymbol
+varIdx parentNode receiver con receiversNonMetaClass|
+"/ interval printCR.
 Error
-handle:[:ex | ]
+	handle:[:ex | ]
-do:[
+	do:[
-[
+	    [
-node := self findNodeForInterval:interval
+		node := self findNodeForInterval:interval
-] valueWithWatchDog:[ ^ self ] afterMilliseconds:50.
+	    ] valueWithWatchDog:[ ^ self ] afterMilliseconds:50.
-].
+	].
 node isNil ifTrue:[ ^ self ].
 node isVariable ifFalse:[
-"/ Transcript showCR:node.
+	"/ Transcript showCR:node.
-^ self
+	^ self
 ].
 nm := node name.
 nmBold := nm allBold.
 actualContext isNil ifTrue:[^ self ].
 actualContext methodHome isNil ifTrue:[^ self ].
 receiver := actualContext methodHome receiver.
 (nm = 'self') ifTrue:[
-aBlock value:receiver value:'receiver' allBold.
+	aBlock value:receiver value:'receiver' allBold.
-^ self
+	^ self
 ].
 (nm = 'super') ifTrue:[
-aBlock value:receiver value:'receiver' allBold.
+	aBlock value:receiver value:'receiver' allBold.
-^ self
+	^ self
 ].
 (nm = 'thisContext') ifTrue:[
-aBlock value:actualContext value:'context' allBold.
+	aBlock value:actualContext value:'context' allBold.
-^ self
+	^ self
 ].
 definingNode := node whoDefines:nm.
 definingNode isNil ifTrue:[
-(receiver class allInstVarNames includes:nm) ifTrue:[
+	(receiver class allInstVarNames includes:nm) ifTrue:[
 "/aBlock value:'xIII' value:'instVar'.
-receiver class isMetaclass ifTrue:[
+	    receiver class isMetaclass ifTrue:[
-aBlock value:(receiver instVarNamed:nm) value:'classInstVar ',nmBold.
+		aBlock value:(receiver instVarNamed:nm) value:'classInstVar ',nmBold.
-] ifFalse:[
+	    ] ifFalse:[
-aBlock value:(receiver instVarNamed:nm) value:'instVar ',nmBold.
+		aBlock value:(receiver instVarNamed:nm) value:'instVar ',nmBold.
-].
+	    ].
-^ self
+	    ^ self
-].
+	].
-receiversNonMetaClass := receiver class theNonMetaclass.
+	receiversNonMetaClass := receiver class theNonMetaclass.
-(receiversNonMetaClass privateClasses contains:[:cls | cls nameWithoutPrefix = nm]) ifTrue:[
+	(receiversNonMetaClass privateClasses contains:[:cls | cls nameWithoutPrefix = nm]) ifTrue:[
-aBlock value:'' value:'private class ',nmBold.
+	    aBlock value:'' value:'private class ',nmBold.
-^ self
+	    ^ self
-].
+	].
-(receiversNonMetaClass classVarNames includes:nm) ifTrue:[
+	(receiversNonMetaClass classVarNames includes:nm) ifTrue:[
-aBlock value:((currentMethod mclass ? receiversNonMetaClass) theNonMetaclass classVarAt:nm) value:'classVar ',nmBold.
+	    aBlock value:((currentMethod mclass ? receiversNonMetaClass) theNonMetaclass classVarAt:nm) value:'classVar ',nmBold.
-^ self
+	    ^ self
-].
+	].
-receiversNonMetaClass sharedPoolNames do:[:eachPoolName |
+	receiversNonMetaClass sharedPoolNames do:[:eachPoolName |
-|pool|
+	    |pool|
-pool := Smalltalk at:eachPoolName.
+	    pool := Smalltalk at:eachPoolName.
-pool isNil ifTrue:[ pool := receiversNonMetaClass topNameSpace at:eachPoolName].
+	    pool isNil ifTrue:[ pool := receiversNonMetaClass topNameSpace at:eachPoolName].
-(pool classVarNames includes:nm) ifTrue:[
+	    (pool classVarNames includes:nm) ifTrue:[
-aBlock value:(pool classVarAt:nm) value:'poolVar ',nm allBold,' in ',eachPoolName allBold,' '.
+		aBlock value:(pool classVarAt:nm) value:'poolVar ',nm allBold,' in ',eachPoolName allBold,' '.
-^ self
+		^ self
-].
+	    ].
-].
+	].
-(Smalltalk includesKey:nm asSymbol) ifTrue:[
+	nameSymbol := nm asSymbolIfInterned.
-(Smalltalk at:nm asSymbol) isClass ifTrue:[
+	nameSymbol notNil ifTrue:[
-aBlock value:'class: ',nmBold value:nil.
+	    (Smalltalk includesKey:nameSymbol) ifTrue:[
-] ifFalse:[
+		(Smalltalk at:nameSymbol) isClass ifTrue:[
-aBlock value:(Smalltalk at:nm asSymbol) value:'global ',nmBold.
+		    aBlock value:'class: ',nmBold value:nil.
-].
+		] ifFalse:[
-^ self
+		    aBlock value:(Smalltalk at:nameSymbol) value:'global ',nmBold.
-].
+		].
-aBlock value:'' value:'unknown'.
+		^ self
-^ self
+	    ].
+	].
+	aBlock value:'' value:'unknown'.
+	^ self
 ].
 "/definingNode printCR.
 definingNode isMethod ifTrue:[
-varIdx := definingNode arguments findFirst:[:arg | arg name = nm].
+	varIdx := definingNode arguments findFirst:[:arg | arg name = nm].
-varIdx ~~ 0 ifTrue:[
+	varIdx ~~ 0 ifTrue:[
-Error
+	    Error
-handle:[:ex | ]
+		handle:[:ex | ]
-do:[ aBlock value:(actualContext methodHome argAt:varIdx) value:'methodArg ',nmBold ].
+		do:[ aBlock value:(actualContext methodHome argAt:varIdx) value:'methodArg ',nmBold ].
-^ self
+	    ^ self
-].
+	].
-varIdx := definingNode temporaries findFirst:[:var | var name = nm].
+	varIdx := definingNode temporaries findFirst:[:var | var name = nm].
-varIdx ~~ 0 ifTrue:[
+	varIdx ~~ 0 ifTrue:[
-actualContext methodHome numVars >= varIdx ifTrue:[
+	    actualContext methodHome numVars >= varIdx ifTrue:[
-Error
+		Error
-handle:[:ex | ]
+		    handle:[:ex | ]
-do:[ aBlock value:(actualContext methodHome varAt:varIdx) value:'methodVar ',nmBold ].
+		    do:[ aBlock value:(actualContext methodHome varAt:varIdx) value:'methodVar ',nmBold ].
-^ self
+		^ self
-]
+	    ]
-].
+	].
 ].
 definingNode isBlock ifTrue:[
-varIdx := definingNode arguments findFirst:[:arg | arg name = nm].
+	varIdx := definingNode arguments findFirst:[:arg | arg name = nm].
-(definingNode arguments contains:[:arg | arg name = nm]) ifTrue:[
+	(definingNode arguments contains:[:arg | arg name = nm]) ifTrue:[
-varIdx ~~ 0 ifTrue:[
+	    varIdx ~~ 0 ifTrue:[
-"/ am I in this block ?
+		"/ am I in this block ?
-(actualContext lineNumber notNil
+		(actualContext lineNumber notNil
-and:[ definingNode lastLineNumber notNil
+		and:[ definingNode lastLineNumber notNil
-and:[ (actualContext lineNumber
+		and:[ (actualContext lineNumber
-between:definingNode firstLineNumber
+			    between:definingNode firstLineNumber
-and:definingNode lastLineNumber)
+			    and:definingNode lastLineNumber)
-and:[ varIdx <= actualContext numArgs ] ]])
+		and:[ varIdx <= actualContext numArgs ] ]])
-ifTrue:[
+		ifTrue:[
-aBlock value:(actualContext argAt:varIdx) value:'blockArg ',nmBold .
+		    aBlock value:(actualContext argAt:varIdx) value:'blockArg ',nmBold .
-^ self
+		    ^ self
-].
+		].
-aBlock value:nmBold , ' is not in scope of selected context' value:nil.
+		aBlock value:nmBold , ' is not in scope of selected context' value:nil.
-^ self
+		^ self
-]
+	    ]
-].
+	].
 ].
 parentNode := definingNode parent.
 [parentNode notNil] whileTrue:[
-"/'isMethod ' print. parentNode isMethod printCR.
+	"/'isMethod ' print. parentNode isMethod printCR.
-parentNode isMethod ifTrue:[
+	parentNode isMethod ifTrue:[
-varIdx := parentNode temporaries findFirst:[:var | var name = nm].
+	    varIdx := parentNode temporaries findFirst:[:var | var name = nm].
-varIdx ~~ 0 ifTrue:[
+	    varIdx ~~ 0 ifTrue:[
-actualContext methodHome numVars >= varIdx ifTrue:[
+		actualContext methodHome numVars >= varIdx ifTrue:[
-Error
+		    Error
-handle:[:ex | ]
+			handle:[:ex | ]
-do:[ aBlock value:(actualContext methodHome varAt:varIdx) value:'methodVar ',nmBold ].
+			do:[ aBlock value:(actualContext methodHome varAt:varIdx) value:'methodVar ',nmBold ].
-^ self
+		    ^ self
-]
+		]
-].
+	    ].
-].
+	].
-"/'isBlock ' print. parentNode isBlock printCR.
+	"/'isBlock ' print. parentNode isBlock printCR.
-parentNode isBlock ifTrue:[
+	parentNode isBlock ifTrue:[
-"/ we dont have any information on the inlineability
+	    "/ we don't have any information on the inlineability
-"/ of this block here (RBParser does not know what
+	    "/ of this block here (RBParser does not know what
-"/ the compiler does.
+	    "/ the compiler does).
-"/ therefore, it is questionable if we can use the
+	    "/ therefore, it is questionable if we can use the
-"/ contexts home context here.
+	    "/ context's home context here.
-"/ am I in this block ?
+	    "/ am I in this block ?
-con := actualContext.
+	    con := actualContext.
-[con notNil
+	    [con notNil
-and:[ parentNode lastLineNumber notNil
+	    and:[ parentNode lastLineNumber notNil
-and:[ con lineNumber notNil
+	    and:[ con lineNumber notNil
-and:[ con lineNumber
+	    and:[ con lineNumber
-between:parentNode firstLineNumber
+		    between:parentNode firstLineNumber
-and:parentNode lastLineNumber ]]]] whileTrue:[
+		    and:parentNode lastLineNumber ]]]] whileTrue:[
-con := con sender.
+		con := con sender.
-].
+	    ].
-con notNil ifTrue:[
+	    con notNil ifTrue:[
-varIdx := parentNode arguments findFirst:[:arg | arg name = nm].
+		varIdx := parentNode arguments findFirst:[:arg | arg name = nm].
-varIdx ~~ 0 ifTrue:[
+		varIdx ~~ 0 ifTrue:[
-Error
+		    Error
-handle:[:ex | ]
+			handle:[:ex | ]
-do:[ aBlock value:(con argAt:varIdx) value:'blockArg ',nmBold ].
+			do:[ aBlock value:(con argAt:varIdx) value:'blockArg ',nmBold ].
-^ self
+		    ^ self
-].
+		].
-varIdx := parentNode body temporaries findFirst:[:var | var name = nm].
+		varIdx := parentNode body temporaries findFirst:[:var | var name = nm].
-varIdx ~~ 0 ifTrue:[
+		varIdx ~~ 0 ifTrue:[
-Error
+		    Error
-handle:[:ex | ]
+			handle:[:ex | ]
-do:[ aBlock value:(con varAt:varIdx) value:'blockVar ',nmBold ].
+			do:[ aBlock value:(con varAt:varIdx) value:'blockVar ',nmBold ].
-^ self
+		    ^ self
-].
+		].
-].
+	    ].
-].
+	].
-parentNode := parentNode parent.
+	parentNode := parentNode parent.
 ].
 aBlock value:nmBold , ' is not in scope of selected context' value:nil.
 "Modified: / 18-01-2011 / 17:57:34 / cg"
 ! !
 canBrowseProcessesApplication
 |p|
 p := inspectedProcess ? Processor activeProcess.
 p isNil ifTrue:[^ false].
-^ p isGUIProcess
+^ p isGUIProcess and:[self processesApplication notNil ].
 !
 canBrowseReceiversClass
 |m|
 m := contextView middleButtonMenu.
 ^ m notNil and:[m isEnabled:#browseReceiversClass]
 !
 canCloseAllDebuggers
 self class allInstancesDo:[:debugger |
-debugger ~~ self ifTrue:[
+	debugger ~~ self ifTrue:[
-debugger busy ifTrue:[^ true].
+	    debugger busy ifTrue:[^ true].
-]
+	]
 ].
 ^ false
 "Created: / 23-03-2012 / 12:40:18 / cg"
 !
 canInspectWidgetHierarchy
 |rcvr|
 ^ selectedContext notNil
 and:[ (rcvr := selectedContext receiver) isView
-or:[ rcvr isKindOf: ApplicationModel ]]
+	  or:[ rcvr isKindOf: ApplicationModel ]]
 !
 canRestart
 ^ restartButton isEnabled
 canShowMore
 ^ canShowMore
 !
+hasBlockContextSelected
+^ contextView hasSelection
+and:[ self selectedContext isBlockContext ]
+!
 hasContextSelected
 ^ contextView hasSelection
 "Created: / 17.11.2001 / 19:57:03 / cg"
 !
 selectedContextIsWrapped
 |con mthd|
 (con := self selectedContext) notNil ifTrue:[
-mthd := con method.
+	mthd := con method.
-^ mthd notNil and:[mthd isWrapped]
+	^ mthd notNil and:[mthd isWrapped]
 ].
 ^ false.
 "Modified: / 19-07-2012 / 11:36:28 / cg"
 !
 setOfHiddenCallingSelectors := aCollectionOfSymbols
 ! !
 !DebugView methodsFor:'private-breakpoints'!
-addIgnoredHaltForCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
+addIgnoredHaltForCount:countOrNil
-orThisReceiverClass:forThisReceiverClass orCurrentProcess:forCurrentProcess
+	orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
-forAll:aBoolean
+	orThisReceiverClass:forThisReceiverClass orCurrentProcess:forCurrentProcess
+	orIfCalledFromMethod:ifCalledForMethodOrNil
+	forAll:aBoolean
 |haltingContext haltingMethod lineNrOfHalt receiverClassOrNil processOrNil|
 aBoolean ifTrue:[
-haltingMethod := #all
+	haltingMethod := #all
 ] ifFalse:[
-haltingContext := self findHaltingContext.
+	haltingContext := self findHaltingContext.
-haltingContext isNil ifTrue:[
+	haltingContext isNil ifTrue:[
-Transcript showCR:'no halting context found'.
+	    Transcript showCR:'no halting context found'.
-^ self
+	    ^ self
-].
+	].
-haltingMethod := haltingContext method.
+	haltingMethod := haltingContext method.
-lineNrOfHalt := haltingContext lineNumber.
+	lineNrOfHalt := haltingContext lineNumber.
-(lineNrOfHalt isNil or:[lineNrOfHalt <= 0]) ifTrue:[
+	(lineNrOfHalt isNil or:[lineNrOfHalt <= 0]) ifTrue:[
-Transcript showCR:'no halt lineNr found'.
+	    Transcript showCR:'no halt lineNr found'.
-^ self
+	    ^ self
-].
+	].
-forThisReceiverClass ifTrue:[
+	forThisReceiverClass ifTrue:[
-receiverClassOrNil := haltingContext receiver class
+	    receiverClassOrNil := haltingContext receiver class
-].
+	].
-forCurrentProcess ifTrue:[
+	forCurrentProcess ifTrue:[
-processOrNil := Processor activeProcess
+	    processOrNil := Processor activeProcess
-].
+	].
 ].
 self class
-ignoreHaltIn:haltingMethod at:lineNrOfHalt
+	ignoreHaltIn:haltingMethod at:lineNrOfHalt
-forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
+	forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
-orReceiverClass:receiverClassOrNil orProcess:processOrNil
+	orReceiverClass:receiverClassOrNil orProcess:processOrNil
+	orIfCalledFromMethod:ifCalledForMethodOrNil
 "Created: / 27-01-2012 / 11:31:12 / cg"
 !
 canAddBreakpoint
 |haltSelectors|
 haltSelectors := self haltSelectors.
 contextArray keysAndValuesDo:[:idx :con |
-|sel con2 sel2 method|
+	|sel con2 sel2 method|
-sel := con selector.
+	sel := con selector.
-(haltSelectors includes:sel) ifTrue:[
+	(haltSelectors includes:sel) ifTrue:[
-(method := con method) notNil ifTrue:[
+	    (method := con method) notNil ifTrue:[
-method mclass == Object ifTrue:[
+		method mclass == Object ifTrue:[
-con2 := contextArray at:idx+1.
+		    con2 := contextArray at:idx+1.
-sel2 := con2 selector.
+		    sel2 := con2 selector.
-(haltSelectors includes:sel2) ifTrue:[
+		    (haltSelectors includes:sel2) ifTrue:[
-con2 method mclass == Object ifTrue:[
+			con2 method mclass == Object ifTrue:[
-^ contextArray at:idx+2.
+			    ^ contextArray at:idx+2.
-]
+			]
-].
+		    ].
-^ contextArray at:idx+1
+		    ^ contextArray at:idx+1
-].
+		].
-method mclass == Breakpoint ifTrue:[
+		method mclass == Breakpoint ifTrue:[
 (contextArray at:idx+1) infoPrintCR.
-^ contextArray at:idx+1
+		    ^ contextArray at:idx+1
-].
+		].
-].
+	    ].
-].
+	].
-con method isWrapped ifTrue:[
+	con method isWrapped ifTrue:[
-^ con
+	    ^ con
-].
+	].
 ].
 ^ nil
 "Modified: / 27-01-2012 / 11:06:02 / cg"
 !
 faster, since no resources have to be allocated in the display.
 We have to be careful to release all refs to the debuggee, though.
 Otherwise, the GC will not be able to release it."
 windowGroup notNil ifTrue:[
-windowGroup setProcess:nil.
+	windowGroup setProcess:nil.
 ].
 self releaseDebuggee.
 cachable ~~ true ifTrue:[^ self].
 "/
-"/ only cache if I am on the Display
+"/ only cache if I am on the Display (i.e. the default screen)
 "/
-device == Display ifTrue:[
+self graphicsDevice == Display ifTrue:[
-exclusive ifTrue:[
+	exclusive ifTrue:[
-CachedExclusive := self
+	    CachedExclusive := self
-] ifFalse:[
+	] ifFalse:[
-CachedDebugger := self
+	    CachedDebugger := self
-].
+	].
 ].
 ObjectMemory stepInterruptHandler == self ifTrue:[
-ObjectMemory stepInterruptHandler:nil
+	ObjectMemory stepInterruptHandler:nil
 ].
 "Modified: 10.7.1997 / 15:50:46 / stefan"
 "Modified: 31.7.1997 / 21:20:14 / cg"
 !
 isCached
 "tell whether we are a cached debugger"
 CachedExclusive == self ifTrue:[
-^ true.
+	^ true.
 ].
 CachedDebugger == self ifTrue:[
-^ true.
+	^ true.
 ].
 ^ false.
 "Created: / 10-07-1997 / 15:22:43 / stefan"
 "do not remember myself any longer for next debug session"
 cachable := false.
 CachedExclusive == self ifTrue:[
-CachedExclusive := nil.
+	CachedExclusive := nil.
 ].
 CachedDebugger == self ifTrue:[
-CachedDebugger := nil.
+	CachedDebugger := nil.
 ].
 OpenDebuggers notNil ifTrue:[
-OpenDebuggers remove:self ifAbsent:[].
+	OpenDebuggers remove:self ifAbsent:[].
 ].
 "Modified: 31.7.1997 / 21:20:11 / cg"
 ! !
 !DebugView methodsFor:'private-context handling'!
 contextListEntryFor:aContext
 ^ Error
-handle:[:ex | '???' ]
+	handle:[:ex | '???' ]
-do:[
+	do:[
-|s|
+	    |s|
-aContext selector == #doIt ifTrue:[
+	    aContext selector == #doIt ifTrue:[
-aContext receiver isNil ifTrue:[
+		aContext receiver isNil ifTrue:[
-s := 'doIt' allBold
+		    s := 'doIt' allBold
-]
+		]
-].
+	    ].
-s := Text streamContents:[:s | aContext printOn:s ].
+	    s := Text streamContents:[:s | aContext printOn:s ].
-RememberedCallChain notNil ifTrue:[
+	    RememberedCallChain notNil ifTrue:[
-(RememberedCallChain includesIdentical:aContext) ifTrue:[
+		(RememberedCallChain includesIdentical:aContext) ifTrue:[
-s := s colorizeAllWith:(Color red).
+		    s := s colorizeAllWith:(Color red).
-].
+		].
-].
+	    ].
-s
+	    s
-].
+	].
 "Created: / 21-05-2007 / 13:30:24 / cg"
 !
 is:aHomeContext inCallingChainOf:aContext
 |con|
 con := aContext.
 [con notNil and:[con ~~ aHomeContext]] whileTrue:[
-con := con sender
+	con := con sender
 ].
 ^ con notNil
 "Created: / 10-06-2012 / 18:46:29 / cg"
 !
 |c cReceiver|
 "/ look for a breakpoint-wrapper's context
 c := thisContext findNextContextWithSelector:#'raiseRequestWith:errorString:in:' or:nil or:nil.
 c isNil ifTrue:[
-^ true.
+	^ true.
 ].
 cReceiver := c receiver.
 ^ cReceiver == BreakPointInterrupt
 "Modified: / 01-08-2013 / 23:34:01 / cg"
 IgnoredHalts isNil ifTrue:[^ false].
 "/ look for a method breakpoint-wrapper's context
 c := thisContext findNextContextWithSelector:#doRaise or:nil or:nil.
 c notNil ifTrue:[
-((cReceiver := c receiver) isKindOf:NoHandlerError) ifTrue:[
+	((cReceiver := c receiver) isKindOf:NoHandlerError) ifTrue:[
-c := c sender findNextContextWithSelector:#doRaise or:nil or:nil.
+	    c := c sender findNextContextWithSelector:#doRaise or:nil or:nil.
-cReceiver := c receiver.
+	    cReceiver := c receiver.
-].
+	].
-(cReceiver isKindOf:BreakPointInterrupt) ifFalse:[
+	(cReceiver isKindOf:BreakPointInterrupt) ifFalse:[
-c := nil
+	    c := nil
-] ifTrue:[
+	] ifTrue:[
-[
+	    [
-sender := c sender.
+		sender := c sender.
-((sReceiver := sender receiver) isKindOf:BreakPointInterrupt)
+		((sReceiver := sender receiver) isKindOf:BreakPointInterrupt)
-or:[ sReceiver == BreakPointInterrupt ]
+		or:[ sReceiver == BreakPointInterrupt ]
-] whileTrue:[
+	    ] whileTrue:[
-c := sender
+		c := sender
-].
+	    ].
-[ (sender := c sender) isBlockContext ] whileTrue:[
+	    [ (sender := c sender) isBlockContext ] whileTrue:[
-c := sender
+		c := sender
-].
+	    ].
-sender := nil. "/ avoid keeping a reference to this context
+	    sender := nil. "/ avoid keeping a reference to this context
-].
+	].
 ].
+"/ Transcript showCR:c.
 c isNil ifTrue:[
-"/ look for halts or explicit breakpoints
+	"/ look for halts or explicit breakpoints
-c := thisContext findNextContextWithSelector:#halt or:#halt: or:nil.
+	c := thisContext findNextContextWithSelector:#halt or:#halt: or:nil.
-c isNil ifTrue:[
+	c isNil ifTrue:[
-c := thisContext findNextContextWithSelector:#breakPoint: or:#breakPoint:info: or:nil.
+	    c := thisContext findNextContextWithSelector:#breakPoint: or:#breakPoint:info: or:nil.
-c isNil ifTrue:[
+	    c isNil ifTrue:[
-^ false
+	       ^ false
-].
+	    ].
-breakpointParameter := c argAt:1.
+	    breakpointParameter := c argAt:1.
-(self class
+	    (self class
-isBreakpointToBeIgnoredForParameter:breakpointParameter
+		    isBreakpointToBeIgnoredForParameter:breakpointParameter
-context:(c sender)
+		    context:(c sender)
-modifyEntryCount:true
+		    modifyEntryCount:true
-) ifTrue:[
+	    ) ifTrue:[
-^ true.
+		^ true.
-].
+	    ].
-].
+	].
 ].
 c := c sender.
 "/ a code-breakpoint ?
 (c receiver isKindOf:Breakpoint) ifTrue:[
-c := c sender.
+	c := c sender.
 ].
 haltingMethod := c method.
 haltingMethod isWrapped ifTrue:[
-lineNrInHaltingMethod := 1.
+	lineNrInHaltingMethod := 1.
 ] ifFalse:[
-lineNrInHaltingMethod := c lineNumber.
+	lineNrInHaltingMethod := c lineNumber.
-"/ Transcript showCR:c.
+	"/ Transcript showCR:c.
 ].
 ^ self class
-isHaltToBeIgnoredIn:haltingMethod
+	isHaltToBeIgnoredIn:haltingMethod
-atLineNr:lineNrInHaltingMethod
+	atLineNr:lineNrInHaltingMethod
-context:c
+	context:c
-modifyEntryCount:true.
+	modifyEntryCount:true.
 "Created: / 22-10-2010 / 12:09:53 / cg"
 "Modified: / 06-03-2012 / 12:54:09 / cg"
 !
 !
 setContext:aContext releaseInspectors:releaseInspectors
 "show calling chain from aContext in the walk-back listview.
 Most complications here arise from filtering less-interesting contexts
-if not in verbose-context mode or when hiding implementation contexts."
+if not in verbose-context mode or when hiding implementation contexts.
+There is a lot of heuristic magic here, to make the debugger as useful
-|con text method caller caller2 called called2 m count c cc sndr
+as possible for the user (but not particularly for the debugger-developer)"
-suspendContext calledBySuspendContext nm h calledContext show2|
+|con sel text method caller caller2 called called2 m count c cc sndr
+suspendContext calledBySuspendContext nm h calledContext show2
+alreadyInApplicationCode verboseBacktrace|
 "/    (contextArray size > 0 and:[aContext == (contextArray at:1)]) ifTrue:[
 "/        "no change"
 "/        ^ false
 "/    ].
-isStoppedAtHaltOrBreakPoint := isStoppedAtBreakPointWithParameter := isStoppedInModalDialog := false.
+isStoppedAtHaltOrBreakPoint := isStoppedAtBreakPointWithParameter := false.
+isStoppedInModalDialog := isStoppedInApplicationAction := alreadyInApplicationCode := false.
+isStoppedAtStatementBreakpoint := false.
 firstContext := aContext.
+verboseBacktrace := self verboseBacktraceHolder value.
 m := contextView middleButtonMenu.
 m notNil ifTrue:[
 m disable:#showMore.
 ].
 text := Array with:'** no context **'.
 contextArray := nil.
 ] ifFalse:[
 text := OrderedCollection new:nChainShown.
 contextArray := OrderedCollection new:nChainShown.
 con := aContext.
 calledContext := nil.
+DebuggingContextWalk == true ifTrue:[
+'======================================' print. con printCR.
+].
+alreadyInApplicationCode :=
+con receiver isLazyValue not     "/ careful to not force futures/lazy values
+and:[con receiver isKindOf:ApplicationModel].
 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 |
-|sel|
+|selector|
 c notNil ifTrue:[
-(sel := c selector) notNil ifTrue:[
+selector := c selector.
-((sel isSymbol and:[sel startsWith:'suspend'])
+selector notNil ifTrue:[
-and:[c receiver isMemberOf:Process]) ifTrue:[
+(selector isSymbol and:[(selector startsWith:'suspend') and:[c receiver isMemberOf:Process]]) ifTrue:[
 suspendContext := c.
 calledBySuspendContext := cc.
 ].
 ].
 cc := c.
 con := suspendContext.
 calledContext := calledBySuspendContext.
 suspendContext := nil
 ].
 ].
 "/ Transcript show:'1 '; showCR:con.
 con notNil ifTrue:[
 "/ hide the halt implementation
-(self haltSelectors includes:con selector) ifTrue:[
+sel := con selector.
+(self haltSelectors includes:sel) ifTrue:[
 (method := con method) notNil ifTrue:[
 method mclass == Object ifTrue:[
-(con selector isSymbol
+(sel isSymbol and:[ sel startsWith:'breakPoint:']) ifTrue:[
-and:[ con selector startsWith:'breakPoint:']) ifTrue:[
 isStoppedAtBreakPointWithParameter := true.
 breakPointParameter := con argAt:1.
 ].
 isStoppedAtHaltOrBreakPoint := true.
 verboseBacktrace ~~ true ifTrue:[
 con := con sender.
 ]
 ] ifFalse:[
 method mclass == Breakpoint ifTrue:[
 isStoppedAtHaltOrBreakPoint := true.
+isStoppedAtStatementBreakpoint := true.
 verboseBacktrace ~~ true ifTrue:[
 calledContext := con.
 con := con sender.
-]
+].
+"/ Transcript show:'2 '; showCR:con.
 ].
 ].
 ].
 ].
 ].
+(verboseBacktrace not or:[ hideSupportCode]) ifTrue:[
+[
+con notNil
+and:[ con isBlockContext not
+and:[ con method notNil
+and:[ (con method shouldBeSkippedInDebuggersWalkBack)
+and:[ (self haltSelectors includes: con selector) not]]]]
+] whileTrue:[
+"/ Transcript show:'xx '; showCR:con.
+calledContext := con.
+con := con sender
+].
+].
 "
-get them all
+get them all, by walking along the caller chain.
+depending on the settings, skip some intermediate contexts
+(such as collection enumeration implementations), which are usually not
+of interest when debugging an application.
+On the fly, gather some additional information
+such as: are we at a halt/breakpoint, are we in a modal dialog opened,
+are we coming from an application model's action etc.
 "
 count := 0.
 [con notNil and:[count <= nChainShown]] whileTrue:[
 "/ remember any halt/breakpoint or openModal on the fly
-(self haltSelectors includes:con selector) ifTrue:[
+DebuggingContextWalk == true ifTrue:[ '---' print. con printCR ].
+sel := con selector.
+(self haltSelectors includes:sel) ifTrue:[
 (method := con method) notNil ifTrue:[
 method mclass == Object ifTrue:[
-(con selector isSymbol
+(sel isSymbol and:[sel startsWith:'breakPoint:']) ifTrue:[
-and:[con selector startsWith:'breakPoint:']) ifTrue:[
 isStoppedAtBreakPointWithParameter := true.
 breakPointParameter := con argAt:1.
 ].
 isStoppedAtHaltOrBreakPoint := true.
 ] ifFalse:[
 isStoppedAtHaltOrBreakPoint := true.
 ].
 ]
 ]
 ] ifFalse:[
-((con selector == #openModal) or:[con selector == #openModal:]) ifTrue:[
+((sel == #openModal) or:[sel == #openModal:]) ifTrue:[
 isStoppedInModalDialog := true.
-].
+] ifFalse:[
+alreadyInApplicationCode ifFalse:[
+(con receiver isLazyValue not  "/ careful to not force futures/lazy values
+and:[con receiver isKindOf:ApplicationModel]) ifTrue:[
+isStoppedInApplicationAction := true.
+]
+]
+]
 ].
 [
 |show1|
 DebuggingDebugger3 == true ifTrue:[
 'showingContext2: (' print. con print. ') --> ' print. show2 printCR.
 ].
 show2 ifTrue:[
-(self showingContext3:con nesting:count) ifTrue:[
+contextArray add:con.
-contextArray add:con.
+(MoreDebuggingDetail == true) ifTrue:[
-(MoreDebuggingDetail == true) ifTrue:[
+nm := (((ObjectMemory addressOf:con) printStringRadix:16) , ' ' , con printString).
-nm := (((ObjectMemory addressOf:con) printStringRadix:16) , ' ' , con printString).
-] ifFalse:[
-nm := self contextListEntryFor:con.
-].
-text add:nm.
-count := count + 1.
 ] ifFalse:[
-DebuggingDebugger3 == true ifTrue:[
+nm := self contextListEntryFor:con.
-'showingContext3: (' print. con print. ') --> false' printCR.
+].
-].
+text add:nm.
-]
+count := count + 1.
 ].
 "/ with hidden support code, skip over internals of exceptions
 hideSupportCode == true ifTrue:[
+"/ Transcript showCR:'x'.
 (con isBlockContext
 and:[ (h := con home) notNil
 and:[ (self is:h inCallingChainOf:con) ]]) ifTrue:[
 |blocksReceiver|
 blocksReceiver := con receiver.
 c := con sender.
 [
 c notNil
 and:[
 sndr := c sender.
 (sndr ~= h)
 and:[
 blocksReceiver isCollection         "/ skip collection implementations
 or:[ ( #( #'handle:do:'         "/ skip exception implementations
 #'handleDo:'
 #'answer:do:'
 #'ensure:' ) includes: c selector )
 or:[ #'perform:*'               "/ skip perform implementations
 match: c selector ]]
 ]
 ]
 ] whileTrue:[
 c := sndr
 ].
 c notNil ifTrue:[
 con := c "sender".
 ].
 ].
 ].
 "/
-"/ kludge: if its a wrapped method, then hide the wrap-call
+"/ kludge: if it's a wrapped method, then hide the wrap-call
 "/
 method := con method.
 method notNil ifTrue:[
 called := con.
 caller := con sender.
 ].
 caller := caller2 := nil
 ].
-"/ with dense backtrace, skip the doIt methods context
+"/ with dense backtrace, skip the doIt method's context
-"/ (its dummy anyway) and fake that contexts name
+"/ (its dummy anyway) and fake that context's name
 verboseBacktrace ~~ true ifTrue:[
 (con isBlockContext
 and:[(h := con home) == con sender
 and:[h notNil
 text add:(self contextListEntryFor:con methodHome).
 ].
 h := nil.  "/ never keep refs to contexts unless you really need them ...
 ].
-"/ with dense backtrace, dont show below the doIt
+"/ with dense backtrace, don't show contexts below the doIt
 ( verboseBacktrace ~~ true
 and:[ (self setOfHiddenCallingSelectors includes:con selector) ]) ifTrue:[
 con := nil.
 ] ifFalse:[
 calledContext := con.
 contextArray removeLast.
 text removeLast
 ].
 verboseBacktrace ~~ true ifTrue:[
-"/ in dense mode, remove the process startup
+"/ in dense mode, remove process startup contexts (if any)
-"/ contexts (if any)
 (contextArray size > 0
 and:[(con := contextArray last) methodClass == Process]) ifTrue:[
 con selector == #start ifTrue:[
 contextArray removeLast.
 Ignore any non-interesting interrupt-context."
 |con|
 con := aContext.
-verboseBacktrace ifFalse:[
+self verboseBacktraceHolder value ifFalse:[
-(con notNil and:[con selector == #threadSwitch:]) ifTrue:[
+	(con notNil and:[con selector == #threadSwitch:]) ifTrue:[
-con := con sender.
+	    con := con sender.
-(con notNil and:[con selector == #timerInterrupt]) ifTrue:[
+	    (con notNil and:[con selector == #timerInterrupt]) ifTrue:[
-con := con sender.
+		con := con sender.
-].
+	    ].
-].
+	].
 ].
 ^ self setContext:con releaseInspectors:true
 "Created: / 20.10.1996 / 18:10:21 / cg"
 "Modified: / 17.1.1998 / 12:43:19 / cg"
 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."
 |recIsException sel rec senderRec mthd mthdClass calledSel calledRec|
-verboseBacktrace == true ifTrue:[ ^true ].
+self verboseBacktraceHolder value ifTrue:[ ^true ].
 aContext isNil ifTrue:[ ^true ].
 sel := aContext selector.
 rec := aContext receiver.
 mthd := aContext method.
 mthd notNil ifTrue:[ mthdClass := mthd mclass ].
 "/ to avoid firing/waiting the lazy or future
 recIsException := (rec isLazyValue not) and:[rec isException].
 aContext sender notNil ifTrue:[
-senderRec := aContext sender receiver
+	senderRec := aContext sender receiver
 ].
 DebuggingDebugger3 == true ifTrue:[
-'showingContext1: (' print. aContext print.
+	'showingContext1: (' print. aContext print.
-') calling: (' print. calledContext print.
+	') calling: (' print. calledContext print.
-')' printCR.
+	')' printCR.
 ].
 (#(doCallHandler: doRaise
 ) includes:sel)
-ifTrue:[
+	ifTrue:[
-recIsException ifTrue:[ ^ false].
+	    recIsException ifTrue:[ ^ false].
-].
+	].
 (#(raise raiseRequest
 ) includes:sel)
-ifTrue:[
+	ifTrue:[
-recIsException ifTrue:[
+	    recIsException ifTrue:[
-(senderRec isLazyValue not
+		(senderRec isLazyValue not
-and:[ senderRec isExceptionCreator]) ifTrue:[^ false].
+		and:[ senderRec isExceptionCreator]) ifTrue:[^ false].
-].
+	    ].
-].
+	].
 (#(doWhile:
 ) includes:sel)
-ifTrue:[
+	ifTrue:[
-rec isBlock ifTrue:[
+	    rec isBlock ifTrue:[
-true "aContext sender isBlockContext" ifTrue:[^ false].
+		true "aContext sender isBlockContext" ifTrue:[^ false].
-].
+	    ].
-].
+	].
 calledContext notNil ifTrue:[
-calledSel := calledContext selector.
+	calledSel := calledContext selector.
-calledRec := calledContext receiver.
+	calledRec := calledContext receiver.
-calledRec isBlock ifTrue:[
+	calledRec isBlock ifTrue:[
-(calledSel == #ensure:) ifTrue:[^ false].
+	    (calledSel == #ensure:) ifTrue:[^ false].
-(calledSel == #ifCurtailed:) ifTrue:[^ false].
+	    (calledSel == #ifCurtailed:) ifTrue:[^ false].
-].
+	].
-(calledSel == #handle:do:) ifTrue:[^ false].
+	(calledSel == #handle:do:) ifTrue:[^ false].
-(calledSel == #answer:do:) ifTrue:[^ false].
+	(calledSel == #answer:do:) ifTrue:[^ false].
 "/        calledRec isLazyValue ifFalse:[
 "/            ((calledSel == #doWhile:)
 "/            and:[calledRec isBlock])
 "/                ifTrue:[^ false].
 "/                ifTrue:[^ false].
 "/        ].
 ].
 (#(handleDo:) includes:sel)
-ifTrue:[
+	ifTrue:[
-(calledRec isLazyValue not and:[calledRec isExceptionHandler]) ifTrue:[^ false].
+	    (calledRec isLazyValue not and:[calledRec isExceptionHandler]) ifTrue:[^ false].
-].
+	].
 (#(
-withCursor:do:
+	withCursor:do:
-withWaitCursorDo:
+	withWaitCursorDo:
-withReadCursorDo:
+	withReadCursorDo:
-withWriteCursorDo:
+	withWriteCursorDo:
-withSearchCursorDo:
+	withSearchCursorDo:
 ) includes:sel)
-ifTrue:[
+	ifTrue:[
-(mthdClass == TopView) ifTrue:[^ false].
+	    (mthdClass == TopView) ifTrue:[^ false].
-(mthdClass == ApplicationModel) ifTrue:[^ false].
+	    (mthdClass == ApplicationModel) ifTrue:[^ false].
-(mthdClass == WindowGroup) ifTrue:[^ false].
+	    (mthdClass == WindowGroup) ifTrue:[^ false].
-].
+	].
 (#(
-wait
+	wait
-waitWithTimeout:
+	waitWithTimeout:
-waitWithTimeoutMs:
+	waitWithTimeoutMs:
 ) includes:sel)
-ifTrue:[
+	ifTrue:[
-(mthdClass == Semaphore) ifTrue:[^ false].
+	    (mthdClass == Semaphore) ifTrue:[^ false].
-(mthdClass == SemaphoreSet) ifTrue:[^ false].
+	    (mthdClass == SemaphoreSet) ifTrue:[^ false].
-].
+	].
 ^ true
 "Created: / 17-11-2001 / 22:24:06 / cg"
 "Modified: / 27-07-2012 / 17:30:18 / cg"
 the set of methods which are suppressed is my (claus's) own choice."
 |sel rec mClass
 sender senderReceiver senderSelector senderReceiverClass|
-verboseBacktrace ifTrue:[^ true].
+self verboseBacktraceHolder value ifTrue:[^ true].
 aContext isNil ifTrue:[^ true].
 rec := aContext receiver.
 sel := aContext selector.
 mClass := aContext methodClass.
 sender := aContext sender.
 sender notNil ifTrue:[
-senderSelector := sender selector.
+	senderSelector := sender selector.
-senderReceiver := sender receiver.
+	senderReceiver := sender receiver.
-senderReceiverClass := senderReceiver class.
+	senderReceiverClass := senderReceiver class.
 ].
 sel == #withCursor:do: ifTrue:[
-(mClass == WindowGroup) ifTrue:[^ false].
+	(mClass == WindowGroup) ifTrue:[^ false].
-(mClass == TopView) ifTrue:[^ false].
+	(mClass == TopView) ifTrue:[^ false].
 ].
 (sel == #withExecuteCursorDo:
 or:[sel == #withWaitCursorDo:]) ifTrue:[
-(mClass == DisplaySurface) ifTrue:[^ false].
+	(mClass == DisplaySurface) ifTrue:[^ false].
 ].
 (sel == #do:
 or:[sel == #from:to:do:
 or:[sel == #keysAndValuesDo:
 or:[sel == #doWithIndex:]]]) ifTrue:[
-mClass == Array ifTrue:[^ false].
+	mClass == Array ifTrue:[^ false].
-mClass == OrderedCollection ifTrue:[^ false].
+	mClass == OrderedCollection ifTrue:[^ false].
-mClass == Set ifTrue:[^ false].
+	mClass == Set ifTrue:[^ false].
-mClass == Dictionary ifTrue:[^ false].
+	mClass == Dictionary ifTrue:[^ false].
-mClass == Interval ifTrue:[^ false].
+	mClass == Interval ifTrue:[^ false].
 ].
 (sel == #perform:
 or:[sel == #perform:with:
 or:[sel == #perform:with:with:
 or:[sel == #perform:with:with:with:
 or:[sel == #perform:with:with:with:with:
 or:[sel == #perform:withArguments:
 or:[sel == #perform:with:ifNotUnderstood:
 or:[sel == #perform:withArguments:ifNotUnderstood:]]]]]]])
 ifTrue:[
-hideSupportCode == true ifTrue:[
+	hideSupportCode == true ifTrue:[
-"/ 'x' printCR.
+	    "/ 'x' printCR.
-mClass == Object ifTrue:[^ false]
+	    mClass == Object ifTrue:[^ false]
-].
+	].
-nesting == 0 ifTrue:[^ true].
+	nesting == 0 ifTrue:[^ true].
-mClass == Array ifTrue:[^ false].
+	mClass == Array ifTrue:[^ false].
-mClass == OrderedCollection ifTrue:[^ false].
+	mClass == OrderedCollection ifTrue:[^ false].
 ].
 sel == #valueWithReceiver:arguments:selector:search:sender: ifTrue:[^ false].
 (mClass == Object) ifTrue:[
-(sel startsWith:'perform:') ifTrue:[^ false]
+	(sel startsWith:'perform:') ifTrue:[^ false]
 ].
 (mClass == Method) ifTrue:[
-(sel startsWith:'valueWithReceiver:') ifTrue:[^ false]
+	(sel startsWith:'valueWithReceiver:') ifTrue:[^ false]
 ].
 (mClass == SmallInteger) ifTrue:[
-(sel == #to:do:) ifTrue:[^ false].
+	(sel == #to:do:) ifTrue:[^ false].
-(sel == #to:by:do:) ifTrue:[^ false].
+	(sel == #to:by:do:) ifTrue:[^ false].
 ].
 (mClass == Block) ifTrue:[
-sel == #ensure: ifTrue:[^ false].
+	sel == #ensure: ifTrue:[^ false].
-sel == #ifCurtailed: ifTrue:[^ false].
+	sel == #ifCurtailed: ifTrue:[^ false].
-sel == #valueNowOrOnUnwindDo: ifTrue:[^ false].
+	sel == #valueNowOrOnUnwindDo: ifTrue:[^ false].
-sel == #valueOnUnwindDo: ifTrue:[^ false].
+	sel == #valueOnUnwindDo: ifTrue:[^ false].
-sel == #on:do: ifTrue:[^ false].
+	sel == #on:do: ifTrue:[^ false].
-sel == #value ifTrue:[^ false].
+	sel == #value ifTrue:[^ false].
-sel == #value: ifTrue:[^ false].
+	sel == #value: ifTrue:[^ false].
-sel == #value:value: ifTrue:[^ false].
+	sel == #value:value: ifTrue:[^ false].
-sel == #value:value:value: ifTrue:[^ false].
+	sel == #value:value:value: ifTrue:[^ false].
-sel == #value:value:value:value: ifTrue:[^ false].
+	sel == #value:value:value:value: ifTrue:[^ false].
-sel == #value:value:value:value:Value: ifTrue:[^ false].
+	sel == #value:value:value:value:Value: ifTrue:[^ false].
-sel == #value:value:value:value:value:value: ifTrue:[^ false].
+	sel == #value:value:value:value:value:value: ifTrue:[^ false].
 ].
 aContext isBlockContext ifTrue:[
 "/        sel == #value ifTrue:[^ false].
 "/        sel == #value: ifTrue:[^ false].
 "/            senderReceiverClass == QuerySignal ifTrue:[
 "/                ^ false
 "/            ]
 "/        ]
-aContext home notNil ifTrue:[
+	aContext home notNil ifTrue:[
-aContext home receiver isLazyValue ifFalse:[
+	    aContext home receiver isLazyValue ifFalse:[
-(aContext home receiver isMemberOf:Semaphore) ifTrue:[
+		(aContext home receiver isMemberOf:Semaphore) ifTrue:[
-(aContext home selector == #wait) ifTrue:[^ false].
+		    (aContext home selector == #wait) ifTrue:[^ false].
-(aContext home selector == #waitWithTimeoutMs:) ifTrue:[^ false].
+		    (aContext home selector == #waitWithTimeoutMs:) ifTrue:[^ false].
-]
+		]
-]
+	    ]
-]
+	]
 ].
 (rec isExceptionHandler) ifTrue:[
-sel == #handle:do: ifTrue:[^ false].
+	sel == #handle:do: ifTrue:[^ false].
-sel == #handleDo: ifTrue:[^ false].
+	sel == #handleDo: ifTrue:[^ false].
-(sel startsWith:#raise) ifTrue:[^ false].
+	(sel startsWith:#raise) ifTrue:[^ false].
-sel == #answer:do: ifTrue:[^ false].
+	sel == #answer:do: ifTrue:[^ false].
 ].
 (rec isLazyValue not and:[ rec isException] ) ifTrue:[
-sel == #doRaise ifTrue:[^ false].
+	sel == #doRaise ifTrue:[^ false].
-sel == #doCallHandler: ifTrue:[^ false].
+	sel == #doCallHandler: ifTrue:[^ false].
-(sel == #raise or:[sel == #raiseRequest]) ifTrue:[
+	(sel == #raise or:[sel == #raiseRequest]) ifTrue:[
-senderReceiverClass == Signal ifTrue:[^ false].
+	    senderReceiverClass == Signal ifTrue:[^ false].
-]
+	]
 ].
 (mClass == Context) ifTrue:[
-sel == #unwind ifTrue:[^ false].
+	sel == #unwind ifTrue:[^ false].
-sel == #unwind: ifTrue:[^ false].
+	sel == #unwind: ifTrue:[^ false].
 ].
 (mClass == ProcessorScheduler) ifTrue:[
-sel == #interruptActive ifTrue:[^ false].
+	sel == #interruptActive ifTrue:[^ false].
-sel == #threadSwitch: ifTrue:[^ false].
+	sel == #threadSwitch: ifTrue:[^ false].
-sel == #suspend: ifTrue:[^ false].
+	sel == #suspend: ifTrue:[^ false].
 ].
 mClass == Process ifTrue:[
-sel == #suspendWithState: ifTrue:[^ false].
+	sel == #suspendWithState: ifTrue:[^ false].
+].
+(sel == #break) ifTrue:[
+	(mClass == Breakpoint) ifTrue:[^ false].
 ].
 ^ true.
-"Created: / 17-11-2001 / 19:34:20 / cg"
-"Modified: / 27-07-2012 / 17:26:54 / cg"
-!
-showingContext3:aContext nesting:nesting
-"return false, if this (intermediate) context is to be skipped.
-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].
-^ true.
-"/ mhmh - what was this useful for?
-"/    rec := aContext receiver.
-"/    sel := aContext selector.
-"/    mClass := aContext methodClass.
-"/
-"/    sender := aContext sender.
-"/    sender notNil ifTrue:[
-"/        senderSelector := sender selector.
-"/        senderReceiver := sender receiver.
-"/        senderReceiverClass := senderReceiver class.
-"/    ].
-"/
-"/    (sel == #perform:
-"/    or:[sel == #perform:with:
-"/    or:[sel == #perform:with:with:
-"/    or:[sel == #perform:with:with:with:
-"/    or:[sel == #perform:with:with:with:with:
-"/    or:[sel == #perform:with:with:with:with:with:
-"/    or:[sel == #perform:withArguments:
-"/    or:[sel == #perform:with:ifNotUnderstood:
-"/    or:[sel == #perform:withArguments:ifNotUnderstood:]]]]]]]])
-"/    ifTrue:[
-"/        mClass == Object ifTrue:[^ false]
-"/    ].
-"/
-"/    ^ true.
 "Created: / 17-11-2001 / 19:34:20 / cg"
 "Modified: / 27-07-2012 / 17:26:54 / cg"
 ! !
 !DebugView methodsFor:'private-control loop'!
 controlLoop
 "this is a kludge:
-start a dispatchloop which exits when
+	start a dispatchloop which exits when
-either continue, return or step is pressed
+	either continue, return or step is pressed
 "
 haveControl := true.
 [
-[haveControl] whileTrue:[
+	[haveControl] whileTrue:[
 AbortOperationRequest handle:[:ex |
 ] do:[
-self controlLoopCatchingErrors
+	    self controlLoopCatchingErrors
 ]
-].
+	].
 ] ensure:[
-catchBlock := nil.
+	catchBlock := nil.
-haveControl := false
+	haveControl := false
 ].
 "Modified: 9.7.1996 / 18:29:09 / cg"
 !
 "setup a self removing catch-block"
 catchBlock := [catchBlock := nil. ^ nil].
 (exclusive or:[windowGroup isNil]) ifTrue:[
-"if we do not have multiple processes or its a system process
+	"if we do not have multiple processes or its a system process
-we start another dispatch loop, which exits when
+	 we start another dispatch loop, which exits when
-either continue, return or step is pressed
+	 either continue, return or step is pressed
-or (via the catchBlock) if an error occurs.
+	 or (via the catchBlock) if an error occurs.
-Since our display is an extra exclusive one,
+	 Since our display is an extra exclusive one,
-all processing for normal views stops here ...
+	 all processing for normal views stops here ...
-"
+	"
-WindowGroup setActiveGroup:windowGroup.
+	WindowGroup setActiveGroup:windowGroup.
-SignalSet anySignal handle:[:ex |
+	SignalSet anySignal handle:[:ex |
-|signal|
+	    |signal|
-signal := ex creator.
+	    signal := ex creator.
-(UserNotification accepts:signal) ifTrue:[
+	    (UserInterruptSignal accepts:signal) ifTrue:[
+Transcript showCR:'UserInterruptSignal'.
+		self topView raiseDeiconified.
+		ex proceed.
+	    ].
+	    (UserNotification accepts:signal) ifTrue:[
 Transcript showCR:'UserNotification'.
-(signal ~~ ActivityNotificationSignal) ifTrue:[
+		(signal ~~ ActivityNotificationSignal) ifTrue:[
-self showError:ex description.
+		    self showError:ex description.
-].
+		].
-ex proceed.
+		ex proceed.
-].
+	    ].
-(HaltInterrupt accepts:signal) ifTrue:[
+	    (HaltInterrupt accepts:signal) ifTrue:[
 Transcript showCR:'HaltInterrupt'.
-Transcript showCR:'Halt/Break in debugger ignored'.
+		Transcript showCR:'Halt/Break in debugger ignored'.
-ex proceed.
+		self topView raiseDeiconified.
-].
+		ex proceed.
+	    ].
-self showError:'*** Error in modal debugger:
+	    self showError:'*** Error in modal debugger:
 >>>> Signal:  ' , signal printString , '
 >>>> In:      ' , ex suspendedContext printString , '
 >>>> From:    ' , ex suspendedContext sender printString , '
 >>>>     :    ' , ex suspendedContext sender sender printString , '
 >>>>     :    ' , ex suspendedContext sender sender sender sender sender sender sender sender sender sender sender sender sender printString , '
 >>>>     :    ' , ex suspendedContext sender sender sender sender sender sender sender sender sender sender sender sender sender sender printString , '
 >>>> Message: ' , ex description , '
 caught & ignored.'.
-ex return.
+	    ex return.
-] do:[
+	] do:[
 "/            UserNotification handle:[:ex |
 "/                (ex signal == ActivityNotificationSignal) ifTrue:[
 "/                    ex proceed
 "/                ].
 "/                self showError:ex description.
 "/                ex proceed.
 "/            ] do:[
-device
+		self graphicsDevice
-dispatchModalWhile:[
+		    dispatchModalWhile:[
-Processor activeProcess state:#debug.
+			Processor activeProcess state:#debug.
-haveControl].
+			haveControl].
 "/            ]
-].
+	].
-WindowGroup setActiveGroup:nil.
+	WindowGroup setActiveGroup:nil.
 ] ifFalse:[
-"we do have multiple processes -
+	"we do have multiple processes -
-simply enter the DebugViews-Windowgroup event loop.
+	 simply enter the DebugViews-Windowgroup event loop.
-effectively suspending event processing for the currently
+	 effectively suspending event processing for the currently
-active group.
+	 active group.
-"
+	"
-SignalSet anySignal handle:[:ex |
+	SignalSet anySignal handle:[:ex |
-|answer signal eMsg|
+	    |answer signal eMsg|
-signal := ex creator.
+	    signal := ex creator.
-DebuggingDebugger ~~ true ifTrue:[
+	    DebuggingDebugger ~~ true ifTrue:[
-(signal == ActivityNotification) ifTrue:[
+		(signal == ActivityNotification) ifTrue:[
-ex proceed
+		    ex proceed
-].
+		].
-"/
+		"/
-"/ ignore exceptions which say they explicitly have to be ignored
+		"/ ignore exceptions which say they explicitly have to be ignored
-"/
+		"/
-ex catchInDebugger ifTrue:[
+		ex catchInDebugger ifTrue:[
-'DebugView [info]: ',signal printString,'-signal in debugger caught for close' infoPrintCR.
+		    'DebugView [info]: ',signal printString,'-signal in debugger caught for close' infoPrintCR.
-self destroy.
+		    self destroy.
-ex reject
+		    ex reject
-].
+		].
-"/
+		"/
-"/ ignore recursive breakpoints
+		"/ ignore recursive breakpoints
-"/
+		"/
-(signal isControlInterrupt) ifTrue:[
+		(signal isControlInterrupt) ifTrue:[
-ignoreBreakpoints == true ifTrue:[
+		    ignoreBreakpoints == true ifTrue:[
-'DebugView [info]: halt/break in debugger ignored 1' infoPrintCR.
+			'DebugView [info]: halt/break in debugger ignored 1' infoPrintCR.
-('DebugView [info]: ',ex suspendedContext printString) infoPrintCR.
+			('DebugView [info]: ',ex suspendedContext printString) infoPrintCR.
-ex proceed
+			self topView raiseDeiconified.
-].
+			ex proceed
-].
+		    ].
-(signal == TerminateProcessRequest) ifTrue:[
+		].
-"/ mhm - someone wants to shoot me down while debugging ...
+		(signal == TerminateProcessRequest) ifTrue:[
-answer := Dialog
+		    "/ mhm - someone wants to shoot me down while debugging ...
-choose:('Process termination signal arrived while debugging\\close debugger ?') withCRs
+		    answer := Dialog
-labels:#( 'Ignore' 'Close & terminate' )
+				choose:('Process termination signal arrived while debugging\\close debugger ?') withCRs
-values:#( #proceed #close )
+				labels:#( 'Ignore' 'Close & terminate' )
-default:#close.
+				values:#( #proceed #close )
-answer == #close ifTrue:[
+				default:#close.
-self destroy.
+		    answer == #close ifTrue:[
-ex reject
+			self destroy.
-].
+			ex reject
-ex return.
+		    ].
-].
+		    ex return.
-signal == RecursiveExceptionError ifTrue:[
+		].
-(ex exception creator == BreakPointInterrupt)
+		signal == RecursiveExceptionError ifTrue:[
-ifTrue:[
+		    (ex exception creator == BreakPointInterrupt)
-'DebugView [info]: recursive breakpoint in debugger ignored' infoPrintCR.
+		    ifTrue:[
-ex proceed.
+			'DebugView [info]: recursive breakpoint in debugger ignored' infoPrintCR.
-].
+			ex proceed.
+		    ].
-self showError:'*** Recursive error in debugger:
+		    self showError:'*** Recursive error in debugger:
 >>>> Signal:  ' , ex creator printString , '
 >>>>          ' , ex parameter creator printString , '
 >>>> In:      ' , ex suspendedContext printString , '
 >>>> From:    ' , ex suspendedContext sender printString , '
 >>>>     :    ' , ex suspendedContext sender sender sender printString , '
 >>>>     :    ' , ex suspendedContext sender sender sender sender printString , '
 >>>> Message: ' , ex description , '
 caught & ignored.'.
-ex return
+		    ex return
-].
+		].
-].
+	    ].
-self topView raiseDeiconified.
+	    self topView raiseDeiconified.
-eMsg := ex description.
+	    eMsg := ex description.
-(signal isControlInterrupt) ifTrue:[
+	    (signal isControlInterrupt) ifTrue:[
-eMsg := eMsg , Character cr asString , 'in ' , ex suspendedContext printString
+		eMsg := eMsg , Character cr asString , 'in ' , ex suspendedContext printString
-].
+	    ].
-Dialog aboutToOpenBoxNotificationSignal
+	    Dialog aboutToOpenBoxNotificationSignal
-handle:[:ex | ex proceed ]
+		handle:[:ex | ex proceed ]
-do:[
+		do:[
-answer := Dialog
+		    answer := Dialog
-choose:('Error in debugger:\' withCRs , eMsg , '\\debug again ?' withCRs)
+			choose:(ex creator class name,' in debugger:\' withCRs , eMsg , '\\debug again ?' withCRs)
-labels:#( 'Proceed' 'Cancel' 'Debug' )
+			labels:#( 'Proceed' 'Cancel' 'Debug' )
-values:#( #proceed #cancel #debug )
+			values:#( #proceed #cancel #debug )
-default:#cancel.
+			default:#cancel.
-].
+		].
-answer == #debug ifTrue:[
+	    answer == #debug ifTrue:[
-'DebugView [info]: caught exception - debugging' infoPrintCR.
+		'DebugView [info]: caught exception - debugging' infoPrintCR.
-Debugger
+		Debugger
-enterUnconditional:(ex suspendedContext)
+		    enterUnconditional:(ex suspendedContext)
-withMessage:'Error in debugger: ' , eMsg
+		    withMessage:(ex creator class name,' in debugger: ' , eMsg)
-mayProceed:true.
+		    mayProceed:true.
-ex proceed.
+		ex proceed.
-].
+	    ].
-answer == #proceed ifTrue:[
+	    answer == #proceed ifTrue:[
-'DebugView [info]: ignored exception - proceeding' infoPrintCR.
+		'DebugView [info]: ignored exception - proceeding' infoPrintCR.
-ex proceed.
+		ex proceed.
-].
+	    ].
-'DebugView [info]: caught exception - returning' infoPrintCR.
+	    'DebugView [info]: caught exception - returning' infoPrintCR.
-ex return.
+	    ex return.
-] do:[
+	] do:[
-"/ make certain that sub-debuggers, inspectors etc.
+	    "/ make certain that sub-debuggers, inspectors etc.
-"/ come up on my device.
+	    "/ come up on my device.
-Screen currentScreenQuerySignal answer:device
+	    Screen currentScreenQuerySignal answer:self graphicsDevice
-do:[
+	    do:[
-Dialog aboutToOpenBoxNotificationSignal
+		Dialog aboutToOpenBoxNotificationSignal
-handle:[:ex | ex proceed ]
+		    handle:[:ex | ex proceed ]
-do:[
+		    do:[
-windowGroup
+			windowGroup
-eventLoopWhile:[Processor activeProcess state:#debug.
+			    eventLoopWhile:[Processor activeProcess state:#debug.
-true]
+					      true]
-onLeave:[]
+			    onLeave:[]
-]
+		    ]
-]
+	    ]
-].
+	].
 ].
 catchBlock := nil.
 "Created: / 24-11-1995 / 20:33:45 / cg"
 "Modified: / 26-09-2012 / 15:03:39 / cg"
 |mthd app heuristic selector|
 classToDefineIn := selectorToDefine := nil.    "/ sorry - left as info to define action
 callee notNil ifTrue:[
-"/ clicked on an unimplemented method ?
+	"/ clicked on an unimplemented method ?
-callee sender notNil ifTrue:[
+	callee sender notNil ifTrue:[
-mthd := callee sender method.
+	    mthd := callee sender method.
-mthd isNil ifTrue:[
+	    mthd isNil ifTrue:[
-callee sender isBlockContext ifFalse:[
+		callee sender isBlockContext ifFalse:[
-"/ an unimplemented method
+		    "/ an unimplemented method
-selector := callee sender selector.
+		    selector := callee sender selector.
-(callee sender receiver class canUnderstand:selector) ifFalse:[
+		    (callee sender receiver class canUnderstand:selector) ifFalse:[
-classToDefineIn := callee sender receiver class.
+			classToDefineIn := callee sender receiver class.
-selectorToDefine := selector.
+			selectorToDefine := selector.
-^ true
+			^ true
-]
+		    ]
-]
+		]
-].
+	    ].
-].
+	].
-mthd := callee method.
+	mthd := callee method.
-mthd notNil ifTrue:[
+	mthd notNil ifTrue:[
-(mthd selector == #subclassResponsibility) ifTrue:[
+	    (mthd selector == #subclassResponsibility) ifTrue:[
-classToDefineIn := callee sender receiver class.
+		classToDefineIn := callee sender receiver class.
-selectorToDefine := callee sender selector.
+		selectorToDefine := callee sender selector.
-^ true.
+		^ true.
-].
+	    ].
-"/ that's a big hack, but I am tired of navigating to find the missing menu message...
+	    "/ that's a big hack, but I am tired of navigating to find the missing menu message...
-"/ you will thank me!!
+	    "/ you will thank me!!
-mthd selector == #error:mayProceed: ifTrue:[
+	    mthd selector == #error:mayProceed: ifTrue:[
-(callee receiver isKindOf:MenuPanel) ifTrue:[
+		(callee receiver isKindOf:MenuPanel) ifTrue:[
-callee sender home notNil ifTrue:[
+		    callee sender home notNil ifTrue:[
-(callee sender home selector startsWith:'accept:') ifTrue:[
+			(callee sender home selector startsWith:'accept:') ifTrue:[
-(inspectedProcess notNil and:[inspectedProcess isGUIProcess]) ifTrue:[
+			    (inspectedProcess notNil and:[inspectedProcess isGUIProcess]) ifTrue:[
-(app := self processesApplication) notNil ifTrue:[
+				(app := self processesApplication) notNil ifTrue:[
-heuristic := callee sender home argsAndVars select:[:o | o isSymbol].
+				    heuristic := callee sender home argsAndVars select:[:o | o isSymbol].
-heuristic size == 1 ifTrue:[
+				    heuristic size == 1 ifTrue:[
-classToDefineIn := app class.
+					classToDefineIn := app class.
-selectorToDefine := heuristic first.
+					selectorToDefine := heuristic first.
-^ true
+					^ true
-].
+				    ].
-].
+				].
-].
+			    ].
-].
+			].
-].
+		    ].
-].
+		].
-]
+	    ]
-]
+	]
 ].
 ^ false
 !
 showingAlreadyModifiedCode
 |source|
 codeView modified ifFalse:[^ false].
 currentMethod isNil ifTrue:[
-^ false
+	^ false
 ].
 source := currentMethod source.
 source notNil ifTrue:[
-source string = codeView contents string ifTrue:[
+	source string = codeView contents string ifTrue:[
-^ false
+	    ^ false
-].
+	].
-(source string withTabsExpanded:8) = (codeView contents string withTabsExpanded:8) ifTrue:[
+	(source string withTabsExpanded:8) = (codeView contents string withTabsExpanded:8) ifTrue:[
-^ false
+	    ^ false
-].
+	].
 ].
 ^ true
 !
 checkSelectionChangeAllowed
 self checkIfCodeIsReallyModified ifFalse:[^ true].
 (newSelection notNil
 and:[newSelection = contextView selection]) ifTrue:[
-^ true
+	^ true
 ].
 answer := Dialog
-confirmWithCancel:('Code modified - change selection anyway ?')
+		confirmWithCancel:('Code modified - change selection anyway ?')
-labels:#('No' 'No, Show Diffs' 'Yes').
+		labels:#('No' 'No, Show Diffs' 'Yes').
 answer isNil ifTrue:[^ false].
 answer == false ifTrue:[
-v := DiffCodeView
+	v := DiffCodeView
-openOn:codeView contents
+		openOn:codeView contents
-label:(resources string:'Changed code (to be accepted ?)')
+		label:(resources string:'Changed code (to be accepted ?)')
-and:currentMethod source
+		and:currentMethod source
-label:(resources string:'Method''s actual (maybe original) code').
+		label:(resources string:'Method''s actual (maybe original) code').
-v label:(resources string:'Comparing method''s code').
+	v label:(resources string:'Comparing method''s code').
-v waitUntilVisible.
+	v waitUntilVisible.
-^ false
+	^ false
 ].
 codeView modified:false.
 ^ true
 !
 codeAccept:someCode
 "user wants some code to be recompiled"
-^ self codeAccept:someCode unwind:false category:nil onCancel:nil
+ParseError handle:[:ex |
+	ex lineNumber notNil ifTrue:[
+	    codeView selectLine:ex lineNumber. "/ selectFromCharacterPosition:ex startPosition to:ex endPosition.
+	].
+	Dialog information:ex description.
+"/            ParseError new
+"/                errorMessage:aMessage startPosition:position endPosition:endPos;
+"/                parameter:self;
+"/                lineNumber:tokenLineNr; "lineNr"
+"/                raiseRequest.
+] do:[
+	^ self codeAccept:someCode unwind:false category:nil onCancel:nil
+].
 "Modified: / 28-11-2006 / 19:49:04 / cg"
 !
 codeAccept:someCode inClass:aClass unwind:doUnwind category:category onCancel:cancelAction
 "user wants some code to be recompiled.
 Optionally unwind stack to right above the changed method.
 This undwind option is a leftover from times, when the debugger had no chance to
 show the original code.
 Now, it can, and got a choice-field to select between original and changed code.
 So the undwind option is not longer used and probably completely obsolete now
 (aka: this method is always called with doUnwind==false, these days)"
 |con newMethod|
 codeView withWaitCursorDo:[
-"
+	"
-find the method-home context for this one
+	 find the method-home context for this one
-"
+	"
-doUnwind ifTrue:[
+	doUnwind ifTrue:[
-con := selectedContext.
+	    con := selectedContext.
-top := con.
+	    top := con.
-[con notNil] whileTrue:[
+	    [con notNil] whileTrue:[
-(con methodHome == selectedContext) ifTrue:[
+		(con methodHome == selectedContext) ifTrue:[
-top := con
+		    top := con
-].
+		].
-con := con sender
+		con := con sender
-].
+	    ].
-].
+	].
-"/
+	"/
-"/ provide the classes nameSpace and changefile-update answers;
+	"/ provide the classes nameSpace and changefile-update answers;
-"/ in case we accept while in another context, to not capture these settings again
+	"/ in case we accept while in another context, to not capture these settings again
-"/
+	"/
-(Class updateChangeFileQuerySignal,
+	(Class updateChangeFileQuerySignal,
-Class updateChangeListQuerySignal,
+	 Class updateChangeListQuerySignal,
-Class updateHistoryLineQuerySignal) answer:true
+	 Class updateHistoryLineQuerySignal) answer:true
-do:[
+	do:[
-Class nameSpaceQuerySignal answer:(aClass nameSpace)
+	    Class nameSpaceQuerySignal answer:(aClass nameSpace)
-do:[
+	    do:[
-"/ the compiler nowadays already cares for the package...
+		"/ the compiler nowadays already cares for the package...
-"/ no, actually, it does not in case we are in the middle of a fileIn,
+		"/ no, actually, it does not in case we are in the middle of a fileIn,
-"/ and packageQuery is already answered by someone else.
+		"/ and packageQuery is already answered by someone else.
-"/ Better make it unpackaged, in case the user makes changes to other
+		"/ Better make it unpackaged, in case the user makes changes to other
-"/ classes here (actually, I often change compiler, debugger, inspector here)
+		"/ classes here (actually, I often change compiler, debugger, inspector here)
-Class packageQuerySignal
+		Class packageQuerySignal
-answer:nil
+		answer:nil
-do:[
+		do:[
-codeView contents:someCode.
+		    codeView contents:someCode.
-Class methodRedefinitionNotification
+		    Class methodRedefinitionNotification
-answer:#keep
+			answer:#keep
-do:[
+			do:[
-"/ Use original method's programming language instead of class's one.
+			    | breakpoints |
-"/ In most cases it's the same, but it may be that the method edited
-"/ and accepted was an extension method written in another languages
+			    breakpoints := nil.
-"/ (such as Smalltalk extension to Java class or Ruby extension to
+			    codeView isCodeView2 ifTrue:[
-"/ Smalltalk class.
+				breakpoints := codeView breakpoints.
-newMethod := selectedContext programmingLanguage compilerClass
+			    ].
-compile:someCode
-forClass:aClass
+			    BreakpointQuery answer: breakpoints do:[
-inCategory:category
+				"/ Use original method's programming language instead of class's one.
-notifying:codeView.
+				"/ In most cases it's the same, but it may be that the method edited
-].
+				"/ and accepted was an extension method written in another languages
-].
+				"/ (such as Smalltalk extension to Java class or Ruby extension to
-].
+				"/ Smalltalk class.
-].
+				newMethod := selectedContext programmingLanguage compilerClassForInteractiveTools
+						 compile:someCode
-methodCodeToggleSelectionHolder value:2.    "/ showing current code
+						 forClass:aClass
-methodCodeToggle beVisible.
+						 inCategory:category
+						 notifying:codeView.
-inspecting ifFalse:[
+				"/ Kludge for accepting Java code in a debugger. The Java compiler
-(newMethod notNil and:[newMethod ~~ #Error]) ifTrue:[
+				"/ does not compile single classes by always a full class and returns
-codeView modified:false.
+				"/ the compiled class(es) rather than a method. However, we need to update
+				"/ method holder of a codeView.
-doUnwind ifTrue:[
+				"/
-"/ if it worked, and doUnwind is true,
+				"/ So, here we check whether the retuned `newMethod` is really a method,
-"/ remove everything up to and including top
+				"/ if it's a class, try to search that class for a method with the
-"/ from the context chain
+				"/ same selector as selector of currently selected context. If found,
+				"/ thet's the 'new' method we are going to show.
-selectedContext canReturn ifTrue:[
+				newMethod isBehavior ifTrue:[
-self setContext:(top "sender").
+				    | selector |
-exitAction := #restart.
-selectedContext setLineNumber:1.
+				    selector := selectedContext selector.
-self doRestart.
+				    newMethod := newMethod"actually a class" compiledMethodAt: selector ifAbsent: nil.
-] ifFalse:[
+				].
-self setContext:(top sender).
+			    ].
-exitAction := #return.
+			].
-].
+		].
-].
+	    ].
-] ifFalse:[
+	].
-^ cancelAction value
-]
+	methodCodeToggleSelectionHolder value:2.    "/ showing current code
-].
+	methodCodeToggle beVisible.
+	inspecting ifFalse:[
+	    (newMethod notNil and:[newMethod ~~ #Error]) ifTrue:[
+		codeView modified:false.
+		codeView isCodeView2 ifTrue:[
+		    codeView methodHolder value: newMethod.
+		].
+		doUnwind ifTrue:[
+		    "/ if it worked, and doUnwind is true,
+		    "/ remove everything up to and including top
+		    "/ from the context chain
+		    selectedContext canReturn ifTrue:[
+			self setContext:(top "sender").
+			exitAction := #restart.
+			selectedContext setLineNumber:1.
+			self doRestart.
+		    ] ifFalse:[
+			self setContext:(top sender).
+			exitAction := #return.
+		    ].
+		].
+	    ] ifFalse:[
+		^ cancelAction value
+	    ]
+	].
 ].
 "Created: / 17-11-2001 / 21:50:55 / cg"
 "Modified: / 29-08-2006 / 14:22:22 / cg"
-"Modified: / 28-11-2013 / 22:58:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+"Modified: / 17-08-2014 / 11:44:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 codeAccept:someCode unwind:doUnwind category:givenCategoryOrNil onCancel:cancelAction
 "user wants some code to be recompiled"
 "/                top := con
 "/            ].
 "/            con := con sender
 "/        ].
-"
+	"
-use class&selector to find the method for the compilation
+	 use class&selector to find the method for the compilation
-and compile.
+	 and compile.
-"
+	"
-category := givenCategoryOrNil.
+	category := givenCategoryOrNil.
-sel := selectedContext selector.
+	sel := selectedContext selector.
-implementorClass := selectedContext methodClass.
+	implementorClass := selectedContext methodClass.
-implementorClass isNil ifTrue:[
+	method := selectedContext method.
-method := selectedContext method.
-(method notNil and:[method mclass isNil]) ifTrue:[
+	implementorClass isNil ifTrue:[
-method := method wrapper.
+	    (method notNil and:[method mclass isNil and:[method wrapper notNil]]) ifTrue:[
-].
+		method := method wrapper.
-method notNil ifTrue:[
+	    ].
-implementorClass := method mclass
+	    method notNil ifTrue:[
-].
+		implementorClass := method mclass.
-] ifFalse:[
+		implementorClass isNil ifTrue:[
-method := selectedContext method.
+		    implementorClass := method getMclass
-].
+		].
-implementorClass notNil ifTrue:[
+	    ].
-category isNil ifTrue:[
+	].
-method isNil ifTrue:[
+	implementorClass notNil ifTrue:[
-method := implementorClass compiledMethodAt:sel.
+	    category isNil ifTrue:[
-].
+		method isNil ifTrue:[
-category := method category
+		    method := implementorClass compiledMethodAt:sel.
-]
+		].
-] ifFalse:[
+		category := method category
-receiverClass := selectedContext receiver class.
+	    ]
-implementorClass := receiverClass whichClassImplements:sel.
+	] ifFalse:[
-implementorClass := implementorClass ? receiverClass.
+	    receiverClass := selectedContext receiver class.
-implementorClass ~~ Object ifTrue:[
+	    implementorClass := receiverClass whichClassImplements:sel.
-implementorClass := Dialog
+	    implementorClass := implementorClass ? receiverClass.
-request:('Define ''%1'' in class:' bindWith:sel allBold)
+	    implementorClass ~~ Object ifTrue:[
-initialAnswer:implementorClass name
+		implementorClass := Dialog
-list:(implementorClass withAllSuperclasses collect:[:each| each name]).
+					request:('Define ''%1'' in class:' bindWith:sel allBold)
-implementorClass size == 0 ifTrue:[
+					initialAnswer:implementorClass name
-^ cancelAction value "/ cancelled
+					list:(implementorClass withAllSuperclasses collect:[:each| each name]).
-].
+		implementorClass size == 0 ifTrue:[
-implementorClass := Smalltalk classNamed:implementorClass.
+		    ^ cancelAction value "/ cancelled
-implementorClass isNil ifTrue:[
+		].
-Dialog warn:'No such class'.
+		implementorClass := Smalltalk classNamed:implementorClass.
-^ cancelAction value "/ cancelled
+		implementorClass isNil ifTrue:[
-].
+		    Dialog warn:'No such class'.
-].
+		    ^ cancelAction value "/ cancelled
-].
+		].
+	    ].
-self
+	].
-codeAccept:someCode
-inClass:implementorClass
+	self
-unwind:doUnwind
+	    codeAccept:someCode
-category:category
+	    inClass:implementorClass
-onCancel:cancelAction.
+	    unwind:doUnwind
+	    category:category
+	    onCancel:cancelAction.
 ].
 "Created: / 17-11-2001 / 21:50:55 / cg"
 "Modified: / 29-08-2006 / 14:22:22 / cg"
 !
 codeCompletion
-|cls|
+"/ I found this code 3 times (CodeView2, NewSystemBrowser and DebugView) - smell?
+"/ (can we move that to a utility - probably DoWhatIMeanSupport)
+|cls language|
 currentMethod isNil ifTrue:[ ^ self ].
 cls := currentMethod mclass.
-cls isNil ifTrue:[ ^ self ].
+cls notNil ifTrue:[
+	language := cls programmingLanguage.
+].
 UserInformation handle:[:ex |
-ex proceed.
+	ex proceed.
 ] do:[
-DoWhatIMeanSupport codeCompletionForLanguage: cls programmingLanguage class:cls context:selectedContext codeView:codeView.
+	DoWhatIMeanSupport codeCompletionForLanguage:language class:cls context:selectedContext codeView:codeView.
 ].
 "Modified: / 18-09-2013 / 14:20:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 confirm:aString
 "open a modal yes-no dialog.
 Redefined here, to answer true, if exclusice Debugger, which cannot handle popup boxes"
 (exclusive or:[windowGroup isNil]) ifTrue:[
-^ true
+	^ true
 ].
 ^ super confirm:aString.
 !
 doShowSelection:lineNr
 "user clicked on a header line - show selected code in textView.
 Also sent to autoselect an interesting context on entry."
 HaltInterrupt handle:[:ex |
-ignoreBreakpoints ifFalse:[ex reject].
+	ignoreBreakpoints ifFalse:[ex reject].
-('DebugView [info]: halt/breakpoint in debugger at %1 ignored [doShowSelection.]' bindWith:ex suspendedContext) infoPrintCR.
+	('DebugView [info]: halt/breakpoint in debugger at %1 ignored [doShowSelection.]' bindWith:ex suspendedContext) infoPrintCR.
-ex proceed
+	ex proceed
 ] do:[
-self updateForContext:lineNr
+	self updateForContext:lineNr
 ].
 self updateMenuItems
 "Modified: / 17.11.2001 / 22:12:16 / cg"
 !
 hideStackInspector
 stackInspector notNil ifTrue:[
-stackInspector destroy.
+	stackInspector destroy.
-stackInspector := nil.
+	stackInspector := nil.
-receiverInspector origin:(0.0 @ 0.0) corner:0.5 @ 1.0.
+	receiverInspector origin:(0.0 @ 0.0) corner:0.5 @ 1.0.
-contextInspector origin:(0.5 @ 0.0) corner:(1.0 @ 1.0)
+	contextInspector origin:(0.5 @ 0.0) corner:(1.0 @ 1.0)
 ]
 !
 methodCodeToggleChanged
 |sel|
 sel := contextView selection.
 sel notNil ifTrue:[
-self showSelection:sel
+	self showSelection:sel
 ]
 "Created: / 18-06-2010 / 12:29:21 / cg"
 !
 |evView focusView key rawKey inCodeView|
 evView := anEvent view.
 evView notNil ifTrue:[
-focusView := evView windowGroup focusView.
+	focusView := evView windowGroup focusView.
-focusView isNil ifTrue:[
+	focusView isNil ifTrue:[
-focusView := evView.
+	    focusView := evView.
-].
+	].
-anEvent isKeyPressEvent ifTrue:[
+	anEvent isKeyPressEvent ifTrue:[
-key := anEvent key.
+	    key := anEvent key.
-rawKey := anEvent rawKey.
+	    rawKey := anEvent rawKey.
-inCodeView := (focusView == codeView
+	    inCodeView := (focusView == codeView
-or:[focusView isComponentOf:codeView]).
+			  or:[focusView isComponentOf:codeView]).
-inCodeView ifTrue:[
+	    inCodeView ifTrue:[
-key == #CodeCompletion ifTrue:[
+		key == #CodeCompletion ifTrue:[
-"/ complete the word before/under the cursor.
+		    "/ complete the word before/under the cursor.
-self sensor
+		    self sensor
-pushUserEvent:#codeCompletion
+			pushUserEvent:#codeCompletion
-for:self
+			for:self
-withArguments:#().
+			withArguments:#().
-^ true
+		    ^ true
-].
+		].
-].
+	    ].
-].
+	].
 false ifTrue:[
-anEvent isButtonReleaseEvent ifTrue:[
+	anEvent isButtonReleaseEvent ifTrue:[
-anEvent view == codeView ifTrue:[
+	    anEvent view == codeView ifTrue:[
-(RBParser notNil and:[RBParser isLoaded])
+		(RBParser notNil and:[RBParser isLoaded])
-ifTrue:[
+		ifTrue:[
-self sensor
+		    self sensor
-pushEvent:anEvent.  "/ must be first in queue
+			pushEvent:anEvent.  "/ must be first in queue
-self sensor
+		    self sensor
-pushUserEvent:#explainSelection
+		      pushUserEvent:#explainSelection
-for:self
+		      for:self
-withArguments:nil.
+		      withArguments:nil.
-^ true  "/ eaten
+		    ^ true  "/ eaten
-]
+		]
-]
+	    ]
-].
+	].
 ].
 ].
 ^ false
 !
 setCurrentMethod:aMethodOrNil
 currentMethod := aMethodOrNil.
 !
 showSelection:lineNr
 "user clicked on a header line - show selected code in textView.
 Also sent to autoselect an interesting context on entry."
 UserNotification
-handle:[:ex |
+	handle:[:ex |
-"/ ex suspendedContext fullPrintAll.
+	    "/ ex suspendedContext fullPrintAll.
-Transcript showCR:ex description.
+	    Transcript showCR:ex description.
-"/ Transcript showCR:ex parameter.
+	    "/ Transcript showCR:ex parameter.
-ex proceed
+	    ex proceed
-]
+	]
-do:[
+	do:[
-Error
+	    Error
-handle:[:ex |
+		handle:[:ex |
-|s con|
+		    |s con|
-ex creator isControlInterrupt ifTrue:[
+		    ex creator isControlInterrupt ifTrue:[
-'DebugView [info]: halt/break ignored - while showing selection in debugger'
+			'DebugView [info]: halt/break ignored - while showing selection in debugger'
-infoPrintCR.
+			    infoPrintCR.
-ex proceed
+			ex proceed
-].
+		    ].
-('DebugView [info]: error at %1 when showing selection in debugger ignored'
+		    ('DebugView [info]: error at %1 when showing selection in debugger ignored'
-bindWith:ex suspendedContext) infoPrintCR.
+			bindWith:ex suspendedContext) infoPrintCR.
-s := '' writeStream.
+		    s := '' writeStream.
-s nextPutLine:'**** error in debugger, while extracting source'.
+		    s nextPutLine:'**** error in debugger, while extracting source'.
-s nextPutLine:'****'.
+		    s nextPutLine:'****'.
-s nextPutLine:'**** ',(ex description).
+		    s nextPutLine:'**** ',(ex description).
-s nextPutLine:'****'.
+		    s nextPutLine:'****'.
-con := ex suspendedContext.
+		    con := ex suspendedContext.
-s nextPutLine:'**** ',(con printString).
+		    s nextPutLine:'**** ',(con printString).
-con := con sender.
+		    con := con sender.
-HaltInterrupt ignoreIn:[ con fullPrintAllOn:s. ].
+		    HaltInterrupt ignoreIn:[ con fullPrintAllOn:s. ].
 "/                            [con notNil] whileTrue:[
 "/                                Error catch:[:ex |
 "/                                    s nextPutAll: '**** '; nextPutLine:(con printString).
 "/                                ].
 "/
 "/                                    con := nil
 "/                                ] ifFalse:[
 "/                                    con := con sender.
 "/                                ]
 "/                            ].
-codeView contents:(s contents).
+		    codeView contents:(s contents).
-ex return.
+		    ex return.
-]
+		]
-do:[ self doShowSelection:lineNr ]
+		do:[ self doShowSelection:lineNr ]
-]
+	]
 "Modified: / 19-07-2012 / 10:56:58 / cg"
 !
 showStackInspectorFor:con
 stackInspector isNil ifTrue:[
-receiverInspector origin:(0.0 @ 0.0) corner:0.3 @ 1.0.
+	receiverInspector origin:(0.0 @ 0.0) corner:0.3 @ 1.0.
-contextInspector origin:(0.3 @ 0.0) corner:(0.6 @ 1.0).
+	contextInspector origin:(0.3 @ 0.0) corner:(0.6 @ 1.0).
-stackInspector := InspectorView
+	stackInspector := InspectorView
-origin:(0.6 @ 0.0)
+		    origin:(0.6 @ 0.0)
-corner:(1.0 @ 1.0)
+		    corner:(1.0 @ 1.0)
-in:contextInspector superView.
+		    in:contextInspector superView.
-stackInspector realize.
+	stackInspector realize.
-stackInspector fieldListLabel:'Stack'.
+	stackInspector fieldListLabel:'Stack'.
-stackInspector hideReceiver:true
+	stackInspector hideReceiver:true
 ].
 stackInspector inspect:(con stackFrame asArray).
 stackInspector showLast
 !
 updateContextInfoFor:aContext
 "additional info as-per selected context;
 for now:
-update:with:from: - show who was responsible
+	update:with:from: - show who was responsible
 "
 |whatChanged changedObject receiver|
 aContext selector == #'update:with:from:' ifTrue:[
-receiver := aContext receiver.
+	receiver := aContext receiver.
-whatChanged := aContext argAt:1.
+	whatChanged := aContext argAt:1.
-changedObject := aContext argAt:3.
+	changedObject := aContext argAt:3.
-changedObject isBehavior ifTrue:[
+	changedObject isBehavior ifTrue:[
-contextInfoLabel label:('update (',whatChanged printString allBold,') triggered by ',changedObject name allBold).
+	    contextInfoLabel label:('update (',whatChanged printString allBold,') triggered by ',changedObject name allBold).
-^ self
+	    ^ self
-].
+	].
-receiver class allInstanceVariableNames keysAndValuesDo:[:i :nm |
+	receiver class allInstanceVariableNames keysAndValuesDo:[:i :nm |
-(receiver instVarAt:i) == changedObject ifTrue:[
+	    (receiver instVarAt:i) == changedObject ifTrue:[
-contextInfoLabel label:('update (',whatChanged printString allBold,') triggered by ',nm allBold).
+		contextInfoLabel label:('update (',whatChanged printString allBold,') triggered by ',nm allBold).
-^ self
+		^ self
-]
+	    ]
-].
+	].
-(receiver isKindOf:ApplicationModel) ifTrue:[
+	(receiver isKindOf:ApplicationModel) ifTrue:[
-receiver builder notNil ifTrue:[
+	    receiver builder notNil ifTrue:[
-(receiver builder bindings ? #()) keysAndValuesDo:[:eachAspect :eachValue |
+		(receiver builder bindings ? #()) keysAndValuesDo:[:eachAspect :eachValue |
-eachValue == changedObject ifTrue:[
+		    eachValue == changedObject ifTrue:[
-contextInfoLabel label:('update (',whatChanged printString allBold,') triggered by aspect ',eachAspect allBold).
+			contextInfoLabel label:('update (',whatChanged printString allBold,') triggered by aspect ',eachAspect allBold).
-^ self
+			^ self
-]
+		    ]
-]
+		]
-]
+	    ]
-].
+	].
-contextInfoLabel label:('update (',whatChanged printString allBold,') triggered by ',changedObject classNameWithArticle allBold).
+	contextInfoLabel label:('update (',whatChanged printString allBold,') triggered by ',changedObject classNameWithArticle allBold).
-^self.
+	^self.
 ].
 contextInfoLabel label:nil.
 !
 updateForContext:lineNr
 canDefine := cannotAcceptDueToOutdatedClass := false.
 self setCurrentMethod:nil.
 contextArray notNil ifTrue:[
-lineNr <= contextArray size ifTrue:[
+	lineNr <= contextArray size ifTrue:[
-con := contextArray at:lineNr.
+	    con := contextArray at:lineNr.
-callee := contextArray at:lineNr-1 ifAbsent:nil.
+	    callee := contextArray at:lineNr-1 ifAbsent:nil.
-].
+	].
-"
+	"
-clicking on the '** ...'-line shows more ...
+	 clicking on the '** ...'-line shows more ...
-"
+	"
-con isNil ifTrue:[
+	con isNil ifTrue:[
-line := contextView list at:lineNr.
+	    line := contextView list at:lineNr.
-(line startsWith:'**') ifTrue:[
+	    (line startsWith:'**') ifTrue:[
-self showMore.
+		self showMore.
-lineNr >= contextArray size ifTrue:[
+		lineNr >= contextArray size ifTrue:[
-contextView setSelection:lineNr.
+		    contextView setSelection:lineNr.
-con := contextArray at:lineNr ifAbsent:nil
+		    con := contextArray at:lineNr ifAbsent:nil
-]
+		]
-].
+	    ].
-con isNil ifTrue:[
+	    con isNil ifTrue:[
-codeView contents:nil.
+		codeView contents:nil.
-^ self
+		^ self
-].
+	    ].
-].
+	].
-selectedContext := con.
+	selectedContext := con.
-m := contextView middleButtonMenu.
+	m := contextView middleButtonMenu.
-(m notNil and:[selectedContext notNil]) ifTrue:[
+	(m notNil and:[selectedContext notNil]) ifTrue:[
-m enableAll:#(browseImplementors browseSenders inspectContext)
+	    m enableAll:#(browseImplementors browseSenders inspectContext)
-].
+	].
-self withExecuteCursorDo:[
+	self withExecuteCursorDo:[
-codeSet := false.
+	    codeSet := false.
-"
+	    "
-give it to the (lower right) inspector
+	     give it to the (lower right) inspector
-"
+	    "
-Error handle:[:ex |
+	    Error handle:[:ex |
-'DebugView [warning]: error while accessing context: ' errorPrint.
+		'DebugView [warning]: error while accessing context: ' errorPrint.
-ex description errorPrintCR.
+		ex description errorPrintCR.
-contextInspector inspect:nil.
+		contextInspector inspect:nil.
-contextInspector fieldListLabel:('Context').
+		contextInspector fieldListLabel:('Context').
-ex suspendedContext fullPrintAllOn: Transcript.
+		ex suspendedContext fullPrintAllOn: Transcript.
 "/ ex reject.
-] do:[
+	    ] do:[
-contextInspector inspect:con.
+		contextInspector inspect:con.
-"/ contextInspector fieldListLabel:('Context: ',con method whoString).
+		"/ contextInspector fieldListLabel:('Context: ',con method whoString).
-contextInspector tryToSelectKeyNamed:lastSelectionInContextInspector.
+		contextInspector tryToSelectKeyNamed:lastSelectionInContextInspector.
-].
+	    ].
-"/ show a stack inspector sometimes
+	    "/ show a stack inspector sometimes
-con hasStackToShow ifTrue:[
+	    con hasStackToShow ifTrue:[
-self showStackInspectorFor:con
+		self showStackInspectorFor:con
-] ifFalse:[
+	    ] ifFalse:[
-self hideStackInspector
+		self hideStackInspector
-].
+	    ].
-homeContext := con methodHome.
+	    homeContext := con methodHome.
-con canReturn ifTrue:[
+	    con canReturn ifTrue:[
-returnButton enable. restartButton enable.
+		returnButton enable. restartButton enable.
-] ifFalse:[
+	    ] ifFalse:[
-returnButton disable. restartButton disable.
+		returnButton disable. restartButton disable.
-].
+	    ].
-lineNrInMethod := con lineNumber.
+	    lineNrInMethod := con lineNumber.
-canAccept := false.
+	    canAccept := false.
-homeContext isNil ifTrue:[
+	    homeContext isNil ifTrue:[
-"
+		"
-mhmh - an optimized block
+		 mhmh - an optimized block
-should get the block here, and get the method from
+		 should get the block here, and get the method from
-that one ...
+		 that one ...
-But in the current version, there is no easy way to get to the block
+		 But in the current version, there is no easy way to get to the block
-since that one is not in the context.
+		 since that one is not in the context.
-A future new block calling scheme will fix this
+		 A future new block calling scheme will fix this
-(passing the block instead of the home as block argument).
+		 (passing the block instead of the home as block argument).
-"
+		"
-(method := con method) isNil ifTrue:[
+		(method := con method) isNil ifTrue:[
-"temporary kludge - peek into the sender context.
+		    "temporary kludge - peek into the sender context.
-If its a do-like method and there is a single block variable
+		     If its a do-like method and there is a single block variable
-in the args or temporaries, that must be the one.
+		     in the args or temporaries, that must be the one.
-This helps in some cases.
+		     This helps in some cases.
-"
+		    "
-(sender := con sender) notNil ifTrue:[
+		    (sender := con sender) notNil ifTrue:[
-tryVars := false.
+			tryVars := false.
-(selSender := sender selector) notNil ifTrue:[
+			(selSender := sender selector) notNil ifTrue:[
-((selSender endsWith:'do:') or:[selSender endsWith:'Do:']) ifTrue:[
+			    ((selSender endsWith:'do:') or:[selSender endsWith:'Do:']) ifTrue:[
-tryVars := true.
+				tryVars := true.
-]
+			    ]
-].
+			].
-tryVars ifTrue:[
+			tryVars ifTrue:[
-possibleBlocks := sender argsAndVars select:[:v | v isBlock].
+			    possibleBlocks := sender argsAndVars select:[:v | v isBlock].
-possibleBlocks := possibleBlocks select:[:b | b home isNil].
+			    possibleBlocks := possibleBlocks select:[:b | b home isNil].
-possibleBlocks size == 1 ifTrue:[
+			    possibleBlocks size == 1 ifTrue:[
-method := possibleBlocks first method.
+				method := possibleBlocks first method.
-].
+			    ].
-]
+			]
-].
+		    ].
-]
+		]
-] ifFalse:[
+	    ] ifFalse:[
-"fetch rec here - so we won't need context in doItAction"
+		"fetch rec here - so we won't need context in doItAction"
-rec := homeContext receiver.
+		rec := homeContext receiver.
-sel := homeContext selector.
+		sel := homeContext selector.
-sel notNil ifTrue:[
+		sel notNil ifTrue:[
-canAccept := true.
+		    canAccept := true.
-implementorClass := homeContext methodClass.
+		    implementorClass := homeContext methodClass.
-implementorClass isNil ifTrue:[
+		    implementorClass isNil ifTrue:[
-homeContext method notNil ifTrue:[
+			homeContext method notNil ifTrue:[
-WrappedMethod allInstancesDo:[:wrapped |
+			    WrappedMethod allInstancesDo:[:wrapped |
-wrapped originalMethod == homeContext method ifTrue:[
+				wrapped originalMethod == homeContext method ifTrue:[
-implementorClass := wrapped mclass
+				    implementorClass := wrapped mclass
-]
+				]
-].
+			    ].
-implementorClass isNil ifTrue:[
+			    implementorClass isNil ifTrue:[
-(homeContext searchClass notNil
+				(homeContext searchClass notNil
-and:[homeContext searchClass isObsolete]) ifTrue:[
+				and:[homeContext searchClass isObsolete]) ifTrue:[
-cannotAcceptDueToOutdatedClass := true.
+				    cannotAcceptDueToOutdatedClass := true.
-]
+				]
-].
+			    ].
-].
+			].
-].
+		    ].
-implementorClass isNil ifTrue:[
+		    implementorClass isNil ifTrue:[
-Error handle:[:ex |
+			Error handle:[:ex |
 "/ not covered by Error, anyway
 "/                            ex signal == BreakPointInterrupt ifTrue:[
 "/                                ex proceed.
 "/                            ].
-code := 'error while asking method for its source'.
+			    code := 'error while asking method for its source'.
-code := code , Character cr , ex creator printString.
+			    code := code , Character cr , ex creator printString.
-code := code , Character cr , 'in: ' , ex suspendedContext printString.
+			    code := code , Character cr , 'in: ' , ex suspendedContext printString.
-canAccept := false.
+			    canAccept := false.
-ex return.
+			    ex return.
-] do:[
+			] do:[
-"
+			    "
-special: look if this context was created by
+			     special: look if this context was created by
-valueWithReceiver kind of method invocation;
+			     valueWithReceiver kind of method invocation;
-if so, grab the method from the sender and show it
+			     if so, grab the method from the sender and show it
-"
+			    "
-((sender := homeContext sender) notNil
+			    ((sender := homeContext sender) notNil
-and:[((sender selector ? '') startsWith:'valueWithReceiver:')
+			    and:[((sender selector ? '') startsWith:'valueWithReceiver:')
-and:[sender receiver isMethod]]) ifTrue:[
+			    and:[sender receiver isMethod]]) ifTrue:[
-method := sender receiver.
+				method := sender receiver.
-canAccept := false.
+				canAccept := false.
-] ifFalse:[
+			    ] ifFalse:[
-(method := con method) notNil ifTrue:[
+				(method := con method) notNil ifTrue:[
-canAccept := false.
+				    canAccept := false.
-]
+				]
-].
+			    ].
-]
+			]
-] ifFalse:[
+		    ] ifFalse:[
-method := implementorClass compiledMethodAt:sel.
+			method := implementorClass compiledMethodAt:sel.
-].
+		    ].
-]
+		]
-].
+	    ].
-homeContext notNil ifTrue:[
+	    homeContext notNil ifTrue:[
-searchClass := homeContext searchClass ? rec class.
+		searchClass := homeContext searchClass ? rec class.
-currentMethod := searchClass lookupMethodFor:sel.
+		currentMethod := searchClass lookupMethodFor:sel.
-].
+	    ].
-originalMethod := currentMethod.
+	    originalMethod := currentMethod.
-(currentMethod notNil
+	    (currentMethod notNil
-and:[currentMethod ~~ method
+	    and:[currentMethod ~~ method
-and:[ (currentMethod isWrapped and:[ method == currentMethod originalMethod]) not ]]) ifTrue:[
+	    and:[ (currentMethod isWrapped and:[ method == currentMethod originalMethod]) not ]]) ifTrue:[
-originalMethod := method.
+		originalMethod := method.
-methodCodeToggleSelectionHolder value = 1 ifTrue:[
+		methodCodeToggleSelectionHolder value = 1 ifTrue:[
-method := originalMethod.   "/ the one which is suspended / was executing
+		    method := originalMethod.   "/ the one which is suspended / was executing
-] ifFalse:[
+		] ifFalse:[
-method := currentMethod.    "/ the one which has already been accepted/modified.
+		    method := currentMethod.    "/ the one which has already been accepted/modified.
-lineNrInMethod := nil.
+		    lineNrInMethod := nil.
-canAccept := true.
+		    canAccept := true.
-].
+		].
-methodCodeToggle beVisible.
+		methodCodeToggle beVisible.
-] ifFalse:[
+	    ] ifFalse:[
-methodCodeToggle beInvisible.
+		methodCodeToggle beInvisible.
-].
+	    ].
-code isNil ifTrue:[
+	    code isNil ifTrue:[
-errMsg := nil.
+		errMsg := nil.
-method isNil ifTrue:[
+		method isNil ifTrue:[
-"/ fall back heuristics (see how this was called, fetch block from caller)
+		    "/ fall back heuristics (see how this was called, fetch block from caller)
-sender := con sender.
+		    sender := con sender.
-con isBlockContext ifTrue:[
+		    con isBlockContext ifTrue:[
-(sender notNil
+			(sender notNil
-and:[((sender selector ? '') startsWith:'value')
+			and:[((sender selector ? '') startsWith:'value')
-and:[sender receiver isBlock]]) ifTrue:[
+			and:[sender receiver isBlock]]) ifTrue:[
-code := sender receiver source.
+			    code := sender receiver source.
-]
+			]
-] ifFalse:[
+		    ] ifFalse:[
-(sender notNil
+			(sender notNil
-and:[((sender selector ? '') startsWith:'valueWith')
+			and:[((sender selector ? '') startsWith:'valueWith')
-and:[sender receiver isMethod]]) ifTrue:[
+			and:[sender receiver isMethod]]) ifTrue:[
-method := sender receiver.
+			    method := sender receiver.
-]
+			]
-]
+		    ]
-].
+		].
-method notNil ifTrue:[
+		method notNil ifTrue:[
-contextInspector fieldListLabel:(method selector "whoString").
+		    contextInspector fieldListLabel:(method selector "whoString").
-Error handle:[:ex |
+		    Error handle:[:ex |
 "/ not covered by Error, anyway
 "/                        ex signal isControlInterrupt ifTrue:[
 "/                            ex proceed.
 "/                        ].
-code := 'error while asking method for its source'.
+			code := 'error while asking method for its source'.
-code := code , Character cr , ex creator printString.
+			code := code , Character cr , ex creator printString.
-code := code , Character cr , 'in: ' , ex suspendedContext printString.
+			code := code , Character cr , 'in: ' , ex suspendedContext printString.
-canAccept := false.
+			canAccept := false.
-ex return.
+			ex return.
-] do:[
+		    ] do:[
-self sensor shiftDown ifTrue:[
+			self sensor shiftDown ifTrue:[
-code := method decompiledSource
+			    code := method decompiledSource
-] ifFalse:[
+			] ifFalse:[
-code := method source.
+			    code := method source.
-].
+			].
-].
+		    ].
-code isNil ifTrue:[
-method sourceFilename notNil ifTrue:[
+		    code isNil ifTrue:[
-codeView contents:(resources
+			method sourceFilename notNil ifTrue:[
-string:'** no sourcefile: %1 **'
+			    codeView contents:(resources
-with:method sourceFilename).
+						       string:'** no sourcefile: %1 **'
-codeView flash.
+						       with:method sourceFilename).
-codeSet := true.
+			    codeView realized ifTrue:[
-] ifFalse:[
+				"codeView is not realized on initial startup"
-[
+				codeView flash:'no source'.
-|src|
+			    ].
+			    codeSet := true.
-src := String streamContents:[:s | Decompiler decompile:method to:s].
+			] ifFalse:[
-codeView contents:src.
+			    [
-codeSet := true.
+				|src|
-] on: Error do:[
-errMsg := '** no source **'
+				src := String streamContents:[:s | Decompiler decompile:method to:s].
-].
+				codeView contents:src.
-]
+				codeSet := true.
-].
+			    ] on: Error do:[
-] ifFalse:[
+				errMsg := '** no source **'
-contextInspector fieldListLabel:'Context'.
+			    ].
-homeContext isNil ifTrue:[
+			]
-errMsg := '** sorry; cannot show code of all optimized blocks (yet) **'.
+		    ].
-] ifFalse:[
+		] ifFalse:[
-errMsg := '** no method - no source **'.
+		    contextInspector fieldListLabel:'Context'.
-canDefine := false. "/ true.
+		    homeContext isNil ifTrue:[
-]
+			errMsg := '** sorry; cannot show code of all optimized blocks (yet) **'.
-].
+		    ] ifFalse:[
-errMsg notNil ifTrue:[
+			errMsg := '** no method - no source **'.
-self showError:errMsg.
+			canDefine := false. "/ true.
-codeSet := true.
+		    ]
-]
+		].
-].
+		errMsg notNil ifTrue:[
+		   self showError:errMsg.
-code isNil ifTrue:[
+		   codeSet := true.
-"/ canAccept := false.
+		]
-codeSet ifFalse:[
+	    ].
-codeView contents:nil.
-]
+	    code isNil ifTrue:[
-] ifFalse:[
+		"/ canAccept := false.
-lineNrInMethod notNil ifTrue:[
+		codeSet ifFalse:[
-lineNrInMethod == 0 ifTrue:[
+		    codeView contents:nil.
-(method notNil and:[method isJavaMethod]) ifTrue:[
+		]
-lineNrInMethod := method lineNumber
+	    ] ifFalse:[
-].
+		lineNrInMethod notNil ifTrue:[
-"/ guess lineNumber from sent-messages selector
+		    lineNrInMethod == 0 ifTrue:[
-"/ kludge to fix lineNr-display of shared subclassResponsibility methods.
+			(method notNil and:[method isJavaMethod]) ifTrue:[
-lineNrInMethod == 0 ifTrue:[
+			    lineNrInMethod := method lineNumber
-|conIdx sentContext messages|
+			].
+			"/ guess lineNumber from sent-messages selector
-conIdx := contextArray identityIndexOf:con.
+			"/ kludge to fix lineNr-display of shared subclassResponsibility methods.
-conIdx > 1 ifTrue:[
+			lineNrInMethod == 0 ifTrue:[
-sentContext := contextArray at:conIdx-1.
+			    |conIdx sentContext messages|
-sentContext isBlockContext ifFalse:[
-(method notNil and:[code notNil]) ifTrue:[
+			    conIdx := contextArray identityIndexOf:con.
-messages := method messagesSent.
+			    conIdx > 1 ifTrue:[
-messages size == 1 ifTrue:[
+				sentContext := contextArray at:conIdx-1.
-sentContext selector == messages first ifTrue:[
+				sentContext isBlockContext ifFalse:[
-lineNrInMethod := code asStringCollection findFirst:[:l | l includesString:sentContext selector].
+				    (method notNil and:[code notNil]) ifTrue:[
-]
+					messages := method messagesSent.
-]
+					messages size == 1 ifTrue:[
-].
+					    sentContext selector == messages first ifTrue:[
-].
+						lineNrInMethod := code asStringCollection findFirst:[:l | l includesString:sentContext selector].
-].
+					    ]
-].
+					]
-].
+				    ].
-].
+				].
-codeView isCodeView2 ifTrue:[
+			    ].
-codeView model setValue: code.
+			].
-codeView model changed.
+		    ].
-codeView methodHolder value: method.
+		].
-codeView classHolder value: ((method respondsTo: #mclass) ifTrue:[method mclass] ifFalse:[rec class])
+		codeView isCodeView2 ifTrue:[
-] ifFalse:[
+		    codeView model
+			setValue: code;
-UserPreferences current syntaxColoring ifTrue:[
+			changed.
-implementorClass isNil ifTrue:[
+		    codeView methodHolder value: method.
-(con isBlockContext
+		    codeView classHolder value: ((method respondsTo: #mclass) ifTrue:[method mclass] ifFalse:[rec class])
-and:[con home isNil
+		] ifFalse:[
-and:[con guessedHome notNil]])
+		    UserPreferences current syntaxColoring ifTrue:[
-ifTrue:[
+			implementorClass isNil ifTrue:[
-implementorClass := con guessedHome mclass
+			    (con isBlockContext
-]
+			    and:[con home isNil
-].
+			    and:[con guessedHome notNil]])
-implementorClass notNil ifTrue:[
+			    ifTrue:[
-(highlighter := implementorClass syntaxHighlighterClass) notNil ifTrue:[
+				implementorClass := con guessedHome mclass
-code size < 100000 ifTrue:[
+			    ]
-Error handle:[:ex |
+			].
-] do:[
+			implementorClass notNil ifTrue:[
-code := highlighter formatMethodSource:code in:implementorClass.
+			    (highlighter := implementorClass syntaxHighlighterClass) notNil ifTrue:[
-]
+				code size < 100000 ifTrue:[
-]
+				    Error catch:[
-]
+					code := highlighter formatMethodSource:code in:implementorClass.
-]
+				    ]
-].
+				]
+			    ]
+			]
+		    ].
 "/                code ~= (codeView contents) ifTrue:[
-cannotAcceptDueToOutdatedClass ifTrue:[
+		    cannotAcceptDueToOutdatedClass ifTrue:[
-codeView setContents:(('Obsolete code (outdated due to class change). Use Browser.' colorizeAllWith:Color red),Character cr,Character cr,code asString).
+			codeView setContents:(('Obsolete code (outdated due to class change). Use Browser.' colorizeAllWith:Color red),Character cr,Character cr,code asString).
-] ifFalse:[
+		    ] ifFalse:[
-codeView setContents:code.
+			codeView setContents:code.
-].
+		    ].
 "/                ].
-].
+		].
-(lineNrInMethod notNil
+		(lineNrInMethod notNil
-and:[lineNrInMethod ~~ 0
+		and:[lineNrInMethod ~~ 0
-and:[lineNrInMethod <= codeView list size]]) ifTrue:[
+		and:[lineNrInMethod <= codeView list size]]) ifTrue:[
 lineNrInMethod == 255 ifFalse:[
-(lineNrInMethod == 255
+		    (lineNrInMethod == 255
-and:[method notNil
+		    and:[method notNil
-and:[method hasCode not]]) ifTrue:[
+		    and:[method hasCode not]]) ifTrue:[
-"/ means: do not really know in interpreted methods
+			"/ means: do not really know in interpreted methods
-codeView selectFromLine:255 col:1 toLine:codeView list size + 1 col:0.
+			codeView selectFromLine:255 col:1 toLine:codeView list size + 1 col:0.
-] ifFalse:[
+		    ] ifFalse:[
-codeView selectLine:lineNrInMethod.
+			codeView selectLine:lineNrInMethod.
-].
+		    ].
-codeView makeSelectionVisible
+		    codeView makeSelectionVisible
 ].
-] ifFalse:[
+		] ifFalse:[
-codeView unselect.
+		    codeView unselect.
-codeView scrollToTop
+		    codeView scrollToTop
-]
+		]
-].
+	    ].
-codeView acceptEnabled:canAccept.
+	    codeView acceptEnabled:canAccept.
-canAccept ifTrue:[
+	    canAccept ifTrue:[
-codeView acceptAction:[:code | self codeAccept:code asString]
+		codeView acceptAction:[:code | self codeAccept:code asString]
-] ifFalse:[
+	    ] ifFalse:[
-codeView acceptAction:[:code | self beep]
+		codeView acceptAction:[:code | self beep]
-].
+	    ].
-receiverInspector inspect:rec.
+	    receiverInspector inspect:rec.
-receiverInspector fieldListLabel:("'Receiver: ',"rec classNameWithArticle).
+	    receiverInspector fieldListLabel:("'Receiver: ',"rec classNameWithArticle).
-receiverInspector tryToSelectKeyNamed:lastSelectionInReceiverInspector.
+	    receiverInspector tryToSelectKeyNamed:lastSelectionInReceiverInspector.
-"
+	    "
-the one below is wrong: currently, the
+	     the one below is wrong: currently, the
-evaluator cannot handle passed contexts.
+	     evaluator cannot handle passed contexts.
-Once it does, pass con as in:-arg
+	     Once it does, pass con as in:-arg
-"
+	    "
-(rec isJavaObject
+	    (rec isJavaObject
-and:[method isNil or:[method isJavaMethod not]]) ifTrue:[
+	    and:[method isNil or:[method isJavaMethod not]]) ifTrue:[
-"/ although a java object, use the smalltalk parser here for doIts.
+		"/ although a java object, use the smalltalk parser here for doIts.
-evaluatorClass := Parser
+		evaluatorClass := Parser.
-] ifFalse:[
+		codeView commentStrings:#( '//' ( '/*' '*/' ) ).
-(method notNil and:[method mclass notNil]) ifTrue:[
+	    ] ifFalse:[
-evaluatorClass := method mclass evaluatorClass.
+		(method notNil and:[method mclass notNil]) ifTrue:[
-] ifFalse:[
+		    evaluatorClass := method mclass evaluatorClass.
-evaluatorClass := rec class evaluatorClass.
+		    codeView commentStrings:method mclass programmingLanguage commentStrings.
-].
+		] ifFalse:[
-].
+		    evaluatorClass := rec class evaluatorClass.
+		    codeView commentStrings:rec class programmingLanguage commentStrings.
-codeView
+		].
-doItAction:
+	    ].
-[:theCode |
-evaluatorClass
+	    codeView
-evaluate:theCode
+		doItAction:
-in:actualContext "/ (selectedContext ? actualContext)
+		    [:theCode |
-receiver:rec
+			 evaluatorClass
-notifying:codeView
+			     evaluate:theCode
-logged:true
+			     in:actualContext "/ (selectedContext ? actualContext)
-ifFail:nil
+			     receiver:rec
-];
+			     notifying:codeView
-editedMethodOrClass:(method ? rec class).
+			     logged:true
+			     ifFail:nil
-self setCurrentMethod:method.
+		    ];
+		editedMethodOrClass:(method ? rec class).
-selectedContext := homeContext ? con.
-actualContext := con
-].
+	    self setCurrentMethod:method.
+	    selectedContext := homeContext ? con.
+	    actualContext := con
+	].
 ] ifFalse:[
-codeView contents:nil.
+	codeView contents:nil.
 ].
 codeView modified:false.
 con isContext ifFalse:[
-sendButton disable.
+	sendButton disable.
 ] ifTrue:[
-sendButton enable.
+	sendButton enable.
 ].
 self updateContextInfoFor:con.
 "clear out locals to prevent keeping around unneeded contexts
 (due to the block held in codeView).
 "
 con := nil.
 homeContext := nil.
 (canDefine or:[self canDefineForCallee:callee]) ifTrue:[
-defineButton beVisible.
+	defineButton beVisible.
 ] ifFalse:[
-defineButton beInvisible.
+	defineButton beInvisible.
 ].
 "/ enable/disable some menu items
 self updateMenuItems
 ignoreEndTime := something.
 !
 ignoreForProcess:aProcess
 ignoredProcesses isNil ifTrue:[
-ignoredProcesses := WeakIdentitySet new.
+	ignoredProcesses := WeakIdentitySet new.
 ].
 ignoredProcesses add:aProcess
 !
 ignoreForReceiverClass:aClass
 ignoredReceiverClasses isNil ifTrue:[
-ignoredReceiverClasses := WeakIdentitySet new.
+	ignoredReceiverClasses := WeakIdentitySet new.
 ].
 ignoredReceiverClasses add:aClass
+!
+ignoreIfCalledFromMethod:aMethod
+ignoredSendingClassAndSelectors isNil ifTrue:[
+	 ignoredSendingClassAndSelectors := OrderedCollection new.
+].
+"/ remember the method's name, not the method.
+"/ so it can be recompiled and we still detect ignores
+ignoredSendingClassAndSelectors add:{aMethod mclass name . aMethod selector }
 !
 ignoreUntilShiftKeyPressed:aBoolean
 ignoreUntilShiftKeyPressed := aBoolean.
 !DebugView::IgnoredHaltOrBreakpoint methodsFor:'misc'!
 decrementIgnoreCount
 ignoreCount notNil ifTrue:[
-ignoreCount > 0 ifTrue:[
+	ignoreCount > 0 ifTrue:[
-ignoreCount := ignoreCount - 1
+	    ignoreCount := ignoreCount - 1
-]
+	]
 ]
 ! !
 !DebugView::IgnoredHaltOrBreakpoint methodsFor:'printing'!
 printConditionOn:aStream
+ignoredSendingClassAndSelectors notEmptyOrNil ifTrue:[
+	aStream nextPutAll:(' if called from %1 >> %2'
+				bindWith:ignoredSendingClassAndSelectors first first
+				with:ignoredSendingClassAndSelectors first second).
+	^ self.
+].
 ignoredProcesses notEmptyOrNil ifTrue:[
-aStream nextPutAll:(' in %1 processes (%2)'
+	aStream nextPutAll:(' in %1 processes (%2)'
-bindWith:ignoredProcesses size
+				bindWith:ignoredProcesses size
-with:((ignoredProcesses collect:[:each | each name] as:OrderedCollection) asStringWith:', ')).
+				with:((ignoredProcesses collect:[:each | each name] as:OrderedCollection) asStringWith:', ')).
-] ifFalse:[
+	^ self.
-ignoredReceiverClasses notNil ifTrue:[
+].
-aStream nextPutAll:(' for %1 classes (%2)'
+ignoredReceiverClasses notNil ifTrue:[
-bindWith:ignoredReceiverClasses size
+	aStream nextPutAll:(' for %1 classes (%2)'
-with:((ignoredReceiverClasses collect:[:each | each name] as:OrderedCollection) asStringWith:', '))
+			    bindWith:ignoredReceiverClasses size
-] ifFalse:[
+			    with:((ignoredReceiverClasses collect:[:each | each name] as:OrderedCollection) asStringWith:', ')).
-ignoreUntilShiftKeyPressed == true ifTrue:[
+	^ self.
-aStream nextPutAll:' until shiftKey pressed'.
+].
-] ifFalse:[
+ignoreUntilShiftKeyPressed == true ifTrue:[
-ignoreEndTime notNil ifTrue:[
+	aStream nextPutAll:' until shiftKey pressed'.
-aStream nextPutAll:' until '.
+	^ self.
-ignoreEndTime printOn:aStream.
+].
-] ifFalse:[
+ignoreEndTime notNil ifTrue:[
-(ignoreCount notNil) ifTrue:[
+	aStream nextPutAll:' until '.
-(ignoreCount > 0) ifTrue:[
+	ignoreEndTime printOn:aStream.
-aStream nextPutAll:' for '.
+	^ self.
-ignoreCount printOn:aStream.
+].
-] ifFalse:[
+(ignoreCount notNil) ifTrue:[
-(ignoreCount < 0) ifTrue:[
+	(ignoreCount > 0) ifTrue:[
-aStream nextPutAll:' forEver'.
+	    aStream nextPutAll:' for '.
-] ifFalse:[
+	    ignoreCount printOn:aStream.
-aStream nextPutAll:' no longer'.
+	    ^ self.
-].
+	].
-].
+	(ignoreCount < 0) ifTrue:[
-]
+	    aStream nextPutAll:' forEver'.
-].
+	    ^ self.
-].
+	].
-].
+	aStream nextPutAll:' no longer'.
 ].
-"Modified: / 27-01-2012 / 11:43:10 / cg"
-"Created: / 06-03-2012 / 12:41:10 / cg"
 ! !
 !DebugView::IgnoredHaltOrBreakpoint methodsFor:'queries'!
 haltIgnoredInfoString
 "some string describing why and how this halt is ignored;
 nil if not ignored"
 ^ String streamContents:[:s |
-s nextPutAll:'ignored '.
+	s nextPutAll:'ignored '.
-self printConditionOn:s
+	self printConditionOn:s
 ].
-ignoreCount notNil ifTrue:[
+"/    ignoreCount notNil ifTrue:[
-ignoreCount > 0 ifTrue:[
+"/        ignoreCount > 0 ifTrue:[
-^ '%1 more calls ignored' bindWith:ignoreCount
+"/            ^ '%1 more calls ignored' bindWith:ignoreCount
-].
+"/        ].
-^ nil
+"/        ^ nil
-].
+"/    ].
-ignoreEndTime notNil ifTrue:[
+"/    ignoreEndTime notNil ifTrue:[
-(ignoreEndTime > Timestamp now) ifTrue:[
+"/        (ignoreEndTime > Timestamp now) ifTrue:[
-^ 'ignored until %1' bindWith:ignoreEndTime
+"/            ^ 'ignored until %1' bindWith:ignoreEndTime
-].
+"/        ].
-^ nil
+"/        ^ nil
-].
+"/    ].
-ignoreUntilShiftKeyPressed == true ifTrue:[
+"/    ignoreUntilShiftKeyPressed == true ifTrue:[
-Display shiftDown ifFalse:[
+"/        Screen current shiftDown ifFalse:[
-^ 'ignored until shiftKey is pressed'
+"/            ^ 'ignored until shiftKey is pressed'
-].
+"/        ].
-^ nil
+"/        ^ nil
-].
+"/    ].
-ignoredProcesses notNil ifTrue:[
+"/    ignoredProcesses notNil ifTrue:[
-^ 'ignored in some processes'
+"/        ^ 'ignored in some processes'
-].
+"/    ].
-ignoredReceiverClasses notNil ifTrue:[
+"/    ignoredReceiverClasses notNil ifTrue:[
-^ 'ignored for some receiver classes'
+"/        ^ 'ignored for some receiver classes'
-].
+"/    ].
+"/
-^ 'ignored until reenabled'
+"/    ^ 'ignored until reenabled'
 "Modified: / 27-01-2012 / 11:35:48 / cg"
 !
 isActive
 "true if this ignore-entry is still active"
 ignoreEndTime notNil ifTrue:[
-^ ignoreEndTime > Timestamp now
+	^ ignoreEndTime > Timestamp now
 ].
 ignoreCount notNil ifTrue:[
-^ ignoreCount == -1 or:[ ignoreCount > 0 ]
+	^ ignoreCount == -1 or:[ ignoreCount > 0 ]
 ].
 ignoredProcesses notNil ifTrue:[
-ignoredProcesses := ignoredProcesses reject:[:p | p notNil and:[p isDead]].
+	ignoredProcesses := ignoredProcesses reject:[:p | p notNil and:[p isDead]].
-ignoredProcesses isEmpty ifTrue:[
+	ignoredProcesses isEmpty ifTrue:[
-ignoredProcesses := nil.
+	    ignoredProcesses := nil.
-^ false
+	    ^ false
-].
+	].
 ].
 ^ true
 "Created: / 06-03-2012 / 12:39:46 / cg"
 !
 isHaltIgnored
 "true if this halt should be ignored (sometimes)"
 ignoreUntilShiftKeyPressed == true ifTrue:[
-^ Display shiftDown not
+	^ Screen current shiftDown not
 ].
 ignoreCount notNil ifTrue:[
-^ ignoreCount > 0
+	^ ignoreCount > 0
 ].
 ignoreEndTime notNil ifTrue:[
-^ ignoreEndTime > Timestamp now
+	^ ignoreEndTime > Timestamp now
 ].
 ^ true
 "Modified: / 27-01-2012 / 11:36:01 / cg"
 method:methodArg lineNumber:lineNumberArg
 "/ self assert:(methodArg mclass notNil).
 methodArg == #all ifTrue:[
-weakMethodHolder := methodArg
+	weakMethodHolder := methodArg
 ] ifFalse:[
-weakMethodHolder := WeakArray with:methodArg.
+	weakMethodHolder := WeakArray with:methodArg.
 ].
 lineNumber := lineNumberArg.
 "Modified: / 08-05-2011 / 10:28:41 / cg"
 ! !
 printOn:aStream
 |method|
 (method := self method) isNil ifTrue:[
-aStream nextPutAll:'an obsolete IgnoredHalt'.
+	aStream nextPutAll:'an obsolete IgnoredHalt'.
-^ self
+	^ self
 ].
 aStream nextPutAll:'Ignore '.
 method isSymbol ifTrue:[
-method printOn:aStream.
+	method printOn:aStream.
 ] ifFalse:[
-method whoString printOn:aStream.
+	method whoString printOn:aStream.
 ].
 self printConditionOn:aStream.
 "Modified: / 27-07-2012 / 23:04:42 / cg"
 ! !
 (self isForMethod:aMethod line:line) ifFalse:[^ false].
 "/ Transcript show:'is same; ignored: '; showCR:self isHaltIgnored.
 context notNil ifTrue:[
-ignoredReceiverClasses notNil ifTrue:[
+	ignoredReceiverClasses notNil ifTrue:[
-^ ignoredReceiverClasses includes:(context receiver class)
+	    ^ ignoredReceiverClasses includes:(context receiver class)
-].
+	].
 ].
 "/    Transcript showCR:ignoredProcesses.
 "/    Transcript showCR:Processor activeProcess.
 ignoredProcesses notNil ifTrue:[
-^ ignoredProcesses includes:(Processor activeProcess)
+	^ ignoredProcesses includes:(Processor activeProcess)
 ].
+ignoredSendingClassAndSelectors notNil ifTrue:[
-^ self isHaltIgnored
+	context withAllSendersDo:[:each |
+	    |m className selector cls|
+	    (m := each method) notNil ifTrue:[
+		cls := m mclass.
+		cls notNil ifTrue:[
+		    className := cls name.
+		    selector := m selector.
+		    (ignoredSendingClassAndSelectors contains:[:entry | entry first = className and:[entry second = selector]])
+			ifTrue:[^ true].
+		].
+	    ]
+	]
+].
+^ self isHaltIgnored  "/ unconditionally
 ! !
 !DebugView::IgnoredBreakpoint methodsFor:'accessing'!
 parameter
 ! !
 !DebugView class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.640 2013-10-17 11:22:34 cg Exp $'
+^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.689 2015-03-02 13:39:16 cg Exp $'
 !
 version_CVS
-^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.640 2013-10-17 11:22:34 cg Exp $'
+^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.689 2015-03-02 13:39:16 cg Exp $'
-!
-version_HG
-^ '$Changeset: <not expanded> $'
 !
 version_SVN
-^ '$Id: DebugView.st,v 1.640 2013-10-17 11:22:34 cg Exp $'
+^ '$Id: DebugView.st,v 1.689 2015-03-02 13:39:16 cg Exp $'
 ! !
 DebugView initialize!

branch	jv
changeset 15566	184cea584be5
parent 13750	0846f23cae65
parent 15497	c05f957c8150
child 15658	43b2d989bf0a