checkin from browser
authorfrank
Thu, 12 Oct 2000 17:02:16 +0200
changeset 1412 61f02e883f48
parent 1411 9daf7add7ea3
child 1413 5c00c266107e
checkin from browser
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
 !