bug fix in accept
authorca
Mon, 26 May 1997 15:18:51 +0200
changeset 396 433d9b5ecca9
parent 395 8a7439fdff9d
child 397 06f612dc5a30
bug fix in accept ST-80 compatible
MenuPanel.st
--- a/MenuPanel.st	Mon May 26 11:34:29 1997 +0200
+++ b/MenuPanel.st	Mon May 26 15:18:51 1997 +0200
@@ -2437,6 +2437,9 @@
 
     value isSymbol ifFalse:[
         rcv := value.
+        (rcv respondsTo:#numArgs) ifFalse:[
+            ^ rcv
+        ].
         num := value numArgs.
         res := menuPanel findFirst:[:el| el == self ].
 
@@ -3325,6 +3328,6 @@
 !MenuPanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.4 1997-05-26 09:34:29 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.5 1997-05-26 13:18:51 ca Exp $'
 ! !
 MenuPanel initialize!