hg/stx-libtool: comparison DebugView.st

equal deleted inserted replaced

-:20a4ba15b83f
+:043fb3552c44
 "{ Encoding: utf8 }"
 "
 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
 "{ Package: 'stx:libtool' }"
 "{ NameSpace: Smalltalk }"
 StandardSystemView subclass:#DebugView
-	instanceVariableNames:'busy haveControl exitAction canContinue contextView codeView
+instanceVariableNames:'busy haveControl exitAction canContinue contextView codeView
-		receiverInspector contextInspector contextArray selectedContext
+receiverInspector contextInspector contextArray selectedContext
-		catchBlock grabber mayProceed traceView tracing bigStep
+catchBlock grabber mayProceed traceView tracing bigStep
-		skipLineNr abortButton terminateButton continueButton stepButton
+skipLineNr abortButton terminateButton continueButton stepButton
-		nextButton nextOverButton nextOutButton sendButton returnButton
+nextButton nextOverButton nextOutButton sendButton returnButton
-		restartButton exclusive inspecting nChainShown inspectedProcess
+restartButton exclusive inspecting nChainShown inspectedProcess
-		updateProcess updateButton defineButton monitorToggle stepping
+updateProcess updateButton defineButton monitorToggle stepping
-		steppedContextLineno actualContext inWrap stackInspector
+steppedContextLineno actualContext inWrap stackInspector
-		steppedContext wrapperContext firstContext stepHow cachable
+steppedContext wrapperContext firstContext stepHow cachable
-		currentMethod ignoreBreakpoints stepUntilEntering
+currentMethod ignoreBreakpoints stepUntilEntering
-		lastStepUntilEntering lastSelectionInReceiverInspector
+lastStepUntilEntering lastSelectionInReceiverInspector
-		lastSelectionInContextInspector canShowMore reportButton
+lastSelectionInContextInspector canShowMore reportButton
-		setOfHiddenCallingSelectors isStoppedAtHaltOrBreakPoint
+setOfHiddenCallingSelectors isStoppedAtHaltOrBreakPoint
-		exceptionInfoLabel methodCodeToggle
+exceptionInfoLabel methodCodeToggle
-		methodCodeToggleSelectionHolder
+methodCodeToggleSelectionHolder
-		isStoppedAtBreakPointWithParameter breakPointParameter
+isStoppedAtBreakPointWithParameter breakPointParameter
-		hideSupportCode contextInfoLabel resendButton
+hideSupportCode contextInfoLabel resendButton
-		gotoDialogOpenerButton isStoppedInModalDialog selectorToDefine
+gotoDialogOpenerButton isStoppedInModalDialog selectorToDefine
-		classToDefineIn gotoApplicationActionMethodButton
+classToDefineIn gotoApplicationActionMethodButton
-		isStoppedInApplicationAction isStoppedAtStatementBreakpoint
+isStoppedInApplicationAction isStoppedAtStatementBreakpoint
-		verboseBacktraceHolder'
+verboseBacktraceHolder'
-	classVariableNames:'CachedDebugger CachedExclusive OpenDebuggers MoreDebuggingDetail
+classVariableNames:'CachedDebugger CachedExclusive OpenDebuggers MoreDebuggingDetail
-		DebuggingDebugger DebuggingDebugger2 DebuggingContextWalk
+DebuggingDebugger DebuggingDebugger2 DebuggingContextWalk
-		DefaultDebuggerBackgroundColor InitialNChainShown IgnoredHalts
+DefaultDebuggerBackgroundColor InitialNChainShown IgnoredHalts
-		ShowThreadID LastIgnoreHaltNTimes LastIgnoreHaltDuration
+ShowThreadID LastIgnoreHaltNTimes LastIgnoreHaltDuration
-		LastExtent LastOrigin RememberedCallChain DebuggingDebugger3
+LastExtent LastOrigin RememberedCallChain DebuggingDebugger3
-		NumberOfDebuggers DebuggerOnMainDisplayOnly'
+NumberOfDebuggers DebuggerOnMainDisplayOnly'
-	poolDictionaries:''
+poolDictionaries:''
-	category:'Interface-Debugger'
+category:'Interface-Debugger'
 !
 Object subclass:#IgnoredHaltOrBreakpoint
-	instanceVariableNames:'ignoreEndTime ignoreCount ignoreUntilShiftKeyPressed
+instanceVariableNames:'ignoreEndTime ignoreCount ignoreUntilShiftKeyPressed
-		ignoredReceiverClasses ignoredProcesses
+ignoredReceiverClasses ignoredProcesses
-		ignoredSendingClassAndSelectors'
+ignoredSendingClassAndSelectors'
-	classVariableNames:''
+classVariableNames:''
-	poolDictionaries:''
+poolDictionaries:''
-	privateIn:DebugView
+privateIn:DebugView
 !
 DebugView::IgnoredHaltOrBreakpoint subclass:#IgnoredHalt
-	instanceVariableNames:'weakMethodHolder lineNumber'
+instanceVariableNames:'weakMethodHolder lineNumber'
-	classVariableNames:''
+classVariableNames:''
-	poolDictionaries:''
+poolDictionaries:''
-	privateIn:DebugView
+privateIn:DebugView
 !
 DebugView::IgnoredHaltOrBreakpoint subclass:#IgnoredBreakpoint
-	instanceVariableNames:'parameter'
+instanceVariableNames:'parameter'
-	classVariableNames:''
+classVariableNames:''
-	poolDictionaries:''
+poolDictionaries:''
-	privateIn:DebugView
+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
 will sit on an exclusive display connection.
 See additional information in 'doc/misc/debugger.doc'.
 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,
-	and hides/shows this window without recreating one from scratch. This is done to make
+and hides/shows this window without recreating one from scratch. This is done to make
-	the debugger come up faster when single stepping, or hopping from breakpoint to breakpoint.
+the debugger come up faster when single stepping, or hopping from breakpoint to breakpoint.
-	It may happen, that a malfunctioning debugger (for example, a halfway created/destroyed one)
+It may happen, that a malfunctioning debugger (for example, a halfway created/destroyed one)
-	is kept there. You will notice this, if a debugger comes up without showing any contents.
+is kept there. You will notice this, if a debugger comes up without showing any contents.
-	In this case, close (or destroy) the broken debugView, and execute
+In this case, close (or destroy) the broken debugView, and execute
-	    Debugger newDebugger
+Debugger newDebugger
-	which removes the cached debugger and forces creation of a new one the next time.
+which removes the cached debugger and forces creation of a new one the next time.
-	This is a temporary workaround - the debugger should be fixed to avoid this situation.
+This is a temporary workaround - the debugger should be fixed to avoid this situation.
-	You must also flush the cached debugger, if you change the debugger's
+You must also flush the cached debugger, if you change the debugger's
-	initialization code (buttons, menu, etc.) or the debugger's class layout,
+initialization code (buttons, menu, etc.) or the debugger's class layout,
-	and you want the new code to become effective.
+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'!
 "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
+forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
-	orReceiverClass:receiverClassOrNil orProcess:processOrNil
+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
+orIfCalledFromMethod:nil
 !
 ignoreHaltIn:haltingMethod at:lineNrOfHalt
-	forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
+forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
-	orReceiverClass:receiverClassOrNil orProcess:processOrNil
+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
+orIfCalledFromMethod:nil
 !
 ignoreHaltIn:haltingMethod at:lineNrOfHalt
 forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
 orReceiverClass:receiverClassOrNil orProcess:processOrNil
 orReceiverClass:receiverClassOrNil orProcess:processOrNil
 orIfCalledFromMethod:ifCalledForMethodOrNil
 !
 ignoreHaltOrBreakpoint:type method:methodOrNil line:lineNrOfHaltOrNil parameter:parameterOrNil
-	forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
+forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
-	orReceiverClass:receiverClassOrNil orProcess:processOrNil
+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
+ignoreHaltOrBreakpoint:type method:methodOrNil line:lineNrOfHaltOrNil parameter:parameterOrNil
-	forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
+forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
-	orReceiverClass:receiverClassOrNil orProcess:processOrNil
+orReceiverClass:receiverClassOrNil orProcess:processOrNil
-	orIfCalledFromMethod:nil
+orIfCalledFromMethod:nil
 !
 ignoreHaltOrBreakpoint:type method:methodOrNil line:lineNrOfHaltOrNil parameter:parameterOrNil
 forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
 orReceiverClass:receiverClassOrNil orProcess:processOrNil
 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.
 "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"
 effectively reenables the breakpoint/halt"
 IgnoredHalts isNil ifTrue:[^ self].
 IgnoredHalts := IgnoredHalts reject:[:ign |
-	(ign isForMethod:haltingMethod line:lineNrInHaltingMethod)
+(ign isForMethod:haltingMethod line:lineNrInHaltingMethod)
 ].
 ! !
 !DebugView class methodsFor:'instance creation / entering'!
 "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.
 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.
 |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 := Display ? 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:[
-	    debuggerScreen := currentScreen.
+debuggerScreen := currentScreen.
-	    debuggerScreen isNil ifTrue:[
+debuggerScreen isNil ifTrue:[
-		"/ use the default display
+"/ use the default display
-		debuggerScreen := Screen default.
+debuggerScreen := Screen default.
-	    ].
+].
-	    (debuggerScreen isNil
+(debuggerScreen isNil
-	    or:[debuggerScreen 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:debuggerScreen
+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"
 !
 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.
+active := Processor activeProcess.
-	OpenDebuggers do:[:aDebugger |
+OpenDebuggers do:[:aDebugger |
-	    |debuggersProcess|
+|debuggersProcess|
-	    (aDebugger notNil and:[aDebugger ~~ 0]) ifTrue:[
+(aDebugger notNil and:[aDebugger ~~ 0]) ifTrue:[
-		debuggersProcess := aDebugger inspectedProcess.
+debuggersProcess := aDebugger inspectedProcess.
-		debuggersProcess == active ifTrue:[
+debuggersProcess == active ifTrue:[
-		    aDebugger device isOpen ifTrue:[
+aDebugger device isOpen ifTrue:[
-			DebuggingDebugger == true ifTrue:[
+DebuggingDebugger == true ifTrue:[
-			    'reusing cached debugger' errorPrintCR.
+'reusing cached debugger' errorPrintCR.
-			].
+].
-			aDebugger unstep.
+aDebugger unstep.
-			^ aDebugger.
+^ aDebugger.
-		    ]
+]
-		].
+].
-		(debuggersProcess notNil and:[ debuggersProcess isDead ]) ifTrue:[
+(debuggersProcess notNil and:[ debuggersProcess isDead ]) ifTrue:[
-		    aDebugger destroy.
+aDebugger destroy.
-		].
+].
-	    ]
+]
-	]
+]
 ].
 ^ nil
 "Created: / 06-11-2013 / 20:57:49 / cg"
 !
 |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
 <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
+(MenuItem
-		  enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
+enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
-		  label: 'If Called from Any Of'
+label: 'If Called from Any Of'
-		  submenuChannel: menuForIgnoreBreakpointIfCalledFromAnyOf
+submenuChannel: menuForIgnoreBreakpointIfCalledFromAnyOf
-		)
+)
-	       )
+)
-	      nil
+nil
-	      nil
+nil
-	    )
+)
-	  )
+)
-	 (MenuItem
+(MenuItem
-	    enabled: isStoppedAtBreakPointWithParameter
+enabled: isStoppedAtBreakPointWithParameter
-	    label: 'Ignore all BreakPoints with this Parameter'
+label: 'Ignore all BreakPoints with this Parameter'
-	    submenu:
+submenu:
-	   (Menu
+(Menu
-	      (
+(
-	       (MenuItem
+(MenuItem
-		  enabled: isStoppedAtBreakPointWithParameter
+enabled: isStoppedAtBreakPointWithParameter
-		  label: 'Forever (Reenable in BreakPoint-Browser)'
+label: 'Forever (Reenable in BreakPoint-Browser)'
-		  itemValue: ignoreBreakpointsWithThisParameterForever
+itemValue: ignoreBreakpointsWithThisParameterForever
-		)
+)
-	       (MenuItem
+(MenuItem
-		  enabled: isStoppedAtBreakPointWithParameter
+enabled: isStoppedAtBreakPointWithParameter
-		  label: 'For Some Time...'
+label: 'For Some Time...'
-		  itemValue: openIgnoreBreakpointsWithThisParameterUntilTimeElapsedDialog
+itemValue: openIgnoreBreakpointsWithThisParameterUntilTimeElapsedDialog
-		)
+)
-	       (MenuItem
+(MenuItem
-		  enabled: isStoppedAtBreakPointWithParameter
+enabled: isStoppedAtBreakPointWithParameter
-		  label: 'For the Next N Times...'
+label: 'For the Next N Times...'
-		  itemValue: openIgnoreBreakpointsWithThisParameterNTimesDialog
+itemValue: openIgnoreBreakpointsWithThisParameterNTimesDialog
-		)
+)
-	       (MenuItem
+(MenuItem
-		  enabled: isStoppedAtBreakPointWithParameter
+enabled: isStoppedAtBreakPointWithParameter
-		  label: 'Until Shift-Key is Pressed'
+label: 'Until Shift-Key is Pressed'
-		  itemValue: ignoreBreakpointsWithThisParameterUntilShiftKeyIsPressed
+itemValue: ignoreBreakpointsWithThisParameterUntilShiftKeyIsPressed
-		)
+)
-	       (MenuItem
+(MenuItem
-		  label: '-'
+label: '-'
-		)
+)
-	       (MenuItem
+(MenuItem
-		  enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
+enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
-		  label: 'In Current Process'
+label: 'In Current Process'
-		  itemValue: ignoreAllHaltsForCurrentProcess
+itemValue: ignoreAllHaltsForCurrentProcess
-		)
+)
-	       (MenuItem
+(MenuItem
-		  enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
+enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
-		  label: 'For this Receiver Class'
+label: 'For this Receiver Class'
-		  itemValue: ignoreAllHaltsForThisReceiverClass
+itemValue: ignoreAllHaltsForThisReceiverClass
-		)
+)
-	       (MenuItem
+(MenuItem
-		  enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
+enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
-		  label: 'If Called from Any Of'
+label: 'If Called from Any Of'
-		  submenuChannel: menuForIgnoreAllBreakpointsIfCalledFromAnyOf
+submenuChannel: menuForIgnoreAllBreakpointsIfCalledFromAnyOf
-		)
+)
-	       )
+)
-	      nil
+nil
-	      nil
+nil
-	    )
+)
-	  )
+)
-	 (MenuItem
+(MenuItem
-	    label: 'Ignore all Halts/BreakPoints'
+label: 'Ignore all Halts/BreakPoints'
-	    submenu:
+submenu:
-	   (Menu
+(Menu
-	      (
+(
-	       (MenuItem
+(MenuItem
-		  label: 'Forever (Until Ignoring is Stopped)'
+label: 'Forever (Until Ignoring is Stopped)'
-		  itemValue: ignoreAllHaltsForever
+itemValue: ignoreAllHaltsForever
-		)
+)
-	       (MenuItem
+(MenuItem
-		  label: 'For Some Time...'
+label: 'For Some Time...'
-		  itemValue: openIgnoreAllHaltsUntilTimeElapsedDialog
+itemValue: openIgnoreAllHaltsUntilTimeElapsedDialog
-		)
+)
-	       (MenuItem
+(MenuItem
-		  label: 'Until Shift-Key is Pressed'
+label: 'Until Shift-Key is Pressed'
-		  itemValue: ignoreAllHaltsUntilShiftKeyIsPressed
+itemValue: ignoreAllHaltsUntilShiftKeyIsPressed
-		)
+)
-	       )
+)
-	      nil
+nil
-	      nil
+nil
-	    )
+)
-	  )
+)
-	 (MenuItem
+(MenuItem
-	    enabled: hasHaltsToIgnore
+enabled: hasHaltsToIgnore
-	    label: 'Stop Ignoring'
+label: 'Stop Ignoring'
-	    itemValue: stopIgnoringHalts
+itemValue: stopIgnoringHalts
-	  )
+)
-	 (MenuItem
+(MenuItem
-	    label: '-'
+label: '-'
-	  )
+)
-	 (MenuItem
+(MenuItem
-	    enabled: canAddBreakpoint
+enabled: canAddBreakpoint
-	    label: 'Add Breakpoint'
+label: 'Add Breakpoint'
-	    itemValue: addBreakpoint
+itemValue: addBreakpoint
-	  )
+)
-	 (MenuItem
+(MenuItem
-	    label: 'Manage Breakpoints'
+label: 'Manage Breakpoints'
-	    itemValue: openBreakPointBrowser
+itemValue: openBreakPointBrowser
-	  )
+)
-	 (MenuItem
+(MenuItem
-	    label: '-'
+label: '-'
-	  )
+)
-	 (MenuItem
+(MenuItem
-	    label: 'Allow Halt in Debugger'
+label: 'Allow Halt in Debugger'
-	    itemValue: allowBreakPointsInDebugger:
+itemValue: allowBreakPointsInDebugger:
-	    indication: allowBreakPointsInDebugger
+indication: allowBreakPointsInDebugger
-	  )
+)
-	 )
+)
-	nil
+nil
-	nil
+nil
 )
 !
 classMenuSpec
 "This resource specification was automatically generated
 <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: 'Inspect Method'
+label: 'Inspect Method'
-	    itemValue: inspectContextsMethod
+itemValue: inspectContextsMethod
-	  )
+)
-	 (MenuItem
+(MenuItem
-	    label: 'Bookmark Method in SystemBrowser'
+label: 'Bookmark Method in SystemBrowser'
-	    itemValue: addBrowserBookmark
+itemValue: addBrowserBookmark
-	  )
+)
-	 (MenuItem
+(MenuItem
-	    label: '-'
+label: '-'
-	  )
+)
-	 (MenuItem
+(MenuItem
-	    enabled: hasBlockContextSelected
+enabled: hasBlockContextSelected
-	    label: 'Find Home Context in Caller Chain...'
+label: 'Find Home Context in Caller Chain...'
-	    itemValue: findHomeContext
+itemValue: findHomeContext
-	  )
+)
-	 (MenuItem
+(MenuItem
-	    enabled: hasContextSelected
+enabled: hasContextSelected
-	    label: 'Find Context with String in Source...'
+label: 'Find Context with String in Source...'
-	    itemValue: findContextWithStringInSource
+itemValue: findContextWithStringInSource
-	  )
+)
-	 (MenuItem
+(MenuItem
-	    enabled: hasContextSelected
+enabled: hasContextSelected
-	    label: 'Find Context with Value in Variable...'
+label: 'Find Context with Value in Variable...'
-	    itemValue: findContextWithValueInVariable
+itemValue: findContextWithValueInVariable
-	  )
+)
-	 (MenuItem
+(MenuItem
-	    enabled: hasContextSelected
+enabled: hasContextSelected
-	    label: 'Find Next Exception Handler'
+label: 'Find Next Exception Handler'
-	    itemValue: findNextExceptionHandlerContext
+itemValue: findNextExceptionHandlerContext
-	  )
+)
-	 (MenuItem
+(MenuItem
-	    enabled: hasContextSelected
+enabled: hasContextSelected
-	    label: 'Find Handler For...'
+label: 'Find Handler For...'
-	    itemValue: findHandlerFor
+itemValue: findHandlerFor
-	  )
+)
-	 (MenuItem
+(MenuItem
-	    label: 'Find Dialog Opener...'
+label: 'Find Dialog Opener...'
-	    itemValue: doGotoDialogOpener
+itemValue: doGotoDialogOpener
-	  )
+)
-	 (MenuItem
+(MenuItem
-	    label: 'Find Application Action Method...'
+label: 'Find Application Action Method...'
-	    itemValue: doGotoApplicationActionMethod
+itemValue: doGotoApplicationActionMethod
-	  )
+)
-	 (MenuItem
+(MenuItem
-	    label: '-'
+label: '-'
-	  )
+)
-	 (MenuItem
+(MenuItem
-	    label: 'Remember Callchain && Highlight on Next Entry'
+label: 'Remember Callchain && Highlight on Next Entry'
-	    itemValue: rememberCallchain
+itemValue: rememberCallchain
-	  )
+)
-	 (MenuItem
+(MenuItem
-	    label: 'Clear Remembered Callchain'
+label: 'Clear Remembered Callchain'
-	    itemValue: clearRememberedCallchain
+itemValue: clearRememberedCallchain
-	  )
+)
-	 )
+)
-	nil
+nil
-	nil
+nil
 )
 !
 fileMenuSpec
 "This resource specification was automatically generated
 <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
 <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
 <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: 'MENU_Help'
+label: 'MENU_Help'
-	    startGroup: conditionalRight
+startGroup: conditionalRight
-	    submenuChannel: helpMenuSpec
+submenuChannel: helpMenuSpec
-	  )
+)
-	 )
+)
-	nil
+nil
-	nil
+nil
 )
 !
 processMenuSpec
 "This resource specification was automatically generated
 <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
 <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
 <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
-	    enabled: notShowingDenseWalkbackHolder
+enabled: notShowingDenseWalkbackHolder
-	    label: 'Show Support Code (Implementation of Enumerations, Exceptions etc.)'
+label: 'Show Support Code (Implementation of Enumerations, Exceptions etc.)'
-	    itemValue: showingSupportCode:
+itemValue: showingSupportCode:
-	    hideMenuOnActivated: false
+hideMenuOnActivated: false
-	    indication: showingSupportCode
+indication: showingSupportCode
-	  )
+)
-	 (MenuItem
+(MenuItem
-	    label: '-'
+label: '-'
-	  )
+)
-	 (MenuItem
+(MenuItem
-	    label: 'Raise Debugger when Entering'
+label: 'Raise Debugger when Entering'
-	    itemValue: autoRaiseView:
+itemValue: autoRaiseView:
-	    hideMenuOnActivated: false
+hideMenuOnActivated: false
-	    indication: autoRaiseView
+indication: autoRaiseView
-	  )
+)
-	 (MenuItem
+(MenuItem
-	    label: '-'
+label: '-'
-	  )
+)
-	 (MenuItem
+(MenuItem
-	    label: 'Settings...'
+label: 'Settings...'
-	    itemValue: openSettingsDialog
+itemValue: openSettingsDialog
-	  )
+)
-	 )
+)
-	nil
+nil
-	nil
+nil
 )
 ! !
 !DebugView class methodsFor:'misc'!
 !DebugView methodsFor:'aspects'!
 verboseBacktraceHolder
 verboseBacktraceHolder isNil ifTrue:[
-	verboseBacktraceHolder := ValueHolder with:false
+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
 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"
 !
 |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"
 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"
 !
 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'
+s := 'HELP_GOTO_DIALOG_OPENER'
 ].
 aComponent == gotoApplicationActionMethodButton ifTrue:[
-	s := 'HELP_GOTO_APPLICATION_ACTION'
+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"
 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].
 |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
 !
 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.
 self drawableId notNil ifTrue:[
-	^ self
+^ self
 ].
 "physically create the view & subviews"
 self recreate.
 !
 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.
 !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"
 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
 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"
 !
 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"
 !
 |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:[
-	exceptionInfoLabel notNil ifTrue:[
+exceptionInfoLabel notNil ifTrue:[
-	    infoText := exceptionInfoLabel label , '\\' withCRs.
+infoText := exceptionInfoLabel label , '\\' withCRs.
-	] ifFalse:[
+] ifFalse:[
-	    infoText := ''
+infoText := ''
-	].
+].
-	infoText := infoText asStringCollection, firstContext fullPrintAllString asStringCollection.
+infoText := infoText asStringCollection, firstContext fullPrintAllString asStringCollection.
 ].
 self setClipboardText:infoText
 "Modified: 28.8.1995 / 15:31:59 / claus"
 |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"
 !
 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"
 !
 "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|
+|nextCon nextRcvr dialog|
-	"/ find the first appModel context
+"/ find the first appModel context
-	nextCon := contextArray at:i+1.
+nextCon := contextArray at:i+1.
-	"/
+"/
-	"/ while not in the appModel
+"/ while not in the appModel
-	"/
+"/
-	[
+[
-	    nextRcvr := nextCon receiver.
+nextRcvr := nextCon receiver.
-	    (nextRcvr isKindOf:ApplicationModel)
+(nextRcvr isKindOf:ApplicationModel)
-	] whileFalse:[
+] whileFalse:[
-	    nextCon := nextCon sender
+nextCon := nextCon sender
-	].
+].
-	self selectContext:nextCon.
+self selectContext:nextCon.
-	^ self.
+^ self.
 ].
 "/ not found
 gotoApplicationActionMethodButton disable.
 !
 "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 := nextCon receiver.
-		(nextRcvr == dialog)
+(nextRcvr == dialog)
-		or:[ nextRcvr == dialog class
+or:[ nextRcvr == dialog class
-		or:[ nextRcvr == DialogBox ]]
+or:[ nextRcvr == DialogBox ]]
-	    ] whileTrue:[
+] whileTrue:[
-		(nextCon isBlockContext and:[ nextCon methodHome notNil]) ifTrue:[
+(nextCon isBlockContext and:[ nextCon methodHome notNil]) ifTrue:[
-		    nextCon := nextCon methodHome
+nextCon := nextCon methodHome
-		].
+].
-		nextCon := nextCon sender.
+nextCon := nextCon sender.
-	    ].
+].
-	    "/
+"/
-	    "/ while still in a Notification
+"/ while still in a Notification
-	    "/
+"/
-	    [
+[
-		nextRcvr := nextCon receiver.
+nextRcvr := nextCon receiver.
-		(nextRcvr isKindOf:UserInformation)
+(nextRcvr isKindOf:UserInformation)
-		or:[ nextRcvr isBehavior
+or:[ nextRcvr isBehavior
-		     and:[nextRcvr includesBehavior:UserInformation]]
+and:[nextRcvr includesBehavior:UserInformation]]
-	    ] whileTrue:[
+] whileTrue:[
-		nextCon := nextCon sender
+nextCon := nextCon sender
-	    ].
+].
-	    "/
+"/
-	    "/ while still in UIBuilder
+"/ while still in UIBuilder
-	    "/
+"/
-	    [
+[
-		nextRcvr := nextCon receiver.
+nextRcvr := nextCon receiver.
-		(nextRcvr isKindOf:WindowBuilder)
+(nextRcvr isKindOf:WindowBuilder)
-	    ] whileTrue:[
+] whileTrue:[
-		nextCon := nextCon sender
+nextCon := nextCon sender
-	    ].
+].
-	    "/
+"/
-	    "/ while still in SimpleDialog
+"/ while still in SimpleDialog
-	    "/
+"/
-	    [
+[
-		nextRcvr := nextCon receiver.
+nextRcvr := nextCon receiver.
-		(nextRcvr class == SimpleDialog)
+(nextRcvr class == SimpleDialog)
-	    ] whileTrue:[
+] whileTrue:[
-		nextCon := nextCon sender
+nextCon := nextCon sender
-	    ].
+].
-	    "/
+"/
-	    "/ while still in applicationModel support code
+"/ while still in applicationModel support code
-	    "/
+"/
-	    [
+[
-		(nextCon selector startsWith:'openDialogSpec').
+(nextCon selector startsWith:'openDialogSpec').
-	    ] whileTrue:[
+] whileTrue:[
-		nextCon := nextCon sender
+nextCon := nextCon sender
-	    ].
+].
-	    self selectContext:nextCon.
+self selectContext:nextCon.
-	    ^ self.
+^ self.
-	]
+]
 ].
 "/ not found
 gotoDialogOpenerButton disable.
 !
 "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
 doTraceStep
 "tracestep - not implemented yet"
 canContinue ifTrue:[
-	tracing := true.
+tracing := true.
-	self doStep
+self doStep
 ]
 !
 exit
 "exit from menu: immediate exit from smalltalk"
 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 := 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 |
+findContextForWhich:[:con |
-	    con isHandleContext
+con isHandleContext
-	    and:[ (con receiver handlerForSignal:exClass context:con originator:nil) notNil ]
+and:[ (con receiver handlerForSignal:exClass context:con originator:nil) notNil ]
-	]
+]
-	thenDo:[:con |
+thenDo:[:con |
-	    self selectContext:con sender.
+self selectContext:con sender.
-	]
+]
 !
 findHomeContext
 |con home|
 (con := self selectedContext) isNil ifTrue:[
-	self beep.
+self beep.
-	^ self.
+^ self.
 ].
 (home := con home) isNil ifTrue:[
-	self beep.
+self beep.
-	^ self.
+^ self.
 ].
 "/ still have to find it - home could be elsewhere (another process)
 "/ (i.e. cannot simply select it)
 self
-	findContextForWhich:[:con |
+findContextForWhich:[:con |
-	    con == home
+con == home
-	]
+]
-	thenDo:[:con |
+thenDo:[:con |
-	    self selectContext: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"
 !
 "launch an inspector on the currently selected context's method"
 |con|
 (con := self selectedContext) notNil ifTrue:[
-	con method inspect.
+con method inspect.
 ]
 !
 inspectProcessesApplication
 "inspect the application (of the process, if it is a GUI process)"
 openSettingsDialog
 |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'    )
-	).
+).
 SettingsDialog
-	openWithList:settingsList
+openWithList:settingsList
-	label:(resources string:'Debugger Settings').
+label:(resources string:'Debugger Settings').
 !
 processesApplication
 "if the debugged process is a GUI process,
 AND it has an applicaiton, return it.
 |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].
-	nonModalWGs := wgs reject:[:wg | wg isModal].
+nonModalWGs := wgs reject:[:wg | wg isModal].
-	nonModalWGs notEmpty ifTrue:[^ nonModalWGs first application].
+nonModalWGs notEmpty ifTrue:[^ nonModalWGs first application].
-	wgs do:[:wg |
+wgs do:[:wg |
-	    |wgi|
+|wgi|
-	    wgi := wg.
+wgi := wg.
-	    [wgi notNil] whileTrue:[
+[wgi notNil] whileTrue:[
-		(app := wgi application) notNil ifTrue:[^ app].
+(app := wgi application) notNil ifTrue:[^ app].
-		wgi isModal ifTrue:[
+wgi isModal ifTrue:[
-		    wgi := wgi previousGroup
+wgi := wgi previousGroup
-		] ifFalse:[
+] ifFalse:[
-		    wgi := nil.
+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
 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"
 !
 "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"
 self allowBreakPointsInDebugger:true
 !
 ignoreAllHaltsForCurrentProcess
 self
-	addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:false
+addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:false
-	orThisReceiverClass:false orCurrentProcess:true
+orThisReceiverClass:false orCurrentProcess:true
-	orIfCalledFromMethod:nil
+orIfCalledFromMethod:nil
-	forAll:true.
+forAll:true.
 "Created: / 27-01-2012 / 11:32:14 / cg"
 !
 ignoreAllHaltsForThisReceiverClass
 self
-	addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:false
+addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:false
-	orThisReceiverClass:true orCurrentProcess:false
+orThisReceiverClass:true orCurrentProcess:false
-	orIfCalledFromMethod:nil
+orIfCalledFromMethod:nil
-	forAll:true.
+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
-	orIfCalledFromMethod:nil
+orIfCalledFromMethod:nil
-	forAll:true.
+forAll:true.
 "Created: / 08-05-2011 / 10:19:56 / cg"
 !
 ignoreAllHaltsIfCalledFromMethod:aMethod
 self
-	addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:false
+addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:false
-	orThisReceiverClass:false orCurrentProcess:false
+orThisReceiverClass:false orCurrentProcess:false
-	orIfCalledFromMethod:aMethod
+orIfCalledFromMethod:aMethod
-	forAll:true.
+forAll:true.
 !
 ignoreAllHaltsUntilShiftKeyIsPressed
 self
-	addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:true
+addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:true
-	orThisReceiverClass:false orCurrentProcess:false
+orThisReceiverClass:false orCurrentProcess:false
-	orIfCalledFromMethod:nil
+orIfCalledFromMethod:nil
-	forAll:true.
+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
-	orIfCalledFromMethod:nil
+orIfCalledFromMethod:nil
-	forAll:false.
+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
-	orIfCalledFromMethod:nil
+orIfCalledFromMethod:nil
-	forAll:false.
+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
-	orIfCalledFromMethod:nil
+orIfCalledFromMethod:nil
-	forAll:false.
+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
-	orIfCalledFromMethod:nil
+orIfCalledFromMethod:nil
-	forAll:false.
+forAll:false.
 "Modified: / 27-01-2012 / 11:31:37 / cg"
 !
 ignoreHaltIfCalledFromMethod:aMethod
 self
-	addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:false
+addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:false
-	orThisReceiverClass:false orCurrentProcess:false
+orThisReceiverClass:false orCurrentProcess:false
-	orIfCalledFromMethod:aMethod
+orIfCalledFromMethod:aMethod
-	forAll:false.
+forAll:false.
 !
 ignoreHaltUntilShiftKeyIsPressed
 self
-	addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:true
+addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:true
-	orThisReceiverClass:false orCurrentProcess:false
+orThisReceiverClass:false orCurrentProcess:false
-	orIfCalledFromMethod:nil
+orIfCalledFromMethod:nil
-	forAll:false.
+forAll:false.
 "Created: / 27-01-2012 / 11:36:54 / cg"
 !
 menuForIgnoreAllBreakpointsIfCalledFromAnyOf
 m := Menu new.
 count := 0.
 already := IdentitySet new.
 contextArray do:[:con |
-	|mthd cls sel|
+|mthd cls sel|
-	mthd := con method.
+mthd := con method.
-	mthd notNil ifTrue:[
+mthd notNil ifTrue:[
-	    mthd isWrapped ifFalse:[
+mthd isWrapped ifFalse:[
-		(already includes:already) ifFalse:[
+(already includes:already) ifFalse:[
-		    already add:mthd.
+already add:mthd.
-		    m addItem:(MenuItem
+m addItem:(MenuItem
-				label: (mthd whoString)
+label: (mthd whoString)
-				itemValue: [ forAllHaltsBoolean
+itemValue: [ forAllHaltsBoolean
-						ifTrue:[self ignoreHaltIfCalledFromMethod:mthd]
+ifTrue:[self ignoreHaltIfCalledFromMethod:mthd]
-						ifFalse:[self ignoreAllHaltsIfCalledFromMethod:mthd]
+ifFalse:[self ignoreAllHaltsIfCalledFromMethod:mthd]
-					   ]
+]
-				translateLabel: false).
+translateLabel: false).
-		    count := count + 1.
+count := count + 1.
-		    (count > 20) ifTrue:[
+(count > 20) ifTrue:[
-			^ m
+^ m
-		    ].
+].
-		]
+]
-	    ]
+]
-	]
+]
 ].
 ^ m
 !
 openBreakPointBrowser
 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
-		orIfCalledFromMethod:nil
+orIfCalledFromMethod:nil
-		forAll:true.
+forAll:true.
-	    ^ self.
+^ 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
-		orIfCalledFromMethod:nil
+orIfCalledFromMethod:nil
-		forAll:false.
+forAll:false.
-	    ^ self.
+^ 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
-		orIfCalledFromMethod:nil
+orIfCalledFromMethod:nil
-		forAll:false.
+forAll:false.
-	    ^ self.
+^ 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
-		orIfCalledFromMethod:nil
+orIfCalledFromMethod:nil
-		forAll:false.
+forAll:false.
-	    ^ self.
+^ 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
-		orIfCalledFromMethod:nil
+orIfCalledFromMethod:nil
-		forAll:false.
+forAll:false.
-	    ^ self.
+^ self.
-	].
+].
 ] loop
 "Modified: / 27-01-2012 / 11:31:47 / cg"
 !
 removeAllBreakpoints
 "remove all trace & breakpoints - if any"
 self withExecuteCursorDo:[
-	(MessageTracer notNil and:[MessageTracer isLoaded]) ifTrue:[
+(MessageTracer notNil and:[MessageTracer isLoaded]) ifTrue:[
-	    MessageTracer unwrapAllMethods
+MessageTracer unwrapAllMethods
-	].
+].
-	(MethodWithBreakpoints notNil and:[MethodWithBreakpoints isLoaded]) ifTrue:[
+(MethodWithBreakpoints notNil and:[MethodWithBreakpoints isLoaded]) ifTrue:[
-	    MethodWithBreakpoints removeAllBreakpoints
+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|
 lastStepUntilEntering notNil ifTrue:[^ lastStepUntilEntering].
 selectedContext isNil ifTrue:[^ nil].
 current := selectedContext selector.
 current isNil ifTrue:[^ nil].
 ('change:*' match:current) ifTrue:[
-	^ 'update:*'
+^ 'update:*'
 ].
 ^ nil
 !
 haltSelectors
 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
 !
 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. self 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 enable.
-	gotoApplicationActionMethodButton beVisible.
+gotoApplicationActionMethodButton beVisible.
 ] ifFalse:[
-	gotoApplicationActionMethodButton beInvisible.
+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"
 !
 |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
-	    ].
+].
-	].
+].
-	nameSymbol := nm asSymbolIfInterned.
+nameSymbol := nm asSymbolIfInterned.
-	nameSymbol notNil ifTrue:[
+nameSymbol notNil ifTrue:[
-	    (Smalltalk includesKey:nameSymbol) ifTrue:[
+(Smalltalk includesKey:nameSymbol) ifTrue:[
-		(Smalltalk at:nameSymbol) isClass ifTrue:[
+(Smalltalk at:nameSymbol) isClass ifTrue:[
-		    aBlock value:'class: ',nmBold value:nil.
+aBlock value:'class: ',nmBold value:nil.
-		] ifFalse:[
+] ifFalse:[
-		    aBlock value:(Smalltalk at:nameSymbol) value:'global ',nmBold.
+aBlock value:(Smalltalk at:nameSymbol) value:'global ',nmBold.
-		].
+].
-		^ self
+^ self
-	    ].
+].
-	].
+].
-	aBlock value:'' value:'unknown'.
+aBlock value:'' value:'unknown'.
-	^ self
+^ 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 don't 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
-	    "/ context's 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"
 ! !
 "Modified: / 25-11-2016 / 13:25:55 / cg"
 !
 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"
 !
 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"
 !
 ! !
 !DebugView methodsFor:'private-breakpoints'!
 addIgnoredHaltForCount:countOrNil
-	orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
+orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
-	orThisReceiverClass:forThisReceiverClass orCurrentProcess:forCurrentProcess
+orThisReceiverClass:forThisReceiverClass orCurrentProcess:forCurrentProcess
-	orIfCalledFromMethod:ifCalledForMethodOrNil
+orIfCalledFromMethod:ifCalledForMethodOrNil
-	forAll:aBoolean
+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
+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"
 !
 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"
 ! !
 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"
 !
 |con|
 con := aContext.
 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"
 !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"
 !
 ].
 Dialog aboutToOpenBoxNotificationSignal
 handle:[:ex | ex proceed ]
 do:[
 answer := Dialog
-choose:(ex creator class name,' in debugger:\' withCRs , eMsg , '\\debug again ?' withCRs)
+choose:(ex creator class theNonMetaclass name,' in debugger:\' withCRs , eMsg , '\\debug again ?' withCRs)
 labels:#( 'Proceed' 'Cancel' 'Debug' )
 values:#( #proceed #cancel #debug )
 default:#cancel.
 ].
 answer == #debug ifTrue:[
 'DebugView [info]: caught exception - debugging' infoPrintCR.
 Debugger
 enterUnconditional:(ex suspendedContext)
-withMessage:(ex creator class name,' in debugger: ' , eMsg)
+withMessage:(ex creator class theNonMetaclass name,' in debugger: ' , eMsg)
 mayProceed:true.
 ex proceed.
 ].
 answer == #proceed ifTrue:[
 'DebugView [info]: ignored exception - proceeding' infoPrintCR.
 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"
 ParseError handle:[:ex |
-	ex lineNumber notNil ifTrue:[
+ex lineNumber notNil ifTrue:[
-	    codeView selectLine:ex lineNumber. "/ selectFromCharacterPosition:ex startPosition to:ex endPosition.
+codeView selectLine:ex lineNumber. "/ selectFromCharacterPosition:ex startPosition to:ex endPosition.
-	].
+].
-	Dialog information:ex description.
+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
+^ self codeAccept:someCode unwind:false category:nil onCancel:nil
 ].
 "Modified: / 28-11-2006 / 19:49:04 / cg"
 !
 currentMethod isNil ifTrue:[ ^ self ].
 cls := currentMethod mclass.
 cls notNil ifTrue:[
-	language := cls programmingLanguage.
+language := cls programmingLanguage.
 ].
 UserInformation handle:[:ex |
-	ex proceed.
+ex proceed.
 ] do:[
-	DoWhatIMeanSupport codeCompletionForLanguage:language 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>"
 !
 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
 !
 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).
 "/                                ].
 "/                                ] 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
 !
 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.
+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 }
 !DebugView::IgnoredHaltOrBreakpoint methodsFor:'misc'!
 decrementIgnoreCount
 ignoreCount notNil ifTrue:[
-	ignoreCount > 0 ifTrue:[
+ignoreCount > 0 ifTrue:[
-	    ignoreCount := ignoreCount - 1
+ignoreCount := ignoreCount - 1
-	]
+]
 ]
 ! !
 !DebugView::IgnoredHaltOrBreakpoint methodsFor:'printing'!
 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 > 0 ifTrue:[
 "/            ^ '%1 more calls ignored' bindWith:ignoreCount
 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:[
-	^ Screen current 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:[
-	context withAllSendersDo:[:each |
+context withAllSendersDo:[:each |
-	    |m className selector cls|
+|m className selector cls|
-	    (m := each method) notNil ifTrue:[
+(m := each method) notNil ifTrue:[
-		cls := m mclass.
+cls := m mclass.
-		cls notNil ifTrue:[
+cls notNil ifTrue:[
-		    className := cls name.
+className := cls name.
-		    selector := m selector.
+selector := m selector.
-		    (ignoredSendingClassAndSelectors contains:[:entry | entry first = className and:[entry second = selector]])
+(ignoredSendingClassAndSelectors contains:[:entry | entry first = className and:[entry second = selector]])
-			ifTrue:[^ true].
+ifTrue:[^ true].
-		].
+].
-	    ]
+]
-	]
+]
 ].
 ^ self isHaltIgnored  "/ unconditionally
 ! !

changeset 17185	043fb3552c44
parent 17181	90ef84ba3a5a
child 17188	8f420441108e
child 17218	95008a0da101