From 87cf64cd1df28e50b055448199a7aa3b83828e95 Mon Sep 17 00:00:00 2001 From: dkf Date: Mon, 21 Jun 2004 20:59:29 +0000 Subject: Fix example and add a bit more explanatory text --- doc/popup.n | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/doc/popup.n b/doc/popup.n index 603577e..40896fd 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.3 2004/06/21 20:47:02 dkf Exp $ +'\" RCS: @(#) $Id: popup.n,v 1.4 2004/06/21 20:59:29 dkf Exp $ '\" .so man.macros .TH tk_popup n 4.0 Tk "Tk Built-In Commands" @@ -29,17 +29,18 @@ 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 +How to attach a simple popup menu to a widget. .CS # Create a menu -menu .m -\.m add command \-label "Example 1" \-command bell -\.m add command \-label "Example 2" \-command bell +set m [menu .popupMenu] +$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} +bind .l <1> {\fBtk_popup\fR .popupMenu %X %Y} .CE .SH "SEE ALSO" -- cgit v0.12