--- 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!