diff options
| author | dkf <dkf@noemail.net> | 2001-11-12 15:01:31 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2001-11-12 15:01:31 (GMT) |
| commit | 195b434ab75305781ffcb21c3aecd86c138d651a (patch) | |
| tree | 6f329df80415a08acd1bea21f44d1974b46471de /library/demos | |
| parent | 2a6bf2f0c3289e3850fff96fddb06405345c7200 (diff) | |
| download | tk-195b434ab75305781ffcb21c3aecd86c138d651a.zip tk-195b434ab75305781ffcb21c3aecd86c138d651a.tar.gz tk-195b434ab75305781ffcb21c3aecd86c138d651a.tar.bz2 | |
Yet more -compound showing off, prompted by Vince Darley
FossilOrigin-Name: 17a20b4db42a0071030d7f653582b0a0f882eb15
Diffstat (limited to 'library/demos')
| -rw-r--r-- | library/demos/menu.tcl | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/library/demos/menu.tcl b/library/demos/menu.tcl index 097b725..45ca931 100644 --- a/library/demos/menu.tcl +++ b/library/demos/menu.tcl @@ -3,7 +3,7 @@ # This demonstration script creates a window with a bunch of menus # and cascaded menus using menubars. # -# RCS: @(#) $Id: menu.tcl,v 1.2 1998/09/14 18:23:29 stanton Exp $ +# RCS: @(#) $Id: menu.tcl,v 1.3 2001/11/12 15:01:33 dkf Exp $ if {![info exists widgetDemo]} { error "This script should be run from the \"widget\" demo." @@ -131,6 +131,12 @@ menu $m -tearoff 0 foreach i {{An entry} {Another entry} {Does nothing} {Does almost nothing} {Make life meaningful}} { $m add command -label $i -command [list puts "You invoked \"$i\""] } +$m entryconfigure "Does almost nothing" \ + -bitmap questhead -compound left -command { + tk_dialog .compound {Compound Menu Entry} {The menu entry you invoked\ + displays both a bitmap and a text string. Other than this, it\ + is just like any other menu entry.} {} 0 OK +} set m $w.menu.colors $w.menu add cascade -label "Colors" -menu $m -underline 1 |