PopUpMenu.st
changeset 404 6a32f6111fce
parent 348 2925bbd4f346
child 406 00b4fb72a566
--- 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 $'
 ! !