equal
deleted
inserted
replaced
73 "/ ('Browse class hierarchy' browseClassHierarchy ) |
73 "/ ('Browse class hierarchy' browseClassHierarchy ) |
74 "/ ('Browse full class protocol' browseFullClassProtocol) |
74 "/ ('Browse full class protocol' browseFullClassProtocol) |
75 ). |
75 ). |
76 |
76 |
77 sel := self selection. |
77 sel := self selection. |
78 (sel isBlock or:[sel isContext]) ifTrue:[ |
78 sel isBridgeProxy ifFalse:[ |
79 items := items , #( |
79 (sel isBlock or:[sel isContext]) ifTrue:[ |
80 ('Browse Blocks Home' #browseHome) |
80 items := items , #( |
81 ). |
81 ('Browse Blocks Home' #browseHome) |
|
82 ). |
|
83 ]. |
82 ]. |
84 ]. |
83 |
85 |
84 items := items , #( |
86 items := items , #( |
85 ('-') |
87 ('-') |
86 ('Remove' removeIndex ) |
88 ('Remove' removeIndex ) |
120 ]. |
122 ]. |
121 |
123 |
122 ^ m |
124 ^ m |
123 |
125 |
124 "Modified: / 06-08-2012 / 09:01:56 / cg" |
126 "Modified: / 06-08-2012 / 09:01:56 / cg" |
|
127 "Modified: / 08-05-2019 / 02:32:28 / Claus Gittinger" |
125 ! ! |
128 ! ! |
126 |
129 |
127 !OrderedCollectionInspectorView methodsFor:'private'! |
130 !OrderedCollectionInspectorView methodsFor:'private'! |
128 |
131 |
129 baseInspectedObjectClass |
132 baseInspectedObjectClass |