'From Pharo7.0alpha of 9 November 2017 [Build information: Pharo-7.0+alpha.build.278.sha.1f42562ef634508d48a1e41ebf06af09c873e029 (32 Bit)] on 13 November 2017 at 4:13:44.337158 pm'!

!DebugSession methodsFor: 'debugging actions' stamp: 'ThomasDupriez 11/13/2017 16:00'!
runToSelection: selectionInterval inContext: aContext
        "Attempt to step over instructions in selectedContext until the
        execution reaches the selected instruction. This happens when the
        program counter passes the begining of selectionInterval.

        A not nill and valid interval is expected."
        (self pcRangeForContext: aContext) first >= selectionInterval first
            ifTrue: [ ^self ].
        self stepOver: aContext.
        [ aContext == self interruptedContext and: [ (self pcRangeForContext: aContext) first < selectionInterval first ] ]
            whileTrue: [ self stepThrough: aContext ]! !