--- a/Controller.st	Tue Jan 21 11:02:05 1997 +0100
+++ b/Controller.st	Tue Jan 21 15:47:23 1997 +0100
@@ -136,17 +136,24 @@
         menuPerformer := self menuPerformer.
 
         "
-         got one, launch the menu. It is supposed
+         a temporary kludge: 
+             pass myself as receiver, the menuPerformer as performer;
+             the menu will send its messages to either the
+             menuPerformer or me (its receiver).
+             This allows for the ST-80 behavior, where some messages
+             go to the model, others to the view
+             (copy/cut/paste).
+        "
+        (prevReceiver := menu receiver) isNil ifTrue:[
+"/                menu receiver:menuPerformer.
+            menu menuPerformer:menuPerformer.
+            menu receiver:self.
+        ].
+
+        "
+         Launch the menu. It is supposed
          to return an actionSelector.
         "                                        
-        "
-         a temporary kludge: subMenus dont know about 
-         actionSelectors yet ...
-        "
-        (prevReceiver := menu receiver) isNil ifTrue:[
-            menu receiver:menuPerformer.
-        ].
-
         actionSelector := menu startUp.
 
         actionSelector notNil notNil ifTrue:[
@@ -168,7 +175,7 @@
         ^ self
     ].
 
-    "Modified: 22.8.1996 / 09:17:16 / cg"
+    "Modified: 21.1.1997 / 15:45:48 / cg"
 ! !
 
 !Controller methodsFor:'accessing'!
@@ -580,5 +587,5 @@
 !Controller class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Controller.st,v 1.42 1996-11-09 17:34:20 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Controller.st,v 1.43 1997-01-21 14:46:47 cg Exp $'
 ! !