--- a/PopUpMenu.st	Mon Jan 20 20:41:35 1997 +0100
+++ b/PopUpMenu.st	Tue Jan 21 15:48:13 1997 +0100
@@ -1032,6 +1032,24 @@
     "Modified: 5.6.1996 / 17:08:41 / cg"
 !
 
+menuPerformer
+    "get the menuPerformer - forwarded to my menuViews"
+
+    ^ menuView menuPerformer
+
+    "Modified: 5.6.1996 / 17:08:30 / cg"
+    "Created: 21.1.1997 / 15:40:22 / cg"
+!
+
+menuPerformer:someone
+    "set the menuPerformer - forwarded to my menuViews"
+
+    menuView menuPerformer:someone
+
+    "Modified: 5.6.1996 / 17:08:30 / cg"
+    "Created: 21.1.1997 / 15:40:14 / cg"
+!
+
 model 
     "return my menuViews model"
 
@@ -1282,5 +1300,5 @@
 !PopUpMenu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.58 1997-01-17 22:27:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.59 1997-01-21 14:48:13 cg Exp $'
 ! !