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