equal
deleted
inserted
replaced
116 label:(self labelFor:anObject) |
116 label:(self labelFor:anObject) |
117 icon:self defaultIcon |
117 icon:self defaultIcon |
118 minExtent:(100 @ 100). |
118 minExtent:(100 @ 100). |
119 |
119 |
120 topView iconLabel:(self labelNameFor:anObject). |
120 topView iconLabel:(self labelNameFor:anObject). |
121 topView extent:(Screen current extent // 3). |
121 topView extent:(self defaultExtent). |
122 |
122 |
123 inspectorView := self origin:(0.0 @ 0.0) |
123 inspectorView := self origin:(0.0 @ 0.0) |
124 corner:(1.0 @ 1.0) |
124 corner:(1.0 @ 1.0) |
125 in:topView. |
125 in:topView. |
126 |
126 |
156 InspectorView openOn:o monitor:'2'. |
156 InspectorView openOn:o monitor:'2'. |
157 Delay waitForSeconds:1. |
157 Delay waitForSeconds:1. |
158 o at:2 put:20 |
158 o at:2 put:20 |
159 " |
159 " |
160 |
160 |
161 "Created: 1.3.1996 / 19:30:50 / cg" |
161 "Created: / 1.3.1996 / 19:30:50 / cg" |
162 "Modified: 11.12.1996 / 17:07:17 / cg" |
162 "Modified: / 7.9.1998 / 14:15:38 / cg" |
163 ! ! |
163 ! ! |
164 |
164 |
165 !InspectorView class methodsFor:'defaults'! |
165 !InspectorView class methodsFor:'defaults'! |
|
166 |
|
167 defaultExtent |
|
168 ^ (Screen current extent // 3) |
|
169 |
|
170 "Created: / 7.9.1998 / 13:47:45 / cg" |
|
171 "Modified: / 7.9.1998 / 14:15:38 / cg" |
|
172 ! |
166 |
173 |
167 defaultIcon |
174 defaultIcon |
168 "return the browsers default window icon" |
175 "return the browsers default window icon" |
169 |
176 |
170 <resource: #style (#ICON #ICON_FILE)> |
177 <resource: #style (#ICON #ICON_FILE)> |
925 ! ! |
932 ! ! |
926 |
933 |
927 !InspectorView class methodsFor:'documentation'! |
934 !InspectorView class methodsFor:'documentation'! |
928 |
935 |
929 version |
936 version |
930 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.79 1998-08-26 17:05:52 cg Exp $' |
937 ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.80 1998-09-08 11:18:22 cg Exp $' |
931 ! ! |
938 ! ! |