--- a/ControllerWithMenu.st	Thu Mar 23 17:55:33 1995 +0100
+++ b/ControllerWithMenu.st	Sat Mar 25 23:13:32 1995 +0100
@@ -11,7 +11,7 @@
 "
 
 Controller subclass:#ControllerWithMenu
-       instanceVariableNames:''
+       instanceVariableNames:'menuHolder performer'
        classVariableNames:''
        poolDictionaries:''
        category:'Interface-Support'
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1994 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/ControllerWithMenu.st,v 1.1 1995-02-06 00:41:59 claus Exp $
+$Header: /cvs/stx/stx/libview/ControllerWithMenu.st,v 1.2 1995-03-25 22:11:54 claus Exp $
 '!
 
 !ControllerWithMenu class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/ControllerWithMenu.st,v 1.1 1995-02-06 00:41:59 claus Exp $
+$Header: /cvs/stx/stx/libview/ControllerWithMenu.st,v 1.2 1995-03-25 22:11:54 claus Exp $
 "
 !
 
@@ -50,11 +50,28 @@
 "
     ControllerWithMenus is a very simple controller for a view with
     a middleButtonMenu.
+    This class exists for ST-80 compatibility only.
 "
 ! !
 
 !ControllerWithMenu  methodsFor:'accessing'!
 
+menuHolder:aValueHolder
+    menuHolder := aValueHolder
+!
+
+menuHolder
+    ^ menuHolder
+!
+
+performer 
+    ^ performer 
+!
+
+performer:anObject
+    performer  := anObject
+!
+
 menu
     "to be redefined in subclasses"