equal
deleted
inserted
replaced
574 |varIdx l| |
574 |varIdx l| |
575 |
575 |
576 inspectedContext isNil ifTrue:[^ nil]. |
576 inspectedContext isNil ifTrue:[^ nil]. |
577 |
577 |
578 varIdx := lineNr. |
578 varIdx := lineNr. |
579 ((l := listView at:lineNr) startsWith:$-) ifTrue:[ |
579 l := listView at:lineNr. |
|
580 l isNil ifTrue:[ ^nil]. |
|
581 |
|
582 (l startsWith:$-) ifTrue:[ |
580 (l ~= '-') ifTrue:[ |
583 (l ~= '-') ifTrue:[ |
581 ^ self valueForSpecialLine:(listView at:lineNr) |
584 ^ self valueForSpecialLine:(listView at:lineNr) |
582 ]. |
585 ]. |
583 ]. |
586 ]. |
584 ^ self valueAtIndex:(varIdx - 1). "/ for the special var |
587 ^ self valueAtIndex:(varIdx - 1). "/ for the special var |
638 ! ! |
641 ! ! |
639 |
642 |
640 !ContextInspectorView class methodsFor:'documentation'! |
643 !ContextInspectorView class methodsFor:'documentation'! |
641 |
644 |
642 version |
645 version |
643 ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.65 2007-02-09 15:11:55 cg Exp $' |
646 ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.66 2008-11-18 11:48:13 sr Exp $' |
644 ! ! |
647 ! ! |