11 " |
11 " |
12 |
12 |
13 SimpleView subclass:#InspectorView |
13 SimpleView subclass:#InspectorView |
14 instanceVariableNames:'listView labelView workspace inspectedObject selectedLine nShown |
14 instanceVariableNames:'listView labelView workspace inspectedObject selectedLine nShown |
15 hasMore monitorProcess hideReceiver showHex inspectHistory |
15 hasMore monitorProcess hideReceiver showHex inspectHistory |
16 allowFollow isStandaloneInspector selectionIndex object' |
16 allowFollow isStandaloneInspector selectionIndex object |
|
17 inspectedObjectHolder' |
17 classVariableNames:'DefaultIcon' |
18 classVariableNames:'DefaultIcon' |
18 poolDictionaries:'' |
19 poolDictionaries:'' |
19 category:'Interface-Inspector' |
20 category:'Interface-Inspector' |
20 ! |
21 ! |
21 |
22 |
217 ^ i |
218 ^ i |
218 |
219 |
219 "Modified: 18.4.1997 / 15:16:53 / cg" |
220 "Modified: 18.4.1997 / 15:16:53 / cg" |
220 ! ! |
221 ! ! |
221 |
222 |
|
223 !InspectorView class methodsFor:'queries-plugin'! |
|
224 |
|
225 aspectSelectors |
|
226 ^ #( inspectedObjectHolder ) |
|
227 |
|
228 "Modified: / 10.2.2000 / 12:25:28 / cg" |
|
229 ! ! |
|
230 |
222 !InspectorView methodsFor:'accessing'! |
231 !InspectorView methodsFor:'accessing'! |
223 |
232 |
224 allowFollow:aBoolean |
233 allowFollow:aBoolean |
225 "enable/disable the follow menu item; |
234 "enable/disable the follow menu item; |
226 This is disabled for inspectors which are embedded in the debugger" |
235 This is disabled for inspectors which are embedded in the debugger" |
313 selectionIndex := selectedLine := nil |
322 selectionIndex := selectedLine := nil |
314 ! |
323 ! |
315 |
324 |
316 workspace |
325 workspace |
317 ^ workspace |
326 ^ workspace |
|
327 ! ! |
|
328 |
|
329 !InspectorView methodsFor:'accessing channels'! |
|
330 |
|
331 inspectedObjectHolder |
|
332 inspectedObjectHolder isNil ifTrue:[ |
|
333 inspectedObjectHolder := ValueHolder new. |
|
334 inspectedObjectHolder addDependent:self. |
|
335 ]. |
|
336 ^ inspectedObjectHolder |
|
337 |
|
338 "Created: / 10.2.2000 / 13:33:16 / cg" |
|
339 "Modified: / 10.2.2000 / 13:34:23 / cg" |
|
340 ! |
|
341 |
|
342 inspectedObjectHolder:aValueHolder |
|
343 inspectedObjectHolder notNil ifTrue:[ |
|
344 inspectedObjectHolder removeDependent:self. |
|
345 ]. |
|
346 inspectedObjectHolder := aValueHolder. |
|
347 inspectedObjectHolder notNil ifTrue:[ |
|
348 inspectedObjectHolder addDependent:self. |
|
349 ]. |
|
350 |
|
351 "Created: / 10.2.2000 / 13:34:53 / cg" |
|
352 ! ! |
|
353 |
|
354 !InspectorView methodsFor:'change & update'! |
|
355 |
|
356 update:something with:aParameter from:changedObject |
|
357 "Invoked when one of my dependees sends a change notification." |
|
358 |
|
359 |oldSelection| |
|
360 |
|
361 changedObject == inspectedObject ifTrue:[ |
|
362 oldSelection := listView selection. |
|
363 self inspect:inspectedObject. |
|
364 oldSelection notNil ifTrue:[ |
|
365 self showSelection:oldSelection |
|
366 ] |
|
367 ]. |
|
368 |
|
369 changedObject == inspectedObjectHolder ifTrue:[ |
|
370 self inspect:(inspectedObjectHolder value) |
|
371 ]. |
|
372 |
|
373 super update:something with:aParameter from:changedObject |
|
374 |
|
375 "Created: / 10.2.2000 / 13:46:38 / cg" |
|
376 "Modified: / 10.2.2000 / 13:48:18 / cg" |
318 ! ! |
377 ! ! |
319 |
378 |
320 !InspectorView methodsFor:'initialization & release'! |
379 !InspectorView methodsFor:'initialization & release'! |
321 |
380 |
322 destroy |
381 destroy |
1174 |
1233 |
1175 "Created: / 7.5.1998 / 01:54:52 / cg" |
1234 "Created: / 7.5.1998 / 01:54:52 / cg" |
1176 "Modified: / 7.5.1998 / 02:00:10 / cg" |
1235 "Modified: / 7.5.1998 / 02:00:10 / cg" |
1177 ! |
1236 ! |
1178 |
1237 |
1179 update:something with:someArgument from:changedObject |
|
1180 "handle updates from other inspectors" |
|
1181 |
|
1182 |oldSelection| |
|
1183 |
|
1184 changedObject == inspectedObject ifTrue:[ |
|
1185 oldSelection := listView selection. |
|
1186 self inspect:inspectedObject. |
|
1187 oldSelection notNil ifTrue:[ |
|
1188 self showSelection:oldSelection |
|
1189 ] |
|
1190 ] |
|
1191 ! |
|
1192 |
|
1193 valueAtLine:lineNr |
1238 valueAtLine:lineNr |
1194 "helper - return the value of the selected entry" |
1239 "helper - return the value of the selected entry" |
1195 |
1240 |
1196 |idx| |
1241 |idx| |
1197 |
1242 |