diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2004-06-21 20:59:29 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2004-06-21 20:59:29 (GMT) |
| commit | 87cf64cd1df28e50b055448199a7aa3b83828e95 (patch) | |
| tree | 0c3dce93ee61bce73f9d7f290c4e4569944424ca | |
| parent | f86230b5a585e33c42afaba1ae584711aeab4abf (diff) | |
| download | tk-87cf64cd1df28e50b055448199a7aa3b83828e95.zip tk-87cf64cd1df28e50b055448199a7aa3b83828e95.tar.gz tk-87cf64cd1df28e50b055448199a7aa3b83828e95.tar.bz2 | |
Fix example and add a bit more explanatory text
| -rw-r--r-- | doc/popup.n | 11 |
1 files 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" |