also offer programImages in image-list
authorClaus Gittinger <cg@exept.de>
Fri, 10 Sep 2004 12:37:48 +0200
changeset 1867 08860770cd69
parent 1866 e573e2931827
child 1868 535504d9501f
also offer programImages in image-list
MenuEditor.st
--- a/MenuEditor.st	Fri Sep 03 19:25:08 2004 +0200
+++ b/MenuEditor.st	Fri Sep 10 12:37:48 2004 +0200
@@ -5068,7 +5068,7 @@
 
     item := self new.
     item fromClass:aClass selector:aSelector.
-  ^ item
+    ^ item
 ! !
 
 !MenuEditor::ResourceEditorItem methodsFor:'accessing'!
@@ -5119,17 +5119,19 @@
     |w h magnify|
 
     selector := aSelector asSymbol.
+    selector numArgs == 0 ifFalse:[^ self].
+
     icon  := aClass perform:selector.
 
     w := icon width.
     h := icon height.
 
     w > 32 ifTrue:[
-	magnify := 32 / w.
-	h > 32 ifTrue:[ magnify := (32 / h) max:magnify ].
+        magnify := 32 / w.
+        h > 32 ifTrue:[ magnify := (32 / h) max:magnify ].
     ] ifFalse:[
-	h > 32 ifFalse:[^ self].
-	magnify := 32 / h.
+        h > 32 ifFalse:[^ self].
+        magnify := 32 / h.
     ].
     icon := icon magnifiedBy: magnify.
 !