equal
deleted
inserted
replaced
509 ('Inspect hierarchical' #doNewInspect ) |
509 ('Inspect hierarchical' #doNewInspect ) |
510 ('-') |
510 ('-') |
511 ('Ref chains' #showReferences ) |
511 ('Ref chains' #showReferences ) |
512 ('-') |
512 ('-') |
513 ('Browse' #browse ) |
513 ('Browse' #browse ) |
514 ('Browse class hierarchy' #browseClassHierarchy ) |
514 "/ ('Browse class hierarchy' #browseClassHierarchy ) |
515 ('Browse full class protocol' #browseFullClassProtocol) |
515 "/ ('Browse full class protocol' #browseFullClassProtocol) |
516 ). |
516 ). |
517 |
517 |
518 sel := self selection. |
518 sel := self selection. |
519 (sel isBlock or:[sel isContext]) ifTrue:[ |
519 (sel isBlock or:[sel isContext]) ifTrue:[ |
520 items := items , #( |
520 items := items , #( |
595 inspectHistory size == 0 ifTrue:[ |
595 inspectHistory size == 0 ifTrue:[ |
596 m disable:#doBack |
596 m disable:#doBack |
597 ]. |
597 ]. |
598 self selection class hasImmediateInstances ifTrue:[ |
598 self selection class hasImmediateInstances ifTrue:[ |
599 m disableAll:#(showReferences doNewInspect) |
599 m disableAll:#(showReferences doNewInspect) |
|
600 ]. |
|
601 |
|
602 sel inspectorClass == self class ifFalse:[ |
|
603 m disable:#doFollow |
600 ]. |
604 ]. |
601 |
605 |
602 ^ m |
606 ^ m |
603 |
607 |
604 "Modified: / 6.2.2000 / 13:48:09 / cg" |
608 "Modified: / 6.2.2000 / 13:48:09 / cg" |
1048 |
1052 |
1049 "Modified: / 26.8.1998 / 19:05:25 / cg" |
1053 "Modified: / 26.8.1998 / 19:05:25 / cg" |
1050 ! ! |
1054 ! ! |
1051 |
1055 |
1052 !InspectorView methodsFor:'queries'! |
1056 !InspectorView methodsFor:'queries'! |
|
1057 |
|
1058 canInspect:anObject |
|
1059 ^ anObject inspectorClass == self class |
|
1060 ! |
1053 |
1061 |
1054 labelFor:anObject |
1062 labelFor:anObject |
1055 "return the windowLabel to use in my topView, when inspecting anObject." |
1063 "return the windowLabel to use in my topView, when inspecting anObject." |
1056 |
1064 |
1057 |lbl| |
1065 |lbl| |
1337 ! ! |
1345 ! ! |
1338 |
1346 |
1339 !InspectorView class methodsFor:'documentation'! |
1347 !InspectorView class methodsFor:'documentation'! |
1340 |
1348 |
1341 version |
1349 version |
1342 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.113 2001-09-25 12:45:13 cg Exp $' |
1350 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.114 2001-09-25 12:57:35 cg Exp $' |
1343 ! ! |
1351 ! ! |