--- a/PopUpMenu.st Mon Feb 26 22:42:02 1996 +0100
+++ b/PopUpMenu.st Mon Feb 26 23:12:42 1996 +0100
@@ -153,6 +153,20 @@
v middleButtonMenu:m.
v open
+ The style of the checkmark can be: check (\c), box (\b) or thumbs (\t):
+
+ |m v|
+
+ v := View new.
+ m := PopUpMenu
+ labels:#('\c foo'
+ '\b bar'
+ '\t baz')
+ 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
@@ -968,5 +982,5 @@
!PopUpMenu class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.34 1996-02-09 21:53:50 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.35 1996-02-26 22:12:42 cg Exp $'
! !