--- a/PopUpMenu.st Mon Feb 26 23:40:34 1996 +0100
+++ b/PopUpMenu.st Mon Feb 26 23:41:25 1996 +0100
@@ -167,6 +167,20 @@
v middleButtonMenu:m.
v open
+ or at the end (looks better with variable fonts):
+
+ |m v|
+
+ v := View new.
+ m := PopUpMenu
+ labels:#('foo \c'
+ 'bar \b'
+ 'baz \t')
+ selectors:#(#value: #value: #value:)
+ receiver:[:v | Transcript show:'arg: '; showCr:v].
+ v middleButtonMenu:m.
+ v open
+
Finally, you can wrap other views into a popup menu (for example,
to implement menus with icons or other components).
The view should respond to some messages sent from here (for
@@ -982,5 +996,5 @@
!PopUpMenu class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.35 1996-02-26 22:12:42 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.36 1996-02-26 22:41:25 cg Exp $'
! !