--- a/DebugView.st Sun Dec 25 17:30:59 2016 +0100
+++ b/DebugView.st Sun Dec 25 17:34:03 2016 +0100
@@ -2,7 +2,7 @@
"
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
@@ -16,58 +16,58 @@
"{ NameSpace: Smalltalk }"
StandardSystemView subclass:#DebugView
- instanceVariableNames:'busy haveControl exitAction canContinue contextView codeView
- receiverInspector contextInspector contextArray selectedContext
- catchBlock grabber mayProceed traceView tracing bigStep
- skipLineNr abortButton terminateButton continueButton stepButton
- nextButton nextOverButton nextOutButton sendButton returnButton
- restartButton exclusive inspecting nChainShown inspectedProcess
- updateProcess updateButton defineButton monitorToggle stepping
- steppedContextLineno actualContext inWrap stackInspector
- steppedContext wrapperContext firstContext stepHow cachable
- currentMethod ignoreBreakpoints stepUntilEntering
- lastStepUntilEntering lastSelectionInReceiverInspector
- lastSelectionInContextInspector canShowMore reportButton
- setOfHiddenCallingSelectors isStoppedAtHaltOrBreakPoint
- exceptionInfoLabel methodCodeToggle
- methodCodeToggleSelectionHolder
- isStoppedAtBreakPointWithParameter breakPointParameter
- hideSupportCode contextInfoLabel resendButton
- gotoDialogOpenerButton isStoppedInModalDialog selectorToDefine
- classToDefineIn gotoApplicationActionMethodButton
- isStoppedInApplicationAction isStoppedAtStatementBreakpoint
- verboseBacktraceHolder'
- classVariableNames:'CachedDebugger CachedExclusive OpenDebuggers MoreDebuggingDetail
- DebuggingDebugger DebuggingDebugger2 DebuggingContextWalk
- DefaultDebuggerBackgroundColor InitialNChainShown IgnoredHalts
- ShowThreadID LastIgnoreHaltNTimes LastIgnoreHaltDuration
- LastExtent LastOrigin RememberedCallChain DebuggingDebugger3
- NumberOfDebuggers DebuggerOnMainDisplayOnly'
- poolDictionaries:''
- category:'Interface-Debugger'
+ instanceVariableNames:'busy haveControl exitAction canContinue contextView codeView
+ receiverInspector contextInspector contextArray selectedContext
+ catchBlock grabber mayProceed traceView tracing bigStep
+ skipLineNr abortButton terminateButton continueButton stepButton
+ nextButton nextOverButton nextOutButton sendButton returnButton
+ restartButton exclusive inspecting nChainShown inspectedProcess
+ updateProcess updateButton defineButton monitorToggle stepping
+ steppedContextLineno actualContext inWrap stackInspector
+ steppedContext wrapperContext firstContext stepHow cachable
+ currentMethod ignoreBreakpoints stepUntilEntering
+ lastStepUntilEntering lastSelectionInReceiverInspector
+ lastSelectionInContextInspector canShowMore reportButton
+ setOfHiddenCallingSelectors isStoppedAtHaltOrBreakPoint
+ exceptionInfoLabel methodCodeToggle
+ methodCodeToggleSelectionHolder
+ isStoppedAtBreakPointWithParameter breakPointParameter
+ hideSupportCode contextInfoLabel resendButton
+ gotoDialogOpenerButton isStoppedInModalDialog selectorToDefine
+ classToDefineIn gotoApplicationActionMethodButton
+ isStoppedInApplicationAction isStoppedAtStatementBreakpoint
+ verboseBacktraceHolder'
+ classVariableNames:'CachedDebugger CachedExclusive OpenDebuggers MoreDebuggingDetail
+ DebuggingDebugger DebuggingDebugger2 DebuggingContextWalk
+ DefaultDebuggerBackgroundColor InitialNChainShown IgnoredHalts
+ ShowThreadID LastIgnoreHaltNTimes LastIgnoreHaltDuration
+ LastExtent LastOrigin RememberedCallChain DebuggingDebugger3
+ NumberOfDebuggers DebuggerOnMainDisplayOnly'
+ poolDictionaries:''
+ category:'Interface-Debugger'
!
Object subclass:#IgnoredHaltOrBreakpoint
- instanceVariableNames:'ignoreEndTime ignoreCount ignoreUntilShiftKeyPressed
- ignoredReceiverClasses ignoredProcesses
- ignoredSendingClassAndSelectors'
- classVariableNames:''
- poolDictionaries:''
- privateIn:DebugView
+ instanceVariableNames:'ignoreEndTime ignoreCount ignoreUntilShiftKeyPressed
+ ignoredReceiverClasses ignoredProcesses
+ ignoredSendingClassAndSelectors'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:DebugView
!
DebugView::IgnoredHaltOrBreakpoint subclass:#IgnoredHalt
- instanceVariableNames:'weakMethodHolder lineNumber'
- classVariableNames:''
- poolDictionaries:''
- privateIn:DebugView
+ instanceVariableNames:'weakMethodHolder lineNumber'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:DebugView
!
DebugView::IgnoredHaltOrBreakpoint subclass:#IgnoredBreakpoint
- instanceVariableNames:'parameter'
- classVariableNames:''
- poolDictionaries:''
- privateIn:DebugView
+ instanceVariableNames:'parameter'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:DebugView
!
!DebugView class methodsFor:'documentation'!
@@ -75,7 +75,7 @@
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
@@ -112,27 +112,27 @@
See additional information in 'doc/misc/debugger.doc'.
Notice & Warning (attention when changing thingslike menus, window spec etc. here):
- the DebugView class caches the last used debugger in a class variable,
- and hides/shows this window without recreating one from scratch. This is done to make
- the debugger come up faster when single stepping, or hopping from breakpoint to breakpoint.
-
- It may happen, that a malfunctioning debugger (for example, a halfway created/destroyed one)
- is kept there. You will notice this, if a debugger comes up without showing any contents.
- In this case, close (or destroy) the broken debugView, and execute
- Debugger newDebugger
- which removes the cached debugger and forces creation of a new one the next time.
- This is a temporary workaround - the debugger should be fixed to avoid this situation.
-
- You must also flush the cached debugger, if you change the debugger's
- initialization code (buttons, menu, etc.) or the debugger's class layout,
- and you want the new code to become effective.
+ the DebugView class caches the last used debugger in a class variable,
+ and hides/shows this window without recreating one from scratch. This is done to make
+ the debugger come up faster when single stepping, or hopping from breakpoint to breakpoint.
+
+ It may happen, that a malfunctioning debugger (for example, a halfway created/destroyed one)
+ is kept there. You will notice this, if a debugger comes up without showing any contents.
+ In this case, close (or destroy) the broken debugView, and execute
+ Debugger newDebugger
+ which removes the cached debugger and forces creation of a new one the next time.
+ This is a temporary workaround - the debugger should be fixed to avoid this situation.
+
+ You must also flush the cached debugger, if you change the debugger's
+ initialization code (buttons, menu, etc.) or the debugger's class layout,
+ and you want the new code to become effective.
[author:]
- Claus Gittinger
+ Claus Gittinger
[see also:]
- Exception Signal
- Process
+ Exception Signal
+ Process
"
! !
@@ -262,11 +262,11 @@
IgnoredHalts isNil ifTrue:[^ nil].
IgnoredHalts do:[:ign |
- (ign isForMethod:haltingMethod line:lineNrInHaltingMethod)
- "/ (ign isHaltIgnoredInMethod:haltingMethod line:lineNrInHaltingMethod)
- ifTrue:[
- ^ ign
- ].
+ (ign isForMethod:haltingMethod line:lineNrInHaltingMethod)
+ "/ (ign isHaltIgnoredInMethod:haltingMethod line:lineNrInHaltingMethod)
+ ifTrue:[
+ ^ ign
+ ].
].
^ nil.
!
@@ -277,37 +277,37 @@
!
ignoreBreakpointWithParameter:parameterOrNil
- forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
- orReceiverClass:receiverClassOrNil orProcess:processOrNil
+ forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
+ orReceiverClass:receiverClassOrNil orProcess:processOrNil
"remember to ignore a breakpoint with a parameter (i.e. breakpoint:#cg) for some number of invocations
or until some time has elapsed.
With nil count and time arguments, such an ignored breakpoint is reactivated"
self
- ignoreHaltOrBreakpoint:#halt
- method:nil line:nil
- parameter:parameterOrNil
- forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
- orReceiverClass:receiverClassOrNil orProcess:processOrNil
- orIfCalledFromMethod:nil
+ ignoreHaltOrBreakpoint:#halt
+ method:nil line:nil
+ parameter:parameterOrNil
+ forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
+ orReceiverClass:receiverClassOrNil orProcess:processOrNil
+ orIfCalledFromMethod:nil
!
ignoreHaltIn:haltingMethod at:lineNrOfHalt
- forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
- orReceiverClass:receiverClassOrNil orProcess:processOrNil
+ forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
+ orReceiverClass:receiverClassOrNil orProcess:processOrNil
"remember to ignore a halt in some method for some number of invocations
or until some time has elapsed.
With nil count and time arguments, such an ignored halt is reactivated"
self
- ignoreHaltOrBreakpoint:#halt
- method:haltingMethod line:lineNrOfHalt
- parameter:nil
- forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
- orReceiverClass:receiverClassOrNil orProcess:processOrNil
- orIfCalledFromMethod:nil
+ ignoreHaltOrBreakpoint:#halt
+ method:haltingMethod line:lineNrOfHalt
+ parameter:nil
+ forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
+ orReceiverClass:receiverClassOrNil orProcess:processOrNil
+ orIfCalledFromMethod:nil
!
ignoreHaltIn:haltingMethod at:lineNrOfHalt
@@ -331,18 +331,18 @@
!
ignoreHaltOrBreakpoint:type method:methodOrNil line:lineNrOfHaltOrNil parameter:parameterOrNil
- forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
- orReceiverClass:receiverClassOrNil orProcess:processOrNil
+ forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
+ orReceiverClass:receiverClassOrNil orProcess:processOrNil
"remember to ignore a breakpoint with a parameter (i.e. breakpoint:#cg) for some number of invocations
or until some time has elapsed.
With nil count and time arguments, such an ignored breakpoint is reactivated"
^ self
- ignoreHaltOrBreakpoint:type method:methodOrNil line:lineNrOfHaltOrNil parameter:parameterOrNil
- forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
- orReceiverClass:receiverClassOrNil orProcess:processOrNil
- orIfCalledFromMethod:nil
+ ignoreHaltOrBreakpoint:type method:methodOrNil line:lineNrOfHaltOrNil parameter:parameterOrNil
+ forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
+ orReceiverClass:receiverClassOrNil orProcess:processOrNil
+ orIfCalledFromMethod:nil
!
ignoreHaltOrBreakpoint:type method:methodOrNil line:lineNrOfHaltOrNil parameter:parameterOrNil
@@ -429,16 +429,16 @@
"/ Transcript showCR:'halt/break in ',haltingMethod printString,' at ',lineNrInHaltingMethod printString.
IgnoredHalts do:[:ign |
- (ign isForBreakpointWithParameter:parameter) ifTrue:[
- Transcript show:'Debugger [info]: break ignored for ', parameter.
-
- modifyCount ifTrue:[ ign decrementIgnoreCount ].
- ign isHaltIgnored ifFalse:[
- Transcript showCR:'Debugger [info]: no longer ignore breakpoint for ', parameter.
- IgnoredHalts remove:ign ifAbsent:[].
- ].
- ^ true.
- ].
+ (ign isForBreakpointWithParameter:parameter) ifTrue:[
+ Transcript show:'Debugger [info]: break ignored for ', parameter.
+
+ modifyCount ifTrue:[ ign decrementIgnoreCount ].
+ ign isHaltIgnored ifFalse:[
+ Transcript showCR:'Debugger [info]: no longer ignore breakpoint for ', parameter.
+ IgnoredHalts remove:ign ifAbsent:[].
+ ].
+ ^ true.
+ ].
].
IgnoredHalts := (IgnoredHalts reject:[:ign | ign isActive not ]) asNilIfEmpty.
@@ -476,7 +476,7 @@
removeInactiveIgnores
IgnoredHalts notNil ifTrue:[
- IgnoredHalts := IgnoredHalts select:[:i | i isActive].
+ IgnoredHalts := IgnoredHalts select:[:i | i isActive].
].
!
@@ -494,7 +494,7 @@
IgnoredHalts isNil ifTrue:[^ self].
IgnoredHalts := IgnoredHalts reject:[:ign |
- (ign isForMethod:haltingMethod line:lineNrInHaltingMethod)
+ (ign isForMethod:haltingMethod line:lineNrInHaltingMethod)
].
! !
@@ -506,9 +506,9 @@
<context: #return>
^ self
- enter:thisContext sender
- withMessage:'Debugger Entered'
- mayProceed:true.
+ enter:thisContext sender
+ withMessage:'Debugger Entered'
+ mayProceed:true.
!
enter:aContext withMessage:aString
@@ -517,9 +517,9 @@
<context: #return>
^ self
- enter:aContext
- withMessage:aString
- mayProceed:true
+ enter:aContext
+ withMessage:aString
+ mayProceed:true
!
enter:aContext withMessage:aString mayProceed:mayProceed
@@ -620,27 +620,27 @@
"/ 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 on:' , ex suspendedContext printString) infoPrintCR.
- ex proceed
+ 'DebugView [info]: breakpoint in debugger setup ignored [enterUncond.]' infoPrintCR.
+ ('DebugView [info]: breakpoint on:' , ex suspendedContext printString) infoPrintCR.
+ ex proceed
] do:[
- aDebugger := self new.
+ aDebugger := self new.
].
aDebugger isNil ifTrue:[
- 'DebugView [error]: cannot open debugger' errorPrintCR.
- 'DebugView [error]: Exception: ' errorPrint. aString errorPrintCR.
- mayProceed ifTrue:[
- (Dialog confirm:'Error/Breakpoint caught.\\Press Continue or Abort.' withCRs
- yesLabel:'Continue' noLabel:'Abort')
- ifTrue:[
- ^ nil
- ].
- ] ifFalse:[
- self information:'Error caught.\\Press OK to abort the operation.' withCRs.
- ].
- AbortOperationRequest raise.
- "not reached"
+ 'DebugView [error]: cannot open debugger' errorPrintCR.
+ 'DebugView [error]: Exception: ' errorPrint. aString errorPrintCR.
+ mayProceed ifTrue:[
+ (Dialog confirm:'Error/Breakpoint caught.\\Press Continue or Abort.' withCRs
+ yesLabel:'Continue' noLabel:'Abort')
+ ifTrue:[
+ ^ nil
+ ].
+ ] ifFalse:[
+ self information:'Error caught.\\Press OK to abort the operation.' withCRs.
+ ].
+ AbortOperationRequest raise.
+ "not reached"
].
aDebugger mayProceed:mayProceed.
@@ -649,7 +649,7 @@
^ nil.
"
- nil halt
+ nil halt
"
"Modified: / 18.11.2001 / 00:29:23 / cg"
@@ -661,9 +661,9 @@
<context: #return>
^ self
- enter:(thisContext sender)
- withMessage:message
- mayProceed:true.
+ enter:(thisContext sender)
+ withMessage:message
+ mayProceed:true.
!
new
@@ -677,14 +677,14 @@
currentScreen := Screen current.
currentScreen notNil ifTrue:[
- (currentScreen suppressDebugger) ifTrue:[
- "/ no debuggers with that device - show an alertBox which aborts...
- ^ nil.
- ].
- (currentScreen mayOpenDebugger) ifFalse:[
- "/ no debugger on that device - but on the main screen
- currentScreen := Display ? Screen default.
- ].
+ (currentScreen suppressDebugger) ifTrue:[
+ "/ no debuggers with that device - show an alertBox which aborts...
+ ^ nil.
+ ].
+ (currentScreen mayOpenDebugger) ifFalse:[
+ "/ no debugger on that device - but on the main screen
+ currentScreen := Display ? Screen default.
+ ].
].
"
@@ -693,46 +693,46 @@
(because otherwise we would not get any events here ...
"
Processor activeProcessIsSystemProcess ifTrue:[
- ((debugger := CachedExclusive) isNil
- or:[debugger device ~~ currentScreen
- or:[currentScreen isNil
- or:[currentScreen isOpen not]]]) ifTrue:[
- debugger := self newExclusive
- ].
- CachedExclusive := nil.
+ ((debugger := CachedExclusive) isNil
+ or:[debugger device ~~ currentScreen
+ or:[currentScreen isNil
+ or:[currentScreen isOpen not]]]) ifTrue:[
+ debugger := self newExclusive
+ ].
+ CachedExclusive := nil.
] ifFalse:[
- CachedDebugger notNil ifTrue:[
- (CachedDebugger device ~~ currentScreen
- or:[currentScreen isNil
- or:[currentScreen isOpen not
- or:[CachedDebugger class ~~ self]]]) ifTrue:[
- CachedDebugger := nil
- ]
- ].
-
- (debugger := CachedDebugger) notNil ifTrue:[
- CachedDebugger := nil.
- ] ifFalse:[
- debuggerScreen := currentScreen.
- debuggerScreen isNil ifTrue:[
- "/ use the default display
- debuggerScreen := Screen default.
- ].
- (debuggerScreen isNil
- or:[debuggerScreen isOpen not
- "/ or:[debuggerDevice mayOpenDebugger not]
- ]) ifTrue:[
- "/ no debugger
- ^ nil.
- ].
-
- Screen currentScreenQuerySignal answer:debuggerScreen
- do:[
- debugger := super new.
- ].
- debugger label:'Debugger'.
- debugger icon:self defaultIcon.
- ]
+ CachedDebugger notNil ifTrue:[
+ (CachedDebugger device ~~ currentScreen
+ or:[currentScreen isNil
+ or:[currentScreen isOpen not
+ or:[CachedDebugger class ~~ self]]]) ifTrue:[
+ CachedDebugger := nil
+ ]
+ ].
+
+ (debugger := CachedDebugger) notNil ifTrue:[
+ CachedDebugger := nil.
+ ] ifFalse:[
+ debuggerScreen := currentScreen.
+ debuggerScreen isNil ifTrue:[
+ "/ use the default display
+ debuggerScreen := Screen default.
+ ].
+ (debuggerScreen isNil
+ or:[debuggerScreen isOpen not
+ "/ or:[debuggerDevice mayOpenDebugger not]
+ ]) ifTrue:[
+ "/ no debugger
+ ^ nil.
+ ].
+
+ Screen currentScreenQuerySignal answer:debuggerScreen
+ do:[
+ debugger := super new.
+ ].
+ debugger label:'Debugger'.
+ debugger icon:self defaultIcon.
+ ]
].
^ debugger
@@ -767,26 +767,26 @@
stepping debugger to come up again instead of a new one.
"
OpenDebuggers notNil ifTrue:[
- active := Processor activeProcess.
- OpenDebuggers do:[:aDebugger |
- |debuggersProcess|
-
- (aDebugger notNil and:[aDebugger ~~ 0]) ifTrue:[
- debuggersProcess := aDebugger inspectedProcess.
- debuggersProcess == active ifTrue:[
- aDebugger device isOpen ifTrue:[
- DebuggingDebugger == true ifTrue:[
- 'reusing cached debugger' errorPrintCR.
- ].
- aDebugger unstep.
- ^ aDebugger.
- ]
- ].
- (debuggersProcess notNil and:[ debuggersProcess isDead ]) ifTrue:[
- aDebugger destroy.
- ].
- ]
- ]
+ active := Processor activeProcess.
+ OpenDebuggers do:[:aDebugger |
+ |debuggersProcess|
+
+ (aDebugger notNil and:[aDebugger ~~ 0]) ifTrue:[
+ debuggersProcess := aDebugger inspectedProcess.
+ debuggersProcess == active ifTrue:[
+ aDebugger device isOpen ifTrue:[
+ DebuggingDebugger == true ifTrue:[
+ 'reusing cached debugger' errorPrintCR.
+ ].
+ aDebugger unstep.
+ ^ aDebugger.
+ ]
+ ].
+ (debuggersProcess notNil and:[ debuggersProcess isDead ]) ifTrue:[
+ aDebugger destroy.
+ ].
+ ]
+ ]
].
^ nil
@@ -802,15 +802,15 @@
aDebugger := super new.
aDebugger icon:self defaultIcon.
aProcess notNil ifTrue:[
- nm := aProcess name.
- nm notNil ifTrue:[
- nm := (nm contractTo:17) , '-' , aProcess id printString
- ] ifFalse:[
- nm := aProcess id printString
- ].
- label := 'Debugger [' , nm , ']'.
+ nm := aProcess name.
+ nm notNil ifTrue:[
+ nm := (nm contractTo:17) , '-' , aProcess id printString
+ ] ifFalse:[
+ nm := aProcess id printString
+ ].
+ label := 'Debugger [' , nm , ']'.
] ifFalse:[
- label := 'no process'
+ label := 'no process'
].
aDebugger label:label iconLabel:'Debugger'.
aDebugger openOn:aProcess.
@@ -838,166 +838,166 @@
^
#(Menu
- (
- (MenuItem
- enabled: canRemoveBreakpoint
- label: 'Remove Breakpoint'
- itemValue: removeBreakpoint
- )
- (MenuItem
- label: 'Remove all Breakpoints'
- itemValue: removeAllBreakpoints
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Ignore this Halt/BreakPoint'
- submenu:
- (Menu
- (
- (MenuItem
- enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
- label: 'Forever (Until Ignoring is Stopped)'
- itemValue: ignoreHaltForever
- )
- (MenuItem
- enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
- label: 'For Some Time...'
- itemValue: openIgnoreHaltUntilTimeElapsedDialog
- )
- (MenuItem
- enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
- label: 'For the Next N Times...'
- itemValue: openIgnoreHaltNTimesDialog
- )
- (MenuItem
- enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
- label: 'Until Shift-Key is Pressed'
- itemValue: ignoreHaltUntilShiftKeyIsPressed
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
- label: 'In Current Process'
- itemValue: ignoreHaltForCurrentProcess
- )
- (MenuItem
- enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
- label: 'For this Receiver Class'
- itemValue: ignoreHaltForThisReceiverClass
- )
- (MenuItem
- enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
- label: 'If Called from Any Of'
- submenuChannel: menuForIgnoreBreakpointIfCalledFromAnyOf
- )
- )
- nil
- nil
- )
- )
- (MenuItem
- enabled: isStoppedAtBreakPointWithParameter
- label: 'Ignore all BreakPoints with this Parameter'
- submenu:
- (Menu
- (
- (MenuItem
- enabled: isStoppedAtBreakPointWithParameter
- label: 'Forever (Reenable in BreakPoint-Browser)'
- itemValue: ignoreBreakpointsWithThisParameterForever
- )
- (MenuItem
- enabled: isStoppedAtBreakPointWithParameter
- label: 'For Some Time...'
- itemValue: openIgnoreBreakpointsWithThisParameterUntilTimeElapsedDialog
- )
- (MenuItem
- enabled: isStoppedAtBreakPointWithParameter
- label: 'For the Next N Times...'
- itemValue: openIgnoreBreakpointsWithThisParameterNTimesDialog
- )
- (MenuItem
- enabled: isStoppedAtBreakPointWithParameter
- label: 'Until Shift-Key is Pressed'
- itemValue: ignoreBreakpointsWithThisParameterUntilShiftKeyIsPressed
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
- label: 'In Current Process'
- itemValue: ignoreAllHaltsForCurrentProcess
- )
- (MenuItem
- enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
- label: 'For this Receiver Class'
- itemValue: ignoreAllHaltsForThisReceiverClass
- )
- (MenuItem
- enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
- label: 'If Called from Any Of'
- submenuChannel: menuForIgnoreAllBreakpointsIfCalledFromAnyOf
- )
- )
- nil
- nil
- )
- )
- (MenuItem
- label: 'Ignore all Halts/BreakPoints'
- submenu:
- (Menu
- (
- (MenuItem
- label: 'Forever (Until Ignoring is Stopped)'
- itemValue: ignoreAllHaltsForever
- )
- (MenuItem
- label: 'For Some Time...'
- itemValue: openIgnoreAllHaltsUntilTimeElapsedDialog
- )
- (MenuItem
- label: 'Until Shift-Key is Pressed'
- itemValue: ignoreAllHaltsUntilShiftKeyIsPressed
- )
- )
- nil
- nil
- )
- )
- (MenuItem
- enabled: hasHaltsToIgnore
- label: 'Stop Ignoring'
- itemValue: stopIgnoringHalts
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: canAddBreakpoint
- label: 'Add Breakpoint'
- itemValue: addBreakpoint
- )
- (MenuItem
- label: 'Manage Breakpoints'
- itemValue: openBreakPointBrowser
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Allow Halt in Debugger'
- itemValue: allowBreakPointsInDebugger:
- indication: allowBreakPointsInDebugger
- )
- )
- nil
- nil
+ (
+ (MenuItem
+ enabled: canRemoveBreakpoint
+ label: 'Remove Breakpoint'
+ itemValue: removeBreakpoint
+ )
+ (MenuItem
+ label: 'Remove all Breakpoints'
+ itemValue: removeAllBreakpoints
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Ignore this Halt/BreakPoint'
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
+ label: 'Forever (Until Ignoring is Stopped)'
+ itemValue: ignoreHaltForever
+ )
+ (MenuItem
+ enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
+ label: 'For Some Time...'
+ itemValue: openIgnoreHaltUntilTimeElapsedDialog
+ )
+ (MenuItem
+ enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
+ label: 'For the Next N Times...'
+ itemValue: openIgnoreHaltNTimesDialog
+ )
+ (MenuItem
+ enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
+ label: 'Until Shift-Key is Pressed'
+ itemValue: ignoreHaltUntilShiftKeyIsPressed
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
+ label: 'In Current Process'
+ itemValue: ignoreHaltForCurrentProcess
+ )
+ (MenuItem
+ enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
+ label: 'For this Receiver Class'
+ itemValue: ignoreHaltForThisReceiverClass
+ )
+ (MenuItem
+ enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
+ label: 'If Called from Any Of'
+ submenuChannel: menuForIgnoreBreakpointIfCalledFromAnyOf
+ )
+ )
+ nil
+ nil
+ )
+ )
+ (MenuItem
+ enabled: isStoppedAtBreakPointWithParameter
+ label: 'Ignore all BreakPoints with this Parameter'
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ enabled: isStoppedAtBreakPointWithParameter
+ label: 'Forever (Reenable in BreakPoint-Browser)'
+ itemValue: ignoreBreakpointsWithThisParameterForever
+ )
+ (MenuItem
+ enabled: isStoppedAtBreakPointWithParameter
+ label: 'For Some Time...'
+ itemValue: openIgnoreBreakpointsWithThisParameterUntilTimeElapsedDialog
+ )
+ (MenuItem
+ enabled: isStoppedAtBreakPointWithParameter
+ label: 'For the Next N Times...'
+ itemValue: openIgnoreBreakpointsWithThisParameterNTimesDialog
+ )
+ (MenuItem
+ enabled: isStoppedAtBreakPointWithParameter
+ label: 'Until Shift-Key is Pressed'
+ itemValue: ignoreBreakpointsWithThisParameterUntilShiftKeyIsPressed
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
+ label: 'In Current Process'
+ itemValue: ignoreAllHaltsForCurrentProcess
+ )
+ (MenuItem
+ enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
+ label: 'For this Receiver Class'
+ itemValue: ignoreAllHaltsForThisReceiverClass
+ )
+ (MenuItem
+ enabled: isStoppedAtHaltOrBreakPointOrSelectedContextIsWrapped
+ label: 'If Called from Any Of'
+ submenuChannel: menuForIgnoreAllBreakpointsIfCalledFromAnyOf
+ )
+ )
+ nil
+ nil
+ )
+ )
+ (MenuItem
+ label: 'Ignore all Halts/BreakPoints'
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ label: 'Forever (Until Ignoring is Stopped)'
+ itemValue: ignoreAllHaltsForever
+ )
+ (MenuItem
+ label: 'For Some Time...'
+ itemValue: openIgnoreAllHaltsUntilTimeElapsedDialog
+ )
+ (MenuItem
+ label: 'Until Shift-Key is Pressed'
+ itemValue: ignoreAllHaltsUntilShiftKeyIsPressed
+ )
+ )
+ nil
+ nil
+ )
+ )
+ (MenuItem
+ enabled: hasHaltsToIgnore
+ label: 'Stop Ignoring'
+ itemValue: stopIgnoringHalts
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: canAddBreakpoint
+ label: 'Add Breakpoint'
+ itemValue: addBreakpoint
+ )
+ (MenuItem
+ label: 'Manage Breakpoints'
+ itemValue: openBreakPointBrowser
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Allow Halt in Debugger'
+ itemValue: allowBreakPointsInDebugger:
+ indication: allowBreakPointsInDebugger
+ )
+ )
+ nil
+ nil
)
!
@@ -1088,87 +1088,87 @@
^
#(Menu
- (
- (MenuItem
- enabled: canReturn
- label: 'Return'
- itemValue: doReturn
- )
- (MenuItem
- enabled: canRestart
- label: 'Restart'
- itemValue: doRestart
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: hasContextSelected
- label: 'Inspect'
- itemValue: inspectContext
- )
- (MenuItem
- label: 'Copy WalkBack Text'
- itemValue: copyWalkbackText
- )
- (MenuItem
- label: 'Inspect Method'
- itemValue: inspectContextsMethod
- )
- (MenuItem
- label: 'Bookmark Method in SystemBrowser'
- itemValue: addBrowserBookmark
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: hasBlockContextSelected
- label: 'Find Home Context in Caller Chain...'
- itemValue: findHomeContext
- )
- (MenuItem
- enabled: hasContextSelected
- label: 'Find Context with String in Source...'
- itemValue: findContextWithStringInSource
- )
- (MenuItem
- enabled: hasContextSelected
- label: 'Find Context with Value in Variable...'
- itemValue: findContextWithValueInVariable
- )
- (MenuItem
- enabled: hasContextSelected
- label: 'Find Next Exception Handler'
- itemValue: findNextExceptionHandlerContext
- )
- (MenuItem
- enabled: hasContextSelected
- label: 'Find Handler For...'
- itemValue: findHandlerFor
- )
- (MenuItem
- label: 'Find Dialog Opener...'
- itemValue: doGotoDialogOpener
- )
- (MenuItem
- label: 'Find Application Action Method...'
- itemValue: doGotoApplicationActionMethod
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Remember Callchain && Highlight on Next Entry'
- itemValue: rememberCallchain
- )
- (MenuItem
- label: 'Clear Remembered Callchain'
- itemValue: clearRememberedCallchain
- )
- )
- nil
- nil
+ (
+ (MenuItem
+ enabled: canReturn
+ label: 'Return'
+ itemValue: doReturn
+ )
+ (MenuItem
+ enabled: canRestart
+ label: 'Restart'
+ itemValue: doRestart
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: hasContextSelected
+ label: 'Inspect'
+ itemValue: inspectContext
+ )
+ (MenuItem
+ label: 'Copy WalkBack Text'
+ itemValue: copyWalkbackText
+ )
+ (MenuItem
+ label: 'Inspect Method'
+ itemValue: inspectContextsMethod
+ )
+ (MenuItem
+ label: 'Bookmark Method in SystemBrowser'
+ itemValue: addBrowserBookmark
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: hasBlockContextSelected
+ label: 'Find Home Context in Caller Chain...'
+ itemValue: findHomeContext
+ )
+ (MenuItem
+ enabled: hasContextSelected
+ label: 'Find Context with String in Source...'
+ itemValue: findContextWithStringInSource
+ )
+ (MenuItem
+ enabled: hasContextSelected
+ label: 'Find Context with Value in Variable...'
+ itemValue: findContextWithValueInVariable
+ )
+ (MenuItem
+ enabled: hasContextSelected
+ label: 'Find Next Exception Handler'
+ itemValue: findNextExceptionHandlerContext
+ )
+ (MenuItem
+ enabled: hasContextSelected
+ label: 'Find Handler For...'
+ itemValue: findHandlerFor
+ )
+ (MenuItem
+ label: 'Find Dialog Opener...'
+ itemValue: doGotoDialogOpener
+ )
+ (MenuItem
+ label: 'Find Application Action Method...'
+ itemValue: doGotoApplicationActionMethod
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Remember Callchain && Highlight on Next Entry'
+ itemValue: rememberCallchain
+ )
+ (MenuItem
+ label: 'Clear Remembered Callchain'
+ itemValue: clearRememberedCallchain
+ )
+ )
+ nil
+ nil
)
!
@@ -1189,37 +1189,37 @@
^
#(Menu
- (
- (MenuItem
- enabled: canSendEmail
- label: 'Report a Bug via eMail...'
- itemValue: doOpenReportMailApp
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: canCloseAllDebuggers
- label: 'Close all Debuggers...'
- itemValue: closeAllDebuggers
- isVisible: isNotInspecting
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Exit'
- itemValue: closeRequest
- isVisible: isInspecting
- )
- (MenuItem
- label: 'Close Debugger and Abort'
- itemValue: closeRequest
- isVisible: isNotInspecting
- )
- )
- nil
- nil
+ (
+ (MenuItem
+ enabled: canSendEmail
+ label: 'Report a Bug via eMail...'
+ itemValue: doOpenReportMailApp
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: canCloseAllDebuggers
+ label: 'Close all Debuggers...'
+ itemValue: closeAllDebuggers
+ isVisible: isNotInspecting
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Exit'
+ itemValue: closeRequest
+ isVisible: isInspecting
+ )
+ (MenuItem
+ label: 'Close Debugger and Abort'
+ itemValue: closeRequest
+ isVisible: isNotInspecting
+ )
+ )
+ nil
+ nil
)
!
@@ -1240,22 +1240,22 @@
^
#(Menu
- (
- (MenuItem
- label: 'Debugger''s Documentation'
- itemValue: openHTMLDocument:
- argument: 'tools/debugger/TOP.html'
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'About DebugView...'
- itemValue: openAboutThisApplication
- )
- )
- nil
- nil
+ (
+ (MenuItem
+ label: 'Debugger''s Documentation'
+ itemValue: openHTMLDocument:
+ argument: 'tools/debugger/TOP.html'
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'About DebugView...'
+ itemValue: openAboutThisApplication
+ )
+ )
+ nil
+ nil
)
!
@@ -1276,43 +1276,43 @@
^
#(Menu
- (
- (MenuItem
- label: 'File'
- submenuChannel: fileMenuSpec
- )
- (MenuItem
- label: 'View'
- submenuChannel: viewMenuSpec
- )
- (MenuItem
- label: 'Process'
- submenuChannel: processMenuSpec
- )
- (MenuItem
- label: 'Context'
- submenuChannel: contextMenuSpec
- )
- (MenuItem
- label: 'Receiver'
- submenuChannel: classMenuSpec
- )
- (MenuItem
- label: 'Selector'
- submenuChannel: selectorMenuSpec
- )
- (MenuItem
- label: 'Breakpoint'
- submenuChannel: breakPointMenuSpec
- )
- (MenuItem
- label: 'MENU_Help'
- startGroup: conditionalRight
- submenuChannel: helpMenuSpec
- )
- )
- nil
- nil
+ (
+ (MenuItem
+ label: 'File'
+ submenuChannel: fileMenuSpec
+ )
+ (MenuItem
+ label: 'View'
+ submenuChannel: viewMenuSpec
+ )
+ (MenuItem
+ label: 'Process'
+ submenuChannel: processMenuSpec
+ )
+ (MenuItem
+ label: 'Context'
+ submenuChannel: contextMenuSpec
+ )
+ (MenuItem
+ label: 'Receiver'
+ submenuChannel: classMenuSpec
+ )
+ (MenuItem
+ label: 'Selector'
+ submenuChannel: selectorMenuSpec
+ )
+ (MenuItem
+ label: 'Breakpoint'
+ submenuChannel: breakPointMenuSpec
+ )
+ (MenuItem
+ label: 'MENU_Help'
+ startGroup: conditionalRight
+ submenuChannel: helpMenuSpec
+ )
+ )
+ nil
+ nil
)
!
@@ -1333,97 +1333,97 @@
^
#(Menu
- (
- (MenuItem
- label: 'Continue'
- itemValue: doContinue
- )
- (MenuItem
- label: 'Next (Line-Step)'
- itemValue: doNext
- )
- (MenuItem
- label: 'Step'
- itemValue: doStep
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'After 5 Seconds'
- submenu:
- (Menu
- (
- (MenuItem
- label: 'Continue'
- itemValue: doContinueAfterDelay
- )
- (MenuItem
- label: 'Next (Line-Step)'
- itemValue: doNextAfterDelay
- )
- (MenuItem
- label: 'Step'
- itemValue: doStepAfterDelay
- )
- )
- nil
- nil
- )
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Skip to Cursor Line'
- itemValue: skip
- )
- (MenuItem
- label: 'Step Out (Skip until Return)'
- itemValue: skipForReturn
- )
- (MenuItem
- label: 'Skip until Entering...'
- itemValue: skipUntilEntering
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Abort'
- itemValue: doAbort
- )
- (MenuItem
- enabled: abortAllIsHandled
- label: 'Abort All'
- itemValue: doAbortAll
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Inspect'
- itemValue: doInspectProcess
- )
- (MenuItem
- label: 'Change Priority...'
- itemValue: doChangeProcessPriority
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Terminate'
- itemValue: doTerminate
- )
- (MenuItem
- label: 'Hard Terminate (Danger)'
- itemValue: quickTerminate
- isVisible: false
- )
- )
- nil
- nil
+ (
+ (MenuItem
+ label: 'Continue'
+ itemValue: doContinue
+ )
+ (MenuItem
+ label: 'Next (Line-Step)'
+ itemValue: doNext
+ )
+ (MenuItem
+ label: 'Step'
+ itemValue: doStep
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'After 5 Seconds'
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ label: 'Continue'
+ itemValue: doContinueAfterDelay
+ )
+ (MenuItem
+ label: 'Next (Line-Step)'
+ itemValue: doNextAfterDelay
+ )
+ (MenuItem
+ label: 'Step'
+ itemValue: doStepAfterDelay
+ )
+ )
+ nil
+ nil
+ )
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Skip to Cursor Line'
+ itemValue: skip
+ )
+ (MenuItem
+ label: 'Step Out (Skip until Return)'
+ itemValue: skipForReturn
+ )
+ (MenuItem
+ label: 'Skip until Entering...'
+ itemValue: skipUntilEntering
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Abort'
+ itemValue: doAbort
+ )
+ (MenuItem
+ enabled: abortAllIsHandled
+ label: 'Abort All'
+ itemValue: doAbortAll
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Inspect'
+ itemValue: doInspectProcess
+ )
+ (MenuItem
+ label: 'Change Priority...'
+ itemValue: doChangeProcessPriority
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Terminate'
+ itemValue: doTerminate
+ )
+ (MenuItem
+ label: 'Hard Terminate (Danger)'
+ itemValue: quickTerminate
+ isVisible: false
+ )
+ )
+ nil
+ nil
)
!
@@ -1444,26 +1444,26 @@
^
#(Menu
- (
- (MenuItem
- label: 'Browse Implementors...'
- itemValue: browseImplementorsOf
- )
- (MenuItem
- label: 'Browse Senders...'
- itemValue: browseSendersOf
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: canDefineMethod
- label: 'Define Missing Method'
- itemValue: doDefineMethod
- )
- )
- nil
- nil
+ (
+ (MenuItem
+ label: 'Browse Implementors...'
+ itemValue: browseImplementorsOf
+ )
+ (MenuItem
+ label: 'Browse Senders...'
+ itemValue: browseSendersOf
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: canDefineMethod
+ label: 'Define Missing Method'
+ itemValue: doDefineMethod
+ )
+ )
+ nil
+ nil
)
!
@@ -1484,52 +1484,52 @@
^
#(Menu
- (
- (MenuItem
- enabled: canShowMore
- label: 'Show More WalkBack'
- itemValue: showMoreWalkback
- )
- (MenuItem
- enabled: canShowMore
- label: 'Show Full WalkBack'
- itemValue: showFullWalkback
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Show Dense WalkBack'
- itemValue: showingDenseWalkback:
- hideMenuOnActivated: false
- indication: showingDenseWalkback
- )
- (MenuItem
- enabled: notShowingDenseWalkbackHolder
- label: 'Show Support Code (Implementation of Enumerations, Exceptions etc.)'
- itemValue: showingSupportCode:
- hideMenuOnActivated: false
- indication: showingSupportCode
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Raise Debugger when Entering'
- itemValue: autoRaiseView:
- hideMenuOnActivated: false
- indication: autoRaiseView
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Settings...'
- itemValue: openSettingsDialog
- )
- )
- nil
- nil
+ (
+ (MenuItem
+ enabled: canShowMore
+ label: 'Show More WalkBack'
+ itemValue: showMoreWalkback
+ )
+ (MenuItem
+ enabled: canShowMore
+ label: 'Show Full WalkBack'
+ itemValue: showFullWalkback
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Show Dense WalkBack'
+ itemValue: showingDenseWalkback:
+ hideMenuOnActivated: false
+ indication: showingDenseWalkback
+ )
+ (MenuItem
+ enabled: notShowingDenseWalkbackHolder
+ label: 'Show Support Code (Implementation of Enumerations, Exceptions etc.)'
+ itemValue: showingSupportCode:
+ hideMenuOnActivated: false
+ indication: showingSupportCode
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Raise Debugger when Entering'
+ itemValue: autoRaiseView:
+ hideMenuOnActivated: false
+ indication: autoRaiseView
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Settings...'
+ itemValue: openSettingsDialog
+ )
+ )
+ nil
+ nil
)
! !
@@ -1954,7 +1954,7 @@
verboseBacktraceHolder
verboseBacktraceHolder isNil ifTrue:[
- verboseBacktraceHolder := ValueHolder with:false
+ verboseBacktraceHolder := ValueHolder with:false
].
^ verboseBacktraceHolder
! !
@@ -1966,30 +1966,30 @@
m := contextView middleButtonMenu.
m notNil ifTrue:[
- self updateMenuItems.
-
- (inspecting or:[AbortOperationRequest isHandled]) ifTrue:[
- abortButton enable.
- m enable:#doAbort.
- ] ifFalse:[
- abortButton disable.
- m disable:#doAbort.
- ].
- exclusive ifTrue:[
- terminateButton disable.
- m disable:#doTerminate.
- ] ifFalse:[
- terminateButton enable.
- m enable:#doTerminate.
- ]
+ self updateMenuItems.
+
+ (inspecting or:[AbortOperationRequest isHandled]) ifTrue:[
+ abortButton enable.
+ m enable:#doAbort.
+ ] ifFalse:[
+ abortButton disable.
+ m disable:#doAbort.
+ ].
+ exclusive ifTrue:[
+ terminateButton disable.
+ m disable:#doTerminate.
+ ] ifFalse:[
+ terminateButton enable.
+ m enable:#doTerminate.
+ ]
].
mayProceed == false ifTrue:[
- continueButton disable.
- m notNil ifTrue:[m disable:#doContinue].
+ continueButton disable.
+ m notNil ifTrue:[m disable:#doContinue].
] ifFalse:[
- continueButton enable.
- m notNil ifTrue:[m enable:#doContinue]
+ continueButton enable.
+ m notNil ifTrue:[m enable:#doContinue]
].
"Created: / 16.11.2001 / 17:40:51 / cg"
@@ -2001,8 +2001,8 @@
<context: #return>
^ self
- enter:thisContext sender
- select: nil.
+ enter:thisContext sender
+ select: nil.
"Modified: / 28-08-2012 / 21:13:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
@@ -2394,19 +2394,19 @@
|con|
selectedContext notNil ifTrue:[
- con := selectedContext.
- self cacheMyself.
- "
- have to catch errors occuring in unwind-blocks
- "
- Error handle:[:ex |
- 'DebugView [info]: ignored error while unwinding: ' infoPrint.
- ex description infoPrintCR.
- ex proceed
- ] do:[
- ^ con unwindThenResend.
- ].
- 'DebugView [warning]: cannot resend selected context''s message' errorPrintCR
+ con := selectedContext.
+ self cacheMyself.
+ "
+ have to catch errors occuring in unwind-blocks
+ "
+ Error handle:[:ex |
+ 'DebugView [info]: ignored error while unwinding: ' infoPrint.
+ ex description infoPrintCR.
+ ex proceed
+ ] do:[
+ ^ con unwindThenResend.
+ ].
+ 'DebugView [warning]: cannot resend selected context''s message' errorPrintCR
]
!
@@ -2414,19 +2414,19 @@
|con|
selectedContext notNil ifTrue:[
- con := selectedContext.
- self cacheMyself.
- "
- have to catch errors occuring in unwind-blocks
- "
- Error handle:[:ex |
- 'DebugView [info]: ignored error while unwinding: ' infoPrint.
- ex description infoPrintCR.
- ex proceed
- ] do:[
- con unwindAndRestart.
- ].
- 'DebugView [warning]: cannot restart selected context' errorPrintCR
+ con := selectedContext.
+ self cacheMyself.
+ "
+ have to catch errors occuring in unwind-blocks
+ "
+ Error handle:[:ex |
+ 'DebugView [info]: ignored error while unwinding: ' infoPrint.
+ ex description infoPrintCR.
+ ex proceed
+ ] do:[
+ con unwindAndRestart.
+ ].
+ 'DebugView [warning]: cannot restart selected context' errorPrintCR
]
"Created: / 16-11-2001 / 17:23:17 / cg"
@@ -2439,10 +2439,10 @@
retVal := nil.
selectedContext notNil ifTrue:[
- "
- if there is a selection in the codeView,
- evaluate it and use the result as return value
- "
+ "
+ if there is a selection in the codeView,
+ 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
@@ -2460,19 +2460,19 @@
"/ ].
"/ ].
- con := selectedContext.
- self cacheMyself.
- "
- have to catch errors occuring in unwind-blocks
- "
- Error handle:[:ex |
- 'DebugView [info]: ignored error while unwinding: ' infoPrint.
- ex description infoPrintCR.
- ex proceed
- ] do:[
- con unwind:retVal.
- ].
- 'DebugView [warning]: cannot return from selected context' errorPrintCR
+ con := selectedContext.
+ self cacheMyself.
+ "
+ have to catch errors occuring in unwind-blocks
+ "
+ Error handle:[:ex |
+ 'DebugView [info]: ignored error while unwinding: ' infoPrint.
+ ex description infoPrintCR.
+ ex proceed
+ ] do:[
+ con unwind:retVal.
+ ].
+ 'DebugView [warning]: cannot return from selected context' errorPrintCR
]
"Created: / 16.11.2001 / 17:22:24 / cg"
@@ -2485,12 +2485,12 @@
have to catch errors occuring in unwind-blocks
"
Error handle:[:ex |
- 'DebugView [info]: ignored error while unwinding: ' infoPrint.
- ex description infoPrintCR.
- ex proceed
+ 'DebugView [info]: ignored error while unwinding: ' infoPrint.
+ ex description infoPrintCR.
+ ex proceed
] do:[
- self cacheMyself.
- Processor activeProcess terminate.
+ self cacheMyself.
+ Processor activeProcess terminate.
].
'DebugView [warning]: cannot terminate process' errorPrintCR
@@ -2516,24 +2516,24 @@
con := thisContext sender.
Error handle:[:ex |
- 'DebugView [info]: ignored error while unwinding: ' infoPrint.
- ex description infoPrintCR.
- ex proceed
+ 'DebugView [info]: ignored error while unwinding: ' infoPrint.
+ ex description infoPrintCR.
+ ex proceed
] do:[
- "/ find the enter:select context.
- [(con selector ~~ #enter:select:) or:[con receiver ~~ self]] whileTrue:[
- con := con sender
- ].
-
- "/ must skip over its caller (because this one has a ControlInterrupt handler too)
- con sender receiver == self class ifTrue:[
- con := con sender.
- con sender receiver == self class ifTrue:[
- con := con sender methodHome.
- ].
- ].
-
- con unwindThenDo:aBlock.
+ "/ find the enter:select context.
+ [(con selector ~~ #enter:select:) or:[con receiver ~~ self]] whileTrue:[
+ con := con sender
+ ].
+
+ "/ must skip over its caller (because this one has a ControlInterrupt handler too)
+ con sender receiver == self class ifTrue:[
+ con := con sender.
+ con sender receiver == self class ifTrue:[
+ con := con sender methodHome.
+ ].
+ ].
+
+ con unwindThenDo:aBlock.
].
'DebugView [warning]: abort failed' errorPrintCR
@@ -2738,7 +2738,7 @@
self showSelection:index.
contextView setSelection:index.
index > 1 ifTrue:[
- contextView scrollToLine:(index - 1)
+ contextView scrollToLine:(index - 1)
].
!
@@ -2747,7 +2747,7 @@
selection := self initialSelectionOnEntry:initialSelectionOrNil context:aContext.
selection notNil ifTrue:[
- self selectContextWithIndex:selection
+ self selectContextWithIndex:selection
].
"Created: / 16.11.2001 / 17:28:07 / cg"
@@ -2933,87 +2933,87 @@
|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:[
- s := 'HELP_STOP'
- ] ifFalse:[
- s := 'HELP_CONTINUE'
- ]
+ continueButton label = (resources string:'Stop') ifTrue:[
+ s := 'HELP_STOP'
+ ] ifFalse:[
+ s := 'HELP_CONTINUE'
+ ]
].
aComponent == stepButton ifTrue:[
- s := 'HELP_STEP'
+ s := 'HELP_STEP'
].
aComponent == nextButton ifTrue:[
- s := 'HELP_NEXT'
+ s := 'HELP_NEXT'
].
aComponent == nextOverButton ifTrue:[
- s := 'HELP_NEXTOVER'
+ s := 'HELP_NEXTOVER'
].
aComponent == nextOutButton ifTrue:[
- s := 'HELP_NEXTOUT'
+ s := 'HELP_NEXTOUT'
].
aComponent == stepButton ifTrue:[
- s := 'HELP_STEP'
+ s := 'HELP_STEP'
].
aComponent == sendButton ifTrue:[
- s := 'HELP_SEND'
+ s := 'HELP_SEND'
].
aComponent == returnButton ifTrue:[
- returnButton enabled ifTrue:[
- s := 'HELP_RETURN'
- ] ifFalse:[
- s := 'HELP_RETURN_DISABLED'
- ].
+ returnButton enabled ifTrue:[
+ s := 'HELP_RETURN'
+ ] ifFalse:[
+ s := 'HELP_RETURN_DISABLED'
+ ].
].
aComponent == restartButton ifTrue:[
- restartButton enabled ifTrue:[
- s := 'HELP_RESTART'
- ] ifFalse:[
- s := 'HELP_RESTART_DISABLED'
- ].
+ restartButton enabled ifTrue:[
+ s := 'HELP_RESTART'
+ ] ifFalse:[
+ s := 'HELP_RESTART_DISABLED'
+ ].
].
aComponent == resendButton ifTrue:[
- resendButton enabled ifTrue:[
- s := 'HELP_RESEND'
- ] ifFalse:[
- s := 'HELP_RESEND_DISABLED'
- ].
+ resendButton enabled ifTrue:[
+ s := 'HELP_RESEND'
+ ] ifFalse:[
+ s := 'HELP_RESEND_DISABLED'
+ ].
].
aComponent == contextView ifTrue:[
- s := 'HELP_WALKBACK'
+ s := 'HELP_WALKBACK'
].
aComponent == codeView ifTrue:[
- s := 'HELP_CODEVIEW'
+ s := 'HELP_CODEVIEW'
].
aComponent == monitorToggle ifTrue:[
- s := 'HELP_MONITOR'
+ s := 'HELP_MONITOR'
].
aComponent == updateButton ifTrue:[
- s := 'HELP_UPDATE'
+ s := 'HELP_UPDATE'
].
aComponent == gotoDialogOpenerButton ifTrue:[
- s := 'HELP_GOTO_DIALOG_OPENER'
+ s := 'HELP_GOTO_DIALOG_OPENER'
].
aComponent == gotoApplicationActionMethodButton ifTrue:[
- s := 'HELP_GOTO_APPLICATION_ACTION'
+ s := 'HELP_GOTO_APPLICATION_ACTION'
].
"/ aComponent == stopButton ifTrue:[
"/ s := 'HELP_STOP'
"/ ].
(aComponent isComponentOf:receiverInspector) ifTrue:[
- s := 'HELP_REC_INSP'
+ s := 'HELP_REC_INSP'
].
(aComponent isComponentOf:contextInspector) ifTrue:[
- s := 'HELP_CON_INSP'
+ s := 'HELP_CON_INSP'
].
s notNil ifTrue:[
- ^ resources stringWithCRs:s
+ ^ resources stringWithCRs:s
].
^ nil
@@ -3421,7 +3421,7 @@
self initializeDefineButtonIn:bpanel.
(UserPreferences current allowSendMailFromDebugger and:[SendMailTool notNil]) ifTrue:[
- self initializeReportButtonIn:bpanel.
+ self initializeReportButtonIn:bpanel.
].
@@ -3433,62 +3433,62 @@
|scrollableCodeView|
(UserPreferences current useCodeView2In: #Debugger) ifTrue:[
- scrollableCodeView := codeView := Tools::CodeView2 new.
- codeView model: ValueHolder new.
- codeView methodHolder: ValueHolder new.
- codeView classHolder: ValueHolder new.
+ scrollableCodeView := codeView := Tools::CodeView2 new.
+ codeView model: ValueHolder new.
+ codeView methodHolder: ValueHolder new.
+ codeView classHolder: ValueHolder new.
] ifFalse:[
- scrollableCodeView := HVScrollableView
- for:CodeView
- miniScrollerH:true
- miniScrollerV:false
- in:panel.
-
- codeView := scrollableCodeView scrolledView.
- codeView enableMotionEvents. "/ for active help
+ scrollableCodeView := HVScrollableView
+ for:CodeView
+ miniScrollerH:true
+ miniScrollerV:false
+ in:panel.
+
+ codeView := scrollableCodeView scrolledView.
+ codeView enableMotionEvents. "/ for active help
].
(UserPreferences current showAcceptCancelBarInBrowser
- and:[codeView isCodeView2 not or:[UserPreferences current codeView2ShowAcceptCancel not]]) ifTrue:[
- ViewWithAcceptAndCancelBar notNil ifTrue:[
- |v|
-
- v := ViewWithAcceptAndCancelBar new.
- v slaveView:scrollableCodeView.
- v reallyModifiedHolder:(codeView isCodeView2
- ifTrue:[ codeView reallyModifiedChannel ]
- ifFalse:[
- BlockValue
- with:[:m |
- |same|
-
- same := (codeView contentsAsString string = currentMethod source string).
- codeView modifiedChannel setValue:false. "/ so it triggers again
- same not.
- ]
- argument:codeView modifiedChannel
- ]).
- v cancelAction:
- [
- "/ codeView setClipboardText:(codeView contents). "/ for undo
- codeView device rememberInCopyBufferHistory:(codeView contents). "/ for undo
- codeView contents:(currentMethod source).
- codeView modifiedChannel setValue:false; changed. "/ trigger
- codeView requestFocus.
- ].
- v compareAction:
- [
- v := DiffCodeView
- openOn:codeView contentsAsString
- label:(resources string:'Changed definition (to be accepted ?)')
- and:currentMethod source
- label:(resources string:'Method''s Original Code').
- v label:(resources string:'Changed Code in Debugger').
- v waitUntilVisible.
- "/ codeView requestFocus
- ].
- scrollableCodeView := v.
- ]
+ and:[codeView isCodeView2 not or:[UserPreferences current codeView2ShowAcceptCancel not]]) ifTrue:[
+ ViewWithAcceptAndCancelBar notNil ifTrue:[
+ |v|
+
+ v := ViewWithAcceptAndCancelBar new.
+ v slaveView:scrollableCodeView.
+ v reallyModifiedHolder:(codeView isCodeView2
+ ifTrue:[ codeView reallyModifiedChannel ]
+ ifFalse:[
+ BlockValue
+ with:[:m |
+ |same|
+
+ same := (codeView contentsAsString string = currentMethod source string).
+ codeView modifiedChannel setValue:false. "/ so it triggers again
+ same not.
+ ]
+ argument:codeView modifiedChannel
+ ]).
+ v cancelAction:
+ [
+ "/ codeView setClipboardText:(codeView contents). "/ for undo
+ codeView device rememberInCopyBufferHistory:(codeView contents). "/ for undo
+ codeView contents:(currentMethod source).
+ codeView modifiedChannel setValue:false; changed. "/ trigger
+ codeView requestFocus.
+ ].
+ v compareAction:
+ [
+ v := DiffCodeView
+ openOn:codeView contentsAsString
+ label:(resources string:'Changed definition (to be accepted ?)')
+ and:currentMethod source
+ label:(resources string:'Method''s Original Code').
+ v label:(resources string:'Changed Code in Debugger').
+ v waitUntilVisible.
+ "/ codeView requestFocus
+ ].
+ scrollableCodeView := v.
+ ]
].
panel add:scrollableCodeView.
@@ -3501,10 +3501,10 @@
|v|
v := HVScrollableView
- for:SelectionInListView
- miniScrollerH:true
- miniScrollerV:false
- in:panel.
+ for:SelectionInListView
+ miniScrollerH:true
+ miniScrollerV:false
+ in:panel.
v autoHideHorizontalScrollBar:true.
contextView := v scrolledView.
@@ -3594,13 +3594,13 @@
hpanel := VariableHorizontalPanel in:panel.
receiverInspector := InspectorView
- origin:(0.0 @ 0.0) corner:(0.5 @ 1.0)
- in:hpanel.
+ origin:(0.0 @ 0.0) corner:(0.5 @ 1.0)
+ in:hpanel.
receiverInspector fieldListLabel:'Receiver'.
contextInspector := ContextInspectorView
- origin:(0.5 @ 0.0) corner:(1.0 @ 1.0)
- in:hpanel.
+ origin:(0.5 @ 0.0) corner:(1.0 @ 1.0)
+ in:hpanel.
contextInspector fieldListLabel:'Context'.
^ hpanel
@@ -3725,14 +3725,14 @@
super postRealize.
inspecting ifTrue:[
- inspectedProcess notNil ifTrue:[
- "
- set prio somewhat higher (by 2, to allow walkBack-update process
- to run between mine and the debugged processes prio)
- "
- Processor activeProcess
- priority:(((inspectedProcess priority + 2) min:(Processor highIOPriority)) max:(Processor userSchedulingPriority+1)).
- ]
+ inspectedProcess notNil ifTrue:[
+ "
+ set prio somewhat higher (by 2, to allow walkBack-update process
+ to run between mine and the debugged processes prio)
+ "
+ Processor activeProcess
+ priority:(((inspectedProcess priority + 2) min:(Processor highIOPriority)) max:(Processor userSchedulingPriority+1)).
+ ]
].
self sensor addEventListener:self.
@@ -3745,7 +3745,7 @@
"/ the debuggee, there would be no event loop for me.
self drawableId notNil ifTrue:[
- ^ self
+ ^ self
].
"physically create the view & subviews"
self recreate.
@@ -3767,7 +3767,7 @@
inspectedProcess := nil.
contextArray := nil.
((exitAction == #restart) or:[exitAction == #return or:[exitAction == #resend]]) ifFalse:[
- selectedContext := nil.
+ selectedContext := nil.
].
actualContext := firstContext := nil.
steppedContext := wrapperContext := nil.
@@ -3829,8 +3829,8 @@
contextInterrupt
DebuggingDebugger == true ifTrue:[
- 'contextIRQ' printCR.
- thisContext methodHome sender fullPrint.
+ 'contextIRQ' printCR.
+ thisContext methodHome sender fullPrint.
].
self stepOrNext
@@ -3839,9 +3839,9 @@
stepInterrupt
DebuggingDebugger == true ifTrue:[
- 'stepIRQ' print.
- "/ ' in ' print. thisContext sender fullPrint.
- '' printCR.
+ 'stepIRQ' print.
+ "/ ' in ' print. thisContext sender fullPrint.
+ '' printCR.
].
Processor yield.
self stepOrNext
@@ -4534,7 +4534,7 @@
cls := selectedContext receiver class.
sel := selectedContext selector.
(cls includesSelector:sel) ifFalse:[
- sel := nil
+ sel := nil
].
Tools::NewSystemBrowser addToBookMarks:cls selector:sel
!
@@ -4555,9 +4555,9 @@
"stop the update process"
updateProcess notNil ifTrue:[
- monitorToggle lampColor:(Color yellow).
- updateProcess terminate.
- updateProcess := nil
+ monitorToggle lampColor:(Color yellow).
+ updateProcess terminate.
+ updateProcess := nil
]
!
@@ -4565,25 +4565,25 @@
"fork a subprocess which updates the contextList in regular intervals"
updateProcess isNil ifTrue:[
- updateProcess :=
- [
- [true] whileTrue:[
- monitorToggle showLamp ifTrue:[
- monitorToggle lampColor:(Color yellow).
- ] ifFalse:[
- monitorToggle activeForegroundColor:Color black.
- ].
- (Delay forSeconds:0.25) wait.
- self updateContext.
- monitorToggle showLamp ifTrue:[
- monitorToggle lampColor:(Color red).
- ] ifFalse:[
- monitorToggle activeForegroundColor:Color red.
- ].
- (Delay forSeconds:0.25) wait.
- self updateContext.
- ]
- ] forkAt:(Processor activePriority - 1)
+ updateProcess :=
+ [
+ [true] whileTrue:[
+ monitorToggle showLamp ifTrue:[
+ monitorToggle lampColor:(Color yellow).
+ ] ifFalse:[
+ monitorToggle activeForegroundColor:Color black.
+ ].
+ (Delay forSeconds:0.25) wait.
+ self updateContext.
+ monitorToggle showLamp ifTrue:[
+ monitorToggle lampColor:(Color red).
+ ] ifFalse:[
+ monitorToggle activeForegroundColor:Color red.
+ ].
+ (Delay forSeconds:0.25) wait.
+ self updateContext.
+ ]
+ ] forkAt:(Processor activePriority - 1)
]
!
@@ -4633,7 +4633,7 @@
cls := selectedContext receiver class.
sel := selectedContext selector.
(cls includesSelector:sel) ifFalse:[
- sel := nil
+ sel := nil
].
cls browserClass openInClass:cls selector:sel.
@@ -4692,26 +4692,26 @@
mthd := con method.
mthd notNil ifTrue:[
- who := mthd who.
- who notNil ifTrue:[
- cls := who methodClass.
- sel := who methodSelector.
- ] ifFalse:[
- "might have been re-accepted"
- (home := con methodHome) notNil ifTrue:[
- (sel := home selector) notNil ifTrue:[
- cls := home receiver class
- whichClassImplements:selectedContext selector.
- cls notNil ifTrue:[
- Dialog information:'Method has been changed/moved in the meanwhile.\Browser will show the most recent (current) version.' withCRs.
- ].
- ]
- ].
- ].
+ who := mthd who.
+ who notNil ifTrue:[
+ cls := who methodClass.
+ sel := who methodSelector.
+ ] ifFalse:[
+ "might have been re-accepted"
+ (home := con methodHome) notNil ifTrue:[
+ (sel := home selector) notNil ifTrue:[
+ cls := home receiver class
+ whichClassImplements:selectedContext selector.
+ cls notNil ifTrue:[
+ Dialog information:'Method has been changed/moved in the meanwhile.\Browser will show the most recent (current) version.' withCRs.
+ ].
+ ]
+ ].
+ ].
].
cls isNil ifTrue:[
- "/ class not found - try receiver
- cls := con receiver class
+ "/ class not found - try receiver
+ cls := con receiver class
].
cls browserClass openInClass:cls selector:sel.
@@ -4724,12 +4724,12 @@
"open a browser on the implementors of the selected method's selector"
selectedContext isNil ifTrue:[
- ^ self showError:'** select a context first **'
+ ^ self showError:'** select a context first **'
].
"/ selectedContext receiver class browserClass
self withWaitCursorDo:[
- UserPreferences systemBrowserClass
- browseImplementorsOf:selectedContext selector.
+ UserPreferences systemBrowserClass
+ browseImplementorsOf:selectedContext selector.
]
"Modified: / 19-07-2012 / 11:44:03 / cg"
@@ -4741,22 +4741,22 @@
|initial selector sel|
(sel := codeView selection) notNil ifTrue:[
- initial := SystemBrowser extractSelectorFrom:sel
+ initial := SystemBrowser extractSelectorFrom:sel
].
initial isNil ifTrue:[
- initial := selectedContext isNil
- ifTrue:[nil]
- ifFalse:[selectedContext selector].
+ initial := selectedContext isNil
+ ifTrue:[nil]
+ ifFalse:[selectedContext selector].
].
selector := Dialog
- requestSelector:'Selector to browse implementors of:'
- initialAnswer:initial.
+ requestSelector:'Selector to browse implementors of:'
+ initialAnswer:initial.
selector notEmptyOrNil ifTrue:[
- self withWaitCursorDo:[
- UserPreferences systemBrowserClass
- browseImplementorsMatching:selector.
- ]
+ self withWaitCursorDo:[
+ UserPreferences systemBrowserClass
+ browseImplementorsMatching:selector.
+ ]
]
"Modified: / 19-07-2012 / 11:43:52 / cg"
@@ -4781,14 +4781,14 @@
selectedContext isNil ifTrue:[^ self].
selectedContext isCheapBlockContext ifTrue:[
- cls := selectedContext method mclass.
- sel := selectedContext method selector.
+ cls := selectedContext method mclass.
+ sel := selectedContext method selector.
] ifFalse:[
- cls := selectedContext receiver class.
- sel := selectedContext selector.
+ cls := selectedContext receiver class.
+ sel := selectedContext selector.
].
(cls includesSelector:sel) ifFalse:[
- sel := nil
+ sel := nil
].
cls browserClass openInClass:cls selector:sel.
@@ -4799,11 +4799,11 @@
"open a browser on the senders of the selected method's selector"
selectedContext isNil ifTrue:[
- ^ self showError:'** select a context first **'
+ ^ self showError:'** select a context first **'
].
self withWaitCursorDo:[
- UserPreferences systemBrowserClass
- browseAllCallsOn:selectedContext selector.
+ UserPreferences systemBrowserClass
+ browseAllCallsOn:selectedContext selector.
]
"Modified: / 19-07-2012 / 11:43:02 / cg"
@@ -4815,22 +4815,22 @@
|initial selector sel|
(sel := codeView selection) notNil ifTrue:[
- initial := SystemBrowser extractSelectorFrom:sel
+ initial := SystemBrowser extractSelectorFrom:sel
].
initial isNil ifTrue:[
- initial := selectedContext isNil
- ifTrue:[nil]
- ifFalse:[selectedContext selector].
+ initial := selectedContext isNil
+ ifTrue:[nil]
+ ifFalse:[selectedContext selector].
].
selector := Dialog
- requestSelector:'Selector to browse senders of:'
- initialAnswer:initial.
+ requestSelector:'Selector to browse senders of:'
+ initialAnswer:initial.
selector notEmptyOrNil ifTrue:[
- self withWaitCursorDo:[
- UserPreferences systemBrowserClass
- browseAllCallsOn:selector asSymbol.
- ]
+ self withWaitCursorDo:[
+ UserPreferences systemBrowserClass
+ browseAllCallsOn:selector asSymbol.
+ ]
]
"Modified: / 19-07-2012 / 11:43:29 / cg"
@@ -4847,15 +4847,15 @@
closeAllDebuggers
(Dialog confirm:'Close all Debuggers (without confirmation if code was changed)?')
ifFalse:[
- ^ self
+ ^ self
].
self class allInstancesDo:[:debugger |
- debugger ~~ self ifTrue:[
- debugger busy ifTrue:[
- debugger destroyWithConfirmation:true.
- ].
- ].
+ debugger ~~ self ifTrue:[
+ debugger busy ifTrue:[
+ debugger destroyWithConfirmation:true.
+ ].
+ ].
].
self closeRequest.
@@ -4879,14 +4879,14 @@
|infoText|
firstContext isNil ifTrue:[
- infoText := 'No context, no walkback'.
+ infoText := 'No context, no walkback'.
] ifFalse:[
- exceptionInfoLabel notNil ifTrue:[
- infoText := exceptionInfoLabel label , '\\' withCRs.
- ] ifFalse:[
- infoText := ''
- ].
- infoText := infoText asStringCollection, firstContext fullPrintAllString asStringCollection.
+ exceptionInfoLabel notNil ifTrue:[
+ infoText := exceptionInfoLabel label , '\\' withCRs.
+ ] ifFalse:[
+ infoText := ''
+ ].
+ infoText := infoText asStringCollection, firstContext fullPrintAllString asStringCollection.
].
self setClipboardText:infoText
@@ -4989,21 +4989,21 @@
oldPrio := (inspectedProcess ? Processor activeProcess) priority.
[
- s := Dialog
- request:(resources stringWithCRs:'Change the processes priority to (proceed with prio):\\ 2 - system background\ 4 - user background\ 8 - normal\ 9 - high\ 16 - I/O (danger alert)\')
- initialAnswer:oldPrio printString.
- s isEmptyOrNil ifTrue:[^ self].
- newPrio := Integer readFrom:s onError:nil.
- newPrio isNil
+ s := Dialog
+ request:(resources stringWithCRs:'Change the processes priority to (proceed with prio):\\ 2 - system background\ 4 - user background\ 8 - normal\ 9 - high\ 16 - I/O (danger alert)\')
+ initialAnswer:oldPrio printString.
+ s isEmptyOrNil ifTrue:[^ self].
+ newPrio := Integer readFrom:s onError:nil.
+ newPrio isNil
] whileTrue.
newPrio := newPrio max:(Processor lowestPriority).
newPrio := newPrio min:(Processor highestPriority).
newPrio >= Processor highIOPriority ifTrue:[
- (Dialog
- confirm:(resources
- stringWithCRs:'Attention: event handling takes place at prio 16.\An ever running high priority process\could block the system and make the UI unusable.\\Proceed?'))
- ifFalse:[^ self].
+ (Dialog
+ confirm:(resources
+ stringWithCRs:'Attention: event handling takes place at prio 16.\An ever running high priority process\could block the system and make the UI unusable.\\Proceed?'))
+ ifFalse:[^ self].
].
(inspectedProcess ? Processor activeProcess) priority:newPrio.
@@ -5085,43 +5085,43 @@
restart := true.
selectorToDefine notNil ifTrue:[
- selector := selectorToDefine.
- receiversClass := classToDefineIn.
+ selector := selectorToDefine.
+ receiversClass := classToDefineIn.
] ifFalse:[
- selector := actualContext selector.
- receiversClass := actualContext receiver class.
+ selector := actualContext selector.
+ receiversClass := actualContext receiver class.
].
implClass := actualContext receiver class whichClassIncludesSelector:selector.
implClass notNil ifTrue:[
- "/ must be a subclassResponsibility
-
- idx := contextArray identityIndexOf:actualContext.
- idx > 1 ifTrue:[
- callee := contextArray at:idx-1.
-
- callee selector == #subclassResponsibility ifTrue:[
- restart := false.
- ]
- ].
+ "/ must be a subclassResponsibility
+
+ idx := contextArray identityIndexOf:actualContext.
+ idx > 1 ifTrue:[
+ callee := contextArray at:idx-1.
+
+ callee selector == #subclassResponsibility ifTrue:[
+ restart := false.
+ ]
+ ].
].
"generate nice argument names"
bagOfClassNames := (actualContext args collect:[:eachArg | eachArg class name]) asBag.
bagOfUsedClassNames := Bag new.
argNames := actualContext args
- collect:
- [:eachArg |
- |nm|
-
- nm := eachArg class nameWithoutPrefix.
- (bagOfClassNames occurrencesOf:nm) == 1 ifTrue:[
- nm article , nm
- ] ifFalse:[
- bagOfUsedClassNames add:nm.
- nm asLowercaseFirst , (bagOfUsedClassNames occurrencesOf:nm) printString
- ].
- ].
+ collect:
+ [:eachArg |
+ |nm|
+
+ nm := eachArg class nameWithoutPrefix.
+ (bagOfClassNames occurrencesOf:nm) == 1 ifTrue:[
+ nm article , nm
+ ] ifFalse:[
+ bagOfUsedClassNames add:nm.
+ nm asLowercaseFirst , (bagOfUsedClassNames occurrencesOf:nm) printString
+ ].
+ ].
proto := Method methodDefinitionTemplateForSelector:selector andArgumentNames:argNames.
@@ -5130,17 +5130,17 @@
( { UndefinedObject . True . False } includes:receiversClass ) ifTrue:[
- (self confirm:'Are you sure you want to add this method (to ',receiversClass name,') ?')
- ifFalse:[
- ^ self
- ]
+ (self confirm:'Are you sure you want to add this method (to ',receiversClass name,') ?')
+ ifFalse:[
+ ^ self
+ ]
].
"/ code for a getter
(receiversClass instVarNames includes:selector) ifTrue:[
- code := '%1\' , haltStmtFix , '\ ^ %2'.
- cat := 'accessing'.
+ code := '%1\' , haltStmtFix , '\ ^ %2'.
+ cat := 'accessing'.
].
"/ code for a setter
@@ -5148,10 +5148,10 @@
and:[(selector endsWith:':')
and:[receiversClass instVarNames includes:(selector copyButLast:1)]])
ifTrue:[
- varName := selector copyButLast:1.
- argName := argNames first.
- code := '%1\' , haltStmtFix , '\ %3 := %4.'.
- cat := 'accessing'.
+ varName := selector copyButLast:1.
+ argName := argNames first.
+ code := '%1\' , haltStmtFix , '\ %3 := %4.'.
+ cat := 'accessing'.
].
"/ code for a tester
@@ -5159,12 +5159,12 @@
and:[(selector startsWith:'is')
and:[(Smalltalk classNamed:(selector copyFrom:3)) notNil ]])
ifTrue:[
- (receiversClass nameWithoutPrefix = (selector copyFrom:3)) ifTrue:[
- code := '%1\' , haltStmtFix , '\ ^ true.'.
- ] ifFalse:[
- code := '%1\' , haltStmtFix , '\ ^ false.'.
- ].
- cat := 'testing'.
+ (receiversClass nameWithoutPrefix = (selector copyFrom:3)) ifTrue:[
+ code := '%1\' , haltStmtFix , '\ ^ true.'.
+ ] ifFalse:[
+ code := '%1\' , haltStmtFix , '\ ^ false.'.
+ ].
+ cat := 'testing'.
].
"/ actualContext receiver isClass ifTrue:[
@@ -5176,19 +5176,19 @@
"/ ].
"/ ].
code isNil ifTrue:[
- code := '%1\' , haltStmtDef
+ code := '%1\' , haltStmtDef
].
self
- codeAccept:(code bindWith:proto with:selector with:varName with:argName) withCRs
- inClass:receiversClass
- unwind:false
- category:cat
- onCancel:[^ self].
+ codeAccept:(code bindWith:proto with:selector with:varName with:argName) withCRs
+ inClass:receiversClass
+ unwind:false
+ category:cat
+ onCancel:[^ self].
self doShowSelection:selectionIndex.
restart ifTrue:[
- self doRestart
+ self doRestart
]
"Modified: / 23-03-2012 / 09:49:31 / cg"
@@ -5200,21 +5200,21 @@
to quickly navigate to the responsible code of you application"
contextArray keysAndValuesDo:[:i :c |
- |nextCon nextRcvr dialog|
-
- "/ find the first appModel context
- nextCon := contextArray at:i+1.
- "/
- "/ while not in the appModel
- "/
- [
- nextRcvr := nextCon receiver.
- (nextRcvr isKindOf:ApplicationModel)
- ] whileFalse:[
- nextCon := nextCon sender
- ].
- self selectContext:nextCon.
- ^ self.
+ |nextCon nextRcvr dialog|
+
+ "/ find the first appModel context
+ nextCon := contextArray at:i+1.
+ "/
+ "/ while not in the appModel
+ "/
+ [
+ nextRcvr := nextCon receiver.
+ (nextRcvr isKindOf:ApplicationModel)
+ ] whileFalse:[
+ nextCon := nextCon sender
+ ].
+ self selectContext:nextCon.
+ ^ self.
].
"/ not found
gotoApplicationActionMethodButton disable.
@@ -5226,66 +5226,66 @@
is open, to quickly navigate to the corresponding opening code of you application"
contextArray keysAndValuesDo:[:i :c |
- |nextCon nextRcvr dialog|
-
- "/ find the openModal, then walk upward
- ((c selector == #openModal) or:[c selector == #openModal:]) ifTrue:[
- dialog := c receiver.
- nextCon := contextArray at:i+1.
- "/
- "/ while still in dialog code
- "/
- [
- nextRcvr := nextCon receiver.
- (nextRcvr == dialog)
- or:[ nextRcvr == dialog class
- or:[ nextRcvr == DialogBox ]]
- ] whileTrue:[
- (nextCon isBlockContext and:[ nextCon methodHome notNil]) ifTrue:[
- nextCon := nextCon methodHome
- ].
- nextCon := nextCon sender.
- ].
- "/
- "/ while still in a Notification
- "/
- [
- nextRcvr := nextCon receiver.
- (nextRcvr isKindOf:UserInformation)
- or:[ nextRcvr isBehavior
- and:[nextRcvr includesBehavior:UserInformation]]
- ] whileTrue:[
- nextCon := nextCon sender
- ].
- "/
- "/ while still in UIBuilder
- "/
- [
- nextRcvr := nextCon receiver.
- (nextRcvr isKindOf:WindowBuilder)
- ] whileTrue:[
- nextCon := nextCon sender
- ].
- "/
- "/ while still in SimpleDialog
- "/
- [
- nextRcvr := nextCon receiver.
- (nextRcvr class == SimpleDialog)
- ] whileTrue:[
- nextCon := nextCon sender
- ].
- "/
- "/ while still in applicationModel support code
- "/
- [
- (nextCon selector startsWith:'openDialogSpec').
- ] whileTrue:[
- nextCon := nextCon sender
- ].
- self selectContext:nextCon.
- ^ self.
- ]
+ |nextCon nextRcvr dialog|
+
+ "/ find the openModal, then walk upward
+ ((c selector == #openModal) or:[c selector == #openModal:]) ifTrue:[
+ dialog := c receiver.
+ nextCon := contextArray at:i+1.
+ "/
+ "/ while still in dialog code
+ "/
+ [
+ nextRcvr := nextCon receiver.
+ (nextRcvr == dialog)
+ or:[ nextRcvr == dialog class
+ or:[ nextRcvr == DialogBox ]]
+ ] whileTrue:[
+ (nextCon isBlockContext and:[ nextCon methodHome notNil]) ifTrue:[
+ nextCon := nextCon methodHome
+ ].
+ nextCon := nextCon sender.
+ ].
+ "/
+ "/ while still in a Notification
+ "/
+ [
+ nextRcvr := nextCon receiver.
+ (nextRcvr isKindOf:UserInformation)
+ or:[ nextRcvr isBehavior
+ and:[nextRcvr includesBehavior:UserInformation]]
+ ] whileTrue:[
+ nextCon := nextCon sender
+ ].
+ "/
+ "/ while still in UIBuilder
+ "/
+ [
+ nextRcvr := nextCon receiver.
+ (nextRcvr isKindOf:WindowBuilder)
+ ] whileTrue:[
+ nextCon := nextCon sender
+ ].
+ "/
+ "/ while still in SimpleDialog
+ "/
+ [
+ nextRcvr := nextCon receiver.
+ (nextRcvr class == SimpleDialog)
+ ] whileTrue:[
+ nextCon := nextCon sender
+ ].
+ "/
+ "/ while still in applicationModel support code
+ "/
+ [
+ (nextCon selector startsWith:'openDialogSpec').
+ ] whileTrue:[
+ nextCon := nextCon sender
+ ].
+ self selectContext:nextCon.
+ ^ self.
+ ]
].
"/ not found
gotoDialogOpenerButton disable.
@@ -5356,8 +5356,8 @@
doNoTrace
traceView notNil ifTrue:[
- traceView topView destroy.
- traceView := nil.
+ traceView topView destroy.
+ traceView := nil.
].
tracing := false
!
@@ -5370,9 +5370,9 @@
str := '' writeStream.
str nextPutLine:('Error notification from '
- , OperatingSystem getLoginName
- , '@'
- , OperatingSystem getHostName).
+ , OperatingSystem getLoginName
+ , '@'
+ , OperatingSystem getHostName).
str cr.
str nextPutLine:('Time: ' , Timestamp now printString).
@@ -5385,16 +5385,16 @@
str cr.
firstContext notNil ifTrue:[
- firstContext fullPrintAllOn:str.
+ firstContext fullPrintAllOn:str.
].
str cr;cr.
SendMailTool
- openForMessage:(str contents)
- withSubject:('STX Error:[', self label, ']')
- preOpenBlock:[:inst|
- inst recipientEntryField value:'error@exept.de'
- ].
+ openForMessage:(str contents)
+ withSubject:('STX Error:[', self label, ']')
+ preOpenBlock:[:inst|
+ inst recipientEntryField value:'error@exept.de'
+ ].
"Modified: / 20-09-2007 / 12:40:40 / cg"
!
@@ -5674,8 +5674,8 @@
"tracestep - not implemented yet"
canContinue ifTrue:[
- tracing := true.
- self doStep
+ tracing := true.
+ self doStep
]
!
@@ -5693,13 +5693,13 @@
con := con sender.
[con notNil] whileTrue:[
- (aBlock value:con) ifTrue:[
- (self selectContext:con) ifTrue:[
- additionalAction value:con.
- ^ self.
- ]
- ].
- con := con sender.
+ (aBlock value:con) ifTrue:[
+ (self selectContext:con) ifTrue:[
+ additionalAction value:con.
+ ^ self.
+ ]
+ ].
+ con := con sender.
].
Dialog information:'None found'.
@@ -5712,14 +5712,14 @@
stringToSearch isEmptyOrNil ifTrue:[^ self].
self
- findContextForWhich:[:con |
- con method notNil
- and:[ (source := con method source) notNil
- and:[ (source includesString:stringToSearch) ]]
- ]
- thenDo:[:con |
- codeView searchFwd:stringToSearch.
- ]
+ findContextForWhich:[:con |
+ con method notNil
+ and:[ (source := con method source) notNil
+ and:[ (source includesString:stringToSearch) ]]
+ ]
+ thenDo:[:con |
+ codeView searchFwd:stringToSearch.
+ ]
!
findContextWithValueInVariable
@@ -5729,72 +5729,72 @@
valueStringToSearch isEmptyOrNil ifTrue:[^ self].
self
- findContextForWhich:[:con |
- con argsAndVars contains:[:val | val printString asLowercase includesString: valueStringToSearch asLowercase]
- ]
- thenDo:[:con | ]
+ findContextForWhich:[:con |
+ con argsAndVars contains:[:val | val printString asLowercase includesString: valueStringToSearch asLowercase]
+ ]
+ thenDo:[:con | ]
!
findHandlerFor
|exClass con|
(con := self selectedContext) isNil ifTrue:[
- con := contextArray at:1
+ con := contextArray at:1
].
con sender isNil ifTrue:[
- self information:'Context has already returned'.
- ^ self
+ self information:'Context has already returned'.
+ ^ self
].
exClass := Dialog
- choose:'Exception class:'
- fromList:(GenericException withAllSubclasses copyAsOrderedCollection sort:[:a :b | a name < b name])
- lines:25
- title:'Choose Exception class'.
+ choose:'Exception class:'
+ fromList:(GenericException withAllSubclasses copyAsOrderedCollection sort:[:a :b | a name < b name])
+ lines:25
+ title:'Choose Exception class'.
exClass isNil ifTrue:[^ self].
self
- findContextForWhich:[:con |
- con isHandleContext
- and:[ (con receiver handlerForSignal:exClass context:con originator:nil) notNil ]
- ]
- thenDo:[:con |
- self selectContext:con sender.
- ]
+ findContextForWhich:[:con |
+ con isHandleContext
+ and:[ (con receiver handlerForSignal:exClass context:con originator:nil) notNil ]
+ ]
+ thenDo:[:con |
+ self selectContext:con sender.
+ ]
!
findHomeContext
|con home|
(con := self selectedContext) isNil ifTrue:[
- self beep.
- ^ self.
+ self beep.
+ ^ self.
].
(home := con home) isNil ifTrue:[
- self beep.
- ^ self.
+ self beep.
+ ^ self.
].
"/ still have to find it - home could be elsewhere (another process)
"/ (i.e. cannot simply select it)
self
- findContextForWhich:[:con |
- con == home
- ]
- thenDo:[:con |
- self selectContext:con.
- ]
+ findContextForWhich:[:con |
+ con == home
+ ]
+ thenDo:[:con |
+ self selectContext:con.
+ ]
!
findNextExceptionHandlerContext
self
- findContextForWhich:[:con |
- con isHandleContext
- ]
- thenDo:[:con |
- self selectContext:con sender.
- ]
+ findContextForWhich:[:con |
+ con isHandleContext
+ ]
+ thenDo:[:con |
+ self selectContext:con sender.
+ ]
!
inspectContext
@@ -5803,7 +5803,7 @@
|con|
(con := self selectedContext) notNil ifTrue:[
- con inspect.
+ con inspect.
]
"Modified: / 17-07-2012 / 12:52:34 / cg"
@@ -5815,7 +5815,7 @@
|con|
(con := self selectedContext) notNil ifTrue:[
- con method inspect.
+ con method inspect.
]
!
@@ -5979,16 +5979,16 @@
|settingsList|
settingsList :=
- #(
- #('Debugger' #'AbstractSettingsApplication::DebuggerSettingsAppl' )
- #('Editor' #'AbstractSettingsApplication::EditSettingsAppl' )
- #('Syntax Color' #'AbstractSettingsApplication::SyntaxColorSettingsAppl' )
- #('Code Format' #'AbstractSettingsApplication::SourceCodeFormatSettingsAppl' )
- ).
+ #(
+ #('Debugger' #'AbstractSettingsApplication::DebuggerSettingsAppl' )
+ #('Editor' #'AbstractSettingsApplication::EditSettingsAppl' )
+ #('Syntax Color' #'AbstractSettingsApplication::SyntaxColorSettingsAppl' )
+ #('Code Format' #'AbstractSettingsApplication::SourceCodeFormatSettingsAppl' )
+ ).
SettingsDialog
- openWithList:settingsList
- label:(resources string:'Debugger Settings').
+ openWithList:settingsList
+ label:(resources string:'Debugger Settings').
!
processesApplication
@@ -6000,23 +6000,23 @@
p := inspectedProcess ? Processor activeProcess.
(p notNil and:[p isGUIProcess]) ifTrue:[
- wgs := WindowGroup scheduledWindowGroups select:[:wg | wg process == p].
- nonModalWGs := wgs reject:[:wg | wg isModal].
- nonModalWGs notEmpty ifTrue:[^ nonModalWGs first application].
-
- wgs do:[:wg |
- |wgi|
-
- wgi := wg.
- [wgi notNil] whileTrue:[
- (app := wgi application) notNil ifTrue:[^ app].
- wgi isModal ifTrue:[
- wgi := wgi previousGroup
- ] ifFalse:[
- wgi := nil.
- ]
- ]
- ]
+ wgs := WindowGroup scheduledWindowGroups select:[:wg | wg process == p].
+ nonModalWGs := wgs reject:[:wg | wg isModal].
+ nonModalWGs notEmpty ifTrue:[^ nonModalWGs first application].
+
+ wgs do:[:wg |
+ |wgi|
+
+ wgi := wg.
+ [wgi notNil] whileTrue:[
+ (app := wgi application) notNil ifTrue:[^ app].
+ wgi isModal ifTrue:[
+ wgi := wgi previousGroup
+ ] ifFalse:[
+ wgi := nil.
+ ]
+ ]
+ ]
].
^ nil
!
@@ -6025,8 +6025,8 @@
"quick terminate - the process will get no chance for cleanup actions"
inspecting ifTrue:[
- self processPerform:#terminateNoSignal.
- ^ self
+ self processPerform:#terminateNoSignal.
+ ^ self
].
steppedContext := wrapperContext := nil.
@@ -6038,11 +6038,11 @@
"/ not reached (normally)
inspecting ifFalse:[
- 'DebugView [warning]: quick terminate failed' errorPrintCR.
- (self confirm:'Regular quick terminate failed - do it the hard way ?') ifTrue:[
- Debugger newDebugger.
- Processor activeProcess terminateNoSignal.
- ]
+ 'DebugView [warning]: quick terminate failed' errorPrintCR.
+ (self confirm:'Regular quick terminate failed - do it the hard way ?') ifTrue:[
+ Debugger newDebugger.
+ Processor activeProcess terminateNoSignal.
+ ]
].
terminateButton turnOff.
@@ -6065,18 +6065,18 @@
idx := contextArray identityIndexOf:aContext.
idx == 0 ifTrue:[
- "/ some contexts hidden?
- (self showingDenseWalkback or:[self showingSupportCode not]) ifTrue:[
- Dialog information:'Context is hidden - disabling the "hideSupportCode" option (see view menu)'.
- self showFullWalkback.
- self showingDenseWalkback:false.
- self showingSupportCode:true.
- ].
- idx := contextArray identityIndexOf:aContext.
+ "/ some contexts hidden?
+ (self showingDenseWalkback or:[self showingSupportCode not]) ifTrue:[
+ Dialog information:'Context is hidden - disabling the "hideSupportCode" option (see view menu)'.
+ self showFullWalkback.
+ self showingDenseWalkback:false.
+ self showingSupportCode:true.
+ ].
+ idx := contextArray identityIndexOf:aContext.
].
idx ~~ 0 ifTrue:[
- self selectContextWithIndex:idx.
- ^ true.
+ self selectContextWithIndex:idx.
+ ^ true.
].
^ false
!
@@ -6098,8 +6098,8 @@
"double the number of contexts shown"
contextArray notNil ifTrue:[
- nChainShown := 9999.
- self redisplayBacktrace.
+ nChainShown := 9999.
+ self redisplayBacktrace.
]
"Created: / 23-07-2012 / 12:24:02 / cg"
@@ -6109,8 +6109,8 @@
"double the number of contexts shown"
contextArray notNil ifTrue:[
- nChainShown := nChainShown * 2.
- self redisplayBacktrace.
+ nChainShown := nChainShown * 2.
+ self redisplayBacktrace.
]
"Modified: / 17.11.2001 / 20:14:31 / cg"
@@ -6190,8 +6190,8 @@
|selector|
selector := Dialog
- request:'Skip until entering what (matchpattern):'
- initialAnswer:self goodSkipUntilSelector.
+ request:'Skip until entering what (matchpattern):'
+ initialAnswer:self goodSkipUntilSelector.
selector size == 0 ifTrue:[^ self].
stepUntilEntering := selector asSymbol.
@@ -6203,9 +6203,9 @@
toggleShowSupportCode
hideSupportCode ifTrue:[
- self showSupportCode
+ self showSupportCode
] ifFalse:[
- self hideSupportCode
+ self hideSupportCode
].
"Modified: / 17-11-2001 / 20:07:45 / cg"
@@ -6225,59 +6225,59 @@
m := contextView middleButtonMenu.
m notNil ifTrue:[
- m disable:#removeBreakpoint.
- m disable:#addBreakpoint.
- canShowMore ifFalse:[
- m disable:#showMore
- ].
-
- selectedContext notNil ifTrue:[
- m enableAll:#(browseImplementors browseSenders inspectContext skip skipForReturn).
-
- mthd := selectedContext method.
- mthd notNil ifTrue:[
- cls := mCls := mthd containingClass.
- mthd isBreakpointed ifTrue:[
- m enable:#removeBreakpoint.
- ] ifFalse:[
- m enable:#addBreakpoint.
- ]
- ].
- (selectedContext isBlockContext and:[selectedContext home isNil]) ifTrue:[
- "/ a cheap block's context
- ] ifFalse:[
- rCls := selectedContext receiver class.
- cls isNil ifTrue:[
- cls := rCls
- ].
- ].
- cls notNil ifTrue:[
- m enableAll:#(browseImplementingClass browseReceiversClass browseClassHierarchy browseFullClassProtocol).
- rCls == mCls ifTrue:[
- m disable:#browseReceiversClass
- ].
- mCls isNil ifTrue:[
- m disable:#browseImplementingClass
- ]
-
- ] ifFalse:[
- m disableAll:#(browseImplementingClass browseReceiversClass browseClassHierarchy browseFullClassProtocol).
- ].
- mthd notNil ifTrue:[
- m enableAll:#(browseImplementingClass).
- ].
- selectedContext isCheapBlockContext ifTrue:[
- m disableAll:#(browseReceiversClass).
- ].
- selectedContext receiver isBlock ifTrue:[
- m enableAll:#(browseBlocksHome).
- ] ifFalse:[
- m disableAll:#(browseBlocksHome).
- ].
- ] ifFalse:[
- m disableAll:#(browseImplementingClass browseReceiversClass browseClassHierarchy
- browseBlocksHome browseFullClassProtocol).
- ]
+ m disable:#removeBreakpoint.
+ m disable:#addBreakpoint.
+ canShowMore ifFalse:[
+ m disable:#showMore
+ ].
+
+ selectedContext notNil ifTrue:[
+ m enableAll:#(browseImplementors browseSenders inspectContext skip skipForReturn).
+
+ mthd := selectedContext method.
+ mthd notNil ifTrue:[
+ cls := mCls := mthd containingClass.
+ mthd isBreakpointed ifTrue:[
+ m enable:#removeBreakpoint.
+ ] ifFalse:[
+ m enable:#addBreakpoint.
+ ]
+ ].
+ (selectedContext isBlockContext and:[selectedContext home isNil]) ifTrue:[
+ "/ a cheap block's context
+ ] ifFalse:[
+ rCls := selectedContext receiver class.
+ cls isNil ifTrue:[
+ cls := rCls
+ ].
+ ].
+ cls notNil ifTrue:[
+ m enableAll:#(browseImplementingClass browseReceiversClass browseClassHierarchy browseFullClassProtocol).
+ rCls == mCls ifTrue:[
+ m disable:#browseReceiversClass
+ ].
+ mCls isNil ifTrue:[
+ m disable:#browseImplementingClass
+ ]
+
+ ] ifFalse:[
+ m disableAll:#(browseImplementingClass browseReceiversClass browseClassHierarchy browseFullClassProtocol).
+ ].
+ mthd notNil ifTrue:[
+ m enableAll:#(browseImplementingClass).
+ ].
+ selectedContext isCheapBlockContext ifTrue:[
+ m disableAll:#(browseReceiversClass).
+ ].
+ selectedContext receiver isBlock ifTrue:[
+ m enableAll:#(browseBlocksHome).
+ ] ifFalse:[
+ m disableAll:#(browseBlocksHome).
+ ].
+ ] ifFalse:[
+ m disableAll:#(browseImplementingClass browseReceiversClass browseClassHierarchy
+ browseBlocksHome browseFullClassProtocol).
+ ]
]
"Modified: / 19-07-2012 / 11:53:30 / cg"
@@ -6291,18 +6291,18 @@
|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 notNil and:[method isBreakpointed not]) ifTrue:[
- method setBreakPoint
- ]
+ method := implementorClass compiledMethodAt:selectedContext selector.
+ (method notNil and:[method isBreakpointed not]) ifTrue:[
+ method setBreakPoint
+ ]
].
contextView middleButtonMenu disable:#addBreakpoint.
contextView middleButtonMenu enable:#removeBreakpoint.
@@ -6330,48 +6330,48 @@
ignoreAllHaltsForCurrentProcess
self
- addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:false
- orThisReceiverClass:false orCurrentProcess:true
- orIfCalledFromMethod:nil
- forAll:true.
+ addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:false
+ orThisReceiverClass:false orCurrentProcess:true
+ orIfCalledFromMethod:nil
+ forAll:true.
"Created: / 27-01-2012 / 11:32:14 / cg"
!
ignoreAllHaltsForThisReceiverClass
self
- addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:false
- orThisReceiverClass:true orCurrentProcess:false
- orIfCalledFromMethod:nil
- forAll:true.
+ addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:false
+ orThisReceiverClass:true orCurrentProcess:false
+ orIfCalledFromMethod:nil
+ forAll:true.
"Created: / 27-01-2012 / 11:32:14 / cg"
!
ignoreAllHaltsForever
self
- addIgnoredHaltForCount:-1 orTimeDuration:nil orUntilShiftKey:false
- orThisReceiverClass:false orCurrentProcess:false
- orIfCalledFromMethod:nil
- forAll:true.
+ addIgnoredHaltForCount:-1 orTimeDuration:nil orUntilShiftKey:false
+ orThisReceiverClass:false orCurrentProcess:false
+ orIfCalledFromMethod:nil
+ forAll:true.
"Created: / 08-05-2011 / 10:19:56 / cg"
!
ignoreAllHaltsIfCalledFromMethod:aMethod
self
- addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:false
- orThisReceiverClass:false orCurrentProcess:false
- orIfCalledFromMethod:aMethod
- forAll:true.
+ addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:false
+ orThisReceiverClass:false orCurrentProcess:false
+ orIfCalledFromMethod:aMethod
+ forAll:true.
!
ignoreAllHaltsUntilShiftKeyIsPressed
self
- addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:true
- orThisReceiverClass:false orCurrentProcess:false
- orIfCalledFromMethod:nil
- forAll:true.
+ addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:true
+ orThisReceiverClass:false orCurrentProcess:false
+ orIfCalledFromMethod:nil
+ forAll:true.
"Created: / 27-01-2012 / 11:32:14 / cg"
!
@@ -6385,58 +6385,58 @@
ignoreBreakpointsWithThisParameterUntilShiftKeyIsPressed
self
- addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:true
- orThisReceiverClass:false orCurrentProcess:false
- orIfCalledFromMethod:nil
- forAll:false.
+ addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:true
+ orThisReceiverClass:false orCurrentProcess:false
+ orIfCalledFromMethod:nil
+ forAll:false.
"Created: / 06-03-2012 / 12:35:22 / cg"
!
ignoreHaltForCurrentProcess
self
- addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:false
- orThisReceiverClass:false orCurrentProcess:true
- orIfCalledFromMethod:nil
- forAll:false.
+ addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:false
+ orThisReceiverClass:false orCurrentProcess:true
+ orIfCalledFromMethod:nil
+ forAll:false.
"Created: / 27-01-2012 / 11:32:14 / cg"
!
ignoreHaltForThisReceiverClass
self
- addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:false
- orThisReceiverClass:true orCurrentProcess:false
- orIfCalledFromMethod:nil
- forAll:false.
+ addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:false
+ orThisReceiverClass:true orCurrentProcess:false
+ orIfCalledFromMethod:nil
+ forAll:false.
"Created: / 27-01-2012 / 11:32:14 / cg"
!
ignoreHaltForever
self
- addIgnoredHaltForCount:-1 orTimeDuration:nil orUntilShiftKey:false
- orThisReceiverClass:false orCurrentProcess:false
- orIfCalledFromMethod:nil
- forAll:false.
+ addIgnoredHaltForCount:-1 orTimeDuration:nil orUntilShiftKey:false
+ orThisReceiverClass:false orCurrentProcess:false
+ orIfCalledFromMethod:nil
+ forAll:false.
"Modified: / 27-01-2012 / 11:31:37 / cg"
!
ignoreHaltIfCalledFromMethod:aMethod
self
- addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:false
- orThisReceiverClass:false orCurrentProcess:false
- orIfCalledFromMethod:aMethod
- forAll:false.
+ addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:false
+ orThisReceiverClass:false orCurrentProcess:false
+ orIfCalledFromMethod:aMethod
+ forAll:false.
!
ignoreHaltUntilShiftKeyIsPressed
self
- addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:true
- orThisReceiverClass:false orCurrentProcess:false
- orIfCalledFromMethod:nil
- forAll:false.
+ addIgnoredHaltForCount:nil orTimeDuration:nil orUntilShiftKey:true
+ orThisReceiverClass:false orCurrentProcess:false
+ orIfCalledFromMethod:nil
+ forAll:false.
"Created: / 27-01-2012 / 11:36:54 / cg"
!
@@ -6463,27 +6463,27 @@
already := IdentitySet new.
contextArray do:[:con |
- |mthd cls sel|
-
- mthd := con method.
- mthd notNil ifTrue:[
- mthd isWrapped ifFalse:[
- (already includes:already) ifFalse:[
- already add:mthd.
- m addItem:(MenuItem
- label: (mthd whoString)
- itemValue: [ forAllHaltsBoolean
- ifTrue:[self ignoreHaltIfCalledFromMethod:mthd]
- ifFalse:[self ignoreAllHaltsIfCalledFromMethod:mthd]
- ]
- translateLabel: false).
- count := count + 1.
- (count > 20) ifTrue:[
- ^ m
- ].
- ]
- ]
- ]
+ |mthd cls sel|
+
+ mthd := con method.
+ mthd notNil ifTrue:[
+ mthd isWrapped ifFalse:[
+ (already includes:already) ifFalse:[
+ already add:mthd.
+ m addItem:(MenuItem
+ label: (mthd whoString)
+ itemValue: [ forAllHaltsBoolean
+ ifTrue:[self ignoreHaltIfCalledFromMethod:mthd]
+ ifFalse:[self ignoreAllHaltsIfCalledFromMethod:mthd]
+ ]
+ translateLabel: false).
+ count := count + 1.
+ (count > 20) ifTrue:[
+ ^ m
+ ].
+ ]
+ ]
+ ]
].
^ m
!
@@ -6498,21 +6498,21 @@
|answer dT|
[
- answer := Dialog
- request:(resources string:'How long should all halts/breakpoints be ignored [smh] ?')
- initialAnswer:(LastIgnoreHaltDuration ? '30s') printString.
- answer isEmptyOrNil ifTrue:[^ self].
-
- dT := TimeDuration readFrom:answer onError:[ nil ].
- dT notNil ifTrue:[
- LastIgnoreHaltDuration := dT.
- self
- addIgnoredHaltForCount:nil orTimeDuration:dT orUntilShiftKey:false
- orThisReceiverClass:false orCurrentProcess:false
- orIfCalledFromMethod:nil
- forAll:true.
- ^ self.
- ].
+ answer := Dialog
+ request:(resources string:'How long should all halts/breakpoints be ignored [smh] ?')
+ initialAnswer:(LastIgnoreHaltDuration ? '30s') printString.
+ answer isEmptyOrNil ifTrue:[^ self].
+
+ dT := TimeDuration readFrom:answer onError:[ nil ].
+ dT notNil ifTrue:[
+ LastIgnoreHaltDuration := dT.
+ self
+ addIgnoredHaltForCount:nil orTimeDuration:dT orUntilShiftKey:false
+ orThisReceiverClass:false orCurrentProcess:false
+ orIfCalledFromMethod:nil
+ forAll:true.
+ ^ self.
+ ].
] loop
"Created: / 08-05-2011 / 10:19:20 / cg"
@@ -6522,23 +6522,23 @@
|answer n|
[
- answer := Dialog
- request:(resources
- string:'How often should breakpoints with parameter "%1" be ignored ?'
- with:breakPointParameter)
- initialAnswer:(LastIgnoreHaltNTimes ? '') printString.
- answer isEmptyOrNil ifTrue:[^ self].
-
- n := Integer readFrom:answer onError:nil.
- n notNil ifTrue:[
- LastIgnoreHaltNTimes := n.
- self
- addIgnoredHaltForCount:n orTimeDuration:nil orUntilShiftKey:false
- orThisReceiverClass:false orCurrentProcess:false
- orIfCalledFromMethod:nil
- forAll:false.
- ^ self.
- ].
+ answer := Dialog
+ request:(resources
+ string:'How often should breakpoints with parameter "%1" be ignored ?'
+ with:breakPointParameter)
+ initialAnswer:(LastIgnoreHaltNTimes ? '') printString.
+ answer isEmptyOrNil ifTrue:[^ self].
+
+ n := Integer readFrom:answer onError:nil.
+ n notNil ifTrue:[
+ LastIgnoreHaltNTimes := n.
+ self
+ addIgnoredHaltForCount:n orTimeDuration:nil orUntilShiftKey:false
+ orThisReceiverClass:false orCurrentProcess:false
+ orIfCalledFromMethod:nil
+ forAll:false.
+ ^ self.
+ ].
] loop.
"Modified: / 27-01-2012 / 11:31:44 / cg"
@@ -6549,23 +6549,23 @@
|answer dT|
[
- answer := Dialog
- request:(resources
- string:'How long should breakpoints with parameter "%1" be ignored (s/m/h) ?'
- with:breakPointParameter)
- initialAnswer:(LastIgnoreHaltDuration ? '30s') printString.
- answer isEmptyOrNil ifTrue:[^ self].
-
- dT := TimeDuration readFrom:answer onError:[ nil ].
- dT notNil ifTrue:[
- LastIgnoreHaltDuration := dT.
- self
- addIgnoredHaltForCount:nil orTimeDuration:dT orUntilShiftKey:false
- orThisReceiverClass:false orCurrentProcess:false
- orIfCalledFromMethod:nil
- forAll:false.
- ^ self.
- ].
+ answer := Dialog
+ request:(resources
+ string:'How long should breakpoints with parameter "%1" be ignored (s/m/h) ?'
+ with:breakPointParameter)
+ initialAnswer:(LastIgnoreHaltDuration ? '30s') printString.
+ answer isEmptyOrNil ifTrue:[^ self].
+
+ dT := TimeDuration readFrom:answer onError:[ nil ].
+ dT notNil ifTrue:[
+ LastIgnoreHaltDuration := dT.
+ self
+ addIgnoredHaltForCount:nil orTimeDuration:dT orUntilShiftKey:false
+ orThisReceiverClass:false orCurrentProcess:false
+ orIfCalledFromMethod:nil
+ forAll:false.
+ ^ self.
+ ].
] loop
"Created: / 06-03-2012 / 12:03:36 / cg"
@@ -6575,21 +6575,21 @@
|answer n|
[
- answer := Dialog
- request:(resources string:'How often should this halt be ignored ?')
- initialAnswer:(LastIgnoreHaltNTimes ? '') printString.
- answer isEmptyOrNil ifTrue:[^ self].
-
- n := Integer readFrom:answer onError:nil.
- n notNil ifTrue:[
- LastIgnoreHaltNTimes := n.
- self
- addIgnoredHaltForCount:n orTimeDuration:nil orUntilShiftKey:false
- orThisReceiverClass:false orCurrentProcess:false
- orIfCalledFromMethod:nil
- forAll:false.
- ^ self.
- ].
+ answer := Dialog
+ request:(resources string:'How often should this halt be ignored ?')
+ initialAnswer:(LastIgnoreHaltNTimes ? '') printString.
+ answer isEmptyOrNil ifTrue:[^ self].
+
+ n := Integer readFrom:answer onError:nil.
+ n notNil ifTrue:[
+ LastIgnoreHaltNTimes := n.
+ self
+ addIgnoredHaltForCount:n orTimeDuration:nil orUntilShiftKey:false
+ orThisReceiverClass:false orCurrentProcess:false
+ orIfCalledFromMethod:nil
+ forAll:false.
+ ^ self.
+ ].
] loop.
"Modified: / 27-01-2012 / 11:31:44 / cg"
@@ -6599,21 +6599,21 @@
|answer dT|
[
- answer := Dialog
- request:(resources string:'How long should this halt/breakpoint be ignored (s/m/h) ?')
- initialAnswer:(LastIgnoreHaltDuration ? '30s') printString.
- answer isEmptyOrNil ifTrue:[^ self].
-
- dT := TimeDuration readFrom:answer onError:[ nil ].
- dT notNil ifTrue:[
- LastIgnoreHaltDuration := dT.
- self
- addIgnoredHaltForCount:nil orTimeDuration:dT orUntilShiftKey:false
- orThisReceiverClass:false orCurrentProcess:false
- orIfCalledFromMethod:nil
- forAll:false.
- ^ self.
- ].
+ answer := Dialog
+ request:(resources string:'How long should this halt/breakpoint be ignored (s/m/h) ?')
+ initialAnswer:(LastIgnoreHaltDuration ? '30s') printString.
+ answer isEmptyOrNil ifTrue:[^ self].
+
+ dT := TimeDuration readFrom:answer onError:[ nil ].
+ dT notNil ifTrue:[
+ LastIgnoreHaltDuration := dT.
+ self
+ addIgnoredHaltForCount:nil orTimeDuration:dT orUntilShiftKey:false
+ orThisReceiverClass:false orCurrentProcess:false
+ orIfCalledFromMethod:nil
+ forAll:false.
+ ^ self.
+ ].
] loop
"Modified: / 27-01-2012 / 11:31:47 / cg"
@@ -6623,12 +6623,12 @@
"remove all trace & breakpoints - if any"
self withExecuteCursorDo:[
- (MessageTracer notNil and:[MessageTracer isLoaded]) ifTrue:[
- MessageTracer unwrapAllMethods
- ].
- (MethodWithBreakpoints notNil and:[MethodWithBreakpoints isLoaded]) ifTrue:[
- MethodWithBreakpoints removeAllBreakpoints
- ].
+ (MessageTracer notNil and:[MessageTracer isLoaded]) ifTrue:[
+ MessageTracer unwrapAllMethods
+ ].
+ (MethodWithBreakpoints notNil and:[MethodWithBreakpoints isLoaded]) ifTrue:[
+ MethodWithBreakpoints removeAllBreakpoints
+ ].
]
"Modified: / 21.5.1998 / 01:44:43 / cg"
@@ -6640,18 +6640,18 @@
|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 notNil and:[method isBreakpointed]) ifTrue:[
- method clearBreakPoint
- ]
+ method := implementorClass compiledMethodAt:selectedContext selector.
+ (method notNil and:[method isBreakpointed]) ifTrue:[
+ method clearBreakPoint
+ ]
].
contextView middleButtonMenu disable:#removeBreakpoint.
contextView middleButtonMenu enable:#addBreakpoint.
@@ -6684,17 +6684,17 @@
interval := self selectedInterval.
interval isEmpty ifTrue:[
- crsrPos := codeView characterPositionOfCursor.
- codeView characterUnderCursor isSeparator ifTrue:[
- crsrPos := (crsrPos - 1) max:1
- ].
- interval := crsrPos to:crsrPos.
+ crsrPos := codeView characterPositionOfCursor.
+ codeView characterUnderCursor isSeparator ifTrue:[
+ crsrPos := (crsrPos - 1) max:1
+ ].
+ interval := crsrPos to:crsrPos.
].
self
- withNodeValueAtInterval:interval
- do:[:value :description |
- self showValue:value
- ].
+ withNodeValueAtInterval:interval
+ do:[:value :description |
+ self showValue:value
+ ].
!
findNodeForInterval:interval
@@ -6741,7 +6741,7 @@
current := selectedContext selector.
current isNil ifTrue:[^ nil].
('change:*' match:current) ifTrue:[
- ^ 'update:*'
+ ^ 'update:*'
].
^ nil
!
@@ -6781,8 +6781,8 @@
"do something, then update the context list"
inspectedProcess isDead ifTrue:[
- self showTerminated.
- ^ self
+ self showTerminated.
+ ^ self
].
inspectedProcess perform:aMessage.
@@ -6837,16 +6837,16 @@
showError:message
codeView contents:(resources string:message).
shown ifTrue:[
- exclusive ifTrue:[
- "/ consider this a kludge:
- "/ if exclusive, cannot use flash, since it suspends
- "/ (but we cannot suspend here ...)
- codeView redrawInverted. self flush.
- OperatingSystem millisecondDelay:200.
- codeView redraw
- ] ifFalse:[
- codeView flash
- ]
+ exclusive ifTrue:[
+ "/ consider this a kludge:
+ "/ if exclusive, cannot use flash, since it suspends
+ "/ (but we cannot suspend here ...)
+ codeView redrawInverted. self flush.
+ OperatingSystem millisecondDelay:200.
+ codeView redraw
+ ] ifFalse:[
+ codeView flash
+ ]
]
"Modified: / 18.11.2001 / 00:01:13 / cg"
@@ -6879,44 +6879,44 @@
m := contextView middleButtonMenu.
m notNil ifTrue:[
- self updateMenuItems.
-
- (inspecting or:[AbortOperationRequest isHandledIn:aContext]) ifTrue:[
- abortButton enable.
- m enable:#doAbort.
- ] ifFalse:[
- abortButton disable.
- m disable:#doAbort.
- ].
- exclusive ifTrue:[
- terminateButton disable.
- m disable:#doTerminate.
- ] ifFalse:[
- terminateButton enable.
- m enable:#doTerminate.
- ].
+ self updateMenuItems.
+
+ (inspecting or:[AbortOperationRequest isHandledIn:aContext]) ifTrue:[
+ abortButton enable.
+ m enable:#doAbort.
+ ] ifFalse:[
+ abortButton disable.
+ m disable:#doAbort.
+ ].
+ exclusive ifTrue:[
+ terminateButton disable.
+ m disable:#doTerminate.
+ ] ifFalse:[
+ terminateButton enable.
+ m enable:#doTerminate.
+ ].
].
mayProceed == false ifTrue:[
- continueButton disable.
- m notNil ifTrue:[m disable:#doContinue].
+ continueButton disable.
+ m notNil ifTrue:[m disable:#doContinue].
] ifFalse:[
- continueButton enable.
- m notNil ifTrue:[m enable:#doContinue]
+ continueButton enable.
+ m notNil ifTrue:[m enable:#doContinue]
].
isStoppedInModalDialog ifTrue:[
- gotoDialogOpenerButton enable.
- gotoDialogOpenerButton beVisible.
+ gotoDialogOpenerButton enable.
+ gotoDialogOpenerButton beVisible.
] ifFalse:[
- gotoDialogOpenerButton beInvisible.
+ gotoDialogOpenerButton beInvisible.
].
(isStoppedInModalDialog not & isStoppedInApplicationAction) ifTrue:[
- gotoApplicationActionMethodButton enable.
- gotoApplicationActionMethodButton beVisible.
+ gotoApplicationActionMethodButton enable.
+ gotoApplicationActionMethodButton beVisible.
] ifFalse:[
- gotoApplicationActionMethodButton beInvisible.
+ gotoApplicationActionMethodButton beInvisible.
].
"Created: / 06-07-2011 / 12:24:53 / cg"
@@ -6926,24 +6926,24 @@
|oldContext idx|
inspectedProcess state == #dead ifTrue:[
- self showTerminated.
- ^ self
+ self showTerminated.
+ ^ self
].
oldContext := selectedContext.
[
- (self setContextSkippingInterruptContexts:inspectedProcess suspendedContext) ifTrue:[
- oldContext notNil ifTrue:[
- contextArray notNil ifTrue:[
- idx := contextArray identityIndexOf:oldContext.
- idx ~~ 0 ifTrue:[
- self showSelection:idx
- ] ifFalse:[
- codeView contents:('** context returned **')
- ]
- ]
- ]
- ].
+ (self setContextSkippingInterruptContexts:inspectedProcess suspendedContext) ifTrue:[
+ oldContext notNil ifTrue:[
+ contextArray notNil ifTrue:[
+ idx := contextArray identityIndexOf:oldContext.
+ idx ~~ 0 ifTrue:[
+ self showSelection:idx
+ ] ifFalse:[
+ codeView contents:('** context returned **')
+ ]
+ ]
+ ]
+ ].
] valueUninterruptably.
"Modified: 20.10.1996 / 18:11:24 / cg"
@@ -6957,17 +6957,17 @@
"/ interval printCR.
Error
- handle:[:ex | ]
- do:[
- [
- node := self findNodeForInterval:interval
- ] valueWithWatchDog:[ ^ self ] afterMilliseconds:50.
- ].
+ handle:[:ex | ]
+ do:[
+ [
+ node := self findNodeForInterval:interval
+ ] valueWithWatchDog:[ ^ self ] afterMilliseconds:50.
+ ].
node isNil ifTrue:[ ^ self ].
node isVariable ifFalse:[
- "/ Transcript showCR:node.
- ^ self
+ "/ Transcript showCR:node.
+ ^ self
].
nm := node name.
@@ -6977,155 +6977,155 @@
receiver := actualContext methodHome receiver.
(nm = 'self') ifTrue:[
- aBlock value:receiver value:'receiver' allBold.
- ^ self
+ aBlock value:receiver value:'receiver' allBold.
+ ^ self
].
(nm = 'super') ifTrue:[
- aBlock value:receiver value:'receiver' allBold.
- ^ self
+ aBlock value:receiver value:'receiver' allBold.
+ ^ self
].
(nm = 'thisContext') ifTrue:[
- aBlock value:actualContext value:'context' allBold.
- ^ self
+ aBlock value:actualContext value:'context' allBold.
+ ^ 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:[
- aBlock value:(receiver instVarNamed:nm) value:'classInstVar ',nmBold.
- ] ifFalse:[
- aBlock value:(receiver instVarNamed:nm) value:'instVar ',nmBold.
- ].
- ^ self
- ].
-
- receiversNonMetaClass := receiver class theNonMetaclass.
- (receiversNonMetaClass privateClasses contains:[:cls | cls nameWithoutPrefix = nm]) ifTrue:[
- aBlock value:'' value:'private class ',nmBold.
- ^ self
- ].
- (receiversNonMetaClass classVarNames includes:nm) ifTrue:[
- aBlock value:((currentMethod mclass ? receiversNonMetaClass) theNonMetaclass classVarAt:nm) value:'classVar ',nmBold.
- ^ self
- ].
- receiversNonMetaClass sharedPoolNames do:[:eachPoolName |
- |pool|
-
- pool := Smalltalk at:eachPoolName.
- pool isNil ifTrue:[ pool := receiversNonMetaClass topNameSpace at:eachPoolName].
- (pool classVarNames includes:nm) ifTrue:[
- aBlock value:(pool classVarAt:nm) value:'poolVar ',nm allBold,' in ',eachPoolName allBold,' '.
- ^ self
- ].
- ].
- nameSymbol := nm asSymbolIfInterned.
- nameSymbol notNil ifTrue:[
- (Smalltalk includesKey:nameSymbol) ifTrue:[
- (Smalltalk at:nameSymbol) isClass ifTrue:[
- aBlock value:'class: ',nmBold value:nil.
- ] ifFalse:[
- aBlock value:(Smalltalk at:nameSymbol) value:'global ',nmBold.
- ].
- ^ self
- ].
- ].
- aBlock value:'' value:'unknown'.
- ^ self
+ receiver class isMetaclass ifTrue:[
+ aBlock value:(receiver instVarNamed:nm) value:'classInstVar ',nmBold.
+ ] ifFalse:[
+ aBlock value:(receiver instVarNamed:nm) value:'instVar ',nmBold.
+ ].
+ ^ self
+ ].
+
+ receiversNonMetaClass := receiver class theNonMetaclass.
+ (receiversNonMetaClass privateClasses contains:[:cls | cls nameWithoutPrefix = nm]) ifTrue:[
+ aBlock value:'' value:'private class ',nmBold.
+ ^ self
+ ].
+ (receiversNonMetaClass classVarNames includes:nm) ifTrue:[
+ aBlock value:((currentMethod mclass ? receiversNonMetaClass) theNonMetaclass classVarAt:nm) value:'classVar ',nmBold.
+ ^ self
+ ].
+ receiversNonMetaClass sharedPoolNames do:[:eachPoolName |
+ |pool|
+
+ pool := Smalltalk at:eachPoolName.
+ pool isNil ifTrue:[ pool := receiversNonMetaClass topNameSpace at:eachPoolName].
+ (pool classVarNames includes:nm) ifTrue:[
+ aBlock value:(pool classVarAt:nm) value:'poolVar ',nm allBold,' in ',eachPoolName allBold,' '.
+ ^ self
+ ].
+ ].
+ nameSymbol := nm asSymbolIfInterned.
+ nameSymbol notNil ifTrue:[
+ (Smalltalk includesKey:nameSymbol) ifTrue:[
+ (Smalltalk at:nameSymbol) isClass ifTrue:[
+ aBlock value:'class: ',nmBold value:nil.
+ ] ifFalse:[
+ aBlock value:(Smalltalk at:nameSymbol) value:'global ',nmBold.
+ ].
+ ^ self
+ ].
+ ].
+ aBlock value:'' value:'unknown'.
+ ^ self
].
"/definingNode printCR.
definingNode isMethod ifTrue:[
- varIdx := definingNode arguments findFirst:[:arg | arg name = nm].
- varIdx ~~ 0 ifTrue:[
- Error
- handle:[:ex | ]
- do:[ aBlock value:(actualContext methodHome argAt:varIdx) value:'methodArg ',nmBold ].
- ^ self
- ].
- varIdx := definingNode temporaries findFirst:[:var | var name = nm].
- varIdx ~~ 0 ifTrue:[
- actualContext methodHome numVars >= varIdx ifTrue:[
- Error
- handle:[:ex | ]
- do:[ aBlock value:(actualContext methodHome varAt:varIdx) value:'methodVar ',nmBold ].
- ^ self
- ]
- ].
+ varIdx := definingNode arguments findFirst:[:arg | arg name = nm].
+ varIdx ~~ 0 ifTrue:[
+ Error
+ handle:[:ex | ]
+ do:[ aBlock value:(actualContext methodHome argAt:varIdx) value:'methodArg ',nmBold ].
+ ^ self
+ ].
+ varIdx := definingNode temporaries findFirst:[:var | var name = nm].
+ varIdx ~~ 0 ifTrue:[
+ actualContext methodHome numVars >= varIdx ifTrue:[
+ Error
+ handle:[:ex | ]
+ do:[ aBlock value:(actualContext methodHome varAt:varIdx) value:'methodVar ',nmBold ].
+ ^ self
+ ]
+ ].
].
definingNode isBlock ifTrue:[
- varIdx := definingNode arguments findFirst:[:arg | arg name = nm].
- (definingNode arguments contains:[:arg | arg name = nm]) ifTrue:[
- varIdx ~~ 0 ifTrue:[
- "/ am I in this block ?
- (actualContext lineNumber notNil
- and:[ definingNode lastLineNumber notNil
- and:[ (actualContext lineNumber
- between:definingNode firstLineNumber
- and:definingNode lastLineNumber)
- and:[ varIdx <= actualContext numArgs ] ]])
- ifTrue:[
- aBlock value:(actualContext argAt:varIdx) value:'blockArg ',nmBold .
- ^ self
- ].
- aBlock value:nmBold , ' is not in scope of selected context' value:nil.
- ^ self
- ]
- ].
+ varIdx := definingNode arguments findFirst:[:arg | arg name = nm].
+ (definingNode arguments contains:[:arg | arg name = nm]) ifTrue:[
+ varIdx ~~ 0 ifTrue:[
+ "/ am I in this block ?
+ (actualContext lineNumber notNil
+ and:[ definingNode lastLineNumber notNil
+ and:[ (actualContext lineNumber
+ between:definingNode firstLineNumber
+ and:definingNode lastLineNumber)
+ and:[ varIdx <= actualContext numArgs ] ]])
+ ifTrue:[
+ aBlock value:(actualContext argAt:varIdx) value:'blockArg ',nmBold .
+ ^ self
+ ].
+ aBlock value:nmBold , ' is not in scope of selected context' value:nil.
+ ^ self
+ ]
+ ].
].
parentNode := definingNode parent.
[parentNode notNil] whileTrue:[
- "/'isMethod ' print. parentNode isMethod printCR.
- parentNode isMethod ifTrue:[
- varIdx := parentNode temporaries findFirst:[:var | var name = nm].
- varIdx ~~ 0 ifTrue:[
- actualContext methodHome numVars >= varIdx ifTrue:[
- Error
- handle:[:ex | ]
- do:[ aBlock value:(actualContext methodHome varAt:varIdx) value:'methodVar ',nmBold ].
- ^ self
- ]
- ].
- ].
- "/'isBlock ' print. parentNode isBlock printCR.
- parentNode isBlock ifTrue:[
- "/ we don't have any information on the inlineability
- "/ of this block here (RBParser does not know what
- "/ the compiler does).
- "/ therefore, it is questionable if we can use the
- "/ context's home context here.
- "/ am I in this block ?
- con := actualContext.
- [con notNil
- and:[ parentNode lastLineNumber notNil
- and:[ con lineNumber notNil
- and:[ con lineNumber
- between:parentNode firstLineNumber
- and:parentNode lastLineNumber ]]]] whileTrue:[
- con := con sender.
- ].
- con notNil ifTrue:[
- varIdx := parentNode arguments findFirst:[:arg | arg name = nm].
- varIdx ~~ 0 ifTrue:[
- Error
- handle:[:ex | ]
- do:[ aBlock value:(con argAt:varIdx) value:'blockArg ',nmBold ].
- ^ self
- ].
- varIdx := parentNode body temporaries findFirst:[:var | var name = nm].
- varIdx ~~ 0 ifTrue:[
- Error
- handle:[:ex | ]
- do:[ aBlock value:(con varAt:varIdx) value:'blockVar ',nmBold ].
- ^ self
- ].
- ].
- ].
- parentNode := parentNode parent.
+ "/'isMethod ' print. parentNode isMethod printCR.
+ parentNode isMethod ifTrue:[
+ varIdx := parentNode temporaries findFirst:[:var | var name = nm].
+ varIdx ~~ 0 ifTrue:[
+ actualContext methodHome numVars >= varIdx ifTrue:[
+ Error
+ handle:[:ex | ]
+ do:[ aBlock value:(actualContext methodHome varAt:varIdx) value:'methodVar ',nmBold ].
+ ^ self
+ ]
+ ].
+ ].
+ "/'isBlock ' print. parentNode isBlock printCR.
+ parentNode isBlock ifTrue:[
+ "/ we don't have any information on the inlineability
+ "/ of this block here (RBParser does not know what
+ "/ the compiler does).
+ "/ therefore, it is questionable if we can use the
+ "/ context's home context here.
+ "/ am I in this block ?
+ con := actualContext.
+ [con notNil
+ and:[ parentNode lastLineNumber notNil
+ and:[ con lineNumber notNil
+ and:[ con lineNumber
+ between:parentNode firstLineNumber
+ and:parentNode lastLineNumber ]]]] whileTrue:[
+ con := con sender.
+ ].
+ con notNil ifTrue:[
+ varIdx := parentNode arguments findFirst:[:arg | arg name = nm].
+ varIdx ~~ 0 ifTrue:[
+ Error
+ handle:[:ex | ]
+ do:[ aBlock value:(con argAt:varIdx) value:'blockArg ',nmBold ].
+ ^ self
+ ].
+ varIdx := parentNode body temporaries findFirst:[:var | var name = nm].
+ varIdx ~~ 0 ifTrue:[
+ Error
+ handle:[:ex | ]
+ do:[ aBlock value:(con varAt:varIdx) value:'blockVar ',nmBold ].
+ ^ self
+ ].
+ ].
+ ].
+ parentNode := parentNode parent.
].
aBlock value:nmBold , ' is not in scope of selected context' value:nil.
@@ -7178,9 +7178,9 @@
canCloseAllDebuggers
self class allInstancesDo:[:debugger |
- debugger ~~ self ifTrue:[
- debugger busy ifTrue:[^ true].
- ]
+ debugger ~~ self ifTrue:[
+ debugger busy ifTrue:[^ true].
+ ]
].
^ false
@@ -7263,8 +7263,8 @@
|con mthd|
(con := self selectedContext) notNil ifTrue:[
- mthd := con method.
- ^ mthd notNil and:[mthd isWrapped]
+ mthd := con method.
+ ^ mthd notNil and:[mthd isWrapped]
].
^ false.
@@ -7282,41 +7282,41 @@
!DebugView methodsFor:'private-breakpoints'!
addIgnoredHaltForCount:countOrNil
- orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
- orThisReceiverClass:forThisReceiverClass orCurrentProcess:forCurrentProcess
- orIfCalledFromMethod:ifCalledForMethodOrNil
- forAll:aBoolean
+ orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
+ orThisReceiverClass:forThisReceiverClass orCurrentProcess:forCurrentProcess
+ orIfCalledFromMethod:ifCalledForMethodOrNil
+ forAll:aBoolean
|haltingContext haltingMethod lineNrOfHalt receiverClassOrNil processOrNil|
aBoolean ifTrue:[
- haltingMethod := #all
+ haltingMethod := #all
] ifFalse:[
- haltingContext := self findHaltingContext.
- haltingContext isNil ifTrue:[
- Transcript showCR:'no halting context found'.
- ^ self
- ].
-
- haltingMethod := haltingContext method.
- lineNrOfHalt := haltingContext lineNumber.
- (lineNrOfHalt isNil or:[lineNrOfHalt <= 0]) ifTrue:[
- Transcript showCR:'no halt lineNr found'.
- ^ self
- ].
- forThisReceiverClass ifTrue:[
- receiverClassOrNil := haltingContext receiver class
- ].
- forCurrentProcess ifTrue:[
- processOrNil := Processor activeProcess
- ].
+ haltingContext := self findHaltingContext.
+ haltingContext isNil ifTrue:[
+ Transcript showCR:'no halting context found'.
+ ^ self
+ ].
+
+ haltingMethod := haltingContext method.
+ lineNrOfHalt := haltingContext lineNumber.
+ (lineNrOfHalt isNil or:[lineNrOfHalt <= 0]) ifTrue:[
+ Transcript showCR:'no halt lineNr found'.
+ ^ self
+ ].
+ forThisReceiverClass ifTrue:[
+ receiverClassOrNil := haltingContext receiver class
+ ].
+ forCurrentProcess ifTrue:[
+ processOrNil := Processor activeProcess
+ ].
].
self class
- ignoreHaltIn:haltingMethod at:lineNrOfHalt
- forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
- orReceiverClass:receiverClassOrNil orProcess:processOrNil
- orIfCalledFromMethod:ifCalledForMethodOrNil
+ ignoreHaltIn:haltingMethod at:lineNrOfHalt
+ forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey
+ orReceiverClass:receiverClassOrNil orProcess:processOrNil
+ orIfCalledFromMethod:ifCalledForMethodOrNil
"Created: / 27-01-2012 / 11:31:12 / cg"
!
@@ -7341,30 +7341,30 @@
haltSelectors := self haltSelectors.
contextArray keysAndValuesDo:[:idx :con |
- |sel con2 sel2 method|
-
- sel := con selector.
- (haltSelectors includes:sel) ifTrue:[
- (method := con method) notNil ifTrue:[
- method mclass == Object ifTrue:[
- con2 := contextArray at:idx+1.
- sel2 := con2 selector.
- (haltSelectors includes:sel2) ifTrue:[
- con2 method mclass == Object ifTrue:[
- ^ contextArray at:idx+2.
- ]
- ].
- ^ contextArray at:idx+1
- ].
- method mclass == Breakpoint ifTrue:[
+ |sel con2 sel2 method|
+
+ sel := con selector.
+ (haltSelectors includes:sel) ifTrue:[
+ (method := con method) notNil ifTrue:[
+ method mclass == Object ifTrue:[
+ con2 := contextArray at:idx+1.
+ sel2 := con2 selector.
+ (haltSelectors includes:sel2) ifTrue:[
+ con2 method mclass == Object ifTrue:[
+ ^ contextArray at:idx+2.
+ ]
+ ].
+ ^ contextArray at:idx+1
+ ].
+ method mclass == Breakpoint ifTrue:[
(contextArray at:idx+1) infoPrintCR.
- ^ contextArray at:idx+1
- ].
- ].
- ].
- con method isWrapped ifTrue:[
- ^ con
- ].
+ ^ contextArray at:idx+1
+ ].
+ ].
+ ].
+ con method isWrapped ifTrue:[
+ ^ con
+ ].
].
^ nil
@@ -7418,10 +7418,10 @@
"tell whether we are a cached debugger"
CachedExclusive == self ifTrue:[
- ^ true.
+ ^ true.
].
CachedDebugger == self ifTrue:[
- ^ true.
+ ^ true.
].
^ false.
@@ -7436,13 +7436,13 @@
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"
@@ -7488,7 +7488,7 @@
con := aContext.
[con notNil and:[con ~~ aHomeContext]] whileTrue:[
- con := con sender
+ con := con sender
].
^ con notNil
@@ -7503,7 +7503,7 @@
"/ look for a breakpoint-wrapper's context
c := thisContext findNextContextWithSelector:#'raiseRequestWith:errorString:in:' or:nil or:nil.
c isNil ifTrue:[
- ^ true.
+ ^ true.
].
cReceiver := c receiver.
^ cReceiver == BreakPointInterrupt
@@ -7523,65 +7523,65 @@
"/ look for a method breakpoint-wrapper's context
c := thisContext findNextContextWithSelector:#doRaise or:nil or:nil.
c notNil ifTrue:[
- ((cReceiver := c receiver) isKindOf:NoHandlerError) ifTrue:[
- c := c sender findNextContextWithSelector:#doRaise or:nil or:nil.
- cReceiver := c receiver.
- ].
- (cReceiver isKindOf:BreakPointInterrupt) ifFalse:[
- c := nil
- ] ifTrue:[
- [
- sender := c sender.
- ((sReceiver := sender receiver) isKindOf:BreakPointInterrupt)
- or:[ sReceiver == BreakPointInterrupt ]
- ] whileTrue:[
- c := sender
- ].
- [ (sender := c sender) isBlockContext ] whileTrue:[
- c := sender
- ].
- sender := nil. "/ avoid keeping a reference to this context
- ].
+ ((cReceiver := c receiver) isKindOf:NoHandlerError) ifTrue:[
+ c := c sender findNextContextWithSelector:#doRaise or:nil or:nil.
+ cReceiver := c receiver.
+ ].
+ (cReceiver isKindOf:BreakPointInterrupt) ifFalse:[
+ c := nil
+ ] ifTrue:[
+ [
+ sender := c sender.
+ ((sReceiver := sender receiver) isKindOf:BreakPointInterrupt)
+ or:[ sReceiver == BreakPointInterrupt ]
+ ] whileTrue:[
+ c := sender
+ ].
+ [ (sender := c sender) isBlockContext ] whileTrue:[
+ c := sender
+ ].
+ sender := nil. "/ avoid keeping a reference to this context
+ ].
].
"/ Transcript showCR:c.
c isNil ifTrue:[
- "/ look for halts or explicit breakpoints
- c := thisContext findNextContextWithSelector:#halt or:#halt: or:nil.
- c isNil ifTrue:[
- c := thisContext findNextContextWithSelector:#breakPoint: or:#breakPoint:info: or:nil.
- c isNil ifTrue:[
- ^ false
- ].
- breakpointParameter := c argAt:1.
- (self class
- isBreakpointToBeIgnoredForParameter:breakpointParameter
- context:(c sender)
- modifyEntryCount:true
- ) ifTrue:[
- ^ true.
- ].
- ].
+ "/ look for halts or explicit breakpoints
+ c := thisContext findNextContextWithSelector:#halt or:#halt: or:nil.
+ c isNil ifTrue:[
+ c := thisContext findNextContextWithSelector:#breakPoint: or:#breakPoint:info: or:nil.
+ c isNil ifTrue:[
+ ^ false
+ ].
+ breakpointParameter := c argAt:1.
+ (self class
+ isBreakpointToBeIgnoredForParameter:breakpointParameter
+ context:(c sender)
+ modifyEntryCount:true
+ ) ifTrue:[
+ ^ true.
+ ].
+ ].
].
c := c sender.
"/ a code-breakpoint ?
(c receiver isKindOf:Breakpoint) ifTrue:[
- c := c sender.
+ c := c sender.
].
haltingMethod := c method.
haltingMethod isWrapped ifTrue:[
- lineNrInHaltingMethod := 1.
+ lineNrInHaltingMethod := 1.
] ifFalse:[
- lineNrInHaltingMethod := c lineNumber.
- "/ Transcript showCR:c.
+ lineNrInHaltingMethod := c lineNumber.
+ "/ Transcript showCR:c.
].
^ self class
- isHaltToBeIgnoredIn:haltingMethod
- atLineNr:lineNrInHaltingMethod
- context:c
- modifyEntryCount:true.
+ isHaltToBeIgnoredIn:haltingMethod
+ atLineNr:lineNrInHaltingMethod
+ context:c
+ modifyEntryCount:true.
"Created: / 22-10-2010 / 12:09:53 / cg"
"Modified: / 06-03-2012 / 12:54:09 / cg"
@@ -7933,12 +7933,12 @@
con := aContext.
self verboseBacktraceHolder value ifFalse:[
- (con notNil and:[con selector == #threadSwitch:]) ifTrue:[
- con := con sender.
- (con notNil and:[con selector == #timerInterrupt]) ifTrue:[
- con := con sender.
- ].
- ].
+ (con notNil and:[con selector == #threadSwitch:]) ifTrue:[
+ con := con sender.
+ (con notNil and:[con selector == #timerInterrupt]) ifTrue:[
+ con := con sender.
+ ].
+ ].
].
^ self setContext:con releaseInspectors:true
@@ -8209,21 +8209,21 @@
controlLoop
"this is a kludge:
- start a dispatchloop which exits when
- either continue, return or step is pressed
+ start a dispatchloop which exits when
+ either continue, return or step is pressed
"
haveControl := true.
[
- [haveControl] whileTrue:[
+ [haveControl] whileTrue:[
AbortOperationRequest handle:[:ex |
] do:[
- self controlLoopCatchingErrors
+ self controlLoopCatchingErrors
]
- ].
+ ].
] ensure:[
- catchBlock := nil.
- haveControl := false
+ catchBlock := nil.
+ haveControl := false
].
"Modified: 9.7.1996 / 18:29:09 / cg"
@@ -8390,7 +8390,7 @@
handle:[:ex | ex proceed ]
do:[
answer := Dialog
- choose:(ex creator class name,' in debugger:\' withCRs , eMsg , '\\debug again ?' withCRs)
+ choose:(ex creator class theNonMetaclass name,' in debugger:\' withCRs , eMsg , '\\debug again ?' withCRs)
labels:#( 'Proceed' 'Cancel' 'Debug' )
values:#( #proceed #cancel #debug )
default:#cancel.
@@ -8399,7 +8399,7 @@
'DebugView [info]: caught exception - debugging' infoPrintCR.
Debugger
enterUnconditional:(ex suspendedContext)
- withMessage:(ex creator class name,' in debugger: ' , eMsg)
+ withMessage:(ex creator class theNonMetaclass name,' in debugger: ' , eMsg)
mayProceed:true.
ex proceed.
].
@@ -8550,22 +8550,22 @@
(newSelection notNil
and:[newSelection = contextView selection]) ifTrue:[
- ^ true
+ ^ true
].
answer := Dialog
- confirmWithCancel:('Code modified - change selection anyway ?')
- labels:#('No' 'No, Show Diffs' 'Yes').
+ confirmWithCancel:('Code modified - change selection anyway ?')
+ labels:#('No' 'No, Show Diffs' 'Yes').
answer isNil ifTrue:[^ false].
answer == false ifTrue:[
- v := DiffCodeView
- openOn:codeView contents
- label:(resources string:'Changed code (to be accepted ?)')
- and:currentMethod source
- label:(resources string:'Method''s actual (maybe original) code').
- v label:(resources string:'Comparing method''s code').
- v waitUntilVisible.
- ^ false
+ v := DiffCodeView
+ openOn:codeView contents
+ label:(resources string:'Changed code (to be accepted ?)')
+ and:currentMethod source
+ label:(resources string:'Method''s actual (maybe original) code').
+ v label:(resources string:'Comparing method''s code').
+ v waitUntilVisible.
+ ^ false
].
codeView modified:false.
@@ -8576,17 +8576,17 @@
"user wants some code to be recompiled"
ParseError handle:[:ex |
- ex lineNumber notNil ifTrue:[
- codeView selectLine:ex lineNumber. "/ selectFromCharacterPosition:ex startPosition to:ex endPosition.
- ].
- Dialog information:ex description.
+ ex lineNumber notNil ifTrue:[
+ codeView selectLine:ex lineNumber. "/ selectFromCharacterPosition:ex startPosition to:ex endPosition.
+ ].
+ Dialog information:ex description.
"/ ParseError new
"/ errorMessage:aMessage startPosition:position endPosition:endPos;
"/ parameter:self;
"/ lineNumber:tokenLineNr; "lineNr"
"/ raiseRequest.
] do:[
- ^ self codeAccept:someCode unwind:false category:nil onCancel:nil
+ ^ self codeAccept:someCode unwind:false category:nil onCancel:nil
].
"Modified: / 28-11-2006 / 19:49:04 / cg"
@@ -8811,13 +8811,13 @@
cls := currentMethod mclass.
cls notNil ifTrue:[
- language := cls programmingLanguage.
+ language := cls programmingLanguage.
].
UserInformation handle:[:ex |
- ex proceed.
+ ex proceed.
] do:[
- DoWhatIMeanSupport codeCompletionForLanguage:language class:cls context:selectedContext codeView:codeView.
+ DoWhatIMeanSupport codeCompletionForLanguage:language class:cls context:selectedContext codeView:codeView.
].
"Modified: / 18-09-2013 / 14:20:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -8838,11 +8838,11 @@
Also sent to autoselect an interesting context on entry."
HaltInterrupt handle:[:ex |
- ignoreBreakpoints ifFalse:[ex reject].
- ('DebugView [info]: halt/breakpoint in debugger at %1 ignored [doShowSelection.]' bindWith:ex suspendedContext) infoPrintCR.
- ex proceed
+ ignoreBreakpoints ifFalse:[ex reject].
+ ('DebugView [info]: halt/breakpoint in debugger at %1 ignored [doShowSelection.]' bindWith:ex suspendedContext) infoPrintCR.
+ ex proceed
] do:[
- self updateForContext:lineNr
+ self updateForContext:lineNr
].
self updateMenuItems
@@ -8851,10 +8851,10 @@
hideStackInspector
stackInspector notNil ifTrue:[
- stackInspector destroy.
- stackInspector := nil.
- receiverInspector origin:(0.0 @ 0.0) corner:0.5 @ 1.0.
- contextInspector origin:(0.5 @ 0.0) corner:(1.0 @ 1.0)
+ stackInspector destroy.
+ stackInspector := nil.
+ receiverInspector origin:(0.0 @ 0.0) corner:0.5 @ 1.0.
+ contextInspector origin:(0.5 @ 0.0) corner:(1.0 @ 1.0)
]
!
@@ -8863,7 +8863,7 @@
sel := contextView selection.
sel notNil ifTrue:[
- self showSelection:sel
+ self showSelection:sel
]
"Created: / 18-06-2010 / 12:29:21 / cg"
@@ -8879,45 +8879,45 @@
evView := anEvent view.
evView notNil ifTrue:[
- focusView := evView windowGroup focusView.
- focusView isNil ifTrue:[
- focusView := evView.
- ].
-
- anEvent isKeyPressEvent ifTrue:[
- key := anEvent key.
- rawKey := anEvent rawKey.
-
- inCodeView := (focusView == codeView
- or:[focusView isComponentOf:codeView]).
- inCodeView ifTrue:[
- key == #CodeCompletion ifTrue:[
- "/ complete the word before/under the cursor.
- self sensor
- pushUserEvent:#codeCompletion
- for:self
- withArguments:#().
- ^ true
- ].
- ].
- ].
+ focusView := evView windowGroup focusView.
+ focusView isNil ifTrue:[
+ focusView := evView.
+ ].
+
+ anEvent isKeyPressEvent ifTrue:[
+ key := anEvent key.
+ rawKey := anEvent rawKey.
+
+ inCodeView := (focusView == codeView
+ or:[focusView isComponentOf:codeView]).
+ inCodeView ifTrue:[
+ key == #CodeCompletion ifTrue:[
+ "/ complete the word before/under the cursor.
+ self sensor
+ pushUserEvent:#codeCompletion
+ for:self
+ withArguments:#().
+ ^ true
+ ].
+ ].
+ ].
false ifTrue:[
- anEvent isButtonReleaseEvent ifTrue:[
- anEvent view == codeView ifTrue:[
- (RBParser notNil and:[RBParser isLoaded])
- ifTrue:[
- self sensor
- pushEvent:anEvent. "/ must be first in queue
-
- self sensor
- pushUserEvent:#explainSelection
- for:self
- withArguments:nil.
- ^ true "/ eaten
- ]
- ]
- ].
+ anEvent isButtonReleaseEvent ifTrue:[
+ anEvent view == codeView ifTrue:[
+ (RBParser notNil and:[RBParser isLoaded])
+ ifTrue:[
+ self sensor
+ pushEvent:anEvent. "/ must be first in queue
+
+ self sensor
+ pushUserEvent:#explainSelection
+ for:self
+ withArguments:nil.
+ ^ true "/ eaten
+ ]
+ ]
+ ].
].
].
@@ -8933,33 +8933,33 @@
Also sent to autoselect an interesting context on entry."
UserNotification
- handle:[:ex |
- "/ ex suspendedContext fullPrintAll.
- Transcript showCR:ex description.
- "/ Transcript showCR:ex parameter.
- ex proceed
- ]
- do:[
- Error
- handle:[:ex |
- |s con|
-
- ex creator isControlInterrupt ifTrue:[
- 'DebugView [info]: halt/break ignored - while showing selection in debugger'
- infoPrintCR.
- ex proceed
- ].
- ('DebugView [info]: error at %1 when showing selection in debugger ignored'
- bindWith:ex suspendedContext) infoPrintCR.
- s := '' writeStream.
- s nextPutLine:'**** error in debugger, while extracting source'.
- s nextPutLine:'****'.
- s nextPutLine:'**** ',(ex description).
- s nextPutLine:'****'.
- con := ex suspendedContext.
- s nextPutLine:'**** ',(con printString).
- con := con sender.
- HaltInterrupt ignoreIn:[ con fullPrintAllOn:s. ].
+ handle:[:ex |
+ "/ ex suspendedContext fullPrintAll.
+ Transcript showCR:ex description.
+ "/ Transcript showCR:ex parameter.
+ ex proceed
+ ]
+ do:[
+ Error
+ handle:[:ex |
+ |s con|
+
+ ex creator isControlInterrupt ifTrue:[
+ 'DebugView [info]: halt/break ignored - while showing selection in debugger'
+ infoPrintCR.
+ ex proceed
+ ].
+ ('DebugView [info]: error at %1 when showing selection in debugger ignored'
+ bindWith:ex suspendedContext) infoPrintCR.
+ s := '' writeStream.
+ s nextPutLine:'**** error in debugger, while extracting source'.
+ s nextPutLine:'****'.
+ s nextPutLine:'**** ',(ex description).
+ s nextPutLine:'****'.
+ con := ex suspendedContext.
+ s nextPutLine:'**** ',(con printString).
+ con := con sender.
+ HaltInterrupt ignoreIn:[ con fullPrintAllOn:s. ].
"/ [con notNil] whileTrue:[
"/ Error catch:[:ex |
@@ -8973,26 +8973,26 @@
"/ ]
"/ ].
- codeView contents:(s contents).
- ex return.
- ]
- do:[ self doShowSelection:lineNr ]
- ]
+ codeView contents:(s contents).
+ ex return.
+ ]
+ do:[ self doShowSelection:lineNr ]
+ ]
"Modified: / 19-07-2012 / 10:56:58 / cg"
!
showStackInspectorFor:con
stackInspector isNil ifTrue:[
- receiverInspector origin:(0.0 @ 0.0) corner:0.3 @ 1.0.
- contextInspector origin:(0.3 @ 0.0) corner:(0.6 @ 1.0).
- stackInspector := InspectorView
- origin:(0.6 @ 0.0)
- corner:(1.0 @ 1.0)
- in:contextInspector superView.
- stackInspector realize.
- stackInspector fieldListLabel:'Stack'.
- stackInspector hideReceiver:true
+ receiverInspector origin:(0.0 @ 0.0) corner:0.3 @ 1.0.
+ contextInspector origin:(0.3 @ 0.0) corner:(0.6 @ 1.0).
+ stackInspector := InspectorView
+ origin:(0.6 @ 0.0)
+ corner:(1.0 @ 1.0)
+ in:contextInspector superView.
+ stackInspector realize.
+ stackInspector fieldListLabel:'Stack'.
+ stackInspector hideReceiver:true
].
stackInspector inspect:(con stackFrame asArray).
stackInspector showLast
@@ -9502,21 +9502,21 @@
ignoreForProcess:aProcess
ignoredProcesses isNil ifTrue:[
- ignoredProcesses := WeakIdentitySet new.
+ ignoredProcesses := WeakIdentitySet new.
].
ignoredProcesses add:aProcess
!
ignoreForReceiverClass:aClass
ignoredReceiverClasses isNil ifTrue:[
- ignoredReceiverClasses := WeakIdentitySet new.
+ ignoredReceiverClasses := WeakIdentitySet new.
].
ignoredReceiverClasses add:aClass
!
ignoreIfCalledFromMethod:aMethod
ignoredSendingClassAndSelectors isNil ifTrue:[
- ignoredSendingClassAndSelectors := OrderedCollection new.
+ ignoredSendingClassAndSelectors := OrderedCollection new.
].
"/ remember the method's name, not the method.
@@ -9534,9 +9534,9 @@
decrementIgnoreCount
ignoreCount notNil ifTrue:[
- ignoreCount > 0 ifTrue:[
- ignoreCount := ignoreCount - 1
- ]
+ ignoreCount > 0 ifTrue:[
+ ignoreCount := ignoreCount - 1
+ ]
]
! !
@@ -9591,8 +9591,8 @@
nil if not ignored"
^ String streamContents:[:s |
- s nextPutAll:'ignored '.
- self printConditionOn:s
+ s nextPutAll:'ignored '.
+ self printConditionOn:s
].
"/ ignoreCount notNil ifTrue:[
@@ -9629,17 +9629,17 @@
"true if this ignore-entry is still active"
ignoreEndTime notNil ifTrue:[
- ^ ignoreEndTime > Timestamp now
+ ^ ignoreEndTime > Timestamp now
].
ignoreCount notNil ifTrue:[
- ^ ignoreCount == -1 or:[ ignoreCount > 0 ]
+ ^ ignoreCount == -1 or:[ ignoreCount > 0 ]
].
ignoredProcesses notNil ifTrue:[
- ignoredProcesses := ignoredProcesses reject:[:p | p notNil and:[p isDead]].
- ignoredProcesses isEmpty ifTrue:[
- ignoredProcesses := nil.
- ^ false
- ].
+ ignoredProcesses := ignoredProcesses reject:[:p | p notNil and:[p isDead]].
+ ignoredProcesses isEmpty ifTrue:[
+ ignoredProcesses := nil.
+ ^ false
+ ].
].
^ true
@@ -9664,13 +9664,13 @@
"true if this halt should be ignored (sometimes)"
ignoreUntilShiftKeyPressed == true ifTrue:[
- ^ Screen current shiftDown not
+ ^ Screen current shiftDown not
].
ignoreCount notNil ifTrue:[
- ^ ignoreCount > 0
+ ^ ignoreCount > 0
].
ignoreEndTime notNil ifTrue:[
- ^ ignoreEndTime > Timestamp now
+ ^ ignoreEndTime > Timestamp now
].
^ true
@@ -9704,9 +9704,9 @@
"/ self assert:(methodArg mclass notNil).
methodArg == #all ifTrue:[
- weakMethodHolder := methodArg
+ weakMethodHolder := methodArg
] ifFalse:[
- weakMethodHolder := WeakArray with:methodArg.
+ weakMethodHolder := WeakArray with:methodArg.
].
lineNumber := lineNumberArg.
@@ -9719,15 +9719,15 @@
|method|
(method := self method) isNil ifTrue:[
- aStream nextPutAll:'an obsolete IgnoredHalt'.
- ^ self
+ aStream nextPutAll:'an obsolete IgnoredHalt'.
+ ^ self
].
aStream nextPutAll:'Ignore '.
method isSymbol ifTrue:[
- method printOn:aStream.
+ method printOn:aStream.
] ifFalse:[
- method whoString printOn:aStream.
+ method whoString printOn:aStream.
].
self printConditionOn:aStream.
@@ -9770,30 +9770,30 @@
"/ Transcript show:'is same; ignored: '; showCR:self isHaltIgnored.
context notNil ifTrue:[
- ignoredReceiverClasses notNil ifTrue:[
- ^ ignoredReceiverClasses includes:(context receiver class)
- ].
+ ignoredReceiverClasses notNil ifTrue:[
+ ^ ignoredReceiverClasses includes:(context receiver class)
+ ].
].
"/ Transcript showCR:ignoredProcesses.
"/ Transcript showCR:Processor activeProcess.
ignoredProcesses notNil ifTrue:[
- ^ ignoredProcesses includes:(Processor activeProcess)
+ ^ ignoredProcesses includes:(Processor activeProcess)
].
ignoredSendingClassAndSelectors notNil ifTrue:[
- context withAllSendersDo:[:each |
- |m className selector cls|
-
- (m := each method) notNil ifTrue:[
- cls := m mclass.
- cls notNil ifTrue:[
- className := cls name.
- selector := m selector.
- (ignoredSendingClassAndSelectors contains:[:entry | entry first = className and:[entry second = selector]])
- ifTrue:[^ true].
- ].
- ]
- ]
+ context withAllSendersDo:[:each |
+ |m className selector cls|
+
+ (m := each method) notNil ifTrue:[
+ cls := m mclass.
+ cls notNil ifTrue:[
+ className := cls name.
+ selector := m selector.
+ (ignoredSendingClassAndSelectors contains:[:entry | entry first = className and:[entry second = selector]])
+ ifTrue:[^ true].
+ ].
+ ]
+ ]
].
^ self isHaltIgnored "/ unconditionally