MenuPanel.st
changeset 2332 7e98cc0c92b7
parent 2331 ebd240410703
child 2337 7f384db88273
--- a/MenuPanel.st	Sat Oct 26 17:45:55 2002 +0200
+++ b/MenuPanel.st	Sat Oct 26 17:51:56 2002 +0200
@@ -1063,12 +1063,6 @@
     ^ nil
 !
 
-originator:aWidget
-    "set the originating widget"
-
-    originator := aWidget
-!
-
 receiver
     "get the menu-receiver. Thats the one who gets the messages ( both from myself and
      from all submenus no specific receiver is defined ).
@@ -1967,6 +1961,16 @@
     "Created: / 21.5.1998 / 14:15:57 / cg"
 !
 
+startUpFor:originatingWidget
+    "realize the menu at the current pointer position
+     return the value of the selectedItem or nil, of none was selected
+     (unless the menu has already performed its action, by sending an appropriate message
+      to some performer)
+    "
+    originator := originatingWidget.
+    ^ self startUp
+!
+
 startUpOrNil
     "realize the menu at the current pointer position
      return the value of the selectedItem or nil, of none was selected
@@ -7320,7 +7324,7 @@
 !MenuPanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.340 2002-10-26 15:45:55 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/MenuPanel.st,v 1.341 2002-10-26 15:51:56 ca Exp $'
 ! !
 
 MenuPanel initialize!