diff -r 9daf7add7ea3 -r 61f02e883f48 ResourceSelectionBrowser.st --- 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 !