equal
deleted
inserted
replaced
4031 ]. |
4031 ]. |
4032 ] |
4032 ] |
4033 ]. |
4033 ]. |
4034 where := where sender |
4034 where := where sender |
4035 ]. |
4035 ]. |
4036 s := 'context returned'. |
4036 s := 'Debugger: context returned'. |
4037 subBlockLeft := true. |
4037 subBlockLeft := true. |
4038 ]. |
4038 ]. |
4039 ] ifTrue:[ |
4039 ] ifTrue:[ |
4040 "/ 'found it right in sender' printCR. |
4040 "/ 'found it right in sender' printCR. |
4041 s := 'after step' |
4041 s := 'Debugger: after step' |
4042 ]. |
4042 ]. |
4043 ] ifTrue:[ |
4043 ] ifTrue:[ |
4044 "/ 'found it right away' printCR. |
4044 "/ 'found it right away' printCR. |
4045 s := 'after step' |
4045 s := 'Debugger: after step' |
4046 ]. |
4046 ]. |
4047 ] ifFalse:[ |
4047 ] ifFalse:[ |
4048 "/ ' send' printCR. |
4048 "/ ' send' printCR. |
4049 " |
4049 " |
4050 a send |
4050 a send |
4051 " |
4051 " |
4052 DebuggingDebugger2 == true ifTrue:[ |
4052 DebuggingDebugger2 == true ifTrue:[ |
4053 'clear steppedContext' printCR. |
4053 'clear steppedContext' printCR. |
4054 ]. |
4054 ]. |
4055 steppedContext := nil. |
4055 steppedContext := nil. |
4056 s := 'after send' |
4056 s := 'Debugger: after send' |
4057 ]. |
4057 ]. |
4058 |
4058 |
4059 ignore := false. |
4059 ignore := false. |
4060 (inBlock and:[stepHow == #nextOver or:[stepHow == #nextOut]]) ifTrue:[ |
4060 (inBlock and:[stepHow == #nextOver or:[stepHow == #nextOut]]) ifTrue:[ |
4061 ignore := true. |
4061 ignore := true. |
4065 "/ continue stepping in the home context. |
4065 "/ continue stepping in the home context. |
4066 |
4066 |
4067 subBlockLeft ifTrue:[ |
4067 subBlockLeft ifTrue:[ |
4068 steppedContext home notNil ifTrue:[ |
4068 steppedContext home notNil ifTrue:[ |
4069 steppedContext := steppedContext home. |
4069 steppedContext := steppedContext home. |
4070 s := 'after step'. |
4070 s := 'Debugger: after step'. |
4071 subBlockLeft := false. |
4071 subBlockLeft := false. |
4072 "/ DebugView enterUnconditional:thisContext withMessage:'debug'. |
4072 "/ DebugView enterUnconditional:thisContext withMessage:'debug'. |
4073 |
4073 |
4074 ] |
4074 ] |
4075 ]. |
4075 ]. |
4124 "/ when created a dummy context (lineNr == 1) |
4124 "/ when created a dummy context (lineNr == 1) |
4125 |
4125 |
4126 steppedContext lineNumber isNil ifTrue:[ |
4126 steppedContext lineNumber isNil ifTrue:[ |
4127 steppedContext selector == here sender selector ifTrue:[ |
4127 steppedContext selector == here sender selector ifTrue:[ |
4128 subBlockLeft := false. |
4128 subBlockLeft := false. |
4129 s := 'after step'. |
4129 s := 'Debugger: after step'. |
4130 steppedContext := here sender. |
4130 steppedContext := here sender. |
4131 ]. |
4131 ]. |
4132 ]. |
4132 ]. |
4133 oneMore := true |
4133 oneMore := true |
4134 ]. |
4134 ]. |
4135 |
4135 |
4136 inBlock ifTrue:[ |
4136 inBlock ifTrue:[ |
4137 DebuggingDebugger2 == true ifTrue:[ |
4137 DebuggingDebugger2 == true ifTrue:[ |
4138 'inBlock' printCR. |
4138 'inBlock' printCR. |
4139 ]. |
4139 ]. |
4140 s := 'in block'. |
4140 s := 'Debugger: in block'. |
4141 ]. |
4141 ]. |
4142 inBlockBelow ifTrue:[ |
4142 inBlockBelow ifTrue:[ |
4143 DebuggingDebugger2 == true ifTrue:[ |
4143 DebuggingDebugger2 == true ifTrue:[ |
4144 'inBlockBelow' printCR. |
4144 'inBlockBelow' printCR. |
4145 ]. |
4145 ]. |
9481 ! ! |
9481 ! ! |
9482 |
9482 |
9483 !DebugView class methodsFor:'documentation'! |
9483 !DebugView class methodsFor:'documentation'! |
9484 |
9484 |
9485 version |
9485 version |
9486 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.678 2015-02-11 10:49:06 cg Exp $' |
9486 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.679 2015-02-11 14:27:00 cg Exp $' |
9487 ! |
9487 ! |
9488 |
9488 |
9489 version_CVS |
9489 version_CVS |
9490 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.678 2015-02-11 10:49:06 cg Exp $' |
9490 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.679 2015-02-11 14:27:00 cg Exp $' |
9491 ! |
9491 ! |
9492 |
9492 |
9493 version_SVN |
9493 version_SVN |
9494 ^ '$Id: DebugView.st,v 1.678 2015-02-11 10:49:06 cg Exp $' |
9494 ^ '$Id: DebugView.st,v 1.679 2015-02-11 14:27:00 cg Exp $' |
9495 ! ! |
9495 ! ! |
9496 |
9496 |
9497 |
9497 |
9498 DebugView initialize! |
9498 DebugView initialize! |