--- 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.
!