hg/stx-libtool: comparison DebugView.st

equal deleted inserted replaced

-:202af72b0a90
+:83e08cc8ce48
 "
 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
 hereby transferred.
 "
 "{ Package: 'stx:libtool' }"
 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 steppedContextAddress abortButton terminateButton
+skipLineNr steppedContextAddress abortButton terminateButton
-		continueButton stepButton nextButton nextOverButton nextOutButton
+continueButton stepButton nextButton nextOverButton nextOutButton
-		sendButton returnButton restartButton exclusive inspecting
+sendButton returnButton restartButton exclusive inspecting
-		nChainShown inspectedProcess updateProcess stopButton
+nChainShown inspectedProcess updateProcess stopButton
-		updateButton defineButton monitorToggle stepping
+updateButton defineButton monitorToggle stepping
-		steppedContextLineno stepForReturn actualContext inWrap
+steppedContextLineno stepForReturn actualContext inWrap
-		stackInspector steppedContext wrapperContext verboseBacktrace
+stackInspector steppedContext wrapperContext verboseBacktrace
-		firstContext stepHow cachable currentMethod ignoreBreakpoints
+firstContext stepHow cachable currentMethod ignoreBreakpoints
-		stepUntilEntering lastStepUntilEntering
+stepUntilEntering lastStepUntilEntering
-		lastSelectionInReceiverInspector lastSelectionInContextInspector
+lastSelectionInReceiverInspector lastSelectionInContextInspector
-		canShowMore exitAbort reportButton setOfHiddenCallingSelectors
+canShowMore exitAbort reportButton setOfHiddenCallingSelectors
-		isStoppedAtHaltOrBreakPoint exceptionInfoLabel methodCodeToggle
+isStoppedAtHaltOrBreakPoint exceptionInfoLabel methodCodeToggle
-		methodCodeToggleSelectionHolder'
+methodCodeToggleSelectionHolder'
-	classVariableNames:'CachedDebugger CachedExclusive OpenDebuggers MoreDebuggingDetail
+classVariableNames:'CachedDebugger CachedExclusive OpenDebuggers MoreDebuggingDetail
-		DebuggingDebugger DefaultDebuggerBackgroundColor
+DebuggingDebugger DefaultDebuggerBackgroundColor
-		InitialNChainShown IgnoredHalts ShowThreadID LastIgnoreHaltNTimes
+InitialNChainShown IgnoredHalts ShowThreadID LastIgnoreHaltNTimes
-		LastIgnoreHaltDuration LastExtent LastOrigin'
+LastIgnoreHaltDuration LastExtent LastOrigin'
-	poolDictionaries:''
+poolDictionaries:''
-	category:'Interface-Debugger'
+category:'Interface-Debugger'
 !
 Object subclass:#IgnoredHalt
-	instanceVariableNames:'weakMethodHolder lineNumber ignoreEndTime ignoreCount'
+instanceVariableNames:'weakMethodHolder lineNumber ignoreEndTime ignoreCount
-	classVariableNames:''
+ignoreUntilShiftKeyPressed'
-	poolDictionaries:''
+classVariableNames:''
-	privateIn:DebugView
+poolDictionaries:''
+privateIn:DebugView
 !
 !DebugView class methodsFor:'documentation'!
 copyright
 "
 COPYRIGHT (c) 1989 by Claus Gittinger
-	      All Rights Reserved
+All Rights Reserved
 This software is furnished under a license and may be used
 only in accordance with the terms of that license and with the
 inclusion of the above copyright notice.   This software may not
 be provided or otherwise made available to, or used by, any
 to have the debugger control the debuggee (i.e. two processes)
 See additional information in 'doc/misc/debugger.doc'.
 Notice:
-	the DebugView class caches the last used debugger in a class
+the DebugView class caches the last used debugger in a class
-	variable. It may happen, that a malfunctioning debugger (for example,
+variable. It may happen, that a malfunctioning debugger (for example,
-	a halfway destroyed one) is kept there. You will notice this, if a
+a halfway destroyed one) is kept there. You will notice this, if a
-	debugger comes up without showing any contents. In this case, close
+debugger comes up without showing any contents. In this case, close
-	(or destroy) the broken debugView, and execute
+(or destroy) the broken debugView, and execute
-	    Debugger newDebugger
+Debugger newDebugger
-	which removes the cached debugger and forces creation of a new one the
+which removes the cached debugger and forces creation of a new one the
-	next time. This is a temporary workaround - the debugger will be fixed to
+next time. This is a temporary workaround - the debugger will be fixed to
-	avoid this problem.
+avoid this problem.
-	You also have to remove the cached debugger, if you change the debugger's
+You also have to remove the cached debugger, if you change the debugger's
-	initialization code (buttons, menu, etc.) and you want the new code to become
+initialization code (buttons, menu, etc.) and you want the new code to become
-	effective.
+effective.
 [author:]
-	Claus Gittinger
+Claus Gittinger
 [see also:]
-	Exception Signal
+Exception Signal
-	Process
+Process
 "
 ! !
 !DebugView class methodsFor:'initialization'!
 CachedDebugger := nil.
 CachedExclusive := nil.
 OpenDebuggers := nil.
 (Debugger isBehavior and:[Debugger name = #DebugView]) ifTrue:[
-	Debugger := self
+Debugger := self
 ].
 "
 DebugView newDebugger
 "
 "the information (if any) about the ignore-state of a halt"
 IgnoredHalts isNil ifTrue:[^ nil].
 IgnoredHalts do:[:ign |
-	(ign isHaltIgnoredInMethod:haltingMethod line:lineNrInHaltingMethod) ifTrue:[
+(ign isHaltIgnoredInMethod:haltingMethod line:lineNrInHaltingMethod) ifTrue:[
-	    ^ ign
+^ ign
-	].
+].
 ].
 ^ nil.
 !
 hasIgnoredHalts
 self removeInactiveIgnores.
 ^ IgnoredHalts notEmptyOrNil
 !
-ignoreHaltIn:haltingMethod at:lineNrOfHalt forCount:countOrNil orTimeDuration:dTOrNil
+ignoreHaltIn:haltingMethod at:lineNrOfHalt forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
 "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"
 |oldEntry ign|
 IgnoredHalts notNil ifTrue:[
-	self removeInactiveIgnores.
+self removeInactiveIgnores.
-	oldEntry := IgnoredHalts
+oldEntry := IgnoredHalts
-			detect:[:ign | ign isForMethod:haltingMethod line:lineNrOfHalt]
+detect:[:ign | ign isForMethod:haltingMethod line:lineNrOfHalt]
-			ifNone:nil.
+ifNone:nil.
-	oldEntry notNil ifTrue:[
+oldEntry notNil ifTrue:[
-	    IgnoredHalts remove:oldEntry ifAbsent:[].
+IgnoredHalts remove:oldEntry ifAbsent:[].
-	]
+]
 ].
-(countOrNil notNil or:[dTOrNil notNil]) ifTrue:[
+(countOrNil notNil or:[dTOrNil notNil or:[untilShiftKey == true]]) ifTrue:[
-	IgnoredHalts isNil ifTrue:[
+IgnoredHalts isNil ifTrue:[
-	    IgnoredHalts := OrderedCollection new.
+IgnoredHalts := OrderedCollection new.
-	].
+].
-	ign := IgnoredHalt new method:haltingMethod lineNumber:lineNrOfHalt.
+ign := IgnoredHalt new method:haltingMethod lineNumber:lineNrOfHalt.
-	(countOrNil notNil and:[countOrNil > 0]) ifTrue:[
+(countOrNil notNil and:[countOrNil > 0]) ifTrue:[
-	    ign ignoreCount:countOrNil.
+ign ignoreCount:countOrNil.
-	].
+].
-	(dTOrNil notNil) ifTrue:[
+(dTOrNil notNil) ifTrue:[
-	    ign ignoreEndTime:(Timestamp now + dTOrNil).
+ign ignoreEndTime:(Timestamp now + dTOrNil).
-	].
+].
-	IgnoredHalts add:ign.
+untilShiftKey == true ifTrue:[
+ign ignoreUntilShiftKeyPressed:true.
+].
+IgnoredHalts add:ign.
 ].
 Smalltalk changed:#ignoredHalts.
-"Modified: / 22-10-2010 / 13:52:02 / cg"
+"Created: / 27-01-2012 / 11:33:38 / cg"
 !
 isHaltToBeIgnored
 |c sender haltingMethod lineNrInHaltingMethod|
 "Modified: / 27-01-2012 / 11:08:32 / cg"
 !
 isHaltToBeIgnoredIn:haltingMethod atLineNr:lineNrInHaltingMethod
 ^ self
-	isHaltToBeIgnoredIn:haltingMethod
+isHaltToBeIgnoredIn:haltingMethod
-	atLineNr:lineNrInHaltingMethod
+atLineNr:lineNrInHaltingMethod
-	modifyEntryCount:false
+modifyEntryCount:false
 !
 isHaltToBeIgnoredIn:haltingMethod atLineNr:lineNrInHaltingMethod modifyEntryCount:modifyCount
 "/ should a halt be ignored ?
 IgnoredHalts isNil ifTrue:[^ false].
 "/ Transcript showCR:'halt/break in ',haltingMethod printString,' at ',lineNrInHaltingMethod printString.
 IgnoredHalts do:[:ign |
-	(ign isHaltIgnoredInMethod:haltingMethod line:lineNrInHaltingMethod) ifTrue:[
+(ign isHaltIgnoredInMethod:haltingMethod line:lineNrInHaltingMethod) ifTrue:[
-	    Transcript showCR:'Debugger [info]: halt ignored in ', haltingMethod whoString.
+Transcript show:'Debugger [info]: halt ignored in ', haltingMethod whoString.
-	    modifyCount ifTrue:[ ign decrementIgnoreCount ].
+Transcript show:' ('; show:ign; showCR:')'.
-	    ign isHaltIgnored ifFalse:[
+modifyCount ifTrue:[ ign decrementIgnoreCount ].
-		Transcript showCR:'Debugger [info]: no longer ignore halt in ', haltingMethod whoString.
+ign isHaltIgnored ifFalse:[
-		IgnoredHalts remove:ign ifAbsent:[].
+Transcript showCR:'Debugger [info]: no longer ignore halt in ', haltingMethod whoString.
-	    ].
+IgnoredHalts remove:ign ifAbsent:[].
-	    ^ true.
+].
-	].
+^ true.
+].
 ].
 IgnoredHalts := IgnoredHalts
-	select:[:ign |
+select:[:ign |
-	    ign isActive and:[ (ign isForMethod:haltingMethod line:lineNrInHaltingMethod) not ]
+ign isActive and:[ (ign isForMethod:haltingMethod line:lineNrInHaltingMethod) not ]
-	].
+].
 IgnoredHalts isEmpty ifTrue:[
-	IgnoredHalts := nil.
+IgnoredHalts := nil.
 ].
 ^ false.
-"Modified: / 22-10-2010 / 13:51:45 / cg"
+"Modified: / 27-01-2012 / 11:41:19 / cg"
 !
 removeInactiveIgnores
 IgnoredHalts notNil ifTrue:[
-	IgnoredHalts := IgnoredHalts select:[:i | i isActive].
+IgnoredHalts := IgnoredHalts select:[:i | i isActive].
 ].
 !
 stopIgnoringHalts
 "forget about all ignored halts"
 "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.
 |active|
 StepInterruptPending := nil.
 ControlInterrupt handle:[:ex |
-	'DebugView [info]: breakpoint in debugger setup ignored [enter.]' infoPrintCR.
+'DebugView [info]: breakpoint in debugger setup ignored [enter.]' infoPrintCR.
-	('DebugView [info]: breakpoint on:' , ex suspendedContext printString) infoPrintCR.
+('DebugView [info]: breakpoint on:' , ex suspendedContext printString) infoPrintCR.
-	ex proceed
+ex proceed
 ] do:[
-	"
+"
-	 well, it could be a stepping or sending debugger up there;
+well, it could be a stepping or sending debugger up there;
-	 in this case, return to it. This happens, when a stepping process
+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
+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.
+stepping debugger to come up again instead of a new one.
-	"
+"
-	OpenDebuggers notNil ifTrue:[
+OpenDebuggers notNil ifTrue:[
-	    active := Processor activeProcess.
+active := Processor activeProcess.
-	    OpenDebuggers do:[:aDebugger |
+OpenDebuggers do:[:aDebugger |
-		(aDebugger notNil and:[aDebugger ~~ 0]) ifTrue:[
+(aDebugger notNil and:[aDebugger ~~ 0]) ifTrue:[
-		    (aDebugger inspectedProcess == active) ifTrue:[
+(aDebugger inspectedProcess == active) ifTrue:[
-			aDebugger device isOpen ifTrue:[
+aDebugger device isOpen ifTrue:[
-			    "/ 'entering stepping debugger again' printNL.
+"/ 'entering stepping debugger again' printNL.
-			    aDebugger unstep.
+aDebugger unstep.
-			    aDebugger setLabelFor:aString in:active.
+aDebugger setLabelFor:aString in:active.
-			    aDebugger mayProceed:mayProceed.
+aDebugger mayProceed:mayProceed.
-			    ^ aDebugger enter:aContext select:nil.
+^ aDebugger enter:aContext select:nil.
-			]
+]
-		    ]
+]
-		]
+]
-	    ]
+]
-	].
+].
 ].
 ^ self enterUnconditional:aContext withMessage:aString mayProceed:mayProceed
 "Modified: / 18.11.2001 / 00:48:03 / cg"
 !
 a MiniDebugger instead.
 This is the standard way of entering the debugger;
 sent from error- and halt messages."
 ^ self
-	enter:ex returnableSuspendedContext
+enter:ex returnableSuspendedContext
-	withMessage:ex descriptionForDebugger
+withMessage:ex descriptionForDebugger
-	mayProceed:(ex mayProceed).
+mayProceed:(ex mayProceed).
 !
 enterUnconditional:aContext withMessage:aString mayProceed:mayProceed
 "enter a debugger - do not check for recursive invocation"
 StepInterruptPending := nil.
 "/ 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 cought.\\Press Continue or Abort.' withCRs
+(Dialog confirm:'Error/Breakpoint cought.\\Press Continue or Abort.' withCRs
-		   yesLabel:'Continue' noLabel:'Abort')
+yesLabel:'Continue' noLabel:'Abort')
-	    ifTrue:[
+ifTrue:[
-		^ nil
+^ nil
-	    ].
+].
-	] ifFalse:[
+] ifFalse:[
-	    self information:'Error cought.\\Press OK to abort the operation.' withCRs.
+self information:'Error cought.\\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 debuggerDevice|
 currentScreen := Screen current.
 currentScreen notNil ifTrue:[
-	(currentScreen suppressDebugger) ifTrue:[
+(currentScreen suppressDebugger) ifTrue:[
-	    "/ no debuggers with that device - show an alertBox which aborts...
+"/ no debuggers with that device - show an alertBox which aborts...
-	    ^ nil.
+^ nil.
-	].
+].
-	(currentScreen mayOpenDebugger) ifFalse:[
+(currentScreen mayOpenDebugger) ifFalse:[
-	    "/ no debugger on that device - but on the main screen
+"/ no debugger on that device - but on the main screen
-	    currentScreen := Screen default.
+currentScreen := Screen default.
-	].
+].
 ].
 "
 need a blocking debugger if no processes or
 or if its a timing/interrupt process
 (because otherwise we would not get any events here ...
 "
 Processor activeProcessIsSystemProcess ifTrue:[
-	((debugger := CachedExclusive) isNil
+((debugger := CachedExclusive) isNil
-	or:[debugger device ~~ currentScreen
+or:[debugger device ~~ currentScreen
-	or:[currentScreen isNil
+or:[currentScreen isNil
-	or:[currentScreen isOpen not]]]) ifTrue:[
+or:[currentScreen isOpen not]]]) ifTrue:[
-	    debugger := self newExclusive
+debugger := self newExclusive
-	].
+].
-	CachedExclusive := nil.
+CachedExclusive := nil.
 ] ifFalse:[
-	CachedDebugger notNil ifTrue:[
+CachedDebugger notNil ifTrue:[
-	    (CachedDebugger device ~~ currentScreen
+(CachedDebugger device ~~ currentScreen
-	    or:[currentScreen isNil
+or:[currentScreen isNil
-	    or:[currentScreen isOpen not
+or:[currentScreen isOpen not
-	    or:[CachedDebugger class ~~ self]]]) ifTrue:[
+or:[CachedDebugger class ~~ self]]]) ifTrue:[
-		CachedDebugger := nil
+CachedDebugger := nil
-	    ]
+]
-	].
+].
-	(debugger := CachedDebugger) notNil ifTrue:[
+(debugger := CachedDebugger) notNil ifTrue:[
-	    CachedDebugger := nil.
+CachedDebugger := nil.
-	] ifFalse:[
+] ifFalse:[
-	    debuggerDevice := currentScreen.
+debuggerDevice := currentScreen.
-	    debuggerDevice isNil ifTrue:[
+debuggerDevice isNil ifTrue:[
-		"/ use the default display
+"/ use the default display
-		debuggerDevice := Screen default.
+debuggerDevice := Screen default.
-	    ].
+].
-	    (debuggerDevice isNil
+(debuggerDevice isNil
-	    or:[debuggerDevice isOpen not
+or:[debuggerDevice isOpen not
-	    "/ or:[debuggerDevice mayOpenDebugger not]
+"/ or:[debuggerDevice mayOpenDebugger not]
-	    ]) ifTrue:[
+]) ifTrue:[
-		"/ no debugger
+"/ no debugger
-		^ nil.
+^ nil.
-	    ].
+].
-	    Screen currentScreenQuerySignal answer:debuggerDevice
+Screen currentScreenQuerySignal answer:debuggerDevice
-	    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"
 !
 |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
-	    label: 'File'
+label: 'File'
-	    translateLabel: true
+translateLabel: true
-	    submenu:
+submenu:
-	   (Menu
+(Menu
-	      (
+(
-	       (MenuItem
+(MenuItem
-		  enabled: canSendEmail
+enabled: canSendEmail
-		  label: 'Report a Bug via eMail...'
+label: 'Report a Bug via eMail...'
-		  itemValue: doOpenReportMailApp
+itemValue: doOpenReportMailApp
-		  translateLabel: true
+translateLabel: true
-		)
+)
-	       (MenuItem
+(MenuItem
-		  label: '-'
+label: '-'
-		)
+)
-	       (MenuItem
+(MenuItem
-		  label: 'Exit'
+label: 'Exit'
-		  itemValue: closeRequest
+itemValue: closeRequest
-		  translateLabel: true
+translateLabel: true
-		  isVisible: isInspecting
+isVisible: isInspecting
-		)
+)
-	       (MenuItem
+(MenuItem
-		  label: 'Close Debugger and Abort'
+label: 'Close Debugger and Abort'
-		  itemValue: closeRequest
+itemValue: closeRequest
-		  translateLabel: true
+translateLabel: true
-		  isVisible: isNotInspecting
+isVisible: isNotInspecting
-		)
+)
-	       )
+)
-	      nil
+nil
-	      nil
+nil
-	    )
+)
-	  )
+)
-	 (MenuItem
+(MenuItem
-	    label: 'View'
+label: 'View'
-	    translateLabel: true
+translateLabel: true
-	    submenu:
+submenu:
-	   (Menu
+(Menu
-	      (
+(
-	       (MenuItem
+(MenuItem
-		  enabled: canShowMore
+enabled: canShowMore
-		  label: 'Show More WalkBack'
+label: 'Show More WalkBack'
-		  itemValue: showMore
+itemValue: showMore
-		  translateLabel: true
+translateLabel: true
-		)
+)
-	       (MenuItem
+(MenuItem
-		  label: 'Show Verbose WalkBack'
+label: 'Show Verbose WalkBack'
-		  itemValue: toggleVerboseWalkback
+itemValue: toggleVerboseWalkback
-		  translateLabel: true
+translateLabel: true
-		  isVisible: showingDenseWalkback
+isVisible: showingDenseWalkback
-		)
+)
-	       (MenuItem
+(MenuItem
-		  label: 'Show Dense WalkBack'
+label: 'Show Dense WalkBack'
-		  itemValue: toggleVerboseWalkback
+itemValue: toggleVerboseWalkback
-		  translateLabel: true
+translateLabel: true
-		  isVisible: showingVerboseWalkback
+isVisible: showingVerboseWalkback
-		)
+)
-	       (MenuItem
+(MenuItem
-		  label: '-'
+label: '-'
-		)
+)
-	       (MenuItem
+(MenuItem
-		  label: 'Raise Debugger when Entering'
+label: 'Raise Debugger when Entering'
-		  itemValue: autoRaiseView:
+itemValue: autoRaiseView:
-		  translateLabel: true
+translateLabel: true
-		  indication: autoRaiseView
+indication: autoRaiseView
-		)
+)
-	       (MenuItem
+(MenuItem
-		  label: '-'
+label: '-'
-		)
+)
-	       (MenuItem
+(MenuItem
-		  label: 'Settings...'
+label: 'Settings...'
-		  itemValue: openSettingsDialog
+itemValue: openSettingsDialog
-		  translateLabel: true
+translateLabel: true
-		)
+)
-	       )
+)
-	      nil
+nil
-	      nil
+nil
-	    )
+)
-	  )
+)
-	 (MenuItem
+(MenuItem
-	    label: 'Process'
+label: 'Process'
-	    translateLabel: true
+translateLabel: true
-	    submenu:
+submenu:
-	   (Menu
+(Menu
-	      (
+(
-	       (MenuItem
+(MenuItem
-		  label: 'Continue'
+label: 'Continue'
-		  itemValue: doContinue
+itemValue: doContinue
-		  translateLabel: true
+translateLabel: true
-		)
+)
-	       (MenuItem
+(MenuItem
-		  label: 'Next (Line-Step)'
+label: 'Next (Line-Step)'
-		  itemValue: doNext
+itemValue: doNext
-		  translateLabel: true
+translateLabel: true
-		)
+)
-	       (MenuItem
+(MenuItem
-		  label: 'Step'
+label: 'Step'
-		  itemValue: doStep
+itemValue: doStep
-		  translateLabel: true
+translateLabel: true
-		)
+)
-	       (MenuItem
+(MenuItem
-		  label: '-'
+label: '-'
-		)
+)
-	       (MenuItem
+(MenuItem
-		  label: 'Abort'
+label: 'Abort'
-		  itemValue: doAbort
+itemValue: doAbort
-		  translateLabel: true
+translateLabel: true
-		)
+)
-	       (MenuItem
+(MenuItem
-		  enabled: abortAllIsHandled
+enabled: abortAllIsHandled
-		  label: 'Abort All'
+label: 'Abort All'
-		  itemValue: doAbortAll
+itemValue: doAbortAll
-		  translateLabel: true
+translateLabel: true
-		)
+)
-	       (MenuItem
+(MenuItem
-		  label: '-'
+label: '-'
-		)
+)
-	       (MenuItem
+(MenuItem
-		  label: 'Terminate'
+label: 'Terminate'
-		  itemValue: doTerminate
+itemValue: doTerminate
-		  translateLabel: true
+translateLabel: true
-		)
+)
-	       )
+)
-	      nil
+nil
-	      nil
+nil
-	    )
+)
-	  )
+)
-	 (MenuItem
+(MenuItem
-	    label: 'Context'
+label: 'Context'
-	    translateLabel: true
+translateLabel: true
-	    submenu:
+submenu:
-	   (Menu
+(Menu
-	      (
+(
-	       (MenuItem
+(MenuItem
-		  enabled: canReturn
+enabled: canReturn
-		  label: 'Return'
+label: 'Return'
-		  itemValue: doReturn
+itemValue: doReturn
-		  translateLabel: true
+translateLabel: true
-		)
+)
-	       (MenuItem
+(MenuItem
-		  enabled: canRestart
+enabled: canRestart
-		  label: 'Restart'
+label: 'Restart'
-		  itemValue: doRestart
+itemValue: doRestart
-		  translateLabel: true
+translateLabel: true
-		)
+)
-	       (MenuItem
+(MenuItem
-		  label: '-'
+label: '-'
-		)
+)
-	       (MenuItem
+(MenuItem
-		  enabled: hasContextSelected
+enabled: hasContextSelected
-		  label: 'Inspect'
+label: 'Inspect'
-		  itemValue: inspectContext
+itemValue: inspectContext
-		  translateLabel: true
+translateLabel: true
-		)
+)
-	       (MenuItem
+(MenuItem
-		  label: 'Copy WalkBack Text'
+label: 'Copy WalkBack Text'
-		  itemValue: copyWalkbackText
+itemValue: copyWalkbackText
-		  translateLabel: true
+translateLabel: true
-		)
+)
-	       (MenuItem
+(MenuItem
-		  label: 'Bookmark Method in SystemBrowser'
+label: 'Bookmark Method in SystemBrowser'
-		  itemValue: addBrowserBookmark
+itemValue: addBrowserBookmark
-		  translateLabel: true
+translateLabel: true
-		)
+)
-	       )
+)
-	      nil
+nil
-	      nil
+nil
-	    )
+)
-	  )
+)
-	 (MenuItem
+(MenuItem
-	    label: 'Class'
+label: 'Class'
-	    translateLabel: true
+translateLabel: true
-	    submenu:
+submenu:
-	   (Menu
+(Menu
-	      (
+(
-	       (MenuItem
+(MenuItem
-		  enabled: canBrowseImplementingClass
+enabled: canBrowseImplementingClass
-		  label: 'Browse Implementing Class'
+label: 'Browse Implementing Class'
-		  itemValue: browseImplementingClass
+itemValue: browseImplementingClass
-		  translateLabel: true
+translateLabel: true
-		)
+)
-	       (MenuItem
+(MenuItem
-		  enabled: canBrowseReceiversClass
+enabled: canBrowseReceiversClass
-		  label: 'Browse Receivers Class'
+label: 'Browse Receivers Class'
-		  itemValue: browseReceiversClass
+itemValue: browseReceiversClass
-		  translateLabel: true
+translateLabel: true
-		)
+)
-	       (MenuItem
+(MenuItem
-		  label: '-'
+label: '-'
-		)
+)
-	       (MenuItem
+(MenuItem
-		  enabled: canBrowseClassHierarchy
+enabled: canBrowseClassHierarchy
-		  label: 'Browse Receivers Class Hierarchy'
+label: 'Browse Receivers Class Hierarchy'
-		  itemValue: browseClassHierarchy
+itemValue: browseClassHierarchy
-		  translateLabel: true
+translateLabel: true
-		)
+)
-	       (MenuItem
+(MenuItem
-		  enabled: canBrowseFullClassProtocol
+enabled: canBrowseFullClassProtocol
-		  label: 'Browse Receivers Full Protocol'
+label: 'Browse Receivers Full Protocol'
-		  itemValue: browseFullClassProtocol
+itemValue: browseFullClassProtocol
-		  translateLabel: true
+translateLabel: true
-		)
+)
-	       (MenuItem
+(MenuItem
-		  label: '-'
+label: '-'
-		)
+)
-	       (MenuItem
+(MenuItem
-		  enabled: canBrowseProcessesApplication
+enabled: canBrowseProcessesApplication
-		  label: 'Browse Application Class'
+label: 'Browse Application Class'
-		  itemValue: browseProcessesApplication
+itemValue: browseProcessesApplication
-		  translateLabel: true
+translateLabel: true
-		)
+)
-	       )
+)
-	      nil
+nil
-	      nil
+nil
-	    )
+)
-	  )
+)
-	 (MenuItem
+(MenuItem
-	    label: 'Selector'
+label: 'Selector'
-	    translateLabel: true
+translateLabel: true
-	    submenu:
+submenu:
-	   (Menu
+(Menu
-	      (
+(
-	       (MenuItem
+(MenuItem
-		  label: 'Browse Implementors...'
+label: 'Browse Implementors...'
-		  itemValue: browseImplementorsOf
+itemValue: browseImplementorsOf
-		  translateLabel: true
+translateLabel: true
-		)
+)
-	       (MenuItem
+(MenuItem
-		  label: 'Browse Senders...'
+label: 'Browse Senders...'
-		  itemValue: browseSendersOf
+itemValue: browseSendersOf
-		  translateLabel: true
+translateLabel: true
-		)
+)
-	       (MenuItem
+(MenuItem
-		  label: '-'
+label: '-'
-		)
+)
-	       (MenuItem
+(MenuItem
-		  enabled: canDefineMethod
+enabled: canDefineMethod
-		  label: 'Define Missing Method'
+label: 'Define Missing Method'
-		  itemValue: doDefineMethod
+itemValue: doDefineMethod
-		  translateLabel: true
+translateLabel: true
-		)
+)
-	       )
+)
-	      nil
+nil
-	      nil
+nil
-	    )
+)
-	  )
+)
-	 (MenuItem
+(MenuItem
-	    label: 'Breakpoint'
+label: 'Breakpoint'
-	    translateLabel: true
+translateLabel: true
-	    submenu:
+submenu:
-	   (Menu
+(Menu
-	      (
+(
-	       (MenuItem
+(MenuItem
-		  enabled: canRemoveBreakpoint
+enabled: canRemoveBreakpoint
-		  label: 'Remove Breakpoint'
+label: 'Remove Breakpoint'
-		  itemValue: removeBreakpoint
+itemValue: removeBreakpoint
-		  translateLabel: true
+translateLabel: true
-		)
+)
-	       (MenuItem
+(MenuItem
-		  label: 'Remove all Breakpoints'
+label: 'Remove all Breakpoints'
-		  itemValue: removeAllBreakpoints
+itemValue: removeAllBreakpoints
-		  translateLabel: true
+translateLabel: true
-		)
+)
-	       (MenuItem
+(MenuItem
-		  label: '-'
+label: '-'
-		)
+)
-	       (MenuItem
+(MenuItem
-		  enabled: canAddBreakpoint
+enabled: canAddBreakpoint
-		  label: 'Add Breakpoint'
+label: 'Add Breakpoint'
-		  itemValue: addBreakpoint
+itemValue: addBreakpoint
-		  translateLabel: true
+translateLabel: true
-		)
+)
-	       (MenuItem
+(MenuItem
-		  label: '-'
+label: '-'
-		)
+)
-	       (MenuItem
+(MenuItem
-		  label: 'Ignore this Halt/BreakPoint'
+label: 'Ignore this Halt/BreakPoint'
-		  translateLabel: true
+translateLabel: true
-		  submenu:
+submenu:
-		 (Menu
+(Menu
-		    (
+(
-		     (MenuItem
+(MenuItem
-			enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
+enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
-			label: 'For Some Time...'
+label: 'For Some Time...'
-			itemValue: openIgnoreHaltUntilTimeElapsedDialog
+itemValue: openIgnoreHaltUntilTimeElapsedDialog
-			translateLabel: true
+translateLabel: true
-		      )
+)
-		     (MenuItem
+(MenuItem
-			enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
+enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
-			label: 'For the Next N Times...'
+label: 'For the Next N Times...'
-			itemValue: openIgnoreHaltNTimesDialog
+itemValue: openIgnoreHaltNTimesDialog
-			translateLabel: true
+translateLabel: true
-		      )
+)
-		     (MenuItem
+(MenuItem
-			enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
+label: 'Until Shift-Key is Pressed'
-			label: 'Forever (Until Ignoring is Stopped)'
+itemValue: ignoreHaltUntilShiftKeyIsPressed
-			itemValue: ignoreHaltForever
+translateLabel: true
-			translateLabel: true
+)
-		      )
+(MenuItem
-		     )
+enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
-		    nil
+label: 'Forever (Until Ignoring is Stopped)'
-		    nil
+itemValue: ignoreHaltForever
-		  )
+translateLabel: true
-		)
+)
-	       (MenuItem
+)
-		  label: 'Ignore all Halts/BreakPoints'
+nil
-		  translateLabel: true
+nil
-		  submenu:
+)
-		 (Menu
+)
-		    (
+(MenuItem
-		     (MenuItem
+label: 'Ignore all Halts/BreakPoints'
-			label: 'For Some Time...'
+translateLabel: true
-			itemValue: openIgnoreAllHaltsUntilTimeElapsedDialog
+submenu:
-			translateLabel: true
+(Menu
-		      )
+(
-		     (MenuItem
+(MenuItem
-			label: 'Forever (Until Ignoring is Stopped)'
+label: 'For Some Time...'
-			itemValue: ignoreAllHaltsForever
+itemValue: openIgnoreAllHaltsUntilTimeElapsedDialog
-			translateLabel: true
+translateLabel: true
-		      )
+)
-		     )
+(MenuItem
-		    nil
+label: 'Until Shift-Key is Pressed'
-		    nil
+itemValue: ignoreAllHaltsUntilShiftKeyIsPressed
-		  )
+translateLabel: true
-		)
+)
-	       (MenuItem
+(MenuItem
-		  enabled: hasHaltsToIgnore
+label: 'Forever (Until Ignoring is Stopped)'
-		  label: 'Stop Ignoring'
+itemValue: ignoreAllHaltsForever
-		  itemValue: stopIgnoringHalts
+translateLabel: true
-		  translateLabel: true
+)
-		)
+)
-	       (MenuItem
+nil
-		  label: '-'
+nil
-		)
+)
-	       (MenuItem
+)
-		  label: 'Manage Breakpoints'
+(MenuItem
-		  itemValue: openBreakPointBrowser
+enabled: hasHaltsToIgnore
-		  translateLabel: true
+label: 'Stop Ignoring'
-		)
+itemValue: stopIgnoringHalts
-	       (MenuItem
+translateLabel: true
-		  label: 'Allow Breakpoints in Debugger'
+)
-		  itemValue: allowBreakPointsInDebugger:
+(MenuItem
-		  translateLabel: true
+label: '-'
-		  indication: allowBreakPointsInDebugger
+)
-		)
+(MenuItem
-	       )
+label: 'Manage Breakpoints'
-	      nil
+itemValue: openBreakPointBrowser
-	      nil
+translateLabel: true
-	    )
+)
-	  )
+(MenuItem
-	 (MenuItem
+label: 'Allow Breakpoints in Debugger'
-	    label: 'Help'
+itemValue: allowBreakPointsInDebugger:
-	    translateLabel: true
+translateLabel: true
-	    startGroup: right
+indication: allowBreakPointsInDebugger
-	    submenu:
+)
-	   (Menu
+)
-	      (
+nil
-	       (MenuItem
+nil
-		  label: 'Debuggers Documentation'
+)
-		  itemValue: openHTMLDocument:
+)
-		  translateLabel: true
+(MenuItem
-		  argument: 'tools/debugger/TOP.html'
+label: 'Help'
-		)
+translateLabel: true
-	       (MenuItem
+startGroup: right
-		  label: '-'
+submenu:
-		)
+(Menu
-	       (MenuItem
+(
-		  label: 'About DebugView...'
+(MenuItem
-		  itemValue: openAboutThisApplication
+label: 'Debuggers Documentation'
-		  translateLabel: true
+itemValue: openHTMLDocument:
-		)
+translateLabel: true
-	       )
+argument: 'tools/debugger/TOP.html'
-	      nil
+)
-	      nil
+(MenuItem
-	    )
+label: '-'
-	  )
+)
-	 )
+(MenuItem
-	nil
+label: 'About DebugView...'
-	nil
+itemValue: openAboutThisApplication
+translateLabel: true
+)
+)
+nil
+nil
+)
+)
+)
+nil
+nil
 )
+"Modified: / 27-01-2012 / 11:29:45 / cg"
 ! !
 !DebugView class methodsFor:'misc'!
 interestingContextFrom:aContext
 someContexts := Array new:25.
 con := aContext.
 idx := 1.
 [(idx <= someContexts size) and:[con notNil]] whileTrue:[
-	someContexts at:idx put:con.
+someContexts at:idx put:con.
-	con := con sender.
+con := con sender.
-	idx := idx + 1.
+idx := idx + 1.
 ].
 idx := self interestingContextIndexIn:someContexts.
 ^ someContexts at:idx.
 !
 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"
 !
 <context: #return>
 |con m enteredByInterrupt sel iAmNew foundNoByteCodeContext foundExitContext c|
 DebuggingDebugger == true ifTrue:[
-	'==> enter: (' print. aContext print.
+'==> enter: (' print. aContext print.
-	') select: ' print. initialSelectionOrNil printCR.
+') select: ' print. initialSelectionOrNil printCR.
 ].
 thisContext isRecursive ifTrue:[
-	"/ care for the special case, were the Debugger was autoloaded.
+"/ care for the special case, were the Debugger was autoloaded.
-	"/ in this case, thisContext IS recursive, but thats no error
+"/ in this case, thisContext IS recursive, but thats no error
-	"/ condition.
+"/ condition.
-	foundNoByteCodeContext := false.
+foundNoByteCodeContext := false.
-	foundExitContext := false.
+foundExitContext := false.
-	c := thisContext findNextContextWithSelector:#enter:withMessage:mayProceed: or:#noByteCode or:#exit_unwindThenDo:.
+c := thisContext findNextContextWithSelector:#enter:withMessage:mayProceed: or:#noByteCode or:#exit_unwindThenDo:.
-	[
+[
-	 foundNoByteCodeContext not
+foundNoByteCodeContext not
-	 and:[ foundExitContext not
+and:[ foundExitContext not
-	 and:[c notNil
+and:[c notNil
-	 and:[c selector ~~ #enter:withMessage:mayProceed:
+and:[c selector ~~ #enter:withMessage:mayProceed:
-	]]]]
+]]]]
-	whileTrue:[
+whileTrue:[
-	    c selector == #exit_unwindThenDo: ifTrue:[
+c selector == #exit_unwindThenDo: ifTrue:[
-		foundExitContext := true
+foundExitContext := true
-	    ].
+].
-	    c selector == #noByteCode ifTrue:[
+c selector == #noByteCode ifTrue:[
-		foundNoByteCodeContext := true
+foundNoByteCodeContext := true
-	    ].
+].
-	    c := c findNextContextWithSelector:#enter:withMessage:mayProceed: or:#noByteCode or:#exit_unwindThenDo:.
+c := c findNextContextWithSelector:#enter:withMessage:mayProceed: or:#noByteCode or:#exit_unwindThenDo:.
-	].
+].
-	(foundNoByteCodeContext not
+(foundNoByteCodeContext not
-	and:[ foundExitContext not]) ifFalse:[
+and:[ foundExitContext not]) ifFalse:[
-	    ('DebugView [warning]: reentered') errorPrintCR.
+('DebugView [warning]: reentered') errorPrintCR.
-	    ^ MiniDebugger
+^ MiniDebugger
-		enter:aContext
+enter:aContext
-		withMessage:'DebugView [error]: recursive error (in debugger)'
+withMessage:'DebugView [error]: recursive error (in debugger)'
-		mayProceed:mayProceed.
+mayProceed:mayProceed.
-	].
+].
-	foundExitContext ifTrue:[
+foundExitContext ifTrue:[
-	    'DebugView [error]: recursive error (in debugger) ignored' printCR.
+'DebugView [error]: recursive error (in debugger) ignored' printCR.
-	    ^ self.
+^ self.
-	].
+].
 ].
 "/'entering: ' print. aContext printCR.
 "/'initial: ' print. initialSelectionOrNil printCR.
 thisContext sender fixAllLineNumbers. "/ _CONTEXTLINENOS(s)
 self class isHaltToBeIgnored ifTrue:[
-	^ self.
+^ self.
 ].
 iAmNew := drawableId isNil.
 verboseBacktrace := UserPreferences current verboseBacktraceInDebugger.
 "/ On a multiUser system, ungrab all of them ...
 "/ Q: this is good for multi-screen apps (where an error should not happen),
 "/    but not for multi-user development, where the debugger is entered often.
 "/    What is a good solution to this dilemma ?
 Screen allScreens do:[:aScreen |
-	aScreen ungrabPointer.
+aScreen ungrabPointer.
-	aScreen ungrabKeyboard.
+aScreen ungrabKeyboard.
 ].
 ("inspectedProcess suspendedContext isNil
 or:["inspectedProcess isSystemProcess"]") ifTrue:[
-	terminateButton disable.
+terminateButton disable.
 ] ifFalse:[
-	terminateButton enable.
+terminateButton enable.
-	abortButton enable.
+abortButton enable.
 ].
 iAmNew ifFalse:[
-	"/ not the first time - disable buttons & menus
+"/ not the first time - disable buttons & menus
-	"/ from the previous life
+"/ from the previous life
-	self turnOffAllButtons.
+self turnOffAllButtons.
-	m := contextView middleButtonMenu.
+m := contextView middleButtonMenu.
-	m notNil ifTrue:[
+m notNil ifTrue:[
-	    m disableAll:#(showMore "skip skipForReturn" inspectContext).
+m disableAll:#(showMore "skip skipForReturn" inspectContext).
-	].
+].
-	verboseBacktrace
+verboseBacktrace
-	    ifTrue:[self showVerboseWalkback]
+ifTrue:[self showVerboseWalkback]
-	    ifFalse:[self showDenseWalkback].
+ifFalse:[self showDenseWalkback].
 ].
 self iconLabel:'Debugger'.
 windowGroup isNil ifTrue:[
-	self windowGroup: WindowGroup new.
+self windowGroup: WindowGroup new.
-	windowGroup addTopView:self.
+windowGroup addTopView:self.
 ].
 exclusive ifFalse:[
-	"/ create a (modal) windowGroup for myself
+"/ create a (modal) windowGroup for myself
-	windowGroup setModal:true.
+windowGroup setModal:true.
 ] ifTrue:[
-	"/ create a windowGroup with a synchronous sensor for me
+"/ create a windowGroup with a synchronous sensor for me
-	windowGroup beSynchronous.
+windowGroup beSynchronous.
 ].
 windowGroup setProcess:Processor activeProcess.
 "
 get the walkback list; clear inspectors if we did not come here by single stepping)
 "
 Otherwise, its probably better to do a map, which shows the
 view at the previous position, without a need for the user to set the
 position again
 "
 iAmNew ifFalse:[
-	self remap.
+self remap.
 ] ifTrue:[
-	self realize.
+self realize.
 ].
 self setForegroundWindow.
 exclusive ifTrue:[
-	self showError:'
+self showError:'
 Debugging system process `' , (inspectedProcess nameOrId) printString , '''.
 This is a modal debugger - all event processing is stopped..
 Therefore, you cannot interact with other views or
 open any other tools while this debugger is active.
 Also, there is no event processing (redraw) for other views.'
 ].
 self autoRaiseView ifTrue:[
-	"/ self raise.
+"/ self raise.
-	self raiseDeiconified.
+self raiseDeiconified.
-	self topView activate; setForegroundWindow; activate.
+self topView activate; setForegroundWindow; activate.
 ].
 canContinue := true.
 exitAction := nil.
 "/ enter private event handling loop. This is left (and we come back here again)
 "/ when any button was pressed which requires continuation of the debuggee or
 "/ closedown of the debugger.
 [self controlLoop] ifCurtailed:[
-	windowGroup notNil ifTrue:[
+windowGroup notNil ifTrue:[
-	    windowGroup setProcess:nil.
+windowGroup setProcess:nil.
-	].
+].
-	self destroy
+self destroy
 ].
 "/ here after my own control loop is finished.
 "/ release all context stuff.
 codeView acceptAction:nil.
 codeView doItAction:nil.
 ObjectMemory stepInterruptHandler == self ifTrue:[
-	ObjectMemory stepInterruptHandler:nil.
+ObjectMemory stepInterruptHandler:nil.
 ].
 (exitAction ~~ #step) ifTrue:[
-	"/ not stepping - close window
+"/ not stepping - close window
-	lastSelectionInReceiverInspector := receiverInspector selectedKeyName.
+lastSelectionInReceiverInspector := receiverInspector selectedKeyName.
-	lastSelectionInContextInspector := contextInspector selectedKeyName.
+lastSelectionInContextInspector := contextInspector selectedKeyName.
-	receiverInspector release.
+receiverInspector release.
-	contextInspector release.
+contextInspector release.
-	self unmap.
+self unmap.
-	device flush.
+device flush.
-	(exitAction == #abort) ifTrue:[ self exit_abort. "does not return" ].
+(exitAction == #abort) ifTrue:[ self exit_abort. "does not return" ].
-	(exitAction == #abortAll) ifTrue:[ self exit_abortAll. "does not return" ].
+(exitAction == #abortAll) ifTrue:[ self exit_abortAll. "does not return" ].
-	(exitAction == #return) ifTrue:[ self exit_return. "does not return" ].
+(exitAction == #return) ifTrue:[ self exit_return. "does not return" ].
-	(exitAction == #restart) ifTrue:[ self exit_restart. "does not return" ].
+(exitAction == #restart) ifTrue:[ self exit_restart. "does not return" ].
-	(exitAction == #quickTerminate) ifTrue:[ self exit_quickTerminate. "does not return" ].
+(exitAction == #quickTerminate) ifTrue:[ self exit_quickTerminate. "does not return" ].
-	(exitAction == #terminate) ifTrue:[ self exit_terminate. "does not return" ].
+(exitAction == #terminate) ifTrue:[ self exit_terminate. "does not return" ].
-	exitAction isBlock ifTrue:[
+exitAction isBlock ifTrue:[
-	    self exit_unwindThenDo:exitAction.
+self exit_unwindThenDo:exitAction.
-	    "does not return"
+"does not return"
-	].
+].
-	"not reached"
+"not reached"
-	^ self
+^ self
 ].
 "/ stepping - window stays open
 selectedContext := actualContext := firstContext := nil.
 "/ restore the previous pointer grab
 grabber notNil ifTrue:[
-	device grabPointerInView:grabber.
+device grabPointerInView:grabber.
-	grabber := nil.
+grabber := nil.
 ].
 (exitAction == #step) ifTrue:[
-	"
+"
-	 schedule another stepInterrupt
+schedule another stepInterrupt
-	 - must enter myself into the collection of open debuggers,
+- must enter myself into the collection of open debuggers,
-	   in case the stepping process comes back again via a halt or signal
+in case the stepping process comes back again via a halt or signal
-	   before the step is finished. In this case, the stepping debugger should
+before the step is finished. In this case, the stepping debugger should
-	   come up (instead of a new one)
+come up (instead of a new one)
-	 - must flush caches since optimized methods not always
+- must flush caches since optimized methods not always
-	   look for pending interrupts
+look for pending interrupts
-	"
+"
-	"/
+"/
-	"/ also must care for stepping into a return
+"/ also must care for stepping into a return
-	"/
+"/
-	steppedContext notNil ifTrue:[
+steppedContext notNil ifTrue:[
-	    Processor activeProcess forceInterruptOnReturnOf:steppedContext.
+Processor activeProcess forceInterruptOnReturnOf:steppedContext.
-	].
+].
-	OpenDebuggers isNil ifTrue:[
+OpenDebuggers isNil ifTrue:[
-	    OpenDebuggers := WeakIdentitySet new.
+OpenDebuggers := WeakIdentitySet new.
-	].
+].
-	OpenDebuggers add:self.
+OpenDebuggers add:self.
-	self label:'single stepping - please wait ...'.
+self label:'single stepping - please wait ...'.
-	stepping := true.
+stepping := true.
-	ObjectMemory stepInterruptHandler:self.
+ObjectMemory stepInterruptHandler:self.
-	Processor activeProcess stepInterruptHandler:self.
+Processor activeProcess stepInterruptHandler:self.
-	ObjectMemory flushCaches.
+ObjectMemory flushCaches.
-	Context singleStepInterruptRequest isHandled ifTrue:[
+Context singleStepInterruptRequest isHandled ifTrue:[
-	    Context singleStepInterruptRequest
+Context singleStepInterruptRequest
-		raiseWith:
+raiseWith:
-		    (("bigStep" steppedContextLineno notNil)
+(("bigStep" steppedContextLineno notNil)
-			ifTrue:[#next]
+ifTrue:[#next]
-			ifFalse:[#step])
+ifFalse:[#step])
-	] ifFalse:[
+] ifFalse:[
-	    "/ see if we came here through an interrupt-action
+"/ see if we came here through an interrupt-action
-	    "/ (i.e. aProcess interruptWith:...)
+"/ (i.e. aProcess interruptWith:...)
-	    enteredByInterrupt := false.
+enteredByInterrupt := false.
-	    con := thisContext findNextContextWithSelector:#timerInterrupt or:#ioInterrupt or:nil.
+con := thisContext findNextContextWithSelector:#timerInterrupt or:#ioInterrupt or:nil.
-	    [enteredByInterrupt not
+[enteredByInterrupt not
-	     and:[con notNil
+and:[con notNil
-	     and:[con ~~ aContext]]] whileTrue:[
+and:[con ~~ aContext]]] whileTrue:[
-		((sel := con selector) == #timerInterrupt
+((sel := con selector) == #timerInterrupt
-		or:[sel == #ioInterrupt]) ifTrue:[
+or:[sel == #ioInterrupt]) ifTrue:[
-		    enteredByInterrupt := true.
+enteredByInterrupt := true.
-		] ifFalse:[
+] ifFalse:[
-		    con := con findNextContextWithSelector:#timerInterrupt or:#ioInterrupt or:nil.
+con := con findNextContextWithSelector:#timerInterrupt or:#ioInterrupt or:nil.
-		].
+].
-	    ].
+].
-	    ObjectMemory flushInlineCaches.
+ObjectMemory flushInlineCaches.
-	    DebuggingDebugger == true ifTrue:[
+DebuggingDebugger == true ifTrue:[
-		enteredByInterrupt printCR.
+enteredByInterrupt printCR.
-	    ].
+].
-	    enteredByInterrupt ifTrue:[
+enteredByInterrupt ifTrue:[
-		"/ dont want to step through all intermediate
+"/ dont want to step through all intermediate
-		"/ (scheduler-) contexts; place a return-trap on the
+"/ (scheduler-) contexts; place a return-trap on the
-		"/ one right below the interesting one
+"/ one right below the interesting one
 "/                'special unwind return' printCR.
-		con unwindThenDo:[
+con unwindThenDo:[
-				  Processor activeProcess stepInterruptHandler:self.
+Processor activeProcess stepInterruptHandler:self.
-				  ObjectMemory stepInterruptHandler:self.
+ObjectMemory stepInterruptHandler:self.
-				  InStepInterrupt := nil.
+InStepInterrupt := nil.
-				  StepInterruptPending := 1.
+StepInterruptPending := 1.
-				  InterruptPending := 1].
+InterruptPending := 1].
-	    ] ifFalse:[
+] ifFalse:[
 "/                'normal step return' printCR.
-		skipLineNr ~~ #return ifTrue:[
+skipLineNr ~~ #return ifTrue:[
-		    StepInterruptPending := 1.
+StepInterruptPending := 1.
-		    InterruptPending := 1.
+InterruptPending := 1.
-		] ifFalse:[
+] ifFalse:[
 "/                    'step for return' printCR.
-		]
+]
-	    ].
+].
-	    InStepInterrupt := nil
+InStepInterrupt := nil
-	]
+]
 ] ifFalse:[
-	OpenDebuggers notNil ifTrue:[
+OpenDebuggers notNil ifTrue:[
-	    OpenDebuggers remove:self ifAbsent:[].
+OpenDebuggers remove:self ifAbsent:[].
-	].
+].
-	self cacheMyself.
+self cacheMyself.
 ]
 "Modified: / 17-04-1997 / 13:01:32 / stefan"
 "Created: / 30-10-1997 / 21:08:18 / cg"
 "Modified: / 13-10-1998 / 19:56:59 / ps"
 exit_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: / 17.11.2001 / 23:37:09 / cg"
 !
 exit_return
 |con retVal|
 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"
 have to catch errors occuring in unwind-blocks
 "
 self cacheMyself.
 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 := thisContext sender.
+con := thisContext sender.
-	[
+[
-	    (con selector == #enter:select:)
+(con selector == #enter:select:)
-	    and:[con receiver == self]
+and:[con receiver == self]
-	]
+]
-	whileFalse:[ con := con sender ].
+whileFalse:[ 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.
+con := con sender.
-		con isBlockContext ifTrue:[
+con isBlockContext ifTrue:[
-		    con := con methodHome.
+con := con methodHome.
-		]
+]
-	    ].
+].
-	].
+].
-	con unwindThenDo:aBlock.
+con unwindThenDo:aBlock.
 ].
 'DebugView [warning]: abort failed' errorPrintCR
 "Created: / 16.11.2001 / 17:20:45 / cg"
 "Modified: / 18.11.2001 / 00:58:14 / cg"
 initialSelectionOnEntry:initialSelectionOrNil context:aContext
 |selection con1 con2 h|
 initialSelectionOrNil notNil ifTrue:[
-	^ initialSelectionOrNil
+^ initialSelectionOrNil
 ].
 "
 and find the one context to show initially
 - if we came here by a send (single step), its the top context;
 "
 con1 := (contextArray at:1 ifAbsent:nil).
 con2 := (contextArray at:2 ifAbsent:nil).
 exitAction == #step ifTrue:[
-	selection := 1.
+selection := 1.
-	steppedContext notNil ifTrue:[
+steppedContext notNil ifTrue:[
-	    "
+"
-	     if we came here by a big-step, show the method where we are
+if we came here by a big-step, show the method where we are
-	    "
+"
-	    con1 == steppedContext ifTrue:[
+con1 == steppedContext ifTrue:[
-		selection := 1
+selection := 1
-	    ] ifFalse:[
+] ifFalse:[
-		con2 == steppedContext ifTrue:[
+con2 == steppedContext ifTrue:[
-		    selection := 2
+selection := 2
-		]
+]
-	    ].
+].
-	    "
+"
-	     for bigStep, we could also be in a block below the actual method ...
+for bigStep, we could also be in a block below the actual method ...
-	    "
+"
-	    ((h := con1 home) notNil
+((h := con1 home) notNil
-	     and:[h == steppedContext]) ifTrue:[
+and:[h == steppedContext]) ifTrue:[
-		selection := 1
+selection := 1
-	    ] ifFalse:[
+] ifFalse:[
-		(con2 notNil
+(con2 notNil
-		and:[(h := con2 home) notNil
+and:[(h := con2 home) notNil
-		and:[h == steppedContext]]) ifTrue:[
+and:[h == steppedContext]]) ifTrue:[
-		    selection := 2
+selection := 2
-		]
+]
-	    ].
+].
-	    h := nil.
+h := nil.
-	]
+]
 ] ifFalse:[
-	steppedContext isNil ifTrue:[
+steppedContext isNil ifTrue:[
-	    "
+"
-	     preselect a more interesting context, (where halt/raise was ...)
+preselect a more interesting context, (where halt/raise was ...)
-	    "
+"
-	    "/ selection := self class interestingContextIndexFrom:aContext.
+"/ selection := self class interestingContextIndexFrom:aContext.
-	    selection := self class interestingContextIndexIn:contextArray.
+selection := self class interestingContextIndexIn:contextArray.
-	    selection := selection min:(contextArray size).
+selection := selection min:(contextArray size).
-	] ifFalse:[
+] ifFalse:[
-	    "
+"
-	     if we came here by a big-step, show the method where we are
+if we came here by a big-step, show the method where we are
-	    "
+"
-	    con1 == steppedContext ifTrue:[
+con1 == steppedContext ifTrue:[
-		selection := 1
+selection := 1
-	    ] ifFalse:[
+] ifFalse:[
-		con2 == steppedContext ifTrue:[
+con2 == steppedContext ifTrue:[
-		    selection := 2.
+selection := 2.
-		]
+]
-	    ]
+]
-	]
+]
 ].
 ^ selection
 "Created: / 17.11.2001 / 20:26:26 / cg"
 "Modified: / 17.11.2001 / 22:51:46 / cg"
 continueButton label:(resources string:'Stop').
 w := w max:(continueButton preferredWidth).
 continueButton preferredExtent:(w @ continueButton preferredHeight).
 aProcess state == #run ifTrue:[
-	device hasColors ifTrue:[
+device hasColors ifTrue:[
-	    continueButton foregroundColor:Color red darkened.
+continueButton foregroundColor:Color red darkened.
-	].
+].
-	continueButton label:(resources string:'Stop').
+continueButton label:(resources string:'Stop').
-	continueButton action:[self doStop].
+continueButton action:[self doStop].
 ] ifFalse:[
-	device hasColors ifTrue:[
+device hasColors ifTrue:[
-	    continueButton foregroundColor:Color green darkened darkened.
+continueButton foregroundColor:Color green darkened darkened.
-	].
+].
-	continueButton label:(resources string:'Continue').
+continueButton label:(resources string:'Continue').
-	continueButton action:[self doContinue].
+continueButton action:[self doContinue].
 ].
 continueButton preferredExtent:(w @ continueButton preferredHeight).
 returnButton disable.
 restartButton disable.
 "/    stepButton destroy.
 "/    sendButton destroy.
 updateButton := Button
-			label:(resources string:'Update')
+label:(resources string:'Update')
-			action:[self updateContext]
+action:[self updateContext]
-			in:bpanel.
+in:bpanel.
 monitorToggle := Toggle in:bpanel.
 monitorToggle label:(resources string:'Monitor').
 monitorToggle pressAction:[self autoUpdateOn].
 monitorToggle releaseAction:[self autoUpdateOff].
 nextButton disable; beInvisible.
 nextOverButton notNil ifTrue:[nextOverButton disable; beInvisible].
 nextOutButton notNil ifTrue:[nextOutButton disable; beInvisible].
 aProcess isNil ifTrue:[
-	terminateButton disable.
+terminateButton disable.
-	abortButton disable.
+abortButton disable.
-	continueButton disable.
+continueButton disable.
-	returnButton disable.
+returnButton disable.
-	restartButton disable.
+restartButton disable.
 ] ifFalse:[
-	(aProcess suspendedContext isNil
+(aProcess suspendedContext isNil
-	or:[aProcess isSystemProcess]) ifTrue:[
+or:[aProcess isSystemProcess]) ifTrue:[
-	    terminateButton disable.
+terminateButton disable.
-	].
+].
-	self setContextSkippingInterruptContexts:aProcess suspendedContext.
+self setContextSkippingInterruptContexts:aProcess suspendedContext.
-	catchBlock := [
+catchBlock := [
-	    catchBlock := nil.
+catchBlock := nil.
-	    contextArray := nil.
+contextArray := nil.
-	    selectedContext := actualContext := firstContext := nil.
+selectedContext := actualContext := firstContext := nil.
-	    steppedContext := wrapperContext := nil.
+steppedContext := wrapperContext := nil.
-	    (exitAction == #terminate) ifTrue:[
+(exitAction == #terminate) ifTrue:[
-		aProcess terminate.
+aProcess terminate.
-	    ].
+].
-	    (exitAction == #quickTerminate) ifTrue:[
+(exitAction == #quickTerminate) ifTrue:[
-		aProcess terminateNoSignal.
+aProcess terminateNoSignal.
-	    ].
+].
-	    super destroy
+super destroy
-	].
+].
 ].
 self open
 "Modified: 20.3.1997 / 16:53:56 / cg"
 "Modified: 17.4.1997 / 13:01:57 / stefan"
 setInitialSelectionOnEntry:initialSelectionOrNil context:aContext
 |selection|
 selection := self initialSelectionOnEntry:initialSelectionOrNil context:aContext.
 selection notNil ifTrue:[
-	self showSelection:selection.
+self showSelection:selection.
-	contextView setSelection:selection.
+contextView setSelection:selection.
-	selection > 1 ifTrue:[
+selection > 1 ifTrue:[
-	    contextView scrollToLine:(selection - 1)
+contextView scrollToLine:(selection - 1)
-	]
+]
 ].
 "Created: / 16.11.2001 / 17:28:07 / cg"
 "Modified: / 17.11.2001 / 20:27:21 / cg"
 !
 flyByHelpTextFor:aComponent
 |s|
 aComponent == abortButton ifTrue:[
-	s := 'Abort (unwind to eventLoop)'
+s := 'Abort (unwind to eventLoop)'
 ].
 aComponent == terminateButton ifTrue:[
-	s := 'Terminate process (close view)'
+s := 'Terminate process (close view)'
 ].
 aComponent == continueButton ifTrue:[
-	continueButton label = (resources string:'Stop') ifTrue:[
+continueButton label = (resources string:'Stop') ifTrue:[
-	    s := 'Stop'
+s := 'Stop'
-	] ifFalse:[
+] ifFalse:[
-	    s := 'Continue execution'
+s := 'Continue execution'
-	]
+]
 ].
 aComponent == stepButton ifTrue:[
-	s := 'Step to next send (don''t enter into called methods)'
+s := 'Step to next send (don''t enter into called methods)'
 ].
 aComponent == nextButton ifTrue:[
-	s := 'Step to next line (don''t enter into called methods)'
+s := 'Step to next line (don''t enter into called methods)'
 ].
 aComponent == nextOverButton ifTrue:[
-	s := 'Step over to cursor-line'
+s := 'Step over to cursor-line'
 ].
 aComponent == nextOutButton ifTrue:[
-	s := 'Step out to caller'
+s := 'Step out to caller'
 ].
 aComponent == sendButton ifTrue:[
-	s := 'Send next message (enter into called methods)'
+s := 'Send next message (enter into called methods)'
 ].
 aComponent == returnButton ifTrue:[
-	s := 'Return from selected method'
+s := 'Return from selected method'
 ].
 aComponent == restartButton ifTrue:[
-	s := 'Restart selected method'
+s := 'Restart selected method'
 ].
 aComponent == monitorToggle ifTrue:[
-	s := 'Toggle monitoring'
+s := 'Toggle monitoring'
 ].
 aComponent == updateButton ifTrue:[
-	s := 'Update'
+s := 'Update'
 ].
 aComponent == reportButton ifTrue:[
-	s := 'Send a defect report via eMail'
+s := 'Send a defect report via eMail'
 ].
 s notNil ifTrue:[
-	^ resources string:s
+^ resources string:s
 ].
 ^ nil
 "Modified: / 29-08-1995 / 23:38:54 / claus"
 "Modified: / 18-06-2010 / 11:34:51 / cg"
 pos := codeView characterPositionOfLine:line col:col.
 interval := pos to:pos.
 self
-	withNodeValueAtInterval:interval
+withNodeValueAtInterval:interval
-	do:[:value :description |
+do:[:value :description |
-	    |valueClassOrSizeString valueString|
+|valueClassOrSizeString valueString|
-	    valueClassOrSizeString := valueString := ''.
+valueClassOrSizeString := valueString := ''.
-	    "/ some heuristics as when to show the class name (a purely subjective preference)
+"/ some heuristics as when to show the class name (a purely subjective preference)
-	    value isString ifTrue:[
+value isString ifTrue:[
-		value isText ifTrue:[
+value isText ifTrue:[
-		    valueString := '"',(value contractTo:80),'"'.
+valueString := '"',(value contractTo:80),'"'.
-		] ifFalse:[
+] ifFalse:[
-		    valueString := value storeString contractTo:80.
+valueString := value storeString contractTo:80.
-		].
+].
-	    ] ifFalse:[
+] ifFalse:[
-		(value isBoolean
+(value isBoolean
-		or:[ value isInteger
+or:[ value isInteger
-		or:[ value isSymbol ]]) ifTrue:[
+or:[ value isSymbol ]]) ifTrue:[
-		    valueString := value printString.
+valueString := value printString.
-		] ifFalse:[
+] ifFalse:[
-		    valueClassOrSizeString := ' (',value class name,')'.
+valueClassOrSizeString := ' (',value class name,')'.
-		    (value isArray
+(value isArray
-		    or:[ value isOrderedCollection ]) ifTrue:[
+or:[ value isOrderedCollection ]) ifTrue:[
-			valueClassOrSizeString := ' (size=',value size printString,')'.
+valueClassOrSizeString := ' (size=',value size printString,')'.
-		    ].
+].
-		    Error handle:[:ex |
+Error handle:[:ex |
-			valueString := '??? (',ex description,')'
+valueString := '??? (',ex description,')'
-		    ] do:[
+] do:[
-			[
+[
-			    valueString := value printString contractTo:80.
+valueString := value printString contractTo:80.
-			] valueWithWatchDog:[ valueString := value classNameWithArticle ] afterMilliseconds:30.
+] valueWithWatchDog:[ valueString := value classNameWithArticle ] afterMilliseconds:30.
-		    ]
+]
-		]
+]
-	    ].
+].
-	    description isEmptyOrNil ifTrue:[
+description isEmptyOrNil ifTrue:[
-		s := valueString , valueClassOrSizeString
+s := valueString , valueClassOrSizeString
-	    ] ifFalse:[
+] ifFalse:[
-		s := description , ': ', valueString, valueClassOrSizeString
+s := description , ': ', valueString, valueClassOrSizeString
-	    ].
+].
-	].
+].
 "/ Transcript showCR:s.
 ^ s
 "Modified: / 27-04-2010 / 17:51:53 / cg"
 !
 helpTextFor:aComponent
 |s|
 aComponent == abortButton ifTrue:[
-	s := 'HELP_ABORT'
+s := 'HELP_ABORT'
 ].
 aComponent == terminateButton ifTrue:[
-	s := 'HELP_TERMINATE'
+s := 'HELP_TERMINATE'
 ].
 aComponent == continueButton ifTrue:[
-	continueButton label = (resources string:'Stop') ifTrue:[
+continueButton label = (resources string:'Stop') ifTrue:[
-	    s := 'HELP_STOP'
+s := 'HELP_STOP'
-	] ifFalse:[
+] ifFalse:[
-	    s := 'HELP_CONTINUE'
+s := 'HELP_CONTINUE'
-	]
+]
 ].
 aComponent == stepButton ifTrue:[
-	s := 'HELP_STEP'
+s := 'HELP_STEP'
 ].
 aComponent == nextButton ifTrue:[
-	s := 'HELP_NEXT'
+s := 'HELP_NEXT'
 ].
 aComponent == nextOverButton ifTrue:[
-	s := 'HELP_NEXTOVER'
+s := 'HELP_NEXTOVER'
 ].
 aComponent == nextOutButton ifTrue:[
-	s := 'HELP_NEXTOUT'
+s := 'HELP_NEXTOUT'
 ].
 aComponent == stepButton ifTrue:[
-	s := 'HELP_STEP'
+s := 'HELP_STEP'
 ].
 aComponent == sendButton ifTrue:[
-	s := 'HELP_SEND'
+s := 'HELP_SEND'
 ].
 aComponent == returnButton ifTrue:[
-	s := 'HELP_RETURN'
+s := 'HELP_RETURN'
 ].
 aComponent == restartButton ifTrue:[
-	s := 'HELP_RESTART'
+s := 'HELP_RESTART'
 ].
 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 == 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 string:s
+^ resources string:s
 ].
 ^ nil
 "Modified: 29.8.1995 / 23:38:54 / claus"
 "Modified: 4.3.1997 / 01:54:03 / cg"
 "closing the debugger implies an abort or continue"
 |m|
 self checkIfCodeIsReallyModified ifTrue:[
-	(self confirm:('Code modified - exit anyway ?'))
+(self confirm:('Code modified - exit anyway ?'))
-	ifFalse:[
+ifFalse:[
-	    ^ self
+^ self
-	]
+]
 ].
 self autoUpdateOff.
 (m := contextView middleButtonMenu) notNil ifTrue:[m hide].
 inspecting ifFalse:[
-	"I am running on top of a process, abort or continue it"
+"I am running on top of a process, abort or continue it"
-	windowGroup notNil ifTrue:[
+windowGroup notNil ifTrue:[
-	    windowGroup setProcess:nil.
+windowGroup setProcess:nil.
-	].
+].
-	self uncacheMyself.
+self uncacheMyself.
-	"/
+"/
-	"/ catch invalid return;
+"/ catch invalid return;
-	"/ this happens, when my process has somehow died (quickterminate)
+"/ this happens, when my process has somehow died (quickterminate)
-	"/ and I am a leftOver view, which gets terminated via the launchers
+"/ and I am a leftOver view, which gets terminated via the launchers
-	"/ #destroy-window function.
+"/ #destroy-window function.
-	"/
+"/
-	Context cannotReturnSignal handle:[:ex |
+Context cannotReturnSignal handle:[:ex |
-	    'DebugView [info]: OOPS - non regular debugView closing(1)' infoPrintCR.
+'DebugView [info]: OOPS - non regular debugView closing(1)' infoPrintCR.
-	    self uncacheMyself.
+self uncacheMyself.
-	    Debugger newDebugger.
+Debugger newDebugger.
-	    ex return.
+ex return.
-	] do:[
+] do:[
-	    AbortOperationRequest isHandled ifTrue:[
+AbortOperationRequest isHandled ifTrue:[
-		self doAbort.
+self doAbort.
-	    ] ifFalse:[
+] ifFalse:[
-		self doContinue
+self doContinue
-	    ]
+]
-	].
+].
-	"/ We don't reach this point normally
+"/ We don't reach this point normally
-	'DebugView [info]: OOPS - non regular debugView closing(2)' infoPrintCR.
+'DebugView [info]: OOPS - non regular debugView closing(2)' infoPrintCR.
-	Debugger newDebugger.
+Debugger newDebugger.
-	self uncacheMyself.
+self uncacheMyself.
 ].
 Debugger newDebugger.
 "/ since I am going to be destroyed, remove me from the cache
 self uncacheMyself.
 font := font onDevice:device.
 verboseBacktrace := UserPreferences current verboseBacktraceInDebugger.
 ignoreBreakpoints := true.    "/ ignore halts/breakpoints in doIts of
-				  "/ the debugger
+"/ the debugger
 busy := false.
 exclusive := false.
 inspecting := false.
 exitAction := nil.
 mH := menuPanel preferredHeight.
 menuPanel origin:(0.0 @ 0.0) corner:(1.0 @ (mH)).
 newLayout := UserPreferences current useNewLayoutInDebugger.
 newLayout ifFalse:[
-	bpanel := HorizontalPanelView in:self.
+bpanel := HorizontalPanelView in:self.
-	self initializeButtonsIn:bpanel.
+self initializeButtonsIn:bpanel.
-	bH := bpanel preferredHeight + 5.
+bH := bpanel preferredHeight + 5.
-	bpanel origin:(0.0 @ mH)
+bpanel origin:(0.0 @ mH)
-	       extent:(1.0 @ bH).
+extent:(1.0 @ bH).
-	panel := VariableVerticalPanel
+panel := VariableVerticalPanel
-			    origin:(0.0 @ (mH + bH))
+origin:(0.0 @ (mH + bH))
-			    corner:(1.0 @ 1.0)
+corner:(1.0 @ 1.0)
-			    in:self.
+in:self.
-	v := self initializeContextListViewIn:panel.
+v := self initializeContextListViewIn:panel.
-	v origin:(0.0 @ 0.0) corner:(1.0 @ 0.25).
+v origin:(0.0 @ 0.0) corner:(1.0 @ 0.25).
-	codePanel := View in:panel.
+codePanel := View in:panel.
-	v := self initializeCodeViewIn:codePanel.
+v := self initializeCodeViewIn:codePanel.
-	v origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
+v origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
-	codePanel origin:(0.0 @ 0.25) corner:(1.0 @ 0.75).
+codePanel origin:(0.0 @ 0.25) corner:(1.0 @ 0.75).
-	v := self initializeInspectorViewsIn:panel.
+v := self initializeInspectorViewsIn:panel.
-	v origin:(0.0 @ 0.75) corner:(1.0 @ 1.0).
+v origin:(0.0 @ 0.75) corner:(1.0 @ 1.0).
 ] ifTrue:[
-	bpanel1 := HorizontalPanelView in:self.
+bpanel1 := HorizontalPanelView in:self.
-	self initializeButtons1In:bpanel1.
+self initializeButtons1In:bpanel1.
-	bH1 := bpanel1 preferredHeight + 5.
+bH1 := bpanel1 preferredHeight + 5.
-	bpanel1 origin:(0.0 @ mH)
+bpanel1 origin:(0.0 @ mH)
-		extent:(1.0 @ bH1).
+extent:(1.0 @ bH1).
-	panel := VariableVerticalPanel
+panel := VariableVerticalPanel
-			    origin:(0.0 @ (mH + bH1))
+origin:(0.0 @ (mH + bH1))
-			    corner:(1.0 @ 1.0)
+corner:(1.0 @ 1.0)
-				in:self.
+in:self.
-	"/ panel showHandle:true.
+"/ panel showHandle:true.
-	"/ panel handlePosition:#left.
+"/ panel handlePosition:#left.
-	v := self initializeContextListViewIn:panel.
+v := self initializeContextListViewIn:panel.
-	v origin:(0.0 @ 0.0) corner:(1.0 @ 0.25).
+v origin:(0.0 @ 0.0) corner:(1.0 @ 0.25).
-	codePanel := View in:panel.
+codePanel := View in:panel.
-	bpanel2 := HorizontalPanelView in:codePanel.
+bpanel2 := HorizontalPanelView in:codePanel.
-	self initializeButtons2In:bpanel2.
+self initializeButtons2In:bpanel2.
-	bH2 := bpanel2 preferredHeight + 5.
+bH2 := bpanel2 preferredHeight + 5.
-	bpanel2 origin:(0.0 @ 0.0)
+bpanel2 origin:(0.0 @ 0.0)
-		extent:(1.0 @ bH2).
+extent:(1.0 @ bH2).
-	exceptionInfoLabel := Label label:''.
+exceptionInfoLabel := Label label:''.
-	exceptionInfoLabel adjust:#left.
+exceptionInfoLabel adjust:#left.
-	exceptionAndTogglePanel := HorizontalPanelView in:codePanel.
+exceptionAndTogglePanel := HorizontalPanelView in:codePanel.
-	exceptionAndTogglePanel horizontalLayout:#left.
+exceptionAndTogglePanel horizontalLayout:#left.
-	exceptionAndTogglePanel
+exceptionAndTogglePanel
-	    geometryLayout:
+geometryLayout:
-		((LayoutFrame
+((LayoutFrame
-		    origin:(0.0 @ 0.0)
+origin:(0.0 @ 0.0)
-		    corner:(1.0 @ 0.0))
+corner:(1.0 @ 0.0))
-			topOffset:bH2;
+topOffset:bH2;
-			bottomOffset:(bH2 + exceptionInfoLabel preferredHeight + 6);
+bottomOffset:(bH2 + exceptionInfoLabel preferredHeight + 6);
-			rightOffset:-2).
+rightOffset:-2).
-	methodCodeToggleSelectionHolder := 1 asValue.
+methodCodeToggleSelectionHolder := 1 asValue.
-	methodCodeToggleSelectionHolder onChangeSend:#methodCodeToggleChanged to:self.
+methodCodeToggleSelectionHolder onChangeSend:#methodCodeToggleChanged to:self.
-	methodCodeToggle := PopUpList label:(resources string:'Original Code (Executed)') in:exceptionAndTogglePanel.
+methodCodeToggle := PopUpList label:(resources string:'Original Code (Executed)') in:exceptionAndTogglePanel.
-	methodCodeToggle list:(resources array:#( 'Original Code (Executed)' 'Current Code')).
+methodCodeToggle list:(resources array:#( 'Original Code (Executed)' 'Current Code')).
-	methodCodeToggle useIndex:true.
+methodCodeToggle useIndex:true.
-	methodCodeToggle model:methodCodeToggleSelectionHolder.
+methodCodeToggle model:methodCodeToggleSelectionHolder.
-	methodCodeToggle beInvisible.
+methodCodeToggle beInvisible.
-	exceptionAndTogglePanel add:exceptionInfoLabel.
+exceptionAndTogglePanel add:exceptionInfoLabel.
-	v := self initializeCodeViewIn:codePanel.
+v := self initializeCodeViewIn:codePanel.
-	v origin:(0.0 @ (bH2+exceptionInfoLabel preferredHeight+6)) corner:(1.0 @ 1.0).
+v origin:(0.0 @ (bH2+exceptionInfoLabel preferredHeight+6)) corner:(1.0 @ 1.0).
-	codePanel origin:(0.0 @ 0.25) corner:(1.0 @ 0.75).
+codePanel origin:(0.0 @ 0.25) corner:(1.0 @ 0.75).
-	v := self initializeInspectorViewsIn:panel.
+v := self initializeInspectorViewsIn:panel.
-	v origin:(0.0 @ 0.75) corner:(1.0 @ 1.0).
+v origin:(0.0 @ 0.75) corner:(1.0 @ 1.0).
 ].
 DefaultDebuggerBackgroundColor notNil ifTrue:[
-	self allViewBackground:DefaultDebuggerBackgroundColor.
+self allViewBackground:DefaultDebuggerBackgroundColor.
 ].
 LastExtent notNil ifTrue:[
-	self extent:LastExtent.
+self extent:LastExtent.
 ].
 LastOrigin notNil ifTrue:[
-	self origin:LastOrigin.
+self origin:LastOrigin.
 ].
 "
 Debugger newDebugger
 "
 "Modified: / 10-11-2010 / 10:09:34 / cg"
 !
 initializeAbortButtonIn:bpanel
 abortButton := Button
-		label:(resources string:'Abort')
+label:(resources string:'Abort')
-		action:[
+action:[
-		    abortButton turnOffWithoutRedraw.
+abortButton turnOffWithoutRedraw.
-		    self doAbort
+self doAbort
-		]
+]
-		in:bpanel.
+in:bpanel.
 "Created: / 17.11.2001 / 20:56:47 / cg"
 "Modified: / 17.11.2001 / 20:57:17 / cg"
 !
 separator := View extent:(50 @ 5) in:bpanel.
 separator borderWidth:0; level:0.
 self initializeDefineButtonIn:bpanel.
 (UserPreferences current allowSendMailFromDebugger and:[SendMailTool notNil]) ifTrue:[
-	separator := View extent:(10 @ 5) in:bpanel.
+separator := View extent:(10 @ 5) in:bpanel.
-	separator borderWidth:0; level:0.
+separator borderWidth:0; level:0.
-	self initializeReportButtonIn:bpanel.
+self initializeReportButtonIn:bpanel.
 ].
 "Modified: / 17.11.2001 / 21:02:59 / cg"
 !
 initializeButtons2In:bpanel
 separator := View extent:(30 @ 5) in:bpanel.
 separator borderWidth:0; level:0.
 self initializeDefineButtonIn:bpanel.
 (UserPreferences current allowSendMailFromDebugger and:[SendMailTool notNil]) ifTrue:[
-	self initializeReportButtonIn:bpanel.
+self initializeReportButtonIn:bpanel.
 ].
 "Created: / 17.11.2001 / 20:56:20 / cg"
 "Modified: / 17.11.2001 / 21:03:18 / cg"
 initializeContextListViewIn:panel
 |v|
 v := HVScrollableView
-		for:SelectionInListView
+for:SelectionInListView
-		miniScrollerH:true
+miniScrollerH:true
-		miniScrollerV:false
+miniScrollerV:false
-		in:panel.
+in:panel.
 v autoHideHorizontalScrollBar:true.
 contextView := v scrolledView.
 contextView action:[:lineNr | self showSelection:lineNr].
 contextView doubleClickAction:[:line | self browseImplementingClass].
 contextView middleButtonMenu:(self middleButtonMenu).
 !
 initializeContinueButtonIn:bpanel
 continueButton := Button
-		label:(resources string:'Continue')
+label:(resources string:'Continue')
-		action:[
+action:[
-		    continueButton turnOffWithoutRedraw.
+continueButton turnOffWithoutRedraw.
-		    self doContinue
+self doContinue
-		]
+]
-		in:bpanel.
+in:bpanel.
 "Created: / 17.11.2001 / 20:57:34 / cg"
 !
 initializeDefineButtonIn:bpanel
 defineButton := Button
-		label:(resources string:'Define')
+label:(resources string:'Define')
-		action:[
+action:[
-		    defineButton turnOffWithoutRedraw.
+defineButton turnOffWithoutRedraw.
-		    self doDefine
+self doDefine
-		]
+]
-		in:bpanel.
+in:bpanel.
 defineButton beInvisible
 "Created: / 17.11.2001 / 21:02:48 / cg"
 !
 |hpanel|
 hpanel := VariableHorizontalPanel in:panel.
 receiverInspector := InspectorView
-				origin:(0.0 @ 0.0) corner:(0.5 @ 1.0)
+origin:(0.0 @ 0.0) corner:(0.5 @ 1.0)
-				    in:hpanel.
+in:hpanel.
 receiverInspector fieldListLabel:'Receiver'.
 contextInspector := ContextInspectorView
-				origin:(0.5 @ 0.0) corner:(1.0 @ 1.0)
+origin:(0.5 @ 0.0) corner:(1.0 @ 1.0)
-				    in:hpanel.
+in:hpanel.
 contextInspector fieldListLabel:'Context'.
 ^ hpanel
 !
 initializeNextButtonIn:bpanel
 nextButton := Button
-		label:(resources string:'Debug_Next')
+label:(resources string:'Debug_Next')
-		action:[
+action:[
-		    stepButton turnOff.
+stepButton turnOff.
-		    self doNext
+self doNext
-		]
+]
-		in:bpanel.
+in:bpanel.
 "Created: / 17.11.2001 / 20:59:38 / cg"
 !
 initializeReportButtonIn:bpanel
 reportButton := Button
-		label:(resources string:'Report by Mail...')
+label:(resources string:'Report by Mail...')
-		action:[
+action:[
-		    reportButton turnOffWithoutRedraw.
+reportButton turnOffWithoutRedraw.
-		    self doOpenReportMailApp.
+self doOpenReportMailApp.
-		]
+]
-		in:bpanel.
+in:bpanel.
 "Created: / 17.11.2001 / 21:02:20 / cg"
 !
 initializeRestartButtonIn:bpanel
 restartButton := Button
-		label:(resources string:'Restart')
+label:(resources string:'Restart')
-		action:[
+action:[
-		    restartButton turnOff.
+restartButton turnOff.
-		    self doRestart
+self doRestart
-		]
+]
-		in:bpanel.
+in:bpanel.
 "Created: / 17.11.2001 / 20:58:52 / cg"
 !
 initializeReturnButtonIn:bpanel
 returnButton := Button
-		label:(resources string:'Return')
+label:(resources string:'Return')
-		action:[
+action:[
-		    returnButton turnOff.
+returnButton turnOff.
-		    self doReturn
+self doReturn
-		]
+]
-		in:bpanel.
+in:bpanel.
 "Created: / 17.11.2001 / 20:58:22 / cg"
 !
 initializeSendButtonIn:bpanel
 sendButton := Button
-		label:(resources string:'Send')
+label:(resources string:'Send')
-		action:[
+action:[
-		    sendButton turnOff.
+sendButton turnOff.
-		    self doSend
+self doSend
-		]
+]
-		in:bpanel.
+in:bpanel.
 "Created: / 17.11.2001 / 21:01:20 / cg"
 !
 initializeStepButtonIn:bpanel
 stepButton := Button
-		label:(resources string:'Debug_Step')
+label:(resources string:'Debug_Step')
-		action:[
+action:[
-		    stepButton turnOff.
+stepButton turnOff.
-		    self doStep
+self doStep
-		]
+]
-		in:bpanel.
+in:bpanel.
 "Created: / 17.11.2001 / 21:00:13 / cg"
 !
 initializeTerminateButtonIn:bpanel
 terminateButton := Button
-		label:(resources string:'Debug_Terminate')
+label:(resources string:'Debug_Terminate')
-		action:[
+action:[
-		    terminateButton turnOffWithoutRedraw.
+terminateButton turnOffWithoutRedraw.
-		    self doTerminate
+self doTerminate
-		]
+]
-		in:bpanel.
+in:bpanel.
 terminateButton backgroundColor:Color red lightened.
 "/ terminateButton foregroundColor:Color red.
 "Created: / 17.11.2001 / 21:02:20 / cg"
 postRealize
 super postRealize.
 inspecting ifTrue:[
-	inspectedProcess notNil ifTrue:[
+inspectedProcess notNil ifTrue:[
-	    "
+"
-	     set prio somewhat higher (by 2, to allow walkBack-update process
+set prio somewhat higher (by 2, to allow walkBack-update process
-	     to run between mine and the debugged processes prio)
+to run between mine and the debugged processes prio)
-	    "
+"
-	    Processor activeProcess
+Processor activeProcess
-		priority:(((inspectedProcess priority + 2) min:(Processor highIOPriority)) max:(Processor userSchedulingPriority+1)).
+priority:(((inspectedProcess priority + 2) min:(Processor highIOPriority)) max:(Processor userSchedulingPriority+1)).
-	]
+]
 ].
 self sensor addEventListener:self.
 "Created: 24.7.1997 / 18:17:44 / cg"
 reinitialize
 "/ redefined - since the debugView runs on top of
 "/ the debuggee, there would be no event loop for me.
 drawableId notNil ifTrue:[
-	^ self
+^ self
 ].
 "physically create the view & subviews"
 self recreate.
 !
 setLabelFor:aMessage in:aProcess
 |l lines processNameOrNil pidOrNil osPidString|
 lines := aMessage asStringCollection.
 lines size > 1 ifTrue:[
-	l := lines first
+l := lines first
 ] ifFalse:[
-	l := aMessage.
+l := aMessage.
 ].
 l := l , ' ('.
 Error handle:[:ex |
-	l := l , '???'
+l := l , '???'
 ] do:[
-	processNameOrNil := aProcess name.
+processNameOrNil := aProcess name.
-	processNameOrNil notNil ifTrue:[
+processNameOrNil notNil ifTrue:[
-	    l := l , (processNameOrNil contractTo:20) , ''.
+l := l , (processNameOrNil contractTo:20) , ''.
-	].
+].
-	pidOrNil := aProcess id printString.
+pidOrNil := aProcess id printString.
-	l := l , '[' , pidOrNil , ']'.
+l := l , '[' , pidOrNil , ']'.
 ].
 l := l , ')'.
 self label:l.
 ((ShowThreadID == true) and:[OperatingSystem isMSDOSlike]) ifTrue:[
-	osPidString := ' {threadID: ',OperatingSystem getThreadId printString,'}'.
+osPidString := ' {threadID: ',OperatingSystem getThreadId printString,'}'.
 ].
 exceptionInfoLabel notNil ifTrue:[
-	exceptionInfoLabel
+exceptionInfoLabel
-	    label:(resources
+label:(resources
-		    string:'Exception: %1 in process %2 [%3]%4'
+string:'Exception: %1 in process %2 [%3]%4'
-		    with:(lines first colorizeAllWith:Color red)
+with:(lines first colorizeAllWith:Color red)
-		    with:(processNameOrNil ? '')
+with:(processNameOrNil ? '')
-		    with:(pidOrNil ? '')
+with:(pidOrNil ? '')
-		    with:(osPidString ? ''))
+with:(osPidString ? ''))
 ].
 "Modified: / 06-07-2006 / 12:43:19 / cg"
 ! !
 !DebugView methodsFor:'interrupt handling'!
 contextInterrupt
 DebuggingDebugger == true ifTrue:[
-	'contextIRQ' printCR.
+'contextIRQ' printCR.
-	thisContext sender fullPrint.
+thisContext sender fullPrint.
 ].
 self stepOrNext
 "Modified: / 30.10.1997 / 21:22:25 / cg"
 !
 stepInterrupt
 DebuggingDebugger == true ifTrue:[
-	'stepIRQ' printCR.
+'stepIRQ' printCR.
-	thisContext sender fullPrint.
+thisContext sender fullPrint.
 ].
 Processor yield.
 self stepOrNext
 "Modified: / 13.1.1998 / 21:14:11 / cg"
 "/ DebuggingDebugger := false
 processName := (Processor activeProcess nameOrId),' [',Processor activeProcess id printString,']'.
 skipLineNr == #return ifTrue:[
-	self label:('stepping context returned ' , ' (process: ' , processName , ')').
+self label:('stepping context returned ' , ' (process: ' , processName , ')').
-	here := thisContext sender sender.
+here := thisContext sender sender.
-	here setLineNumber:nil.
+here setLineNumber:nil.
-	here := nil.
+here := nil.
-	con := thisContext sender sender sender.
+con := thisContext sender sender sender.
-	HaltInterrupt handle:[:ex |
+HaltInterrupt handle:[:ex |
-	    ('DebugView [info]: halt/breakpoint in debugger at %1 ignored [stepOrNext]' bindWith:ex suspendedContext) infoPrintCR.
+('DebugView [info]: halt/breakpoint in debugger at %1 ignored [stepOrNext]' bindWith:ex suspendedContext) infoPrintCR.
-	    ex proceed
+ex proceed
-	] do:[
+] do:[
-	    self enter:con select:nil.
+self enter:con select:nil.
-	].
+].
-	con := nil.
+con := nil.
-	^ self
+^ self
 ].
 "/    "/
 "/    "/ should no longer happen
 "/    "/
 "/        self enter:thisContext sender.
 "/        ^ self
 "/    ].
 Processor activeProcess ~~ inspectedProcess ifTrue:[
-	'DebugView [info]: stray step interrupt' infoPrintCR.
+'DebugView [info]: stray step interrupt' infoPrintCR.
-	^ self
+^ self
 ].
 here := thisContext.        "stepInterrupt"
 here := here sender.        "the caller; step- or contextIRQ"
 here := here sender.        "the interrupted context"
 DebuggingDebugger == true ifTrue:[
-	'*******' printCR.
+'*******' printCR.
-	'here in ' print.
+'here in ' print.
-	inWrap ifTrue:['(wrap) ' print.].
+inWrap ifTrue:['(wrap) ' print.].
-	((ObjectMemory addressOf:here) printStringRadix:16) print. ' ' print.
+((ObjectMemory addressOf:here) printStringRadix:16) print. ' ' print.
-	here selector printCR.
+here selector printCR.
 ].
 "/ kludge an bug-workaround;
 "/ I should not see those ...
 here selector == #ioInterrupt ifTrue:[
-	DebuggingDebugger == true ifTrue:[
+DebuggingDebugger == true ifTrue:[
-	    'oops - should not get that one' printCR.
+'oops - should not get that one' printCR.
-	].
+].
-	Processor ioInterrupt.
+Processor ioInterrupt.
-	StepInterruptPending := 1.
+StepInterruptPending := 1.
-	InterruptPending := 1.
+InterruptPending := 1.
-	where := nil. here := nil.
+where := nil. here := nil.
-	InStepInterrupt := nil.
+InStepInterrupt := nil.
-	^ self
+^ self
 ].
 stepUntilEntering notNil ifTrue:[
-	DebuggingDebugger == true ifTrue:[
+DebuggingDebugger == true ifTrue:[
-	    'check if entering ' print. stepUntilEntering printCR.
+'check if entering ' print. stepUntilEntering printCR.
-	].
+].
-	(stepUntilEntering match:here selector) ifTrue:[
+(stepUntilEntering match:here selector) ifTrue:[
-	    DebuggingDebugger == true ifTrue:[
+DebuggingDebugger == true ifTrue:[
-		'entering...' printCR.
+'entering...' printCR.
-	    ].
+].
-	    self label:('arrived at ' , stepUntilEntering , ' (process: ' , processName , ')').
+self label:('arrived at ' , stepUntilEntering , ' (process: ' , processName , ')').
-	    lastStepUntilEntering := stepUntilEntering.
+lastStepUntilEntering := stepUntilEntering.
-	    stepUntilEntering := nil.
+stepUntilEntering := nil.
-	    self enter:here select:nil.
+self enter:here select:nil.
-	    con := nil.
+con := nil.
-	    ^ self
+^ self
-	].
+].
-	"/ see if stepping context is still active ...
+"/ see if stepping context is still active ...
-	con := here.
+con := here.
-	DebuggingDebugger == true ifTrue:[
+DebuggingDebugger == true ifTrue:[
-	    'start searching at: ' print.
+'start searching at: ' print.
-	    con fullPrint.
+con fullPrint.
-	].
+].
-	[con notNil and:[con ~~ steppedContext]] whileTrue:[
+[con notNil and:[con ~~ steppedContext]] whileTrue:[
-	    con := con sender
+con := con sender
-	].
+].
-	con notNil ifTrue:[
+con notNil ifTrue:[
-	    DebuggingDebugger == true ifTrue:[
+DebuggingDebugger == true ifTrue:[
-		'steppingContext still active - continue stepping' printCR.
+'steppingContext still active - continue stepping' printCR.
-	    ].
+].
-	    con := nil.
+con := nil.
-	    where := nil. here := nil.
+where := nil. here := nil.
-	    StepInterruptPending := 1.
+StepInterruptPending := 1.
-	    InterruptPending := 1.
+InterruptPending := 1.
-	    InStepInterrupt := nil.
+InStepInterrupt := nil.
-	    ^ self
+^ self
-	].
+].
-	stepUntilEntering := nil.
+stepUntilEntering := nil.
 ].
 "
 kludge to hide breakpoint wrappers in the context list:
-	 check if we are in a wrapper methods hidden setup-sequence
+check if we are in a wrapper methods hidden setup-sequence
-	 if so, ignore the interrupt and continue single sending
+if so, ignore the interrupt and continue single sending
 "
 isWrap := false.
 left := false.
 leftWrap := enteredWrap := false.
 where := here.
 inWrap ifTrue:[
-	wrappedMethod := nil.
+wrappedMethod := nil.
-	5 timesRepeat:[
+5 timesRepeat:[
-	    (where notNil and:[where isBlockContext not]) ifTrue:[
+(where notNil and:[where isBlockContext not]) ifTrue:[
-		method := where method.
+method := where method.
-		(method notNil and:[method isWrapped]) ifTrue:[
+(method notNil and:[method isWrapped]) ifTrue:[
-		    "
+"
-		     in a wrapper method
+in a wrapper method
-		    "
+"
-		    wrappedMethod ~~ method ifTrue:[
+wrappedMethod ~~ method ifTrue:[
-			wrappedMethod := method.
+wrappedMethod := method.
-			lastWrappedContext := where.
+lastWrappedContext := where.
-			where sender receiver == method originalMethod ifFalse:[
+where sender receiver == method originalMethod ifFalse:[
-			    isWrap := true.
+isWrap := true.
-			]
+]
-		    ] ifFalse:[
+] ifFalse:[
-			where == steppedContext ifTrue:[
+where == steppedContext ifTrue:[
-			    DebuggingDebugger == true ifTrue:[
+DebuggingDebugger == true ifTrue:[
-				'change stepCon from: ' print.
+'change stepCon from: ' print.
-				steppedContext print.
+steppedContext print.
-				' to lastWrapped: ' print.
+' to lastWrapped: ' print.
-				lastWrappedContext printCR.
+lastWrappedContext printCR.
-			    ].
+].
-			    inWrap := false.
+inWrap := false.
-			    leftWrap := true.
+leftWrap := true.
-			    wrapperContext := steppedContext.
+wrapperContext := steppedContext.
-			    steppedContext := lastWrappedContext
+steppedContext := lastWrappedContext
-			]
+]
-		    ]
+]
-		].
+].
-		where := where sender
+where := where sender
-	    ]
+]
-	].
+].
 ].
 isWrap ifTrue:[
-	DebuggingDebugger == true ifTrue:[
+DebuggingDebugger == true ifTrue:[
-	    'ignore wrap' printCR.
+'ignore wrap' printCR.
-	].
+].
-	"/
+"/
-	"/ ignore, while in wrappers hidden setup
+"/ ignore, while in wrappers hidden setup
-	"/
+"/
-	where := nil. here := nil.
+where := nil. here := nil.
-	ObjectMemory flushInlineCaches.
+ObjectMemory flushInlineCaches.
-	skipLineNr == #return ifTrue:[
+skipLineNr == #return ifTrue:[
-	    DebuggingDebugger == true ifTrue:[
+DebuggingDebugger == true ifTrue:[
-		'skipRet in wrap' printCR.
+'skipRet in wrap' printCR.
-	    ]
+]
-	].
+].
-	StepInterruptPending := 1.
+StepInterruptPending := 1.
-	InterruptPending := 1.
+InterruptPending := 1.
-	InStepInterrupt := nil.
+InStepInterrupt := nil.
-	^ self
+^ self
 ].
 inBlock := inBlockBelow := anyStepBlocks := false.
 DebuggingDebugger == true ifTrue:[
-	'bigStep is: ' print. bigStep printCR.
+'bigStep is: ' print. bigStep printCR.
-	'steppedContext is: ' print. steppedContext printCR.
+'steppedContext is: ' print. steppedContext printCR.
 ].
 "/
 "/ is this for a send or a step/next ?
 "/
 (bigStep
 and:[steppedContext notNil]) ifTrue:[
-	"
+"
-	 a step or next - ignore all contexts below the interesting one
+a step or next - ignore all contexts below the interesting one
-	"
+"
-	where := here.      "the interrupted context"
+where := here.      "the interrupted context"
-	contextBelow := nil.
+contextBelow := nil.
-	where home notNil ifTrue:[
+where home notNil ifTrue:[
-	    "/
+"/
-	    "/ in a block called by 'our' context ?
+"/ in a block called by 'our' context ?
-	    "/
+"/
-	    where home == steppedContext ifTrue:[
+where home == steppedContext ifTrue:[
 "/ '*block*' printCR.
-		inBlock := true
+inBlock := true
-	    ]
+]
-	].
+].
-	where == steppedContext ifFalse:[
+where == steppedContext ifFalse:[
-	    where := where sender.
+where := where sender.
-	    where notNil ifTrue:[
+where notNil ifTrue:[
-		where home == steppedContext ifTrue:[
+where home == steppedContext ifTrue:[
 "/ '*block*' printCR.
-		    inBlock := true.
+inBlock := true.
-		]
+]
-	    ].
+].
 "/ 'looking for ' print.
 "/  (steppedContextAddress printStringRadix:16)print. '' printCR.
 "/where print. ' ' print. ((ObjectMemory addressOf:where)printStringRadix:16) printCR.
 "/steppedContext print. ' ' print. ((ObjectMemory addressOf:steppedContext)printStringRadix:16) printCR.
-	    where == steppedContext ifFalse:[
+where == steppedContext ifFalse:[
-		"/ check if we are in a context below steppedContext
+"/ check if we are in a context below steppedContext
-		"/ (i.e. if steppedContext can be reached from
+"/ (i.e. if steppedContext can be reached from
-		"/  interrupted context. Not using context-ref but its
+"/  interrupted context. Not using context-ref but its
-		"/  address to avoid creation of many useless contexts.)
+"/  address to avoid creation of many useless contexts.)
-		inBlock ifFalse:[
+inBlock ifFalse:[
-		    [where notNil] whileTrue:[
+[where notNil] whileTrue:[
-			"/ if either the receiver or any arg of this context
+"/ if either the receiver or any arg of this context
-			"/ is a block of the steppedContext, we must really
+"/ is a block of the steppedContext, we must really
-			"/ do a single step. Otherwise, stepping through a
+"/ do a single step. Otherwise, stepping through a
-			"/ do:-loop would be very difficult.
+"/ do:-loop would be very difficult.
-			receiver := where receiver.
+receiver := where receiver.
-			(receiver isBlock
+(receiver isBlock
-			and:[(receiver isKindOf:Block)
+and:[(receiver isKindOf:Block)
-			and:[receiver home == steppedContext]])
+and:[receiver home == steppedContext]])
-			ifTrue:[
+ifTrue:[
-			    anyStepBlocks := true.
+anyStepBlocks := true.
-			] ifFalse:[
+] ifFalse:[
-			    where args do:[:arg |
+where args do:[:arg |
-				(arg isBlock
+(arg isBlock
-				and:[(arg isKindOf:Block)
+and:[(arg isKindOf:Block)
-				and:[arg home == steppedContext]])
+and:[arg home == steppedContext]])
-				ifTrue:[
+ifTrue:[
-				    anyStepBlocks := true.
+anyStepBlocks := true.
-				]
+]
-			    ]
+]
-			].
+].
-			DebuggingDebugger == true ifTrue:[
+DebuggingDebugger == true ifTrue:[
-			    ((ObjectMemory addressOf:where) printStringRadix:16)print. ' ' print.
+((ObjectMemory addressOf:where) printStringRadix:16)print. ' ' print.
-			    where selector printCR.
+where selector printCR.
-			].
+].
-			where == steppedContext ifTrue:[
+where == steppedContext ifTrue:[
 "/ 'found it - below; ignore' printCR.
-			    "
+"
-			     found the interesting context somwehere up in the
+found the interesting context somwehere up in the
-			     chain. We seem to be still below the interesting one ...
+chain. We seem to be still below the interesting one ...
-			    "
+"
-			    tracing == true ifTrue:[
+tracing == true ifTrue:[
-				here printString printCR
+here printString printCR
-			    ].
+].
-			    "
+"
-			      yes, a context below
+yes, a context below
-			      - continue and schedule another stepInterrupt.
+- continue and schedule another stepInterrupt.
-			      Must flush caches since optimized methods not always
+Must flush caches since optimized methods not always
-			      look for pending interrupts
+look for pending interrupts
-			    "
+"
-			    contextBelow notNil ifTrue:[
+contextBelow notNil ifTrue:[
 "/ 'prepare for unwind-catch' printCR.
 "/ 'con= ' print. contextBelow printCR.
 "/                                contextBelow selector notNil ifTrue:[
 "/                                    self label:'single stepping - please wait ...(' , contextBelow selector , ')'.
 "/                                ].
-				DebuggingDebugger == true ifTrue:[
+DebuggingDebugger == true ifTrue:[
-				    'below stepCon; continue until unwind of: ' print.
+'below stepCon; continue until unwind of: ' print.
-				    contextBelow printCR.
+contextBelow printCR.
-				].
+].
-				Processor activeProcess forceInterruptOnReturnOf:contextBelow.
+Processor activeProcess forceInterruptOnReturnOf:contextBelow.
-				StepInterruptPending := nil.
+StepInterruptPending := nil.
-			    ] ifFalse:[
+] ifFalse:[
-				ObjectMemory flushInlineCaches.
+ObjectMemory flushInlineCaches.
 "/                                here selector notNil ifTrue:[
 "/                                    self label:'single stepping - please wait ...(' , here selector , ')'.
 "/                                ].
-				DebuggingDebugger == true ifTrue:[
+DebuggingDebugger == true ifTrue:[
-				    'in stepCon; continue single stepping' printCR.
+'in stepCon; continue single stepping' printCR.
-				].
+].
-				StepInterruptPending := 1.
+StepInterruptPending := 1.
-				InterruptPending := 1.
+InterruptPending := 1.
-			    ].
+].
-			    where := nil. here := nil.
+where := nil. here := nil.
-			    InStepInterrupt := nil.
+InStepInterrupt := nil.
-			    ^ self
+^ self
-			].
+].
-			(steppedContext notNil and:[
+(steppedContext notNil and:[
-			 where methodHome == steppedContext methodHome]) ifTrue:[
+where methodHome == steppedContext methodHome]) ifTrue:[
-			    inBlockBelow := true.
+inBlockBelow := true.
-			].
+].
-			anyStepBlocks ifFalse:[
+anyStepBlocks ifFalse:[
-			    inBlock ifFalse:[
+inBlock ifFalse:[
 "/ workaround a VM bug,
 "/ which does not honor interrupt-on-return of block contexts
 "/ sigh
 where isBlockContext ifFalse:[
-				contextBelow := where
+contextBelow := where
 ].
-			    ]
+]
-			].
+].
-			where := where sender
+where := where sender
-		    ].
+].
-		    s := 'context returned'.
+s := 'context returned'.
-		    left := true.
+left := true.
-		].
+].
-	    ] ifTrue:[
+] ifTrue:[
 "/ 'found it right in sender' printCR.
-		s := 'after step'
+s := 'after step'
-	    ].
+].
-	] ifTrue:[
+] ifTrue:[
 "/ 'found it right away' printCR.
-	    s := 'after step'
+s := 'after step'
-	].
+].
 ] ifFalse:[
 "/ ' send' printCR.
-	"
+"
-	 a send
+a send
-	"
+"
-	DebuggingDebugger == true ifTrue:[
+DebuggingDebugger == true ifTrue:[
-	    'clear steppedContext' printCR.
+'clear steppedContext' printCR.
-	].
+].
-	steppedContext := nil.
+steppedContext := nil.
-	s := 'after send'
+s := 'after send'
 ].
 ignore := false.
 (inBlock and:[stepHow == #nextOver or:[stepHow == #nextOut]]) ifTrue:[
-	ignore := true.
+ignore := true.
 ].
 "/ handle the case, when a subBlock leaves;
 "/ continue stepping in the home context.
 left ifTrue:[
-	steppedContext home notNil ifTrue:[
+steppedContext home notNil ifTrue:[
-	    steppedContext := steppedContext home.
+steppedContext := steppedContext home.
-	    s := 'after step'.
+s := 'after step'.
-	    left := false.
+left := false.
 "/ DebugView enterUnconditional:thisContext withMessage:'debug'.
-	]
+]
 ].
 "
 kludge to hide breakpoint wrappers in the context list:
-	 check if we are in a wrapper methods hidden exit-sequence
+check if we are in a wrapper methods hidden exit-sequence
-	 if so, ignore the interrupt and continue single sending
+if so, ignore the interrupt and continue single sending
 "
 (where isNil
 and:[wrapperContext notNil])
 ifTrue:[
-	"/ did not find our steppedContext along the chain;
+"/ did not find our steppedContext along the chain;
-	"/ could be in a wrappedMethods exitBlock ...
+"/ could be in a wrappedMethods exitBlock ...
-	leftWrap ifFalse:[
+leftWrap ifFalse:[
-	    where := here.
+where := here.
-	    wrappedMethod := nil.
+wrappedMethod := nil.
-	    5 timesRepeat:[
+5 timesRepeat:[
-		where notNil ifTrue:[
+where notNil ifTrue:[
-		    where isBlockContext ifFalse:[
+where isBlockContext ifFalse:[
-			method := where method.
+method := where method.
-			(method notNil and:[method isWrapped]) ifTrue:[
+(method notNil and:[method isWrapped]) ifTrue:[
-			    where == wrapperContext ifTrue:[
+where == wrapperContext ifTrue:[
-				DebuggingDebugger == true ifTrue:[
+DebuggingDebugger == true ifTrue:[
-				    'change stepCon fromWrapped: ' print.
+'change stepCon fromWrapped: ' print.
-				    steppedContext print.
+steppedContext print.
-				    ' to: ' print.
+' to: ' print.
-				    wrapperContext printCR.
+wrapperContext printCR.
-				].
+].
-				inWrap := true.
+inWrap := true.
-				enteredWrap := true.
+enteredWrap := true.
-				steppedContext := wrapperContext.
+steppedContext := wrapperContext.
-				wrapperContext := nil.
+wrapperContext := nil.
-			    ]
+]
-			].
+].
-		    ].
+].
-		    where := where sender
+where := where sender
-		]
+]
-	    ].
+].
-	].
+].
-	enteredWrap ifTrue:[
+enteredWrap ifTrue:[
-	    ignore := true
+ignore := true
-	]
+]
 ].
 "/
 left ifTrue:[
-	"/ special care for stepInterrupt in send,
+"/ special care for stepInterrupt in send,
-	"/ when created a dummy context (lineNr == 1)
+"/ when created a dummy context (lineNr == 1)
-	steppedContext lineNumber isNil ifTrue:[
+steppedContext lineNumber isNil ifTrue:[
-	    steppedContext selector == here sender selector ifTrue:[
+steppedContext selector == here sender selector ifTrue:[
-		left := false.
+left := false.
-		s := 'after step'.
+s := 'after step'.
-		steppedContext := here sender.
+steppedContext := here sender.
-	    ].
+].
-	].
+].
-	oneMore := true
+oneMore := true
 ].
 inBlock ifTrue:[
 "/ 'inBlock' printCR.
-	s := 'in block'.
+s := 'in block'.
 ].
 inBlockBelow ifTrue:[
-	ignore := true
+ignore := true
 ].
 DebuggingDebugger == true ifTrue:[
-	where notNil ifTrue:[
+where notNil ifTrue:[
-	    '(' print. steppedContextLineno print. ') ' print.
+'(' print. steppedContextLineno print. ') ' print.
-	    where printCR.
+where printCR.
-	].
+].
 ].
 ignore ifFalse:[
-	(bigStep
+(bigStep
-	and:[steppedContextLineno notNil
+and:[steppedContextLineno notNil
-	and:[where notNil
+and:[where notNil
-	and:[where lineNumber == steppedContextLineno]]]) ifTrue:[
+and:[where lineNumber == steppedContextLineno]]]) ifTrue:[
-	    (here isBlockContext
+(here isBlockContext
-	    and:[(here methodHome == steppedContext)
+and:[(here methodHome == steppedContext)
-		 or:[here home == steppedContext]]) ifTrue:[
+or:[here home == steppedContext]]) ifTrue:[
-		DebuggingDebugger == true ifTrue:[
+DebuggingDebugger == true ifTrue:[
-		    'same line but in block' printCR.
+'same line but in block' printCR.
-		].
+].
-		steppedContext := actualContext := here.
+steppedContext := actualContext := here.
-		steppedContextLineno := here lineNumber.
+steppedContextLineno := here lineNumber.
-	    ] ifFalse:[
+] ifFalse:[
-		"/ kludge - I only have the info for up to 255 lines
+"/ kludge - I only have the info for up to 255 lines
-		steppedContextLineno ~~ 255 ifTrue:[
+steppedContextLineno ~~ 255 ifTrue:[
-		    DebuggingDebugger == true ifTrue:[
+DebuggingDebugger == true ifTrue:[
-			'same line - ignored' printCR.
+'same line - ignored' printCR.
-		    ].
+].
-		    ignore := true
+ignore := true
-		].
+].
-	    ].
+].
-	].
+].
-	(left not
+(left not
-	and:[skipLineNr notNil
+and:[skipLineNr notNil
-	and:[where notNil
+and:[where notNil
-	and:[where lineNumber notNil
+and:[where lineNumber notNil
-	and:[where lineNumber < skipLineNr]]]]) ifTrue:[
+and:[where lineNumber < skipLineNr]]]]) ifTrue:[
-	    DebuggingDebugger == true ifTrue:[
+DebuggingDebugger == true ifTrue:[
-		'skip (' print. skipLineNr print. ' unreached - ignored' printCR.
+'skip (' print. skipLineNr print. ' unreached - ignored' printCR.
-	    ].
+].
-	    ignore := true
+ignore := true
-	].
+].
-	(steppedContextLineno isNil
+(steppedContextLineno isNil
-	and:[skipLineNr isNil
+and:[skipLineNr isNil
-	and:[thisContext sender selector == #contextInterrupt]]) ifTrue:[
+and:[thisContext sender selector == #contextInterrupt]]) ifTrue:[
-	    DebuggingDebugger == true ifTrue:[
+DebuggingDebugger == true ifTrue:[
-		'same line2 (after conIRQ) - ignored' printCR.
+'same line2 (after conIRQ) - ignored' printCR.
-	    ].
+].
-	    ignore := true
+ignore := true
-	].
+].
 ].
 ignore ifTrue:[
 "/' ' printCR.
-	where := nil. here := nil.
+where := nil. here := nil.
-	"
+"
-	 yes, a context below
+yes, a context below
-	  - continue and schedule another stepInterrupt.
+- continue and schedule another stepInterrupt.
-	  Must flush caches since optimized methods not always
+Must flush caches since optimized methods not always
-	  look for pending interrupts
+look for pending interrupts
-	"
+"
-	ObjectMemory flushInlineCaches.
+ObjectMemory flushInlineCaches.
-	StepInterruptPending := 1.
+StepInterruptPending := 1.
-	InterruptPending := 1.
+InterruptPending := 1.
-	InStepInterrupt := nil.
+InStepInterrupt := nil.
-	^ self
+^ self
 ].
 "/ ' ' printCR.
 self label:(s , ' (process: ' , processName , ')').
 "release refs to context"
 where := nil. here := nil.
 "/'enter' printCR.
 DebuggingDebugger == true ifTrue:[
-	'==> enter on: ' print. thisContext sender sender printCR.
+'==> enter on: ' print. thisContext sender sender printCR.
 ].
 initiallyShown := nil.
 (oneMore == true) ifTrue:[
-	(thisContext sender sender lineNumber ? 0) <= 1 ifTrue:[
+(thisContext sender sender lineNumber ? 0) <= 1 ifTrue:[
-	    initiallyShown := 2
+initiallyShown := 2
-	] ifFalse:[
+] ifFalse:[
-	    initiallyShown := 1
+initiallyShown := 1
-	]
+]
 ].
 con := thisContext sender sender.
 HaltInterrupt handle:[:ex |
-	'DebugView [info]: halt/breakpoint in debugger ignored [stepOpNext 2]' infoPrintCR.
+'DebugView [info]: halt/breakpoint in debugger ignored [stepOpNext 2]' infoPrintCR.
-	ex proceed
+ex proceed
 ] do:[
-	self enter:con select:initiallyShown
+self enter:con select:initiallyShown
 ].
 con := nil
 "Created: / 14.10.1996 / 12:53:39 / cg"
 "Modified: / 18.11.2001 / 01:00:55 / 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"
 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
 !
 allowBreakPointsInDebugger
 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)
 ]
 !
 browseClass
 selectedContext isNil ifTrue:[^ self].
 cls := selectedContext receiver class.
 sel := selectedContext selector.
 (cls includesSelector:sel) ifFalse:[
-	sel := nil
+sel := nil
 ].
 cls browserClass openInClass:cls selector:sel.
 "Modified: / 3.2.1998 / 20:23:36 / cg"
 !
 selectedContext isNil ifTrue:[^ self].
 mthd := selectedContext method.
 mthd notNil ifTrue:[
-	cls := mthd containingClass.
+cls := mthd containingClass.
-	"/ still nil if unbound - then use receivers class
+"/ still nil if unbound - then use receivers class
 ].
 cls isNil ifTrue:[
-	cls := selectedContext receiver class
+cls := selectedContext receiver class
 ].
 cls browserClass browseClassHierarchy:cls.
 "Modified: / 17.11.2001 / 19:43:06 / cg"
 !
 selectedContext isNil ifTrue:[^ self].
 mthd := selectedContext method.
 mthd notNil ifTrue:[
-	cls := mthd containingClass.
+cls := mthd containingClass.
-	"/ still nil if unbound - then use receivers class
+"/ still nil if unbound - then use receivers class
 ].
 cls isNil ifTrue:[
-	cls := selectedContext receiver class
+cls := selectedContext receiver class
 ].
 cls browserClass browseFullClassProtocol:cls.
 "Modified: / 17.11.2001 / 19:43:43 / cg"
 !
 selectedContext isNil ifTrue:[^ self].
 mthd := selectedContext method.
 mthd notNil ifTrue:[
-	who := selectedContext method who.
+who := selectedContext method who.
-	who notNil ifTrue:[
+who notNil ifTrue:[
-	    cls := who methodClass.
+cls := who methodClass.
-	    sel := who methodSelector.
+sel := who methodSelector.
-	]
+]
 ].
 cls isNil ifTrue:[
-	"/ class not found - try receiver
+"/ class not found - try receiver
-	cls := selectedContext receiver class
+cls := selectedContext 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
 UserPreferences systemBrowserClass
-	 browseImplementorsOf:selectedContext selector.
+browseImplementorsOf:selectedContext selector.
 !
 browseImplementorsOf
 "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 size == 0 ifFalse:[
-	UserPreferences systemBrowserClass
+UserPreferences systemBrowserClass
-	    browseImplementorsMatching:selector.
+browseImplementorsMatching:selector.
 ]
 "Modified: / 6.2.2000 / 01:05:14 / cg"
 !
 |p appClass|
 p := inspectedProcess ? Processor activeProcess.
 (p notNil and:[p isGUIProcess]) ifTrue:[
-	WindowGroup scheduledWindowGroups do:[:wg |
+WindowGroup scheduledWindowGroups do:[:wg |
-	    wg process == p ifTrue:[
+wg process == p ifTrue:[
-		appClass := wg application class.
+appClass := wg application class.
-		appClass browserClass openInClass:appClass selector:nil.
+appClass browserClass openInClass:appClass selector:nil.
-		^ self
+^ self
-	    ]
+]
-	]
+]
 ].
 !
 browseReceiversClass
 "browse the receiver's class (of the selected context's message)"
 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"
 !
 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 **'
 ].
 UserPreferences systemBrowserClass
-	browseAllCallsOn:selectedContext selector.
+browseAllCallsOn:selectedContext selector.
 !
 browseSendersOf
 "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 size == 0 ifFalse:[
-	UserPreferences systemBrowserClass
+UserPreferences systemBrowserClass
-	    browseAllCallsOn:selector asSymbol.
+browseAllCallsOn:selector asSymbol.
 ]
 "Modified: / 6.2.2000 / 01:05:29 / cg"
 !
 "abort - send Object>>abortSignal, which is usually caught
 at save places (for example: in the event loop) and returns back
 from whatever the process is doing, but does not terminate it."
 self checkIfCodeIsReallyModified ifTrue:[
-	(self confirm:('Code modified - abort anyway ?'))
+(self confirm:('Code modified - abort anyway ?'))
-	ifFalse:[
+ifFalse:[
-	    ^ self
+^ self
-	]
+]
 ].
 inspecting ifTrue:[
-	inspectedProcess isDead ifTrue:[
+inspectedProcess isDead ifTrue:[
-	    self showTerminated.
+self showTerminated.
-	    ^ self
+^ self
-	].
+].
-	(AbortOperationRequest isHandledIn:inspectedProcess suspendedContext) ifFalse:[
+(AbortOperationRequest isHandledIn:inspectedProcess suspendedContext) ifFalse:[
-	    self showError:'** the process does not handle the abort signal **'
+self showError:'** the process does not handle the abort signal **'
-	] ifTrue:[
+] ifTrue:[
-	    self interruptProcessWith:[AbortOperationRequest raise].
+self interruptProcessWith:[AbortOperationRequest raise].
-	].
+].
-	^ self
+^ self
 ].
 steppedContext := wrapperContext := nil.
 haveControl := false.
 exitAction := #abort.
 "exit private event-loop"
 catchBlock notNil ifTrue:[
-	abortButton turnOff.
+abortButton turnOff.
-	catchBlock value.
+catchBlock value.
-	"/ not reached
+"/ not reached
-	'DebugView [warning]: abort failed' errorPrintCR.
+'DebugView [warning]: abort failed' errorPrintCR.
 ].
 ^ self.
 "Modified: / 17.11.2001 / 22:53:22 / cg"
 "abortAll - send Object>>abortAllSignal, which is usually caught
 at save places (for example: in the event loop) and returns back
 from whatever the process is doing, but does not terminate it."
 self checkIfCodeIsReallyModified ifTrue:[
-	(self confirm:('Code modified - abort anyway ?'))
+(self confirm:('Code modified - abort anyway ?'))
-	ifFalse:[
+ifFalse:[
-	    ^ self
+^ self
-	]
+]
 ].
 inspecting ifTrue:[
-	inspectedProcess isDead ifTrue:[
+inspectedProcess isDead ifTrue:[
-	    self showTerminated.
+self showTerminated.
-	    ^ self
+^ self
-	].
+].
-	(AbortOperationRequest isHandledIn:inspectedProcess suspendedContext) ifFalse:[
+(AbortOperationRequest isHandledIn:inspectedProcess suspendedContext) ifFalse:[
-	    self showError:'** the process does not handle the abort signal **'
+self showError:'** the process does not handle the abort signal **'
-	] ifTrue:[
+] ifTrue:[
-	    self interruptProcessWith:[AbortAllOperationRequest raise].
+self interruptProcessWith:[AbortAllOperationRequest raise].
-	].
+].
-	^ self
+^ self
 ].
 steppedContext := wrapperContext := nil.
 haveControl := false.
 exitAction := #abortAll.
 "exit private event-loop"
 catchBlock notNil ifTrue:[
-	abortButton turnOff.
+abortButton turnOff.
-	catchBlock value.
+catchBlock value.
-	"/ not reached
+"/ not reached
-	'DebugView [warning]: abort failed' errorPrintCR.
+'DebugView [warning]: abort failed' errorPrintCR.
 ].
 ^ self.
 "Modified: / 17.11.2001 / 22:53:22 / cg"
 "continue from menu"
 |proc exContext ex answer|
 self checkIfCodeIsReallyModified ifTrue:[
-	(self confirm:('Code modified - continue anyway ?')) ifFalse:[
+(self confirm:('Code modified - continue anyway ?')) ifFalse:[
-	    ^ self
+^ self
-	]
+]
 ].
 inspecting ifTrue:[
-	device hasColors ifTrue:[
+device hasColors ifTrue:[
-	    continueButton foregroundColor:Color red darkened.
+continueButton foregroundColor:Color red darkened.
-	].
+].
-	continueButton label:(resources string:'Stop').
+continueButton label:(resources string:'Stop').
-	continueButton action:[self doStop].
+continueButton action:[self doStop].
-	self processPerform:#resume.
+self processPerform:#resume.
-	^ self
+^ self
 ].
 canContinue ifTrue:[
-	exContext := thisContext findSpecialHandle:false raise:true.
+exContext := thisContext findSpecialHandle:false raise:true.
-	(exContext notNil
+(exContext notNil
-	and:[ (ex := exContext receiver) isLazyValue not
+and:[ (ex := exContext receiver) isLazyValue not
-	and:[ ex isException
+and:[ ex isException
-	and:[ ex signal == NoHandlerError
+and:[ ex signal == NoHandlerError
-	and:[ ex parameter signal == RecursionError]]]])
+and:[ ex parameter signal == RecursionError]]]])
-	ifTrue:[
+ifTrue:[
-	    "/ debug due to unhandled recursionInterrupt.
+"/ debug due to unhandled recursionInterrupt.
-	    "/ ask if we should proceed with more stack.
+"/ ask if we should proceed with more stack.
-	    answer := self confirm:'Debugger entered due to a stack overflow.\\Continue with more stack ?' withCRs.
+answer := self confirm:'Debugger entered due to a stack overflow.\\Continue with more stack ?' withCRs.
-	    answer == true ifTrue:[
+answer == true ifTrue:[
-		proc := Processor activeProcess.
+proc := Processor activeProcess.
-		proc setMaximumStackSize:(proc maximumStackSize * 2).
+proc setMaximumStackSize:(proc maximumStackSize * 2).
-	    ].
+].
-	].
+].
-	steppedContext := wrapperContext := nil.
+steppedContext := wrapperContext := nil.
-	tracing := false.
+tracing := false.
-	haveControl := false.
+haveControl := false.
-	exitAction := #continue.
+exitAction := #continue.
-	"exit private event-loop"
+"exit private event-loop"
-	catchBlock value.
+catchBlock value.
-	"/ not reached.
+"/ not reached.
-	'DebugView [warning]: continue failed' errorPrintCR.
+'DebugView [warning]: continue failed' errorPrintCR.
-	continueButton turnOff.
+continueButton turnOff.
 ] ifFalse:[
-	inspecting ifFalse:[
+inspecting ifFalse:[
-	    'DebugView [info]: resuming top context' infoPrintCR.
+'DebugView [info]: resuming top context' infoPrintCR.
-	    self showSelection:1.
+self showSelection:1.
-	    self doReturn
+self doReturn
-	]
+]
 ]
 "Modified: / 5.10.1998 / 13:03:47 / cg"
 "Modified: / 26.7.1999 / 15:38:45 / stefan"
 !
 restart := true.
 selector := actualContext selector.
 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 name.
+nm := eachArg class name.
-			    (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''.'.
 actualContext receiver isNil ifTrue:[
-	(self confirm:'Are you sure you want to add this method (to UndefinedObject) ?')
+(self confirm:'Are you sure you want to add this method (to UndefinedObject) ?')
-	ifFalse:[
+ifFalse:[
-	    ^ self
+^ self
-	]
+]
 ].
 receiversClass := actualContext receiver class.
 (receiversClass instVarNames includes:selector) ifTrue:[
-	code := '%1\' , haltStmtFix , '\    ^ %2'.
+code := '%1\' , haltStmtFix , '\    ^ %2'.
-	cat := 'accessing'.
+cat := 'accessing'.
 ].
 (selector numArgs == 1
 and:[(selector endsWith:':')
 and:[receiversClass instVarNames includes:(selector copyWithoutLast:1)]])
 ifTrue:[
-	code := '%1\' , haltStmtFix , '\    %2 := arg.'.
+code := '%1\' , haltStmtFix , '\    %2 := arg.'.
-	cat := 'accessing'.
+cat := 'accessing'.
 ].
 "/    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) withCRs
+codeAccept:(code bindWith:proto with:selector) 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: / 17.11.2001 / 23:43:54 / cg"
 !
 "single send; reenter with next message send"
 inspecting ifTrue:[^ self].
 self checkIfCodeIsReallyModified ifTrue:[
-	(self confirm:('Code modified - step anyway ?'))
+(self confirm:('Code modified - step anyway ?'))
-	ifFalse:[
+ifFalse:[
-	    ^ self
+^ self
-	]
+]
 ].
 canContinue ifTrue:[
-	steppedContext := wrapperContext := nil.
+steppedContext := wrapperContext := nil.
-	haveControl := false.
+haveControl := false.
-	exitAction := #step.
+exitAction := #step.
-	"exit private event-loop"
+"exit private event-loop"
-	catchBlock value.
+catchBlock value.
-	"/ not reached
+"/ not reached
-	'DebugView [warning]: send failed' errorPrintCR.
+'DebugView [warning]: send failed' errorPrintCR.
-	sendButton turnOff.
+sendButton turnOff.
 ]
 "Created: / 6.3.1997 / 21:09:36 / cg"
 "Modified: / 29.7.1998 / 21:49:29 / cg"
 !
 "Modified: 7.3.1997 / 18:39:00 / cg"
 !
 doNoTrace
 traceView notNil ifTrue:[
-	traceView topView destroy.
+traceView topView destroy.
-	traceView := nil.
+traceView := nil.
 ].
 tracing := false
 !
 doNotIgnoreBreakpoints
 | 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"
 !
 doRestart
 "restart - the selected context will be restarted"
 self checkIfCodeIsReallyModified ifTrue:[
-	(self confirm:('Code modified - restart anyway ?')) ifFalse:[
+(self confirm:('Code modified - restart anyway ?')) ifFalse:[
-	    ^ self
+^ self
-	]
+]
 ].
 inspecting ifTrue:[
-	selectedContext isNil ifTrue:[
+selectedContext isNil ifTrue:[
-	    ^ self showError:'** select a context first **'
+^ self showError:'** select a context first **'
-	].
+].
-	self interruptProcessWith:[ selectedContext unwindAndRestart ].
+self interruptProcessWith:[ selectedContext unwindAndRestart ].
-	^ self
+^ self
 ].
 steppedContext := wrapperContext := nil.
 haveControl := false.
 exitAction := #restart. "exit private event-loop"
 doReturn
 "return - the selected context will do a ^nil"
 self checkIfCodeIsReallyModified ifTrue:[
-	(self confirm:('Code modified - return anyway ?'))
+(self confirm:('Code modified - return anyway ?'))
-	ifFalse:[
+ifFalse:[
-	    ^ self
+^ self
-	]
+]
 ].
 inspecting ifTrue:[
-	selectedContext isNil ifTrue:[
+selectedContext isNil ifTrue:[
-	    ^ self showError:'** select a context first **'
+^ self showError:'** select a context first **'
-	].
+].
-	self interruptProcessWith:[selectedContext unwind:nil].
+self interruptProcessWith:[selectedContext unwind:nil].
-	^ self
+^ self
 ].
 steppedContext := wrapperContext := nil.
 haveControl := false.
 exitAction := #return.
 |con method|
 inspecting ifTrue:[^ self].
 self checkIfCodeIsReallyModified ifTrue:[
-	(self confirm:('Code modified - step anyway ?'))
+(self confirm:('Code modified - step anyway ?'))
-	ifFalse:[
+ifFalse:[
-	    ^ self
+^ self
-	]
+]
 ].
 canContinue ifTrue:[
-	selectedContext notNil ifTrue:[
+selectedContext notNil ifTrue:[
-	    con := actualContext. "/ selectedContext.
+con := actualContext. "/ selectedContext.
-	    steppedContextLineno := actualContext lineNumber.
+steppedContextLineno := actualContext lineNumber.
-	] ifFalse:[
+] ifFalse:[
-	    con := contextArray at:2.
+con := contextArray at:2.
-	    steppedContextLineno := con lineNumber.
+steppedContextLineno := con lineNumber.
-	].
+].
-	skipLineNr := lineNr.
+skipLineNr := lineNr.
-	lineNr == -1 ifTrue:[
+lineNr == -1 ifTrue:[
-	    steppedContextLineno := skipLineNr := nil.
+steppedContextLineno := skipLineNr := nil.
-	].
+].
-	(stepUntilEntering isNil and:[stepHow == #send]) ifTrue:[
+(stepUntilEntering isNil and:[stepHow == #send]) ifTrue:[
-	    steppedContext := contextArray at:1.
+steppedContext := contextArray at:1.
-	    stepHow := #nextIn.
+stepHow := #nextIn.
-	] ifFalse:[
+] ifFalse:[
-	    stepHow == #nextOut ifTrue:[
+stepHow == #nextOut ifTrue:[
-		steppedContext := con home.
+steppedContext := con home.
-	    ] ifFalse:[
+] ifFalse:[
-		steppedContext := con.
+steppedContext := con.
-	    ].
+].
-	].
+].
-	wrapperContext := nil.
+wrapperContext := nil.
 "/ ' step con:' print. (ObjectMemory addressOf:steppedContext) printHex. ' ' print. steppedContext printCR.
-	"
+"
-	 if we step in a wrapped method,
+if we step in a wrapped method,
-	 prepare to skip the prolog ...
+prepare to skip the prolog ...
-	"
+"
-	inWrap := false.
+inWrap := false.
-	method := con method.
+method := con method.
-	(method notNil
+(method notNil
-	and:[method isWrapped
+and:[method isWrapped
-	and:[method originalMethod ~~ method]]) ifTrue:[
+and:[method originalMethod ~~ method]]) ifTrue:[
-	    inWrap := true
+inWrap := true
-	].
+].
-	lineNr == #return ifTrue:[
+lineNr == #return ifTrue:[
-	    Processor activeProcess forceInterruptOnReturnOf:con.
+Processor activeProcess forceInterruptOnReturnOf:con.
-	].
+].
-	con := nil.
+con := nil.
-	bigStep := true.
+bigStep := true.
-	haveControl := false.
+haveControl := false.
-	exitAction := #step.
+exitAction := #step.
-	"exit private event-loop"
+"exit private event-loop"
-	catchBlock value.
+catchBlock value.
-	"/ not reached
+"/ not reached
-	'DebugView [warning]: step failed' errorPrintCR.
+'DebugView [warning]: step failed' errorPrintCR.
-	stepButton turnOff. nextButton turnOff. sendButton turnOff.
+stepButton turnOff. nextButton turnOff. sendButton turnOff.
 ]
 "Modified: / 29.7.1998 / 21:50:16 / cg"
 !
 doStop
 "stop the process (if its running, otherwise this is a no-op)"
 inspecting ifTrue:[
-	device hasColors ifTrue:[
+device hasColors ifTrue:[
-	    continueButton foregroundColor:Color green darkened darkened.
+continueButton foregroundColor:Color green darkened darkened.
-	].
+].
-	continueButton label:(resources string:'Continue').
+continueButton label:(resources string:'Continue').
-	continueButton action:[self doContinue].
+continueButton action:[self doContinue].
-	self processPerform:#stop.
+self processPerform:#stop.
-	^ self
+^ self
 ].
 "Modified: 20.10.1996 / 18:30:48 / cg"
 !
 doTerminate
 "terminate - the process has a chance for cleanup"
 self checkIfCodeIsReallyModified ifTrue:[
-	(self confirm:('Code modified - terminate anyway ?'))
+(self confirm:('Code modified - terminate anyway ?'))
-	ifFalse:[
+ifFalse:[
-	    ^ self
+^ self
-	]
+]
 ].
 inspecting ifTrue:[
-	self processPerform:#terminate.
+self processPerform:#terminate.
-	^ self
+^ self
 ].
 steppedContext := wrapperContext := nil.
 haveControl := false.
 exitAction := #terminate.
 "exit private event-loop"
 catchBlock value.
 "/ not reached (normally)
 inspecting ifFalse:[
-	'DebugView [warning]: terminate failed' errorPrintCR.
+'DebugView [warning]: terminate failed' errorPrintCR.
-	(self confirm:'Regular terminate failed - do it the hard way ?') ifTrue:[
+(self confirm:'Regular terminate failed - do it the hard way ?') ifTrue:[
-	    Debugger newDebugger.
+Debugger newDebugger.
-	    Processor activeProcess terminate.
+Processor activeProcess terminate.
-	]
+]
 ].
 terminateButton turnOff.
 "Modified: / 29.7.1998 / 21:50:35 / cg"
 !
 doTraceStep
 "tracestep - not implemented yet"
 canContinue ifTrue:[
-	tracing := true.
+tracing := true.
-	self doStep
+self doStep
 ]
 !
 exit
 "exit from menu: immediate exit from smalltalk"
 hasHaltsToIgnore
 ^ IgnoredHalts notEmptyOrNil
 !
 ignoreAllHaltsForever
-self addIgnoredHaltForCount:-1 orTimeDuration:nil forAll:true.
+self addIgnoredHaltForCount:-1 orTimeDuration:nil orUntilShiftKey:false forAll:true.
 "Created: / 08-05-2011 / 10:19:56 / cg"
 !
+ignoreAllHaltsUntilShiftKeyIsPressed
+self addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:true forAll:true.
+"Created: / 27-01-2012 / 11:32:14 / cg"
+!
 ignoreHaltForever
-self addIgnoredHaltForCount:-1 orTimeDuration:nil forAll:false.
+self addIgnoredHaltForCount:-1 orTimeDuration:nil orUntilShiftKey:false forAll:false.
-"Modified: / 08-05-2011 / 10:20:03 / cg"
+"Modified: / 27-01-2012 / 11:31:37 / cg"
+!
+ignoreHaltUntilShiftKeyIsPressed
+self addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:true forAll:false.
+"Created: / 27-01-2012 / 11:36:54 / cg"
 !
 inspectContext
 "launch an inspector on the currently selected context"
 contextView selection notNil ifTrue:[
-	(contextView selectionValue startsWith:'**') ifFalse:[
+(contextView selectionValue startsWith:'**') ifFalse:[
-	    (contextArray at:(contextView selection)) inspect.
+(contextArray at:(contextView selection)) inspect.
-	]
+]
 ]
 !
 isStoppedAtHaltOrBreakPoint
 ^ isStoppedAtHaltOrBreakPoint
 <resource: #programMenu >
 |items m nameOfExecutable|
 exclusive ifTrue:[
-	items := #(
+items := #(
-		    ('Show More WalkBack'               showMore                )
+('Show More WalkBack'               showMore                )
-		    ('Show Verbose WalkBack'            showVerboseWalkback     )
+('Show Verbose WalkBack'            showVerboseWalkback     )
-		    ('-'                                                        )
+('-'                                                        )
-		    ('Add Breakpoint'                   addBreakpoint           )
+('Add Breakpoint'                   addBreakpoint           )
-		    ('Remove Breakpoint'                removeBreakpoint        )
+('Remove Breakpoint'                removeBreakpoint        )
-		    ('Remove all Break- && Tracepoints'  removeAllBreakpoints    )
+('Remove all Break- && Tracepoints'  removeAllBreakpoints    )
-		    ('-'                                                        )
+('-'                                                        )
-		  ).
+).
 ] ifFalse:[
-	items := #(
+items := #(
-		    ('Show More WalkBack'               showMore                )
+('Show More WalkBack'               showMore                )
-		    ('Show Verbose WalkBack'            showVerboseWalkback     )
+('Show Verbose WalkBack'            showVerboseWalkback     )
-		    ('-'                                                        )
+('-'                                                        )
-		    ('Skip'                             skip                    )
+('Skip'                             skip                    )
-		    ('Step Out'                         skipForReturn           )
+('Step Out'                         skipForReturn           )
-		    ('Skip until Entering...'           skipUntilEntering       )
+('Skip until Entering...'           skipUntilEntering       )
-		    ('-'                                                        )
+('-'                                                        )
 "
-		    ('Continue'                         doContinue              )
+('Continue'                         doContinue              )
-		    ('Terminate'                        doTerminate             )
+('Terminate'                        doTerminate             )
-		    ('Abort'                            doAbort                 )
+('Abort'                            doAbort                 )
-		    ('-'                                                        )
+('-'                                                        )
-		    ('Step'                             doStep                  )
+('Step'                             doStep                  )
-		    ('Send'                             doSend                  )
+('Send'                             doSend                  )
-		    ('-'                                                        )
+('-'                                                        )
-		    ('Return'                           doReturn                )
+('Return'                           doReturn                )
-		    ('Restart'                          doRestart               )
+('Restart'                          doRestart               )
-		    ('-'                                                        )
+('-'                                                        )
 "
-		    ('Add Breakpoint'                   addBreakpoint           )
+('Add Breakpoint'                   addBreakpoint           )
-		    ('Remove Breakpoint'                removeBreakpoint        )
+('Remove Breakpoint'                removeBreakpoint        )
-		    ('Remove all Break- && Tracepoints'  removeAllBreakpoints    )
+('Remove all Break- && Tracepoints'  removeAllBreakpoints    )
-		).
+).
-	self allowBreakPointsInDebugger ifFalse:[
+self allowBreakPointsInDebugger ifFalse:[
-	    items := items , #(
+items := items , #(
-			('Allow Breakpoints && halt in Debugger'      doNotIgnoreBreakpoints  )
+('Allow Breakpoints && halt in Debugger'      doNotIgnoreBreakpoints  )
-		    ).
+).
-	] ifTrue:[
+] ifTrue:[
-	    items := items , #(
+items := items , #(
-			('Ignore Breakpoints && halt in Debugger'     doIgnoreBreakpoints  )
+('Ignore Breakpoints && halt in Debugger'     doIgnoreBreakpoints  )
-		    ).
+).
-	].
+].
-	items := items , #(
+items := items , #(
-		    ('-'                                                        )
+('-'                                                        )
-		    ('Browse Implementing Class'      browseImplementingClass )
+('Browse Implementing Class'      browseImplementingClass )
-		    ('Browse Receivers Class'             browseReceiversClass    )
+('Browse Receivers Class'             browseReceiversClass    )
-		    ('Browse Receivers Class Hierarchy'   browseClassHierarchy    )
+('Browse Receivers Class Hierarchy'   browseClassHierarchy    )
-		    ('Browse Receivers Full Protocol'     browseFullClassProtocol )
+('Browse Receivers Full Protocol'     browseFullClassProtocol )
-		    ('Implementors'                     browseImplementors      )
+('Implementors'                     browseImplementors      )
-		    ('Implementors Of...'               browseImplementorsOf    )
+('Implementors Of...'               browseImplementorsOf    )
-		    ('Senders'                          browseSenders           )
+('Senders'                          browseSenders           )
-		    ('Senders Of...'                    browseSendersOf         )
+('Senders Of...'                    browseSendersOf         )
-		    ('-'                                                        )
+('-'                                                        )
-		    ('Inspect Context'                  inspectContext          )
+('Inspect Context'                  inspectContext          )
-		  ).
+).
 ].
 items := items , #(
-		('Copy WalkBack Text'               copyWalkbackText        )
+('Copy WalkBack Text'               copyWalkbackText        )
-		('-'                                                        )
+('-'                                                        )
-		('QuickTerminate'                   quickTerminate          )
+('QuickTerminate'                   quickTerminate          )
-		('='                                                        )).
+('='                                                        )).
 nameOfExecutable := OperatingSystem nameOfSTXExecutable asFilename withoutSuffix baseName.
 nameOfExecutable = 'stx' ifTrue:[ nameOfExecutable := 'Smalltalk' ].
 items := items , {
-	{ 'Exit %1 (No Confirmation)' bindWith:nameOfExecutable. #exit                 }}.
+{ 'Exit %1 (No Confirmation)' bindWith:nameOfExecutable. #exit                 }}.
 m := PopUpMenu
-		itemList:items
+itemList:items
-		resources:resources
+resources:resources
-		receiver:self
+receiver:self
-		for:contextView.
+for:contextView.
 verboseBacktrace ifTrue:[
-	m labelAt:#showVerboseWalkback put:(resources string:'Show Dense WalkBack').
+m labelAt:#showVerboseWalkback put:(resources string:'Show Dense WalkBack').
-	m selectorAt:#showVerboseWalkback put:#showDenseWalkback
+m selectorAt:#showVerboseWalkback put:#showDenseWalkback
 ].
 inspecting ifTrue:[
-	m notNil ifTrue:[
+m notNil ifTrue:[
-	    m disableAll:#(doTraceStep removeBreakpoint browseImplementingClass browseReceiversClass
+m disableAll:#(doTraceStep removeBreakpoint browseImplementingClass browseReceiversClass
-			   browseClassHierarchy browseFullClassProtocol
+browseClassHierarchy browseFullClassProtocol
-			   browseImplementors browseSenders inspectContext skip doStepOut).
+browseImplementors browseSenders inspectContext skip doStepOut).
-	].
+].
 ].
 self updateMenuItems.
 ^ m.
 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 addIgnoredHaltForCount:nil orTimeDuration:dT forAll:true.
+self addIgnoredHaltForCount:nil orTimeDuration:dT orUntilShiftKey:false forAll:true.
-	    ^ self.
+^ self.
-	].
+].
 ] loop
 "Created: / 08-05-2011 / 10:19:20 / 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 addIgnoredHaltForCount:n orTimeDuration:nil forAll:false.
+self addIgnoredHaltForCount:n orTimeDuration:nil orUntilShiftKey:false forAll:false.
-	    ^ self.
+^ self.
-	].
+].
 ] loop.
-"Modified: / 08-05-2011 / 10:20:19 / cg"
+"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 addIgnoredHaltForCount:nil orTimeDuration:dT forAll:false.
+self addIgnoredHaltForCount:nil orTimeDuration:dT orUntilShiftKey:false forAll:false.
-	    ^ self.
+^ self.
-	].
+].
 ] loop
-"Modified: / 08-05-2011 / 10:20:11 / cg"
+"Modified: / 27-01-2012 / 11:31:47 / cg"
 !
 openSettingsDialog
 |settingsList settingsApp|
 settingsList :=
-	#(
+#(
-	   #('Debugger'       #'AbstractSettingsApplication::DebuggerSettingsAppl'            )
+#('Debugger'       #'AbstractSettingsApplication::DebuggerSettingsAppl'            )
-	   #('Editor'         #'AbstractSettingsApplication::EditSettingsAppl'                )
+#('Editor'         #'AbstractSettingsApplication::EditSettingsAppl'                )
-	   #('Syntax Color'   #'AbstractSettingsApplication::SyntaxColorSettingsAppl'         )
+#('Syntax Color'   #'AbstractSettingsApplication::SyntaxColorSettingsAppl'         )
-	   #('Code Format'    #'AbstractSettingsApplication::SourceCodeFormatSettingsAppl'    )
+#('Code Format'    #'AbstractSettingsApplication::SourceCodeFormatSettingsAppl'    )
-	).
+).
 settingsApp := SettingsDialog new.
 "/ settingsApp requestor:self.
 settingsApp installSettingsEntries:settingsList.
 settingsApp allButOpen.
 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"
 !
 removeAllBreakpoints
 "remove all trace & breakpoints - if any"
 (MessageTracer notNil and:[MessageTracer isLoaded]) ifTrue:[
-	self withExecuteCursorDo:[
+self withExecuteCursorDo:[
-	    MessageTracer unwrapAllMethods
+MessageTracer unwrapAllMethods
-	]
+]
 ]
 "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"
 selectedContextIsWrapped
 |con mthd|
 contextView selection notNil ifTrue:[
-	(contextView selectionValue startsWith:'**') ifFalse:[
+(contextView selectionValue startsWith:'**') ifFalse:[
-	    con := contextArray at:(contextView selection).
+con := contextArray at:(contextView selection).
-	    mthd := con methodHome method.
+mthd := con methodHome method.
-	    ^ mthd notNil and:[mthd isWrapped]
+^ mthd notNil and:[mthd isWrapped]
-	]
+]
 ].
 ^ false.
 !
 showDenseWalkback
 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.
 self class stopIgnoringHalts
 !
 toggleVerboseWalkback
 verboseBacktrace ifFalse:[
-	self showVerboseWalkback
+self showVerboseWalkback
 ] ifTrue:[
-	self showDenseWalkback
+self showDenseWalkback
 ].
 "Modified: / 17.11.2001 / 20:07:45 / cg"
 ! !
 contextListEntryFor:aContext
 |s|
 aContext selector == #doIt ifTrue:[
-	aContext receiver isNil ifTrue:[
+aContext receiver isNil ifTrue:[
-	    ^ 'doIt' allBold
+^ 'doIt' allBold
-	]
+]
 ].
 s := Text new writeStream.
 aContext printOn:s.
 ^ s contents
 explainSelection
 |interval crsrPos|
 interval := self selectedInterval.
 interval isEmpty ifTrue:[
-	crsrPos := codeView characterPositionOfCursor.
+crsrPos := codeView characterPositionOfCursor.
-	codeView characterUnderCursor isSeparator ifTrue:[
+codeView characterUnderCursor isSeparator ifTrue:[
-	    crsrPos := (crsrPos - 1) max:1
+crsrPos := (crsrPos - 1) max:1
-	].
+].
-	interval := crsrPos to:crsrPos.
+interval := crsrPos to:crsrPos.
 ].
 self
-	withNodeValueAtInterval:interval
+withNodeValueAtInterval:interval
-	do:[:value :description |
+do:[:value :description |
-	    self showValue:value
+self showValue:value
-	].
+].
 !
 findNodeForInterval:interval
 |source|
 |node|
 self obsoleteMethodWarning.
 node := nil.
 tree nodesDo:[:each |
-	(each intersectsInterval:interval) ifTrue:[
+(each intersectsInterval:interval) ifTrue:[
-	    (node isNil or:[node == each parent]) ifTrue:[
+(node isNil or:[node == each parent]) ifTrue:[
-		node := each
+node := each
-	    ] ifFalse:[
+] ifFalse:[
-		(node parent notNil
+(node parent notNil
-		    and:[node parent isCascade and:[each parent isCascade]]) ifFalse:[^ nil]
+and:[node parent isCascade and:[each parent isCascade]]) ifFalse:[^ nil]
-	    ]
+]
-	]
+]
 ].
 ^ node
 !
 goodSkipUntilSelector
 lastStepUntilEntering notNil ifTrue:[^ lastStepUntilEntering].
 selectedContext isNil ifTrue:[^ nil].
 current := selectedContext selector.
 current isNil ifTrue:[^ nil].
 ('change:*' match:current) ifTrue:[
-	^ 'update:*'
+^ 'update:*'
 ].
 ^ nil
 !
 haltSelectors
 interruptProcessWith:aBlock
 "let inspected process do something, then update the context list"
 inspectedProcess isDead ifTrue:[
-	self showTerminated.
+self showTerminated.
-	^ self
+^ self
 ].
 inspectedProcess interruptWith:aBlock.
 "
 give the process a chance to run, then update
 "
 processPerform:aMessage
 "do something, then update the context list"
 inspectedProcess isDead ifTrue:[
-	self showTerminated.
+self showTerminated.
-	^ self
+^ self
 ].
 inspectedProcess perform:aMessage.
 "
 give the process a chance to run, then update
 verbose-flag setting is changed"
 |oldSelection oldContext con idx|
 contextArray notNil ifTrue:[
-	self withExecuteCursorDo:[
+self withExecuteCursorDo:[
-	    oldSelection := contextView selection.
+oldSelection := contextView selection.
-	    oldSelection notNil ifTrue:[
+oldSelection notNil ifTrue:[
-		oldContext := contextArray at:oldSelection ifAbsent:nil.
+oldContext := contextArray at:oldSelection ifAbsent:nil.
-	    ].
+].
-	    con := firstContext.
+con := firstContext.
 "/            con := contextArray at:1.
-	    "/ force redeisplay, even if same by changing the first entry
+"/ force redeisplay, even if same by changing the first entry
-	    contextArray size > 0 ifTrue:[
+contextArray size > 0 ifTrue:[
-		contextArray at:1 put:nil.
+contextArray at:1 put:nil.
-	    ].
+].
-	    self setContext:con.
+self setContext:con.
-	    oldContext isNil ifTrue:[
+oldContext isNil ifTrue:[
-		idx := oldSelection
+idx := oldSelection
-	    ] ifFalse:[
+] ifFalse:[
-		idx := contextArray identityIndexOf:oldContext ifAbsent:nil.
+idx := contextArray identityIndexOf:oldContext ifAbsent:nil.
-	    ].
+].
-	    contextView setSelection:idx.
+contextView setSelection:idx.
-	    idx notNil ifTrue:[
+idx notNil ifTrue:[
-		self showSelection:idx
+self showSelection:idx
-	    ]
+]
-	]
+]
 ]
 "Created: / 10.1.1997 / 21:36:46 / cg"
 "Modified: / 21.5.1998 / 01:47:07 / cg"
 !
 !
 showError:message
 codeView contents:(resources string:message).
 shown ifTrue:[
-	exclusive ifTrue:[
+exclusive ifTrue:[
-	    "/ consider this a kludge:
+"/ consider this a kludge:
-	    "/ if exclusive, cannot use flash, since it suspends
+"/ if exclusive, cannot use flash, since it suspends
-	    "/ (but we cannot suspend here ...)
+"/ (but we cannot suspend here ...)
-	    codeView redrawInverted. device flush.
+codeView redrawInverted. device 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]
 ].
 "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"
 !
 "
 enable/disable some menu items
 "
 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.
-		]
+]
-	    ].
+].
-	    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).
-	    ].
+].
-	] ifFalse:[
+] ifFalse:[
-	    m disableAll:#(browseImplementingClass browseReceiversClass browseClassHierarchy browseFullClassProtocol).
+m disableAll:#(browseImplementingClass browseReceiversClass browseClassHierarchy browseFullClassProtocol).
-	]
+]
 ]
 !
 withNodeValueAtInterval:interval do:aBlock
 |node definingNode nm nmBold varIdx parentNode receiver con receiversNonMetaClass|
 "/interval printCR.
 Error
-	handle:[:ex | ]
+handle:[:ex | ]
-	do:[
+do:[
-	    [
+[
-		node := self findNodeForInterval:interval
+node := self findNodeForInterval:interval
-	    ] valueWithWatchDog:[ ^ self ] afterMilliseconds:50.
+] valueWithWatchDog:[ ^ self ] afterMilliseconds:50.
-	].
+].
 node isNil ifTrue:[ ^ self ].
 node isVariable ifFalse:[
-	"/ Transcript showCR:node.
+"/ Transcript showCR:node.
-	^ self
+^ self
 ].
 nm := node name.
 nmBold := nm allBold.
 actualContext isNil ifTrue:[^ self ].
 actualContext methodHome isNil ifTrue:[^ self ].
 receiver := actualContext methodHome receiver.
 (nm = 'self') ifTrue:[
-	aBlock value:receiver value:'receiver' allBold.
+aBlock value:receiver value:'receiver' allBold.
-	^ self
+^ self
 ].
 (nm = 'super') ifTrue:[
-	aBlock value:receiver value:'receiver' allBold.
+aBlock value:receiver value:'receiver' allBold.
-	^ self
+^ self
 ].
 (nm = 'thisContext') ifTrue:[
-	aBlock value:actualContext value:'context' allBold.
+aBlock value:actualContext value:'context' allBold.
-	^ self
+^ self
 ].
 definingNode := node whoDefines:nm.
 definingNode isNil ifTrue:[
-	(receiver class allInstVarNames includes:nm) ifTrue:[
+(receiver class allInstVarNames includes:nm) ifTrue:[
 "/aBlock value:'xIII' value:'instVar'.
-	    receiver class isMetaclass ifTrue:[
+receiver class isMetaclass ifTrue:[
-		aBlock value:(receiver instVarNamed:nm) value:'classInstVar ',nmBold.
+aBlock value:(receiver instVarNamed:nm) value:'classInstVar ',nmBold.
-	    ] ifFalse:[
+] ifFalse:[
-		aBlock value:(receiver instVarNamed:nm) value:'instVar ',nmBold.
+aBlock value:(receiver instVarNamed:nm) value:'instVar ',nmBold.
-	    ].
+].
-	    ^ self
+^ self
-	].
+].
-	receiversNonMetaClass := receiver class theNonMetaclass.
+receiversNonMetaClass := receiver class theNonMetaclass.
-	(receiversNonMetaClass privateClasses contains:[:cls | cls nameWithoutPrefix = nm]) ifTrue:[
+(receiversNonMetaClass privateClasses contains:[:cls | cls nameWithoutPrefix = nm]) ifTrue:[
-	    aBlock value:'' value:'private class ',nmBold.
+aBlock value:'' value:'private class ',nmBold.
-	    ^ self
+^ self
-	].
+].
-	(receiversNonMetaClass classVarNames includes:nm) ifTrue:[
+(receiversNonMetaClass classVarNames includes:nm) ifTrue:[
-	    aBlock value:((currentMethod mclass ? receiversNonMetaClass) theNonMetaclass classVarAt:nm) value:'classVar ',nmBold.
+aBlock value:((currentMethod mclass ? receiversNonMetaClass) theNonMetaclass classVarAt:nm) value:'classVar ',nmBold.
-	    ^ self
+^ self
-	].
+].
-	receiversNonMetaClass sharedPoolNames do:[:eachPoolName |
+receiversNonMetaClass sharedPoolNames do:[:eachPoolName |
-	    |pool|
+|pool|
-	    pool := Smalltalk at:eachPoolName.
+pool := Smalltalk at:eachPoolName.
-	    pool isNil ifTrue:[ pool := receiversNonMetaClass topNameSpace at:eachPoolName].
+pool isNil ifTrue:[ pool := receiversNonMetaClass topNameSpace at:eachPoolName].
-	    (pool classVarNames includes:nm) ifTrue:[
+(pool classVarNames includes:nm) ifTrue:[
-		aBlock value:(pool classVarAt:nm) value:'poolVar ',nm allBold,' in ',eachPoolName allBold,' '.
+aBlock value:(pool classVarAt:nm) value:'poolVar ',nm allBold,' in ',eachPoolName allBold,' '.
-		^ self
+^ self
-	    ].
+].
-	].
+].
-	(Smalltalk includesKey:nm asSymbol) ifTrue:[
+(Smalltalk includesKey:nm asSymbol) ifTrue:[
-	    (Smalltalk at:nm asSymbol) isClass ifTrue:[
+(Smalltalk at:nm asSymbol) isClass ifTrue:[
-		aBlock value:'class: ',nmBold value:nil.
+aBlock value:'class: ',nmBold value:nil.
-	    ] ifFalse:[
+] ifFalse:[
-		aBlock value:(Smalltalk at:nm asSymbol) value:'global ',nmBold.
+aBlock value:(Smalltalk at:nm asSymbol) 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.
-		^ self
+^ self
-	    ]
+]
-	].
+].
 ].
 parentNode := definingNode parent.
 [parentNode notNil] whileTrue:[
 "/'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.
-	parentNode isBlock ifTrue:[
+parentNode isBlock ifTrue:[
-	    "/ we dont have any information on the inlineability
+"/ we dont have any information on the inlineability
-	    "/ of this block here (RBParser does not know what
+"/ of this block here (RBParser does not know what
-	    "/ the compiler does.
+"/ the compiler does.
-	    "/ therefore, it is questionable if we can use the
+"/ therefore, it is questionable if we can use the
-	    "/ contexts home context here.
+"/ contexts 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"
 ! !
 setOfHiddenCallingSelectors := aCollectionOfSymbols
 ! !
 !DebugView methodsFor:'private-breakpoints'!
-addIgnoredHaltForCount:countOrNil orTimeDuration:dTOrNil forAll:aBoolean
+addIgnoredHaltForCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey forAll:aBoolean
 |haltingContext haltingMethod lineNrOfHalt|
 aBoolean ifTrue:[
 haltingMethod := #all
 ] ifFalse:[
 lineNrOfHalt := haltingContext lineNumber.
 ].
 self class
 ignoreHaltIn:haltingMethod at:lineNrOfHalt
-forCount:countOrNil orTimeDuration:dTOrNil
+forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
-"Created: / 08-05-2011 / 10:20:31 / cg"
+"Created: / 27-01-2012 / 11:31:12 / cg"
 !
 canAddBreakpoint
 |m|
 faster, since no resources have to be allocated in the display.
 We have to be careful to release all refs to the debuggee, though.
 Otherwise, the GC will not be able to release it."
 windowGroup notNil ifTrue:[
-	windowGroup setProcess:nil.
+windowGroup setProcess:nil.
 ].
 self releaseDebuggee.
 cachable ~~ true ifTrue:[^ self].
 "/
 "/ only cache if I am on the Display
 "/
 device == Display ifTrue:[
-	exclusive ifTrue:[
+exclusive ifTrue:[
-	    CachedExclusive := self
+CachedExclusive := self
-	] ifFalse:[
+] ifFalse:[
-	    CachedDebugger := self
+CachedDebugger := self
-	].
+].
 ].
 ObjectMemory stepInterruptHandler == self ifTrue:[
-	ObjectMemory stepInterruptHandler:nil
+ObjectMemory stepInterruptHandler:nil
 ].
 "Modified: 10.7.1997 / 15:50:46 / stefan"
 "Modified: 31.7.1997 / 21:20:14 / cg"
 !
 isCached
 "tell wether we are a cached debugger"
 CachedExclusive == self ifTrue:[
-	^ true.
+^ true.
 ].
 CachedDebugger == self ifTrue:[
-	^ true.
+^ true.
 ].
 ^ false.
 "Created: 10.7.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"
 ! !
 |con|
 con := aContext.
 verboseBacktrace 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"
 mthd notNil ifTrue:[ mthdClass := mthd mclass ].
 "/ to avoid firing/waiting the lazy or future
 recIsException := (rec isLazyValue not) and:[rec isException].
 aContext sender notNil ifTrue:[
-	senderRec := aContext sender receiver
+senderRec := aContext sender receiver
 ].
 DebuggingDebugger == true ifTrue:[
-	'showingContext1: (' print. aContext print.
+'showingContext1: (' print. aContext print.
-	') calling: (' print. calledContext print.
+') calling: (' print. calledContext print.
-	')' printCR.
+')' printCR.
 ].
 (#(doCallHandler: doRaise
 ) includes:sel)
-	ifTrue:[
+ifTrue:[
-	    recIsException ifTrue:[ ^ false].
+recIsException ifTrue:[ ^ false].
-	].
+].
 (#(raise raiseRequest
 ) includes:sel)
-	ifTrue:[
+ifTrue:[
-	    recIsException ifTrue:[
+recIsException ifTrue:[
-		(senderRec isLazyValue not
+(senderRec isLazyValue not
-		and:[ senderRec isExceptionCreator]) ifTrue:[^ false].
+and:[ senderRec isExceptionCreator]) ifTrue:[^ false].
-	    ].
+].
-	].
+].
 (#(doWhile:
 ) includes:sel)
-	ifTrue:[
+ifTrue:[
-	    rec isBlock ifTrue:[
+rec isBlock ifTrue:[
-		true "aContext sender isBlockContext" ifTrue:[^ false].
+true "aContext sender isBlockContext" ifTrue:[^ false].
-	    ].
+].
-	].
+].
 calledContext notNil ifTrue:[
-	calledSel := calledContext selector.
+calledSel := calledContext selector.
-	calledRec := calledContext receiver.
+calledRec := calledContext receiver.
-	calledRec isBlock ifTrue:[
+calledRec isBlock ifTrue:[
-	    (calledSel == #ensure:) ifTrue:[^ false].
+(calledSel == #ensure:) ifTrue:[^ false].
-	    (calledSel == #ifCurtailed:) ifTrue:[^ false].
+(calledSel == #ifCurtailed:) ifTrue:[^ false].
-	].
+].
-	(calledSel == #handle:do:) ifTrue:[^ false].
+(calledSel == #handle:do:) ifTrue:[^ false].
-	(calledSel == #answer:do:) ifTrue:[^ false].
+(calledSel == #answer:do:) ifTrue:[^ false].
 "/        calledRec isLazyValue ifFalse:[
 "/            ((calledSel == #doWhile:)
 "/            and:[calledRec isBlock])
 "/                ifTrue:[^ false].
 "/                ifTrue:[^ false].
 "/        ].
 ].
 (#(handleDo:) includes:sel)
-	ifTrue:[
+ifTrue:[
-	    (calledRec isLazyValue not and:[calledRec isExceptionHandler]) ifTrue:[^ false].
+(calledRec isLazyValue not and:[calledRec isExceptionHandler]) ifTrue:[^ false].
-	].
+].
 (#(
-	withCursor:do:
+withCursor:do:
-	withWaitCursorDo:
+withWaitCursorDo:
 ) includes:sel)
-	ifTrue:[
+ifTrue:[
-	    (mthdClass == TopView) ifTrue:[^ false].
+(mthdClass == TopView) ifTrue:[^ false].
-	    (mthdClass == ApplicationModel) ifTrue:[^ false].
+(mthdClass == ApplicationModel) ifTrue:[^ false].
-	    (mthdClass == WindowGroup) ifTrue:[^ false].
+(mthdClass == WindowGroup) ifTrue:[^ false].
-	].
+].
 (#(
-	wait
+wait
-	waitWithTimeout:
+waitWithTimeout:
-	waitWithTimeoutMs:
+waitWithTimeoutMs:
 ) includes:sel)
-	ifTrue:[
+ifTrue:[
-	    (mthdClass == Semaphore) ifTrue:[^ false].
+(mthdClass == Semaphore) ifTrue:[^ false].
-	    (mthdClass == SemaphoreSet) ifTrue:[^ false].
+(mthdClass == SemaphoreSet) ifTrue:[^ false].
-	].
+].
 ^ true
 "Created: / 17-11-2001 / 22:24:06 / cg"
 "Modified: / 08-12-2010 / 18:21:02 / cg"
 sel := aContext selector.
 mClass := aContext methodClass.
 sender := aContext sender.
 sender notNil ifTrue:[
-	senderSelector := sender selector.
+senderSelector := sender selector.
-	senderReceiver := sender receiver.
+senderReceiver := sender receiver.
-	senderReceiverClass := senderReceiver class.
+senderReceiverClass := senderReceiver class.
 ].
 sel == #withCursor:do: ifTrue:[
-	(mClass == WindowGroup) ifTrue:[^ false].
+(mClass == WindowGroup) ifTrue:[^ false].
-	(mClass == TopView) ifTrue:[^ false].
+(mClass == TopView) ifTrue:[^ false].
 ].
 (sel == #withExecuteCursorDo:
 or:[sel == #withWaitCursorDo:]) ifTrue:[
-	(mClass == DisplaySurface) ifTrue:[^ false].
+(mClass == DisplaySurface) ifTrue:[^ false].
 ].
 (sel == #do:
 or:[sel == #from:to:do:
 or:[sel == #keysAndValuesDo:
 or:[sel == #doWithIndex:]]]) ifTrue:[
-	mClass == Array ifTrue:[^ false].
+mClass == Array ifTrue:[^ false].
-	mClass == OrderedCollection ifTrue:[^ false].
+mClass == OrderedCollection ifTrue:[^ false].
-	mClass == Set ifTrue:[^ false].
+mClass == Set ifTrue:[^ false].
-	mClass == Dictionary ifTrue:[^ false].
+mClass == Dictionary ifTrue:[^ false].
-	mClass == Interval ifTrue:[^ false].
+mClass == Interval ifTrue:[^ false].
 ].
 (sel == #perform:
 or:[sel == #perform:with:
 or:[sel == #perform:with:with:
 or:[sel == #perform:with:with:with:
 or:[sel == #perform:with:with:with:with:]]]])
 ifTrue:[
-	nesting == 0 ifTrue:[^ true].
+nesting == 0 ifTrue:[^ true].
-	mClass == Array ifTrue:[^ false].
+mClass == Array ifTrue:[^ false].
-	mClass == OrderedCollection ifTrue:[^ false].
+mClass == OrderedCollection ifTrue:[^ false].
 ].
 sel == #valueWithReceiver:arguments:selector:search:sender: ifTrue:[^ false].
 (mClass == Object) ifTrue:[
-	(sel startsWith:'perform:') ifTrue:[^ false]
+(sel startsWith:'perform:') ifTrue:[^ false]
 ].
 (mClass == Method) ifTrue:[
-	(sel startsWith:'valueWithReceiver:') ifTrue:[^ false]
+(sel startsWith:'valueWithReceiver:') ifTrue:[^ false]
 ].
 (mClass == SmallInteger) ifTrue:[
-	(sel == #to:do:) ifTrue:[^ false].
+(sel == #to:do:) ifTrue:[^ false].
-	(sel == #to:by:do:) ifTrue:[^ false].
+(sel == #to:by:do:) ifTrue:[^ false].
 ].
 (mClass == Block) ifTrue:[
-	sel == #ensure: ifTrue:[^ false].
+sel == #ensure: ifTrue:[^ false].
-	sel == #ifCurtailed: ifTrue:[^ false].
+sel == #ifCurtailed: ifTrue:[^ false].
-	sel == #valueNowOrOnUnwindDo: ifTrue:[^ false].
+sel == #valueNowOrOnUnwindDo: ifTrue:[^ false].
-	sel == #valueOnUnwindDo: ifTrue:[^ false].
+sel == #valueOnUnwindDo: ifTrue:[^ false].
-	sel == #on:do: ifTrue:[^ false].
+sel == #on:do: ifTrue:[^ false].
-	sel == #value ifTrue:[^ false].
+sel == #value ifTrue:[^ false].
-	sel == #value: ifTrue:[^ false].
+sel == #value: ifTrue:[^ false].
-	sel == #value:value: ifTrue:[^ false].
+sel == #value:value: ifTrue:[^ false].
-	sel == #value:value:value: ifTrue:[^ false].
+sel == #value:value:value: ifTrue:[^ false].
-	sel == #value:value:value:value: ifTrue:[^ false].
+sel == #value:value:value:value: ifTrue:[^ false].
-	sel == #value:value:value:value:Value: ifTrue:[^ false].
+sel == #value:value:value:value:Value: ifTrue:[^ false].
-	sel == #value:value:value:value:value:value: ifTrue:[^ false].
+sel == #value:value:value:value:value:value: ifTrue:[^ false].
 ].
 aContext isBlockContext ifTrue:[
 "/        sel == #value ifTrue:[^ false].
 "/        sel == #value: ifTrue:[^ false].
 "/            senderReceiverClass == QuerySignal ifTrue:[
 "/                ^ false
 "/            ]
 "/        ]
-	aContext home notNil ifTrue:[
+aContext home notNil ifTrue:[
-	    aContext home receiver isLazyValue ifFalse:[
+aContext home receiver isLazyValue ifFalse:[
-		(aContext home receiver isMemberOf:Semaphore) ifTrue:[
+(aContext home receiver isMemberOf:Semaphore) ifTrue:[
-		    (aContext home selector == #wait) ifTrue:[^ false].
+(aContext home selector == #wait) ifTrue:[^ false].
-		    (aContext home selector == #waitWithTimeoutMs:) ifTrue:[^ false].
+(aContext home selector == #waitWithTimeoutMs:) ifTrue:[^ false].
-		]
+]
-	    ]
+]
-	]
+]
 ].
 (rec isExceptionHandler) ifTrue:[
-	sel == #handle:do: ifTrue:[^ false].
+sel == #handle:do: ifTrue:[^ false].
-	sel == #handleDo: ifTrue:[^ false].
+sel == #handleDo: ifTrue:[^ false].
-	(sel startsWith:#raise) ifTrue:[^ false].
+(sel startsWith:#raise) ifTrue:[^ false].
-	sel == #answer:do: ifTrue:[^ false].
+sel == #answer:do: ifTrue:[^ false].
 ].
 (rec isLazyValue not and:[ rec isException] ) ifTrue:[
-	sel == #doRaise ifTrue:[^ false].
+sel == #doRaise ifTrue:[^ false].
-	sel == #doCallHandler: ifTrue:[^ false].
+sel == #doCallHandler: ifTrue:[^ false].
-	(sel == #raise or:[sel == #raiseRequest]) ifTrue:[
+(sel == #raise or:[sel == #raiseRequest]) ifTrue:[
-	    senderReceiverClass == Signal ifTrue:[^ false].
+senderReceiverClass == Signal ifTrue:[^ false].
-	]
+]
 ].
 (mClass == Context) ifTrue:[
-	sel == #unwind ifTrue:[^ false].
+sel == #unwind ifTrue:[^ false].
-	sel == #unwind: ifTrue:[^ false].
+sel == #unwind: ifTrue:[^ false].
 ].
 (mClass == ProcessorScheduler) ifTrue:[
-	sel == #interruptActive ifTrue:[^ false].
+sel == #interruptActive ifTrue:[^ false].
-	sel == #threadSwitch: ifTrue:[^ false].
+sel == #threadSwitch: ifTrue:[^ false].
-	sel == #suspend: ifTrue:[^ false].
+sel == #suspend: ifTrue:[^ false].
 ].
 mClass == Process ifTrue:[
-	sel == #suspendWithState: ifTrue:[^ false].
+sel == #suspendWithState: ifTrue:[^ false].
 ].
 ^ true.
 "Created: / 17-11-2001 / 19:34:20 / cg"
 "Modified: / 08-12-2010 / 18:21:45 / 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:[
-	    self controlLoopCatchingErrors
+self controlLoopCatchingErrors
-	].
+].
 ] ensure:[
-	catchBlock := nil.
+catchBlock := nil.
-	haveControl := false
+haveControl := false
 ].
 "Modified: 9.7.1996 / 18:29:09 / cg"
 !
 "setup a self removing catch-block"
 catchBlock := [catchBlock := nil. ^ nil].
 (exclusive or:[windowGroup isNil]) ifTrue:[
-	"if we do not have multiple processes or its a system process
+"if we do not have multiple processes or its a system process
-	 we start another dispatch loop, which exits when
+we start another dispatch loop, which exits when
-	 either continue, return or step is pressed
+either continue, return or step is pressed
-	 or (via the catchBlock) if an error occurs.
+or (via the catchBlock) if an error occurs.
-	 Since our display is an extra exclusive one,
+Since our display is an extra exclusive one,
-	 all processing for normal views stops here ...
+all processing for normal views stops here ...
-	"
+"
-	WindowGroup setActiveGroup:windowGroup.
+WindowGroup setActiveGroup:windowGroup.
-	SignalSet anySignal handle:[:ex |
+SignalSet anySignal handle:[:ex |
-	    |signal|
+|signal|
-	    signal := ex signal.
+signal := ex signal.
-	    self showError:'*** Error in modal debugger:
+self showError:'*** Error in modal debugger:
 >>>> Signal:  ' , signal printString , '
 >>>> In:      ' , ex suspendedContext printString , '
 >>>> From:    ' , ex suspendedContext sender printString , '
 >>>>     :    ' , ex suspendedContext sender sender printString , '
 >>>>     :    ' , ex suspendedContext sender sender sender sender sender sender sender sender sender sender sender sender sender printString , '
 >>>>     :    ' , ex suspendedContext sender sender sender sender sender sender sender sender sender sender sender sender sender sender printString , '
 >>>> Message: ' , ex description , '
 caught & ignored.'.
-	    ex return.
+ex return.
-	] do:[
+] do:[
-	    UserNotification handle:[:ex |
+UserNotification handle:[:ex |
-		(ex signal == ActivityNotificationSignal) ifTrue:[
+(ex signal == ActivityNotificationSignal) ifTrue:[
-		    ex proceed
+ex proceed
-		].
+].
-		self showError:ex description.
+self showError:ex description.
-		ex proceed.
+ex proceed.
-	    ] do:[
+] do:[
-		device dispatchModalWhile:[Processor activeProcess state:#debug.
+device dispatchModalWhile:[Processor activeProcess state:#debug.
-					   haveControl].
+haveControl].
-	    ]
+]
-	].
+].
-	WindowGroup setActiveGroup:nil.
+WindowGroup setActiveGroup:nil.
 ] ifFalse:[
-	"we do have multiple processes -
+"we do have multiple processes -
-	 simply enter the DebugViews-Windowgroup event loop.
+simply enter the DebugViews-Windowgroup event loop.
-	 effectively suspending event processing for the currently
+effectively suspending event processing for the currently
-	 active group.
+active group.
-	"
+"
-	SignalSet anySignal handle:[:ex |
+SignalSet anySignal handle:[:ex |
-	    |answer signal eMsg|
+|answer signal eMsg|
-	    signal := ex signal.
+signal := ex signal.
-	    DebuggingDebugger ~~ true ifTrue:[
+DebuggingDebugger ~~ true ifTrue:[
-		(signal == ActivityNotification) ifTrue:[
+(signal == ActivityNotification) ifTrue:[
-		    ex proceed
+ex proceed
-		].
+].
-		"/
+"/
-		"/ ignore exceptions which say they explicitly have to be ignored
+"/ ignore exceptions which say they explicitly have to be ignored
-		"/
+"/
-		ex catchInDebugger ifTrue:[
+ex catchInDebugger ifTrue:[
-		    'DebugView [info]: ',signal printString,'-signal in debugger cought for close' infoPrintCR.
+'DebugView [info]: ',signal printString,'-signal in debugger cought for close' infoPrintCR.
-		    self destroy.
+self destroy.
-		    ex reject
+ex reject
-		].
+].
-		"/
+"/
-		"/ ignore recursive breakpoints
+"/ ignore recursive breakpoints
-		"/
+"/
-		(signal isControlInterrupt) ifTrue:[
+(signal isControlInterrupt) ifTrue:[
-		    ignoreBreakpoints == true ifTrue:[
+ignoreBreakpoints == true ifTrue:[
-			'DebugView [info]: halt/break in debugger ignored 1' infoPrintCR.
+'DebugView [info]: halt/break in debugger ignored 1' infoPrintCR.
-			('DebugView [info]: ',ex suspendedContext printString) infoPrintCR.
+('DebugView [info]: ',ex suspendedContext printString) infoPrintCR.
-			ex proceed
+ex proceed
-		    ].
+].
-		].
+].
-		(signal == TerminateProcessRequest) ifTrue:[
+(signal == TerminateProcessRequest) ifTrue:[
-		    "/ mhm - someone wants to shoot me down while debugging ...
+"/ mhm - someone wants to shoot me down while debugging ...
-		    answer := Dialog
+answer := Dialog
-				choose:('Process termination signal arrived while debugging\\close debugger ?') withCRs
+choose:('Process termination signal arrived while debugging\\close debugger ?') withCRs
-				labels:#( 'Ignore' 'Close & terminate' )
+labels:#( 'Ignore' 'Close & terminate' )
-				values:#( #proceed #close )
+values:#( #proceed #close )
-				default:#close.
+default:#close.
-		    answer == #close ifTrue:[
+answer == #close ifTrue:[
-			self destroy.
+self destroy.
-			ex reject
+ex reject
-		    ].
+].
-		    ex return.
+ex return.
-		].
+].
-		signal == RecursiveExceptionError ifTrue:[
+signal == RecursiveExceptionError ifTrue:[
-		    (ex parameter signal == BreakPointInterrupt)
+(ex parameter signal == BreakPointInterrupt)
-		    ifTrue:[
+ifTrue:[
-			'DebugView [info]: recursive breakpoint in debugger ignored' infoPrintCR.
+'DebugView [info]: recursive breakpoint in debugger ignored' infoPrintCR.
-			ex proceed.
+ex proceed.
-		    ].
+].
-		    self showError:'*** Recursive error in debugger:
+self showError:'*** Recursive error in debugger:
 >>>> Signal:  ' , ex signal printString , '
 >>>>          ' , ex parameter signal printString , '
 >>>> In:      ' , ex suspendedContext printString , '
 >>>> From:    ' , ex suspendedContext sender printString , '
 >>>>     :    ' , ex suspendedContext sender sender sender printString , '
 >>>>     :    ' , ex suspendedContext sender sender sender sender printString , '
 >>>> Message: ' , ex description , '
 caught & ignored.'.
-		    ex return
+ex return
-		].
+].
-	    ].
+].
-	    self topView raiseDeiconified.
+self topView raiseDeiconified.
-	    eMsg := ex description.
+eMsg := ex description.
-	    (ex signal isControlInterrupt) ifTrue:[
+(ex signal isControlInterrupt) ifTrue:[
-		eMsg := eMsg , Character cr asString , 'in ' , ex suspendedContext printString
+eMsg := eMsg , Character cr asString , 'in ' , ex suspendedContext printString
-	    ].
+].
-	    Dialog aboutToOpenBoxNotificationSignal
+Dialog aboutToOpenBoxNotificationSignal
-		handle:[:ex | ex proceed ]
+handle:[:ex | ex proceed ]
-		do:[
+do:[
-		    answer := Dialog
+answer := Dialog
-			choose:('Error in debugger:\' withCRs , eMsg , '\\debug again ?' withCRs)
+choose:('Error in debugger:\' withCRs , eMsg , '\\debug again ?' withCRs)
-			labels:#( 'Proceed' 'Cancel' 'Debug' )
+labels:#( 'Proceed' 'Cancel' 'Debug' )
-			values:#( #proceed #cancel #debug )
+values:#( #proceed #cancel #debug )
-			default:#cancel.
+default:#cancel.
-		].
+].
-	    answer == #debug ifTrue:[
+answer == #debug ifTrue:[
-		'DebugView [info]: cought exception - debugging' infoPrintCR.
+'DebugView [info]: cought exception - debugging' infoPrintCR.
-		Debugger
+Debugger
-		    enterUnconditional:(ex suspendedContext)
+enterUnconditional:(ex suspendedContext)
-		    withMessage:'Error in debugger: ' , eMsg
+withMessage:'Error in debugger: ' , eMsg
-		    mayProceed:true.
+mayProceed:true.
-		ex proceed.
+ex proceed.
-	    ].
+].
-	    answer == #proceed ifTrue:[
+answer == #proceed ifTrue:[
-		'DebugView [info]: ignored exception - proceeding' infoPrintCR.
+'DebugView [info]: ignored exception - proceeding' infoPrintCR.
-		ex proceed.
+ex proceed.
-	    ].
+].
-	    'DebugView [info]: cought exception - returning' infoPrintCR.
+'DebugView [info]: cought exception - returning' infoPrintCR.
-	    ex return.
+ex return.
-	] do:[
+] do:[
-	    "/ make certain that sub-debuggers, inspectors etc.
+"/ make certain that sub-debuggers, inspectors etc.
-	    "/ come up on my device.
+"/ come up on my device.
-	    Screen currentScreenQuerySignal answer:device
+Screen currentScreenQuerySignal answer:device
-	    do:[
+do:[
-		windowGroup
+windowGroup
-		    eventLoopWhile:[Processor activeProcess state:#debug.
+eventLoopWhile:[Processor activeProcess state:#debug.
-				      true]
+true]
-		    onLeave:[]
+onLeave:[]
-	    ]
+]
-	].
+].
 ].
 catchBlock := nil.
 "Created: / 24.11.1995 / 20:33:45 / cg"
 "Modified: / 18.11.2001 / 01:04:17 / cg"
 |source|
 codeView modified ifFalse:[^ false].
 currentMethod isNil ifTrue:[
-	^ false
+^ false
 ].
 source := currentMethod source.
 source notNil ifTrue:[
-	source string = codeView contents string ifTrue:[
+source string = codeView contents string ifTrue:[
-	    ^ false
+^ false
-	].
+].
-	(source string withTabsExpanded:8) = (codeView contents string withTabsExpanded:8) ifTrue:[
+(source string withTabsExpanded:8) = (codeView contents string withTabsExpanded:8) ifTrue:[
-	    ^ false
+^ false
-	].
+].
 ].
 ^ true
 !
 checkSelectionChangeAllowed
 checkSelectionChangeAllowed:newSelection
 self checkIfCodeIsReallyModified ifFalse:[^ true].
 (newSelection notNil
 and:[newSelection = contextView selection]) ifTrue:[
-	^ true
+^ true
 ].
 (self confirm:('Code modified - change selection anyway ?')) ifFalse:[
-	^ false
+^ false
 ].
 codeView modified:false.
 ^ true
 !
 or - if its a block-context - whose home is the selected context"
 |con top newMethod|
 codeView withWaitCursorDo:[
-	"
+"
-	 find the method-home context for this one
+find the method-home context for this one
-	"
+"
-	doUnwind ifTrue:[
+doUnwind ifTrue:[
-	    con := selectedContext.
+con := selectedContext.
-	    top := con.
+top := con.
-	    [con notNil] whileTrue:[
+[con notNil] whileTrue:[
-		(con methodHome == selectedContext) ifTrue:[
+(con methodHome == selectedContext) ifTrue:[
-		    top := con
+top := con
-		].
+].
-		con := con sender
+con := con sender
-	    ].
+].
-	].
+].
-	"/
+"/
-	"/ provide the classes nameSpace on a query;
+"/ provide the classes nameSpace on a query;
-	"/ in case we accept while in another nameSpace context,
+"/ in case we accept while in another nameSpace context,
-	"/ (but for a class which is somewhere else)
+"/ (but for a class which is somewhere else)
-	"/
+"/
-	(Class updateChangeFileQuerySignal,
+(Class updateChangeFileQuerySignal,
-	 Class updateChangeListQuerySignal,
+Class updateChangeListQuerySignal,
-	 Class updateHistoryLineQuerySignal) answer:true
+Class updateHistoryLineQuerySignal) answer:true
-	do:[
+do:[
-	    Class nameSpaceQuerySignal
+Class nameSpaceQuerySignal
-	    answer:(aClass nameSpace)
+answer:(aClass nameSpace)
-	    do:[
+do:[
-		Class packageQuerySignal
+Class packageQuerySignal
-		answer:(aClass package ? PackageId noProjectID)
+answer:(aClass package ? PackageId noProjectID)
-		do:[
+do:[
-		    codeView contents:someCode.
+codeView contents:someCode.
-		    newMethod := aClass compilerClass
+newMethod := aClass compilerClass
-				     compile:someCode
+compile:someCode
-				     forClass:aClass
+forClass:aClass
-				     inCategory:category
+inCategory:category
-				     notifying:codeView.
+notifying:codeView.
-		].
+].
-	    ].
+].
-	].
+].
-	inspecting ifFalse:[
+inspecting ifFalse:[
-	    "
+"
-	     if it worked, remove everything up to and including top
+if it worked, remove everything up to and including top
-	     from context chain
+from context chain
-	    "
+"
-	    (newMethod notNil and:[newMethod ~~ #Error]) ifTrue:[
+(newMethod notNil and:[newMethod ~~ #Error]) ifTrue:[
-		codeView modified:false.
+codeView modified:false.
-		doUnwind ifTrue:[
+doUnwind ifTrue:[
-		    selectedContext canReturn ifTrue:[
+selectedContext canReturn ifTrue:[
-			self setContext:(top "sender").
+self setContext:(top "sender").
-			exitAction := #restart.
+exitAction := #restart.
-			selectedContext setLineNumber:1.
+selectedContext setLineNumber:1.
-			self doRestart.
+self doRestart.
-		    ] ifFalse:[
+] ifFalse:[
-			self setContext:(top sender).
+self setContext:(top sender).
-			exitAction := #return.
+exitAction := #return.
-		    ].
+].
-		    "
+"
-		     continue/step is no longer possible
+continue/step is no longer possible
-		    "
+"
-		    "/ continueButton disable.
+"/ continueButton disable.
-		    "/ canContinue := false.
+"/ canContinue := false.
-		].
+].
-		contextView selection:1.
+contextView selection:1.
-		"/ self showSelection:1.
+"/ self showSelection:1.
-		"/ contextView makeSelectionVisible. "/ scrollToLine:(selection - 1)
+"/ contextView makeSelectionVisible. "/ scrollToLine:(selection - 1)
-	    ] ifFalse:[
+] ifFalse:[
-		^ cancelAction value
+^ cancelAction value
-	    ]
+]
-	].
+].
 ].
 "Created: / 17-11-2001 / 21:50:55 / cg"
 "Modified: / 29-08-2006 / 14:22:22 / cg"
 !
 cls := currentMethod mclass.
 cls isNil ifTrue:[ ^ self ].
 UserInformation handle:[:ex |
-	ex proceed.
+ex proceed.
 ] do:[
-	DoWhatIMeanSupport codeCompletionForClass:cls context:selectedContext codeView:codeView.
+DoWhatIMeanSupport codeCompletionForClass:cls context:selectedContext codeView:codeView.
 ].
 !
 confirm:aString
 "open a modal yes-no dialog.
 Redefined here, to answer true, if exclusice Debugger, which cannot handle popup boxes"
 (exclusive or:[windowGroup isNil]) ifTrue:[
-	^ true
+^ true
 ].
 ^ super confirm:aString.
 !
 doShowSelection:lineNr
 "user clicked on a header line - show selected code in textView.
 Also sent to autoselect an interesting context on entry."
 HaltInterrupt handle:[:ex |
-	ignoreBreakpoints ifFalse:[ex reject].
+ignoreBreakpoints ifFalse:[ex reject].
-	('DebugView [info]: halt/breakpoint in debugger at %1 ignored [doShowSelection.]' bindWith:ex suspendedContext) infoPrintCR.
+('DebugView [info]: halt/breakpoint in debugger at %1 ignored [doShowSelection.]' bindWith:ex suspendedContext) infoPrintCR.
-	ex proceed
+ex proceed
 ] do:[
-	self updateForContext:lineNr
+self updateForContext:lineNr
 ].
 self updateMenuItems
 "Modified: / 17.11.2001 / 22:12:16 / cg"
 !
 hideStackInspector
 stackInspector notNil ifTrue:[
-	stackInspector destroy.
+stackInspector destroy.
-	stackInspector := nil.
+stackInspector := nil.
-	receiverInspector origin:(0.0 @ 0.0) corner:0.5 @ 1.0.
+receiverInspector origin:(0.0 @ 0.0) corner:0.5 @ 1.0.
-	contextInspector origin:(0.5 @ 0.0) corner:(1.0 @ 1.0)
+contextInspector origin:(0.5 @ 0.0) corner:(1.0 @ 1.0)
 ]
 !
 methodCodeToggleChanged
 |sel|
 sel := contextView selection.
 sel notNil ifTrue:[
-	self showSelection:sel
+self showSelection:sel
 ]
 "Created: / 18-06-2010 / 12:29:21 / cg"
 !
 |evView focusView key rawKey inCodeView|
 evView := anEvent view.
 evView notNil ifTrue:[
-	focusView := evView windowGroup focusView.
+focusView := evView windowGroup focusView.
-	focusView isNil ifTrue:[
+focusView isNil ifTrue:[
-	    focusView := evView.
+focusView := evView.
-	].
+].
-	anEvent isKeyPressEvent ifTrue:[
+anEvent isKeyPressEvent ifTrue:[
-	    key := anEvent key.
+key := anEvent key.
-	    rawKey := anEvent rawKey.
+rawKey := anEvent rawKey.
-	    inCodeView := (focusView == codeView
+inCodeView := (focusView == codeView
-			  or:[focusView isComponentOf:codeView]).
+or:[focusView isComponentOf:codeView]).
-	    inCodeView ifTrue:[
+inCodeView ifTrue:[
-		key == #CodeCompletion ifTrue:[
+key == #CodeCompletion ifTrue:[
-		    "/ complete the word before/under the cursor.
+"/ complete the word before/under the cursor.
-		    self sensor
+self sensor
-			pushUserEvent:#codeCompletion
+pushUserEvent:#codeCompletion
-			for:self
+for:self
-			withArguments:#().
+withArguments:#().
-		    ^ true
+^ true
-		].
+].
-	    ].
+].
-	].
+].
 false ifTrue:[
-	anEvent isButtonReleaseEvent ifTrue:[
+anEvent isButtonReleaseEvent ifTrue:[
-	    anEvent view == codeView ifTrue:[
+anEvent view == codeView ifTrue:[
-		(RBParser notNil and:[RBParser isLoaded])
+(RBParser notNil and:[RBParser isLoaded])
-		ifTrue:[
+ifTrue:[
-		    self sensor
+self sensor
-			pushEvent:anEvent.  "/ must be first in queue
+pushEvent:anEvent.  "/ must be first in queue
-		    self sensor
+self sensor
-		      pushUserEvent:#explainSelection
+pushUserEvent:#explainSelection
-		      for:self
+for:self
-		      withArguments:nil.
+withArguments:nil.
-		    ^ true  "/ eaten
+^ true  "/ eaten
-		]
+]
-	    ]
+]
-	].
+].
 ].
 ].
 ^ false
 !
 showSelection:lineNr
 "user clicked on a header line - show selected code in textView.
 Also sent to autoselect an interesting context on entry."
 Notification
-	handle:
+handle:
-	    [:ex |
+[: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:
+handle:
-			[:ex |
+[:ex |
-			    |s con|
+|s con|
-			    ex signal isControlInterrupt
+ex signal isControlInterrupt
-				ifTrue:[
+ifTrue:[
-				    'DebugView [info]: halt/break ignored - while showing selection in debugger' infoPrintCR.
+'DebugView [info]: halt/break ignored - while showing selection in debugger' infoPrintCR.
-				    ex proceed
+ex proceed
-				].
+].
-			    ('DebugView [info]: error at %1 when showing selection in debugger ignored' bindWith:ex suspendedContext) infoPrintCR.
+('DebugView [info]: error at %1 when showing selection in debugger ignored' 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 nextPutAll: '**** '; nextPutLine:(ex description "withCRs").
+s nextPutAll: '**** '; nextPutLine:(ex description "withCRs").
-			    s nextPutLine:'****'.
+s nextPutLine:'****'.
-			    con := ex suspendedContext.
+con := ex suspendedContext.
-			    s nextPutAll: '**** '; nextPutLine:(con printString).
+s nextPutAll: '**** '; nextPutLine:(con printString).
-			    con := con sender.
+con := con sender.
-			    HaltInterrupt ignoreIn:[
+HaltInterrupt ignoreIn:[
-				con fullPrintAllOn:s.
+con fullPrintAllOn:s.
-			    ].
+].
 "/                            [con notNil] whileTrue:[
 "/                                Error catch:[:ex |
 "/                                    s nextPutAll: '**** '; nextPutLine:(con printString).
 "/                                ].
 "/
 "/                                    con := nil
 "/                                ] ifFalse:[
 "/                                    con := con sender.
 "/                                ]
 "/                            ].
-			    codeView contents:(s contents).
+codeView contents:(s contents).
-			    ex return.
+ex return.
-			]
+]
-		    do:
+do:
-			[
+[
-			    self doShowSelection:lineNr
+self doShowSelection:lineNr
-			]
+]
-	    ]
+]
 "Modified: / 04-07-2006 / 14:50:06 / 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
 ignoreEndTime := something.
 !
+ignoreUntilShiftKeyPressed:aBoolean
+ignoreUntilShiftKeyPressed := aBoolean.
+"Created: / 27-01-2012 / 11:35:23 / cg"
+!
 method
 |m|
 weakMethodHolder == #all ifTrue:[^ weakMethodHolder ].
 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"
 ! !
 !DebugView::IgnoredHalt methodsFor:'misc'!
 decrementIgnoreCount
 ignoreCount notNil ifTrue:[
-	ignoreCount > 0 ifTrue:[
+ignoreCount > 0 ifTrue:[
-	    ignoreCount := ignoreCount - 1
+ignoreCount := ignoreCount - 1
-	]
+]
 ]
 ! !
 !DebugView::IgnoredHalt methodsFor:'printing'!
 printOn:aStream
 |method|
 (method := self method) isNil ifTrue:[
-	aStream nextPutAll:'an obsolete IgnoredHalt'.
+aStream nextPutAll:'an obsolete IgnoredHalt'.
-	^ self
+^ self
 ].
 aStream nextPutAll:'Ignore '.
-method printOn:aStream.
+method whoString printOn:aStream.
-ignoreEndTime notNil ifTrue:[
+ignoreUntilShiftKeyPressed == true ifTrue:[
-	aStream nextPutAll:'until '.
+aStream nextPutAll:' until shiftKey pressed'.
-	ignoreEndTime printOn:aStream.
 ] ifFalse:[
-	(ignoreCount > 0) ifTrue:[
+ignoreEndTime notNil ifTrue:[
-	    aStream nextPutAll:'for '.
+aStream nextPutAll:' until '.
-	    ignoreCount printOn:aStream.
+ignoreEndTime printOn:aStream.
-	] ifFalse:[
+] ifFalse:[
-	    (ignoreCount < 0) ifTrue:[
+(ignoreCount > 0) ifTrue:[
-		aStream nextPutAll:'forEver'.
+aStream nextPutAll:' for '.
-	    ] ifFalse:[
+ignoreCount printOn:aStream.
-		aStream nextPutAll:' no longer'.
+] ifFalse:[
-	    ].
+(ignoreCount < 0) ifTrue:[
-	].
+aStream nextPutAll:' forEver'.
-].
+] ifFalse:[
+aStream nextPutAll:' no longer'.
-"Modified: / 08-05-2011 / 10:29:11 / cg"
+].
+].
+].
+].
+"Modified: / 27-01-2012 / 11:43:10 / cg"
 ! !
 !DebugView::IgnoredHalt methodsFor:'queries'!
 haltIgnoredInfoString
 "some string describing why and how this halt is ignored;
 nil if not ignored"
 ignoreCount notNil ifTrue:[
-	ignoreCount > 0 ifTrue:[
+ignoreCount > 0 ifTrue:[
-	    ^ '%1 more calls ignored' bindWith:ignoreCount
+^ '%1 more calls ignored' bindWith:ignoreCount
-	].
+].
-	^ nil
+^ nil
 ].
 ignoreEndTime notNil ifTrue:[
-	(ignoreEndTime > Timestamp now) ifTrue:[
+(ignoreEndTime > Timestamp now) ifTrue:[
-	    ^ 'ignored until %1' bindWith:ignoreEndTime
+^ 'ignored until %1' bindWith:ignoreEndTime
-	].
+].
-	^ nil
+^ nil
+].
+ignoreUntilShiftKeyPressed == true ifTrue:[
+Display shiftDown ifFalse:[
+^ 'ignored until shiftKey is pressed'
+].
+^ nil
 ].
 ^ 'ignored until reenabled'
+"Modified: / 27-01-2012 / 11:35:48 / cg"
 !
 isActive
 "true if this ignore-entry is still active"
 self method isNil ifTrue:[self halt. ^ false ].    "/ method no longer valid
 ignoreEndTime notNil ifTrue:[
-	^ ignoreEndTime > Timestamp now
+^ ignoreEndTime > Timestamp now
 ].
 ignoreCount notNil ifTrue:[
-	^ ignoreCount > 0
+^ ignoreCount > 0
 ].
 ^ false
 "Modified: / 23-03-2011 / 15:21:02 / cg"
+"Modified (format): / 27-01-2012 / 11:25:30 / cg"
 !
 isForMethod:aMethod line:line
 "/ check in this order - method has a flushing side-effect, which is useful here...
 weakMethodHolder == #all ifTrue:[^ true].
 !
 isHaltIgnored
 "true if this halt should be ignored"
+ignoreUntilShiftKeyPressed == true ifTrue:[
+^ Display 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"
 !
 isHaltIgnoredInMethod:aMethod line:line
 "/ Transcript show:'?same as ign '; show:(weakMethodHolder at:1); show:' at '; showCR:lineNumber.
 ! !
 !DebugView class methodsFor:'documentation'!
 version_CVS
-^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.526 2012-01-27 10:13:48 cg Exp $'
+^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.527 2012-01-27 10:50:31 cg Exp $'
 !
 version_SVN
 ^ '�Id: DebugView.st 7818 2011-08-18 11:42:39Z vranyj1 �'
 ! !

changeset 11210	83e08cc8ce48
parent 11209	202af72b0a90
child 11303	28e758994349
child 12123	4bde08cebd48