--- a/ToolApplicationModel.st Mon Aug 24 18:30:56 1998 +0200
+++ b/ToolApplicationModel.st Mon Aug 24 21:51:18 1998 +0200
@@ -310,6 +310,8 @@
desktopIcon
"returns the icon used for the desktop"
+ <resource: #programImage>
+
^Icon
constantNamed:#'ToolApplicationModel desktopIcon'
ifAbsentPut:
@@ -319,14 +321,14 @@
desktopIcon magnifiedBy: Display preferredIconSize/desktopIcon extent
]
-
-
-
+ "Modified: / 24.8.1998 / 21:34:38 / cg"
!
menuIcon
"returns the icon used for the menu bar"
+ <resource: #programImage>
+
^Icon
constantNamed:#'ToolApplicationModel menuIcon'
ifAbsentPut:
@@ -335,6 +337,8 @@
menuIcon := Icon stxIcon.
menuIcon magnifiedBy: MenuPanel defaultFont height/menuIcon height
]
+
+ "Modified: / 24.8.1998 / 21:34:33 / cg"
! !
!ToolApplicationModel class methodsFor:'interface specs'!
@@ -737,15 +741,30 @@
getAllImageSelectorsFrom: aClass
"returns all image selectors implementing an image spec in class aClass"
- |iconClass|
+ |iconClass imageMethodSelectors r|
+
+ aClass isNil ifTrue:[
+ ^ #()
+ ].
aClass isSymbol
ifTrue: [iconClass := Smalltalk at: aClass]
ifFalse: [iconClass := aClass].
- ^((iconClass class methodDictionary values select: [:m| m category = 'image specs'])
- collect: [:m| m selector]) asSortedCollection asOrderedCollection
+ imageMethodSelectors := OrderedCollection new.
+ iconClass withAllSuperclasses do:[:cls |
+ cls class methodDictionary keysAndValuesDo: [:sel :m |
+ (r := m resourceType == #image
+ or:[r == #programImage]) ifTrue:[
+ imageMethodSelectors add:sel
+ ]
+ ]
+ ].
+
+ ^ imageMethodSelectors asSortedCollection asOrderedCollection
+
+ "Modified: / 24.8.1998 / 21:42:34 / cg"
!
isVisualStartable
@@ -1255,5 +1274,5 @@
!ToolApplicationModel class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.74 1998-08-21 22:07:34 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.75 1998-08-24 19:51:18 cg Exp $'
! !