equal
deleted
inserted
replaced
495 fieldList |
495 fieldList |
496 "generate a list of names (& pseudo names) to be shown on the left side" |
496 "generate a list of names (& pseudo names) to be shown on the left side" |
497 |
497 |
498 |list| |
498 |list| |
499 |
499 |
|
500 inspectedContext isNil ifTrue:[ ^ #() ]. |
|
501 |
500 names size == 0 ifTrue:[ |
502 names size == 0 ifTrue:[ |
501 (inspectedContext isBlockContext and:[inspectedContext home isNil]) ifTrue:[ |
503 (inspectedContext isBlockContext and:[inspectedContext home isNil]) ifTrue:[ |
502 "/ hack to guide beginners |
504 "/ hack to guide beginners |
503 ^ { '>> no home in cheap block <<' colorizeAllWith:Color grey } |
505 ^ { '>> no home in cheap block <<' colorizeAllWith:Color grey } |
504 ]. |
506 ]. |
519 ]. |
521 ]. |
520 |
522 |
521 ^ list |
523 ^ list |
522 |
524 |
523 "Modified: / 16-05-2012 / 18:54:59 / cg" |
525 "Modified: / 16-05-2012 / 18:54:59 / cg" |
|
526 "Modified: / 25-02-2014 / 15:10:09 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
524 ! |
527 ! |
525 |
528 |
526 hasSelfEntry |
529 hasSelfEntry |
527 ^ false |
530 ^ false |
528 |
531 |
742 ! ! |
745 ! ! |
743 |
746 |
744 !ContextInspectorView class methodsFor:'documentation'! |
747 !ContextInspectorView class methodsFor:'documentation'! |
745 |
748 |
746 version |
749 version |
747 ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.95 2014-02-22 15:57:11 cg Exp $' |
750 ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.96 2014-02-25 16:33:33 vrany Exp $' |
748 ! |
751 ! |
749 |
752 |
750 version_CVS |
753 version_CVS |
751 ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.95 2014-02-22 15:57:11 cg Exp $' |
754 ^ '$Header: /cvs/stx/stx/libtool/ContextInspectorView.st,v 1.96 2014-02-25 16:33:33 vrany Exp $' |
752 ! ! |
755 ! ! |
753 |
756 |