diff options
| author | das <das> | 2007-10-21 14:51:47 (GMT) |
|---|---|---|
| committer | das <das> | 2007-10-21 14:51:47 (GMT) |
| commit | fcde771f3adc5b6c6c4326d7dbedeb2e27fffa00 (patch) | |
| tree | f97291f822ee1ba2bfb9f592c960b3c2fa083f8d /library/demos/ttkmenu.tcl | |
| parent | 9482319ee0542df108c62ef319a28f1afbab5937 (diff) | |
| download | tk-fcde771f3adc5b6c6c4326d7dbedeb2e27fffa00.zip tk-fcde771f3adc5b6c6c4326d7dbedeb2e27fffa00.tar.gz tk-fcde771f3adc5b6c6c4326d7dbedeb2e27fffa00.tar.bz2 | |
* library/demos/ttkmenu.tcl: Aqua GOOBE.
* library/demos/ttkpane.tcl:
* library/demos/widget:
Diffstat (limited to 'library/demos/ttkmenu.tcl')
| -rw-r--r-- | library/demos/ttkmenu.tcl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/library/demos/ttkmenu.tcl b/library/demos/ttkmenu.tcl index 6cda290..b0a42ee 100644 --- a/library/demos/ttkmenu.tcl +++ b/library/demos/ttkmenu.tcl @@ -3,7 +3,7 @@ # This demonstration script creates a toplevel window containing several Ttk # menubutton widgets. # -# RCS: @(#) $Id: ttkmenu.tcl,v 1.1 2007/10/18 14:34:06 dkf Exp $ +# RCS: @(#) $Id: ttkmenu.tcl,v 1.2 2007/10/21 14:51:47 das Exp $ if {![info exists widgetDemo]} { error "This script should be run from the \"widget\" demo." @@ -47,6 +47,7 @@ foreach theme [ttk::themes] { } pack [ttk::frame $w.f] -fill x +pack [ttk::frame $w.f1] -fill both -expand yes lower $w.f grid anchor $w.f center |