summaryrefslogtreecommitdiffstats
path: root/library/demos/menu.tcl
diff options
context:
space:
mode:
Diffstat (limited to 'library/demos/menu.tcl')
-rw-r--r--library/demos/menu.tcl8
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