All Rights Reserved

        instanceVariableNames:'busy haveControl exitAction canContinue contextView codeView

                receiverInspector contextInspector contextArray selectedContext

                catchBlock grabber mayProceed traceView tracing bigStep

                skipLineNr steppedContextAddress abortButton terminateButton

                continueButton stepButton nextButton nextOverButton nextOutButton

                sendButton returnButton restartButton exclusive inspecting

                nChainShown inspectedProcess updateProcess stopButton

                updateButton defineButton monitorToggle stepping

                steppedContextLineno stepForReturn actualContext inWrap

                stackInspector steppedContext wrapperContext verboseBacktrace

                firstContext stepHow cachable currentMethod ignoreBreakpoints

                stepUntilEntering lastStepUntilEntering

                lastSelectionInReceiverInspector lastSelectionInContextInspector

                canShowMore exitAbort reportButton setOfHiddenCallingSelectors

                isStoppedAtHaltOrBreakPoint exceptionInfoLabel methodCodeToggle

                methodCodeToggleSelectionHolder'

        classVariableNames:'CachedDebugger CachedExclusive OpenDebuggers MoreDebuggingDetail

                DebuggingDebugger DefaultDebuggerBackgroundColor

                InitialNChainShown IgnoredHalts ShowThreadID LastIgnoreHaltNTimes

                LastIgnoreHaltDuration LastExtent LastOrigin'

        poolDictionaries:''

        category:'Interface-Debugger'

        instanceVariableNames:'weakMethodHolder lineNumber ignoreEndTime ignoreCount

                ignoreUntilShiftKeyPressed'

        classVariableNames:''

        poolDictionaries:''

        privateIn:DebugView

              All Rights Reserved

        the DebugView class caches the last used debugger in a class

        variable. It may happen, that a malfunctioning debugger (for example,

        a halfway destroyed one) 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 will be fixed to

        avoid this problem.

        You also have to remove the cached debugger, if you change the debugger's

        initialization code (buttons, menu, etc.) and you want the new code to become

        effective.

        Claus Gittinger

        Exception Signal

        Process

        Debugger := self

        (ign isHaltIgnoredInMethod:haltingMethod line:lineNrInHaltingMethod) ifTrue:[

            ^ ign

        ].

ignoreHaltIn:haltingMethod at:lineNrOfHalt forCount:countOrNil orTimeDuration:dTOrNil orUntilShiftKey:untilShiftKey

        self removeInactiveIgnores.

        oldEntry := IgnoredHalts

                        detect:[:ign | ign isForMethod:haltingMethod line:lineNrOfHalt]

                        ifNone:nil.

        oldEntry notNil ifTrue:[

            IgnoredHalts remove:oldEntry ifAbsent:[].

        ]

    ].

    (countOrNil notNil or:[dTOrNil notNil or:[untilShiftKey == true]]) ifTrue:[

        IgnoredHalts isNil ifTrue:[

            IgnoredHalts := OrderedCollection new.

        ].

        ign := IgnoredHalt new method:haltingMethod lineNumber:lineNrOfHalt.

        (countOrNil notNil and:[countOrNil > 0]) ifTrue:[

            ign ignoreCount:countOrNil.

        ].

        (dTOrNil notNil) ifTrue:[

            ign ignoreEndTime:(Timestamp now + dTOrNil).

        ].

        untilShiftKey == true ifTrue:[

            ign ignoreUntilShiftKeyPressed:true.

        ].

        IgnoredHalts add:ign.

    "Created: / 27-01-2012 / 11:33:38 / cg"

    |c sender haltingMethod lineNrInHaltingMethod|

        (c receiver isKindOf:NoHandlerError) ifTrue:[

            c := c sender findNextContextWithSelector:#doRaise or:nil or:nil.

        ].

        (c receiver isKindOf:BreakPointInterrupt) ifFalse:[

            c := nil

        ] ifTrue:[

            [ ((sender := c sender) receiver isKindOf:BreakPointInterrupt)

            or:[ sender receiver == BreakPointInterrupt ]] whileTrue:[

                c := sender

            ].

            [ (sender := c sender) isBlockContext ] whileTrue:[

                c := sender

            ].

            sender := nil. "/ avoid keeping a reference to this context

        ].

        "/ 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

            ].

        ].

    "/ a code-breakpoint ?

    (c receiver isKindOf:Breakpoint) ifTrue:[

        c := c sender.

    ].

        lineNrInHaltingMethod := 1.

        lineNrInHaltingMethod := c lineNumber.

        "/ Transcript showCR:c.

        isHaltToBeIgnoredIn:haltingMethod

        atLineNr:lineNrInHaltingMethod

        modifyEntryCount:true.

    "Modified: / 27-01-2012 / 11:08:32 / cg"

        isHaltToBeIgnoredIn:haltingMethod

        atLineNr:lineNrInHaltingMethod

        modifyEntryCount:false

        (ign isHaltIgnoredInMethod:haltingMethod line:lineNrInHaltingMethod) ifTrue:[

            Transcript show:'Debugger [info]: halt ignored in ', haltingMethod whoString.

            Transcript show:' ('; show:ign; showCR:')'.

            modifyCount ifTrue:[ ign decrementIgnoreCount ].

            ign isHaltIgnored ifFalse:[

                Transcript showCR:'Debugger [info]: no longer ignore halt in ', haltingMethod whoString.

                IgnoredHalts remove:ign ifAbsent:[].

            ].

            ^ true.

        ].

        select:[:ign |

            ign isActive and:[ (ign isForMethod:haltingMethod line:lineNrInHaltingMethod) not ]

        ].

        IgnoredHalts := nil.

    "Modified: / 27-01-2012 / 11:41:19 / cg"

        IgnoredHalts := IgnoredHalts select:[:i | i isActive].

        enter:thisContext sender

        withMessage:'debugger entered'

        mayProceed:true.

        enter:aContext

        withMessage:aString

        mayProceed:true

        'DebugView [info]: breakpoint in debugger setup ignored [enter.]' infoPrintCR.

        ('DebugView [info]: breakpoint on:' , ex suspendedContext printString) infoPrintCR.

        ex proceed

        "

         well, it could be a stepping or sending debugger up there;

         in this case, return to it. This happens, when a stepping process

         runs into an error (for example, a halt). In this case, we want the

         stepping debugger to come up again instead of a new one.

        "

        OpenDebuggers notNil ifTrue:[

            active := Processor activeProcess.

            OpenDebuggers do:[:aDebugger |

                (aDebugger notNil and:[aDebugger ~~ 0]) ifTrue:[

                    (aDebugger inspectedProcess == active) ifTrue:[

                        aDebugger device isOpen ifTrue:[

                            "/ 'entering stepping debugger again' printNL.

                            aDebugger unstep.

                            aDebugger setLabelFor:aString in:active.

                            aDebugger mayProceed:mayProceed.

                            ^ aDebugger enter:aContext select:nil.

                        ]

                    ]

                ]

            ]

        ].

        enter:ex returnableSuspendedContext

        withMessage:ex descriptionForDebugger

        mayProceed:(ex mayProceed).

        'DebugView [info]: breakpoint in debugger setup ignored [enterUncond.]' infoPrintCR.

        ('DebugView [info]: breakpoint on:' , ex suspendedContext printString) infoPrintCR.

        ex proceed

        aDebugger := self new.

        'DebugView [error]: cannot open debugger' errorPrintCR.

        'DebugView [error]: Exception: ' errorPrint. aString errorPrintCR.

        mayProceed ifTrue:[

            (Dialog confirm:'Error/Breakpoint cought.\\Press Continue or Abort.' withCRs

                   yesLabel:'Continue' noLabel:'Abort')

            ifTrue:[

                ^ nil

            ].

        ] ifFalse:[

            self information:'Error cought.\\Press OK to abort the operation.' withCRs.

        ].

        AbortOperationRequest raise.

        "not reached"