--- a/SimpleView.st	Sat Jun 13 11:27:02 2009 +0200
+++ b/SimpleView.st	Tue Jun 23 10:58:20 2009 +0200
@@ -3562,18 +3562,14 @@
      the model first, then use the views menu.
     "
     (menuHolder respondsTo:sym) ifFalse:[
-	(self respondsTo:sym) ifTrue:[
-	    menuHolder := self
-	]
-    ].
-
-    sym numArgs == 1 ifTrue:[
-	"/ squeak compatibility: create the menu here, let model add items
-	^ menuHolder perform:sym with:(Menu new).
-    ].
-    sym numArgs == 2 ifTrue:[
-	"/ squeak compatibility: create the menu here, let model add items
-	^ menuHolder perform:sym with:(Menu new) with:(device shiftDown).
+        (self respondsTo:sym) ifTrue:[
+            menuHolder := self
+        ]
+    ].
+
+    sym numArgs > 0 ifTrue:[
+        "/ squeak compatibility (with args): create the empty menu here, let model add items
+        ^ menuHolder perform:sym withOptionalArgument:(Menu new) and:(device shiftDown).
     ].
 
     "
@@ -10398,7 +10394,7 @@
 !SimpleView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.632 2009-06-13 09:26:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.633 2009-06-23 08:58:20 cg Exp $'
 ! !
 
 SimpleView initialize!