--- a/ResourceSelectionBrowser.st Fri Sep 29 20:07:41 2000 +0200
+++ b/ResourceSelectionBrowser.st Thu Oct 12 17:02:16 2000 +0200
@@ -924,31 +924,31 @@
icon isNil
ifTrue:
[
- |cls sel image imageKey|
- ((self resourceType = #image) or: [resourceType = #fileImage])
- ifTrue:
- [
- cls := method who methodClass soleInstance.
- sel := method who methodSelector.
- ]
- ifFalse:
- [
- cls := BrowserView.
- sel := (resourceType, 'Icon') asSymbol.
- ].
- imageKey := (cls name, sel) asSymbol.
- (icon := aGC registeredImageAt: imageKey) isNil
- ifTrue:
- [
- image := cls perform: sel.
- image extent y > 18
- ifTrue:
- [
- image := image magnifiedBy: 18/image extent y
- ].
- aGC registerImage: image key: imageKey.
- icon := aGC registeredImageAt: imageKey.
- ].
+ |cls sel image imageKey|
+ ((self resourceType = #image) or: [resourceType = #fileImage])
+ ifTrue:
+ [
+ cls := method who methodClass soleInstance.
+ sel := method who methodSelector.
+ ]
+ ifFalse:
+ [
+ cls := SystemBrowser.
+ sel := (resourceType, 'Icon') asSymbol.
+ ].
+ imageKey := (cls name, sel) asSymbol.
+ (icon := aGC registeredImageAt: imageKey) isNil
+ ifTrue:
+ [
+ image := cls perform: sel.
+ image extent y > 18
+ ifTrue:
+ [
+ image := image magnifiedBy: 18/image extent y
+ ].
+ aGC registerImage: image key: imageKey.
+ icon := aGC registeredImageAt: imageKey.
+ ].
].
^icon
!