From f86230b5a585e33c42afaba1ae584711aeab4abf Mon Sep 17 00:00:00 2001
From: dkf <donal.k.fellows@manchester.ac.uk>
Date: Mon, 21 Jun 2004 20:47:02 +0000
Subject: Added example

---
 doc/popup.n | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/doc/popup.n b/doc/popup.n
index a1b49bd..603577e 100644
--- a/doc/popup.n
+++ b/doc/popup.n
@@ -4,7 +4,7 @@
 '\" See the file "license.terms" for information on usage and redistribution
 '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 '\" 
-'\" RCS: @(#) $Id: popup.n,v 1.2 1998/09/14 18:22:59 stanton Exp $
+'\" RCS: @(#) $Id: popup.n,v 1.3 2004/06/21 20:47:02 dkf Exp $
 '\" 
 .so man.macros
 .TH tk_popup n 4.0 Tk "Tk Built-In Commands"
@@ -28,6 +28,22 @@ menu's upper left corner is positioned at the given point.
 Otherwise \fIentry\fR gives the index of an entry in \fImenu\fR and
 the menu will be positioned so that the entry is positioned over
 the given point.
+.SH EXAMPLE
+.CS
+# Create a menu
+menu .m
+\.m add command \-label "Example 1" \-command bell
+\.m add command \-label "Example 2" \-command bell
+
+# Create something to attach it to
+pack [label .l \-text "Click me!"]
+
+# Arrange for the menu to pop up when the label is clicked
+bind .l <1> {\fBtk_popup\fR .m %X %Y}
+.CE
+
+.SH "SEE ALSO"
+bind(n), menu(n), tk_optionMenu(n)
 
 .SH KEYWORDS
 menu, popup
-- 
cgit v0.12