equal
deleted
inserted
replaced
4833 varIdx := definingNode arguments findFirst:[:arg | arg name = nm]. |
4833 varIdx := definingNode arguments findFirst:[:arg | arg name = nm]. |
4834 (definingNode arguments contains:[:arg | arg name = nm]) ifTrue:[ |
4834 (definingNode arguments contains:[:arg | arg name = nm]) ifTrue:[ |
4835 varIdx ~~ 0 ifTrue:[ |
4835 varIdx ~~ 0 ifTrue:[ |
4836 "/ am I in this block ? |
4836 "/ am I in this block ? |
4837 (actualContext lineNumber notNil |
4837 (actualContext lineNumber notNil |
4838 and:[ (actualContext lineNumber |
4838 and:[ definingNode lastLineNumber notNil |
|
4839 and:[ (actualContext lineNumber |
4839 between:definingNode firstLineNumber |
4840 between:definingNode firstLineNumber |
4840 and:definingNode lastLineNumber) |
4841 and:definingNode lastLineNumber) |
4841 and:[ varIdx <= actualContext numArgs ] ]) |
4842 and:[ varIdx <= actualContext numArgs ] ]]) |
4842 ifTrue:[ |
4843 ifTrue:[ |
4843 aBlock value:(actualContext argAt:varIdx) value:'blockArg ',nmBold . |
4844 aBlock value:(actualContext argAt:varIdx) value:'blockArg ',nmBold . |
4844 ^ self |
4845 ^ self |
4845 ]. |
4846 ]. |
4846 aBlock value:nmBold , ' is not in scope of selected context' value:nil. |
4847 aBlock value:nmBold , ' is not in scope of selected context' value:nil. |
6533 ! ! |
6534 ! ! |
6534 |
6535 |
6535 !DebugView class methodsFor:'documentation'! |
6536 !DebugView class methodsFor:'documentation'! |
6536 |
6537 |
6537 version |
6538 version |
6538 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.455 2008-11-09 22:50:51 cg Exp $' |
6539 ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.456 2008-11-15 12:00:50 cg Exp $' |
6539 ! ! |
6540 ! ! |
6540 |
6541 |
6541 DebugView initialize! |
6542 DebugView initialize! |