bugfix:
authorca
Sat, 01 Nov 1997 13:24:36 +0100
changeset 729 7e22cc23fd1f
parent 728 9f417e396d4e
child 730 cc391efb62c0
bugfix: have to add some more menu activation methods
Menu.st
--- a/Menu.st	Wed Oct 29 22:35:26 1997 +0100
+++ b/Menu.st	Sat Nov 01 13:24:36 1997 +0100
@@ -607,15 +607,52 @@
 
 !Menu methodsFor:'startup'!
 
-startUp
-    "display the menu as a popUp; return the value associated with the
+show
+    "realize the menu at its last position; returns the value associated with the
+     selected item, 0 if none was selected"
+
+    ^ (MenuPanel menu:self) show ? 0
+
+
+!
+
+showAt:aPoint
+    "realize the menu at aPoint; returns the value associated with the
+     selected item, 0 if none was selected"
+
+    ^ self showAt:aPoint resizing:true
+
+
+!
+
+showAt:aPoint resizing:aBoolean
+    "realize the menu at aPoint; returns the value associated with the
      selected item, 0 if none was selected"
 
-    |menu result|
+    ^ (MenuPanel menu:self) showAt:aPoint resizing:aBoolean ? 0
+!
+
+showAtPointer
+    "realize the menu at the current pointer position; returns the value associated with the
+     selected item, 0 if none was selected"
+
+    ^ self startUp
+!
 
-    menu := MenuPanel menu:self.
-    result := menu startUp.
-  ^ result ? 0
+showCenteredIn:aView
+    "realize the menu visible at the aView center; returns the value associated with the
+     selected item, 0 if none was selected"
+
+    ^ (MenuPanel menu:self) showCenteredIn:aView ? 0
+
+
+!
+
+startUp
+    "display the menu as a popUp; returns the value associated with the
+     selected item, 0 if none was selected"
+
+    ^ (MenuPanel menu:self) startUp ? 0
 
 "   
         |m|
@@ -641,5 +678,5 @@
 !Menu class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.19 1997-10-28 19:50:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Menu.st,v 1.20 1997-11-01 12:24:36 ca Exp $'
 ! !