--- a/Controller.st	Thu Mar 23 17:55:33 1995 +0100
+++ b/Controller.st	Sat Mar 25 23:13:32 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1992 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/Controller.st,v 1.13 1995-03-18 05:10:08 claus Exp $
+$Header: /cvs/stx/stx/libview/Controller.st,v 1.14 1995-03-25 22:12:01 claus Exp $
 '!
 
 !Controller class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/Controller.st,v 1.13 1995-03-18 05:10:08 claus Exp $
+$Header: /cvs/stx/stx/libview/Controller.st,v 1.14 1995-03-25 22:12:01 claus Exp $
 "
 !
 
@@ -142,6 +142,10 @@
     "return my model"
 
     ^ view model
+!
+
+menuHolder 
+    ^ nil
 ! !
 
 !Controller methodsFor:'event handling'!
@@ -157,7 +161,11 @@
     "actually, this should be called 'middleButtonActivity'.
      But for ST-80 compatibility ...."
 
-    |sym menu actionSelector|
+    |sym menu actionSelector menuHolder|
+
+    (menuHolder := self menuHolder) notNil ifTrue:[
+	self halt.
+    ].
 
     "
      try ST-80 style menus first: