equal
deleted
inserted
replaced
22 |
22 |
23 InspectorView comment:' |
23 InspectorView comment:' |
24 COPYRIGHT (c) 1989 by Claus Gittinger |
24 COPYRIGHT (c) 1989 by Claus Gittinger |
25 All Rights Reserved |
25 All Rights Reserved |
26 |
26 |
27 $Header: /cvs/stx/stx/libtool/Attic/InspView.st,v 1.26 1995-07-23 03:19:18 claus Exp $ |
27 $Header: /cvs/stx/stx/libtool/Attic/InspView.st,v 1.27 1995-08-10 13:14:22 claus Exp $ |
28 '! |
28 '! |
29 |
29 |
30 !InspectorView class methodsFor:'documentation'! |
30 !InspectorView class methodsFor:'documentation'! |
31 |
31 |
32 copyright |
32 copyright |
43 " |
43 " |
44 ! |
44 ! |
45 |
45 |
46 version |
46 version |
47 " |
47 " |
48 $Header: /cvs/stx/stx/libtool/Attic/InspView.st,v 1.26 1995-07-23 03:19:18 claus Exp $ |
48 $Header: /cvs/stx/stx/libtool/Attic/InspView.st,v 1.27 1995-08-10 13:14:22 claus Exp $ |
|
49 $Revision: 1.27 $ |
49 " |
50 " |
50 ! |
51 ! |
51 |
52 |
52 documentation |
53 documentation |
53 " |
54 " |
90 topView := StandardSystemView |
91 topView := StandardSystemView |
91 label:(self labelFor:anObject) |
92 label:(self labelFor:anObject) |
92 icon:self defaultIcon |
93 icon:self defaultIcon |
93 minExtent:(100 @ 100). |
94 minExtent:(100 @ 100). |
94 |
95 |
|
96 topView iconLabel:(self labelNameFor:anObject). |
95 topView extent:(Screen current extent // 3). |
97 topView extent:(Screen current extent // 3). |
96 |
98 |
97 inspectorView := self origin:(0.0 @ 0.0) |
99 inspectorView := self origin:(0.0 @ 0.0) |
98 corner:(1.0 @ 1.0) |
100 corner:(1.0 @ 1.0) |
99 in:topView. |
101 in:topView. |
132 ]. |
134 ]. |
133 ^ DefaultIcon |
135 ^ DefaultIcon |
134 ! |
136 ! |
135 |
137 |
136 labelFor:anObject |
138 labelFor:anObject |
|
139 "return the windowLabel to use in my topView, when inspecting anObject." |
|
140 |
|
141 ^ ClassResources string:'Inspector on: %1' with:(self labelNameFor:anObject) |
|
142 ! |
|
143 |
|
144 labelNameFor:anObject |
|
145 "return the iconLabel to use in my topView, when inspecting anObject. |
|
146 Simply returns the className or name of anObjects class" |
|
147 |
137 |nm| |
148 |nm| |
138 |
149 |
139 anObject isClass ifTrue:[ |
150 anObject isClass ifTrue:[ |
140 nm := anObject displayString |
151 nm := anObject displayString |
141 ]. |
152 ]. |
142 nm isNil ifTrue:[ |
153 nm isNil ifTrue:[ |
143 nm := anObject classNameWithArticle |
154 nm := anObject classNameWithArticle |
144 ]. |
155 ]. |
145 |
156 |
146 ^ 'Inspector on: ' , nm |
157 ^ nm |
147 ! ! |
158 ! ! |
148 |
159 |
149 !InspectorView methodsFor:'accessing'! |
160 !InspectorView methodsFor:'accessing'! |
150 |
161 |
151 inspect:anObject |
162 inspect:anObject |