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