equal
deleted
inserted
replaced
3606 and:[arg homeMethod == steppedContext method |
3606 and:[arg homeMethod == steppedContext method |
3607 "arg home == steppedContext"]]) |
3607 "arg home == steppedContext"]]) |
3608 ifTrue:[ |
3608 ifTrue:[ |
3609 anyStepBlocks := true. |
3609 anyStepBlocks := true. |
3610 ] ifFalse:[ |
3610 ] ifFalse:[ |
3611 (where methodHome receiver isBlock |
3611 (where methodHome notNil |
|
3612 and:[where methodHome receiver isBlock |
3612 and:[(where methodHome receiver isKindOf:Block) |
3613 and:[(where methodHome receiver isKindOf:Block) |
3613 and:[where methodHome receiver homeMethod == steppedContext method |
3614 and:[where methodHome receiver homeMethod == steppedContext method |
3614 "where methodHome receiver home == steppedContext"]]) |
3615 "where methodHome receiver home == steppedContext"]]]) |
3615 ifTrue:[ |
3616 ifTrue:[ |
3616 anyStepBlocks := true. |
3617 anyStepBlocks := true. |
3617 ] |
3618 ] |
3618 ]. |
3619 ]. |
3619 ] |
3620 ] |
8560 ! ! |
8561 ! ! |
8561 |
8562 |
8562 !DebugView class methodsFor:'documentation'! |
8563 !DebugView class methodsFor:'documentation'! |
8563 |
8564 |
8564 version |
8565 version |
8565 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.602 2013-07-22 14:01:57 cg Exp $' |
8566 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.603 2013-07-24 10:28:52 cg Exp $' |
8566 ! |
8567 ! |
8567 |
8568 |
8568 version_CVS |
8569 version_CVS |
8569 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.602 2013-07-22 14:01:57 cg Exp $' |
8570 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.603 2013-07-24 10:28:52 cg Exp $' |
8570 ! |
8571 ! |
8571 |
8572 |
8572 version_SVN |
8573 version_SVN |
8573 ^ '$Id: DebugView.st,v 1.602 2013-07-22 14:01:57 cg Exp $' |
8574 ^ '$Id: DebugView.st,v 1.603 2013-07-24 10:28:52 cg Exp $' |
8574 ! ! |
8575 ! ! |
8575 |
8576 |
8576 |
8577 |
8577 DebugView initialize! |
8578 DebugView initialize! |