86 hasMore ifTrue:[ |
86 hasMore ifTrue:[ |
87 items := #( |
87 items := #( |
88 ('inspect' doInspect ) |
88 ('inspect' doInspect ) |
89 ('basicInspect' doBasicInspect ) |
89 ('basicInspect' doBasicInspect ) |
90 ('inspect hierarchical' doNewInspect ) |
90 ('inspect hierarchical' doNewInspect ) |
91 ('-' nil ) |
91 ('-') |
92 ('ref chains' showReferences ) |
92 ('ref chains' showReferences ) |
93 ('-' nil ) |
93 ('-') |
94 ('browse' browse ) |
94 ('browse' browse ) |
95 ('browse class hierarchy' browseClassHierarchy ) |
95 ('browse class hierarchy' browseClassHierarchy ) |
96 ('browse full class protocol' browseFullClassProtocol) |
96 ('browse full class protocol' browseFullClassProtocol) |
97 ('-' nil ) |
97 ('-') |
98 ('remove' removeIndex ) |
98 ('remove' removeIndex ) |
99 ('-' nil ) |
99 ('-') |
100 ('show more' showMore ) |
100 ('show more' showMore ) |
101 ). |
101 ). |
102 ] ifFalse:[ |
102 ] ifFalse:[ |
103 items := #( |
103 items := #( |
104 ('inspect' doInspect ) |
104 ('inspect' doInspect ) |
105 ('basicInspect' doBasicInspect ) |
105 ('basicInspect' doBasicInspect ) |
106 ('inspect hierarchical' doNewInspect ) |
106 ('inspect hierarchical' doNewInspect ) |
107 ('-' nil ) |
107 ('-') |
108 ('ref chains' showReferences ) |
108 ('ref chains' showReferences ) |
109 ('-' nil ) |
109 ('-') |
110 ('browse' browse ) |
110 ('browse' browse ) |
111 ('browse class hierarchy' browseClassHierarchy ) |
111 ('browse class hierarchy' browseClassHierarchy ) |
112 ('browse full class protocol' browseFullClassProtocol) |
112 ('browse full class protocol' browseFullClassProtocol) |
113 ('-' nil ) |
113 ('-') |
114 ('remove' removeIndex ) |
114 ('remove' removeIndex ) |
115 ). |
115 ). |
116 ]. |
116 ]. |
117 |
117 |
118 monitorProcess isNil ifTrue:[ |
118 monitorProcess isNil ifTrue:[ |
119 items := items , #( ('-' nil) ('start monitor' doStartMonitor)). |
119 items := items , #( ('-') ('start monitor' doStartMonitor)). |
120 ] ifFalse:[ |
120 ] ifFalse:[ |
121 items := items , #( ('-' nil) ('stop monitor' doStopMonitor)). |
121 items := items , #( ('-') ('stop monitor' doStopMonitor)). |
122 ]. |
122 ]. |
123 |
123 |
124 m := PopUpMenu |
124 m := PopUpMenu |
125 itemList:items |
125 itemList:items |
126 resources:resources. |
126 resources:resources. |