--- a/SimpleView.st	Fri Oct 25 17:34:11 2002 +0200
+++ b/SimpleView.st	Sat Oct 26 17:47:00 2002 +0200
@@ -6337,7 +6337,7 @@
             "/
             "/ startup the menu - this returns a selector
             "/
-            actionSelector := menu startUp.
+            actionSelector := self startUpMenu:menu.
 
             "/ before doing anything else, redraw expose area from
             "/ the menu (in case the action changes my state)
@@ -6421,6 +6421,11 @@
     "/ spec receiver:self.     -- now done in findGuiResources ...
     spec findGuiResourcesIn:self.
     ^ spec.
+!
+
+startUpMenu:aMenu
+    aMenu originator:self.
+    ^ aMenu startUp
 ! !
 
 !SimpleView methodsFor:'private'!
@@ -9339,7 +9344,7 @@
 !SimpleView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.456 2002-10-17 11:26:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.457 2002-10-26 15:47:00 ca Exp $'
 ! !
 
 SimpleView initialize!