equal
deleted
inserted
replaced
53 items := #( |
53 items := #( |
54 ('inspect' doInspect ) |
54 ('inspect' doInspect ) |
55 ('inspect key' doInspectKey ) |
55 ('inspect key' doInspectKey ) |
56 ('basicInspect' doBasicInspect ) |
56 ('basicInspect' doBasicInspect ) |
57 ('inspect hierarchical' doNewInspect ) |
57 ('inspect hierarchical' doNewInspect ) |
58 ('references' doReferences ) |
58 ('references' showReferences ) |
|
59 ('references to key' showKeyReferences ) |
59 ('-' nil ) |
60 ('-' nil ) |
60 ('add key' doAddKey ) |
61 ('add key' doAddKey ) |
61 ('remove key' doRemoveKey ) |
62 ('remove key' doRemoveKey ) |
62 ). |
63 ). |
63 ] ifFalse:[ |
64 ] ifFalse:[ |
64 items := #( |
65 items := #( |
65 ('inspect' doInspect ) |
66 ('inspect' doInspect ) |
66 ('inspect key' doInspectKey ) |
67 ('inspect key' doInspectKey ) |
67 ('basicInspect' doBasicInspect ) |
68 ('basicInspect' doBasicInspect ) |
68 ('inspect hierarchical' doNewInspect ) |
69 ('inspect hierarchical' doNewInspect ) |
|
70 ('references' showReferences ) |
69 ('-' nil ) |
71 ('-' nil ) |
70 ('add key' doAddKey ) |
72 ('add key' doAddKey ) |
71 ('remove key' doRemoveKey ) |
73 ('remove key' doRemoveKey ) |
72 ). |
74 ). |
73 ]. |
75 ]. |
153 inspectedObject changed. |
155 inspectedObject changed. |
154 listView cursor:(Cursor hand). |
156 listView cursor:(Cursor hand). |
155 self inspect:inspectedObject. "force list update" |
157 self inspect:inspectedObject. "force list update" |
156 ]. |
158 ]. |
157 ] |
159 ] |
|
160 ! |
|
161 |
|
162 showKeyReferences |
|
163 "show users of selected key (i.e. global)" |
|
164 |
|
165 |k| |
|
166 |
|
167 selectedLine notNil ifTrue:[ |
|
168 selectedLine == 1 ifFalse:[ |
|
169 k := (keys at:selectedLine - 1). |
|
170 self withWaitCursorDo:[ |
|
171 SystemBrowser browseReferendsOf:k asSymbol |
|
172 ] |
|
173 ]. |
|
174 ] |
|
175 |
158 ! ! |
176 ! ! |
159 |
177 |
160 !DictionaryInspectorView methodsFor:'private'! |
178 !DictionaryInspectorView methodsFor:'private'! |
161 |
179 |
162 defaultLabel |
180 defaultLabel |
234 ! ! |
252 ! ! |
235 |
253 |
236 !DictionaryInspectorView class methodsFor:'documentation'! |
254 !DictionaryInspectorView class methodsFor:'documentation'! |
237 |
255 |
238 version |
256 version |
239 ^ '$Header: /cvs/stx/stx/libtool/Attic/DictInspV.st,v 1.29 1998-05-21 11:27:04 cg Exp $' |
257 ^ '$Header: /cvs/stx/stx/libtool/Attic/DictInspV.st,v 1.30 1998-07-23 21:15:03 cg Exp $' |
240 ! ! |
258 ! ! |