equal
deleted
inserted
replaced
308 !ToolApplicationModel class methodsFor:'image specs'! |
308 !ToolApplicationModel class methodsFor:'image specs'! |
309 |
309 |
310 desktopIcon |
310 desktopIcon |
311 "returns the icon used for the desktop" |
311 "returns the icon used for the desktop" |
312 |
312 |
|
313 <resource: #programImage> |
|
314 |
313 ^Icon |
315 ^Icon |
314 constantNamed:#'ToolApplicationModel desktopIcon' |
316 constantNamed:#'ToolApplicationModel desktopIcon' |
315 ifAbsentPut: |
317 ifAbsentPut: |
316 [ |
318 [ |
317 |desktopIcon| |
319 |desktopIcon| |
318 desktopIcon := Icon stxIcon. |
320 desktopIcon := Icon stxIcon. |
319 desktopIcon magnifiedBy: Display preferredIconSize/desktopIcon extent |
321 desktopIcon magnifiedBy: Display preferredIconSize/desktopIcon extent |
320 ] |
322 ] |
321 |
323 |
322 |
324 "Modified: / 24.8.1998 / 21:34:38 / cg" |
323 |
|
324 |
|
325 ! |
325 ! |
326 |
326 |
327 menuIcon |
327 menuIcon |
328 "returns the icon used for the menu bar" |
328 "returns the icon used for the menu bar" |
|
329 |
|
330 <resource: #programImage> |
329 |
331 |
330 ^Icon |
332 ^Icon |
331 constantNamed:#'ToolApplicationModel menuIcon' |
333 constantNamed:#'ToolApplicationModel menuIcon' |
332 ifAbsentPut: |
334 ifAbsentPut: |
333 [ |
335 [ |
334 |menuIcon| |
336 |menuIcon| |
335 menuIcon := Icon stxIcon. |
337 menuIcon := Icon stxIcon. |
336 menuIcon magnifiedBy: MenuPanel defaultFont height/menuIcon height |
338 menuIcon magnifiedBy: MenuPanel defaultFont height/menuIcon height |
337 ] |
339 ] |
|
340 |
|
341 "Modified: / 24.8.1998 / 21:34:33 / cg" |
338 ! ! |
342 ! ! |
339 |
343 |
340 !ToolApplicationModel class methodsFor:'interface specs'! |
344 !ToolApplicationModel class methodsFor:'interface specs'! |
341 |
345 |
342 windowSpecForCommit |
346 windowSpecForCommit |
735 !ToolApplicationModel class methodsFor:'queries'! |
739 !ToolApplicationModel class methodsFor:'queries'! |
736 |
740 |
737 getAllImageSelectorsFrom: aClass |
741 getAllImageSelectorsFrom: aClass |
738 "returns all image selectors implementing an image spec in class aClass" |
742 "returns all image selectors implementing an image spec in class aClass" |
739 |
743 |
740 |iconClass| |
744 |iconClass imageMethodSelectors r| |
|
745 |
|
746 aClass isNil ifTrue:[ |
|
747 ^ #() |
|
748 ]. |
741 |
749 |
742 aClass isSymbol |
750 aClass isSymbol |
743 ifTrue: [iconClass := Smalltalk at: aClass] |
751 ifTrue: [iconClass := Smalltalk at: aClass] |
744 ifFalse: [iconClass := aClass]. |
752 ifFalse: [iconClass := aClass]. |
745 |
753 |
746 ^((iconClass class methodDictionary values select: [:m| m category = 'image specs']) |
754 imageMethodSelectors := OrderedCollection new. |
747 collect: [:m| m selector]) asSortedCollection asOrderedCollection |
755 |
748 |
756 iconClass withAllSuperclasses do:[:cls | |
|
757 cls class methodDictionary keysAndValuesDo: [:sel :m | |
|
758 (r := m resourceType == #image |
|
759 or:[r == #programImage]) ifTrue:[ |
|
760 imageMethodSelectors add:sel |
|
761 ] |
|
762 ] |
|
763 ]. |
|
764 |
|
765 ^ imageMethodSelectors asSortedCollection asOrderedCollection |
|
766 |
|
767 "Modified: / 24.8.1998 / 21:42:34 / cg" |
749 ! |
768 ! |
750 |
769 |
751 isVisualStartable |
770 isVisualStartable |
752 "returns whether this application class can be started via #open" |
771 "returns whether this application class can be started via #open" |
753 |
772 |
1253 ! ! |
1272 ! ! |
1254 |
1273 |
1255 !ToolApplicationModel class methodsFor:'documentation'! |
1274 !ToolApplicationModel class methodsFor:'documentation'! |
1256 |
1275 |
1257 version |
1276 version |
1258 ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.74 1998-08-21 22:07:34 cg Exp $' |
1277 ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.75 1998-08-24 19:51:18 cg Exp $' |
1259 ! ! |
1278 ! ! |