equal
deleted
inserted
replaced
1 "{ Package: 'stx:libtool' }" |
1 "{ Package: 'stx:libtool' }" |
2 ! |
2 ! |
|
3 |
|
4 !Behavior methodsFor:'misc ui support'! |
|
5 |
|
6 iconInBrowserSymbol |
|
7 "can be redefined for a private icon in the browser (for me and my subclasses). |
|
8 The returned symbol must be a selector of the ToolbarIconLibrary." |
|
9 |
|
10 (self isBrowserStartable) ifTrue:[ |
|
11 self isVisualStartable ifTrue:[ |
|
12 ^ #visualStartableClassBrowserIcon |
|
13 ]. |
|
14 ^ #startableClassBrowserIcon |
|
15 ]. |
|
16 self isLoaded ifFalse:[ |
|
17 ^ #autoloadedClassBrowserIcon |
|
18 ]. |
|
19 |
|
20 "/ give ruby and other special metaclasses a chance ot provide their orn icon... |
|
21 ^ self class iconInBrowserSymbol |
|
22 |
|
23 "Created: / 20-07-2007 / 08:52:17 / cg" |
|
24 ! ! |
3 |
25 |
4 !ByteArray methodsFor:'inspecting'! |
26 !ByteArray methodsFor:'inspecting'! |
5 |
27 |
6 inspectorExtraAttributes |
28 inspectorExtraAttributes |
7 "extra (pseudo instvar) entries to be shown in an inspector." |
29 "extra (pseudo instvar) entries to be shown in an inspector." |
90 |
112 |
91 "Created: / 06-10-2006 / 13:56:52 / cg" |
113 "Created: / 06-10-2006 / 13:56:52 / cg" |
92 "Modified: / 06-10-2006 / 17:43:45 / cg" |
114 "Modified: / 06-10-2006 / 17:43:45 / cg" |
93 ! ! |
115 ! ! |
94 |
116 |
|
117 !Collection class methodsFor:'misc ui support'! |
|
118 |
|
119 iconInBrowserSymbol |
|
120 <resource: #programImage> |
|
121 |
|
122 ^ #containerClassBrowserIcon |
|
123 ! ! |
|
124 |
95 !Color methodsFor:'inspecting'! |
125 !Color methodsFor:'inspecting'! |
96 |
126 |
97 inspectorClass |
127 inspectorClass |
98 "return the class of an appropriate inspector. |
128 "return the class of an appropriate inspector. |
99 ST/X has a specialized ColorInspectorView for that" |
129 ST/X has a specialized ColorInspectorView for that" |
126 (instead of the default Inspector)." |
156 (instead of the default Inspector)." |
127 |
157 |
128 ^ DictionaryInspectorView |
158 ^ DictionaryInspectorView |
129 ! ! |
159 ! ! |
130 |
160 |
|
161 !Error class methodsFor:'misc ui support'! |
|
162 |
|
163 iconInBrowserSymbol |
|
164 <resource: #programImage> |
|
165 |
|
166 ^ #errorClassBrowserIcon |
|
167 ! ! |
|
168 |
131 !ExecutableFunction methodsFor:'printing & storing'! |
169 !ExecutableFunction methodsFor:'printing & storing'! |
132 |
170 |
133 printStringForBrowserWithSelector:selector |
171 printStringForBrowserWithSelector:selector |
134 "return a printString to represent myself to the user in a browser." |
172 "return a printString to represent myself to the user in a browser." |
135 |
173 |
141 inspectorClass |
179 inspectorClass |
142 "redefined to launch an ImageInspector |
180 "redefined to launch an ImageInspector |
143 (instead of the default InspectorView)." |
181 (instead of the default InspectorView)." |
144 |
182 |
145 ^ ImageInspectorView |
183 ^ ImageInspectorView |
|
184 ! ! |
|
185 |
|
186 !GenericException class methodsFor:'misc ui support'! |
|
187 |
|
188 iconInBrowserSymbol |
|
189 <resource: #programImage> |
|
190 |
|
191 ^ #exceptionClassBrowserIcon |
146 ! ! |
192 ! ! |
147 |
193 |
148 !Image methodsFor:'inspecting'! |
194 !Image methodsFor:'inspecting'! |
149 |
195 |
150 inspectorClass |
196 inspectorClass |
175 123 inspect |
221 123 inspect |
176 " |
222 " |
177 |
223 |
178 "Created: / 18-09-2006 / 21:22:46 / cg" |
224 "Created: / 18-09-2006 / 21:22:46 / cg" |
179 "Modified: / 06-10-2006 / 13:57:28 / cg" |
225 "Modified: / 06-10-2006 / 13:57:28 / cg" |
|
226 ! ! |
|
227 |
|
228 !LibraryDefinition class methodsFor:'misc ui support'! |
|
229 |
|
230 iconInBrowserSymbol |
|
231 <resource: #programImage> |
|
232 |
|
233 self theNonMetaclass isLibraryDefinition ifTrue:[^ #libraryDefinitionClassIcon ]. |
|
234 ^ super iconInBrowserSymbol |
|
235 |
|
236 "/ (c == LibraryDefinition) ifTrue:[ |
|
237 "/ aClass ~~ LibraryDefinition ifTrue:[ |
|
238 "/ ^ self packageIconSmall |
|
239 "/ ]. |
|
240 "/ ]. |
|
241 ! ! |
|
242 |
|
243 !Metaclass methodsFor:'misc ui support'! |
|
244 |
|
245 iconInBrowserSymbol |
|
246 "can be redefined for a private icon in the browser. |
|
247 The returned symbol must be a selector of the ToolbarIconLibrary." |
|
248 |
|
249 ^ nil |
180 ! ! |
250 ! ! |
181 |
251 |
182 !Method methodsFor:'inspecting'! |
252 !Method methodsFor:'inspecting'! |
183 |
253 |
184 inspectorExtraAttributes |
254 inspectorExtraAttributes |
357 ^ DictionaryInspectorView |
427 ^ DictionaryInspectorView |
358 |
428 |
359 |
429 |
360 ! ! |
430 ! ! |
361 |
431 |
|
432 !Notification class methodsFor:'misc ui support'! |
|
433 |
|
434 iconInBrowserSymbol |
|
435 <resource: #programImage> |
|
436 |
|
437 ^ #notificationClassBrowserIcon |
|
438 ! ! |
|
439 |
362 !Object methodsFor:'debugging'! |
440 !Object methodsFor:'debugging'! |
363 |
441 |
364 inspectorExtraAttributes |
442 inspectorExtraAttributes |
365 "extra (pseudo instvar) entries to be shown in an inspector. |
443 "extra (pseudo instvar) entries to be shown in an inspector. |
366 Answers a dictionary of aString -> aBlock. |
444 Answers a dictionary of aString -> aBlock. |
393 (OrderedCollection withAll:#(3 2 1)) removeFirst; yourself; inspect |
471 (OrderedCollection withAll:#(3 2 1)) removeFirst; yourself; inspect |
394 #(0 8 15 3 99 2) asSortedCollection inspect |
472 #(0 8 15 3 99 2) asSortedCollection inspect |
395 " |
473 " |
396 ! ! |
474 ! ! |
397 |
475 |
|
476 !ProjectDefinition class methodsFor:'misc ui support'! |
|
477 |
|
478 iconInBrowserSymbol |
|
479 <resource: #programImage> |
|
480 |
|
481 self theNonMetaclass isApplicationDefinition ifTrue:[ |
|
482 self theNonMetaclass isGUIApplication ifTrue:[ |
|
483 ^ #guiApplicationDefinitionClassIcon |
|
484 ]. |
|
485 ^ #applicationDefinitionClassIcon |
|
486 ]. |
|
487 ^ super iconInBrowserSymbol |
|
488 ! ! |
|
489 |
|
490 !Query class methodsFor:'misc ui support'! |
|
491 |
|
492 iconInBrowserSymbol |
|
493 <resource: #programImage> |
|
494 |
|
495 ^ #queryClassBrowserIcon |
|
496 ! ! |
|
497 |
398 !RunArray methodsFor:'user interface'! |
498 !RunArray methodsFor:'user interface'! |
399 |
499 |
400 inspectorClass |
500 inspectorClass |
401 "Re-reimplemented so that we don't get an ordered collection inspector |
501 "Re-reimplemented so that we don't get an ordered collection inspector |
402 which would get very confused when confronted with a runArray." |
502 which would get very confused when confronted with a runArray." |
413 (instead of the default Inspector)." |
513 (instead of the default Inspector)." |
414 |
514 |
415 ^ SetInspectorView |
515 ^ SetInspectorView |
416 ! ! |
516 ! ! |
417 |
517 |
|
518 !SimpleView class methodsFor:'misc ui support'! |
|
519 |
|
520 iconInBrowserSymbol |
|
521 <resource: #programImage> |
|
522 |
|
523 ^ #windowClassBrowserIcon |
|
524 ! ! |
|
525 |
418 !Smalltalk class methodsFor:'inspecting'! |
526 !Smalltalk class methodsFor:'inspecting'! |
419 |
527 |
420 inspectorClass |
528 inspectorClass |
421 "{ Pragma: +optSpace }" |
529 "{ Pragma: +optSpace }" |
422 |
530 |
423 "redefined to launch a DictionaryInspector (instead of the default Inspector)." |
531 "redefined to launch a DictionaryInspector (instead of the default Inspector)." |
424 |
532 |
425 ^ DictionaryInspectorView |
533 ^ DictionaryInspectorView |
|
534 ! ! |
|
535 |
|
536 !TestCase class methodsFor:'misc ui support'! |
|
537 |
|
538 iconInBrowserSymbol |
|
539 <resource: #programImage> |
|
540 |
|
541 self theNonMetaclass isAbstract ifTrue:[^ super iconInBrowserSymbol]. |
|
542 ^ #testCaseClassIcon |
426 ! ! |
543 ! ! |
427 |
544 |
428 !Text methodsFor:'inspecting'! |
545 !Text methodsFor:'inspecting'! |
429 |
546 |
430 inspectorExtraAttributes |
547 inspectorExtraAttributes |
441 |
558 |
442 "Created: / 18-09-2006 / 21:25:52 / cg" |
559 "Created: / 18-09-2006 / 21:25:52 / cg" |
443 "Modified: / 06-10-2006 / 13:57:38 / cg" |
560 "Modified: / 06-10-2006 / 13:57:38 / cg" |
444 ! ! |
561 ! ! |
445 |
562 |
|
563 !Warning class methodsFor:'misc ui support'! |
|
564 |
|
565 iconInBrowserSymbol |
|
566 <resource: #programImage> |
|
567 |
|
568 ^ #warningClassBrowserIcon |
|
569 ! ! |
|
570 |