diff options
| author | das <das@noemail.net> | 2005-06-25 03:41:37 (GMT) |
|---|---|---|
| committer | das <das@noemail.net> | 2005-06-25 03:41:37 (GMT) |
| commit | 4db4769a73ec733891bf26ff2e2c05c7eb73d23f (patch) | |
| tree | 8e15f269f6727db682f4f2a2ac90639fb18cc6b1 /library | |
| parent | 219620e6c8702104c823a5ba372d5f8573d6106a (diff) | |
| download | tk-4db4769a73ec733891bf26ff2e2c05c7eb73d23f.zip tk-4db4769a73ec733891bf26ff2e2c05c7eb73d23f.tar.gz tk-4db4769a73ec733891bf26ff2e2c05c7eb73d23f.tar.bz2 | |
* library/demos/menu.tcl: removed errant '}'.core-8-4-11
FossilOrigin-Name: c28260798e21b3f591c37e5c6c88a0c36686892f
Diffstat (limited to 'library')
| -rw-r--r-- | library/demos/menu.tcl | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/library/demos/menu.tcl b/library/demos/menu.tcl index 3eb3c44..4464e9e 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.4.2.1 2005/01/18 11:51:04 dkf Exp $ +# RCS: @(#) $Id: menu.tcl,v 1.4.2.2 2005/06/25 03:41:39 das Exp $ if {![info exists widgetDemo]} { error "This script should be run from the \"widget\" demo." @@ -140,7 +140,6 @@ $m entryconfigure "Does almost nothing" -bitmap questhead -compound left \ "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 |