equal
deleted
inserted
replaced
7 inclusion of the above copyright notice. This software may not |
7 inclusion of the above copyright notice. This software may not |
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
|
12 |
|
13 "{ Package: 'stx:libtool' }" |
12 |
14 |
13 SimpleView subclass:#InspectorView |
15 SimpleView subclass:#InspectorView |
14 instanceVariableNames:'listView labelView workspace inspectedObject selectedLine nShown |
16 instanceVariableNames:'listView labelView workspace inspectedObject selectedLine nShown |
15 hasMore monitorProcess hideReceiver showHex inspectHistory |
17 hasMore monitorProcess hideReceiver showHex inspectHistory |
16 allowFollow isStandaloneInspector selectionIndex object |
18 allowFollow isStandaloneInspector selectionIndex object |
1037 |
1039 |
1038 labelNameFor:anObject |
1040 labelNameFor:anObject |
1039 "return the iconLabel to use in my topView, when inspecting anObject. |
1041 "return the iconLabel to use in my topView, when inspecting anObject. |
1040 Simply returns the className or name of anObjects class" |
1042 Simply returns the className or name of anObjects class" |
1041 |
1043 |
|
1044 |s| |
|
1045 |
1042 anObject isClass ifTrue:[ |
1046 anObject isClass ifTrue:[ |
1043 ^ anObject displayString |
1047 s := anObject displayString |
1044 ]. |
1048 ] ifFalse:[ |
1045 ^ anObject classNameWithArticle |
1049 s := anObject classNameWithArticle |
1046 |
1050 ]. |
|
1051 ^ s ? 'Inspector' |
1047 ! ! |
1052 ! ! |
1048 |
1053 |
1049 !InspectorView methodsFor:'user interaction'! |
1054 !InspectorView methodsFor:'user interaction'! |
1050 |
1055 |
1051 doAccept:theText |
1056 doAccept:theText |
1280 ! ! |
1285 ! ! |
1281 |
1286 |
1282 !InspectorView class methodsFor:'documentation'! |
1287 !InspectorView class methodsFor:'documentation'! |
1283 |
1288 |
1284 version |
1289 version |
1285 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.106 2000-02-10 12:38:59 cg Exp $' |
1290 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.107 2000-05-11 10:07:13 cg Exp $' |
1286 ! ! |
1291 ! ! |