equal
deleted
inserted
replaced
14 SimpleView subclass:#InspectorView |
14 SimpleView subclass:#InspectorView |
15 instanceVariableNames:'listView labelView workspace inspectedObject selectedLine nShown |
15 instanceVariableNames:'listView labelView workspace inspectedObject selectedLine nShown |
16 hasMore monitorProcess hideReceiver integerDisplayRadix |
16 hasMore monitorProcess hideReceiver integerDisplayRadix |
17 inspectHistory allowFollow isStandaloneInspector selectionIndex |
17 inspectHistory allowFollow isStandaloneInspector selectionIndex |
18 object inspectedObjectHolder displayStringMessage |
18 object inspectedObjectHolder displayStringMessage |
19 suppressPseudoSlots dereferenceValueHolders suppressHeadline' |
19 suppressPseudoSlots dereferenceValueHolders suppressHeadline |
|
20 headLineLabel' |
20 classVariableNames:'DefaultIcon IdDictionary NextSequentialID LastExtent' |
21 classVariableNames:'DefaultIcon IdDictionary NextSequentialID LastExtent' |
21 poolDictionaries:'' |
22 poolDictionaries:'' |
22 category:'Interface-Inspector' |
23 category:'Interface-Inspector' |
23 ! |
24 ! |
24 |
25 |
278 labelView label:aString |
279 labelView label:aString |
279 |
280 |
280 "Created: 28.6.1996 / 15:30:26 / cg" |
281 "Created: 28.6.1996 / 15:30:26 / cg" |
281 ! |
282 ! |
282 |
283 |
|
284 headLineLabel:aString |
|
285 "an alternative headline label (if used as embedded inspector)" |
|
286 |
|
287 headLineLabel := aString. |
|
288 |
|
289 "Modified: / 11-11-2010 / 17:14:02 / cg" |
|
290 ! |
|
291 |
283 hideReceiver:aBoolean |
292 hideReceiver:aBoolean |
284 "hide/show the self-entry for the inspected object; |
293 "hide/show the self-entry for the inspected object; |
285 This is hidden for context inspectors in the debugger" |
294 This is hidden for context inspectors in the debugger" |
286 |
295 |
287 hideReceiver := aBoolean |
296 hideReceiver := aBoolean |
530 helpView := View origin:(0.0 @ 0.0) corner:(0.3 @ 1.0) in:panel. |
539 helpView := View origin:(0.0 @ 0.0) corner:(0.3 @ 1.0) in:panel. |
531 helpView level:0; borderWidth:0. |
540 helpView level:0; borderWidth:0. |
532 |
541 |
533 suppressHeadline == true ifFalse:[ |
542 suppressHeadline == true ifFalse:[ |
534 labelView := Label origin:0.0@0.0 corner:1.0@0.0 in:helpView. |
543 labelView := Label origin:0.0@0.0 corner:1.0@0.0 in:helpView. |
535 labelView label:(self defaultLabel). |
544 labelView label:(headLineLabel ? self defaultLabel). |
536 labelView bottomInset:(labelView preferredHeight negated). |
545 labelView bottomInset:(labelView preferredHeight negated). |
537 ]. |
546 ]. |
538 |
547 |
539 v := HVScrollableView |
548 v := HVScrollableView |
540 for:SelectionInListView |
549 for:SelectionInListView |
580 |
589 |
581 nShown := 100. |
590 nShown := 100. |
582 hasMore := false. |
591 hasMore := false. |
583 |
592 |
584 "Modified: / 16-08-2005 / 21:54:04 / janfrog" |
593 "Modified: / 16-08-2005 / 21:54:04 / janfrog" |
585 "Modified: / 09-11-2010 / 14:49:37 / cg" |
594 "Modified: / 11-11-2010 / 17:13:46 / cg" |
586 ! |
595 ! |
587 |
596 |
588 initializeDragAndDrop |
597 initializeDragAndDrop |
589 |
598 |
590 | source | |
599 | source | |
2407 ! ! |
2416 ! ! |
2408 |
2417 |
2409 !InspectorView class methodsFor:'documentation'! |
2418 !InspectorView class methodsFor:'documentation'! |
2410 |
2419 |
2411 version |
2420 version |
2412 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.219 2010-11-09 13:52:10 cg Exp $' |
2421 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.220 2010-11-11 16:14:15 cg Exp $' |
2413 ! |
2422 ! |
2414 |
2423 |
2415 version_CVS |
2424 version_CVS |
2416 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.219 2010-11-09 13:52:10 cg Exp $' |
2425 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.220 2010-11-11 16:14:15 cg Exp $' |
2417 ! ! |
2426 ! ! |