diff options
Diffstat (limited to 'library/demos/ttkmenu.tcl')
| -rw-r--r-- | library/demos/ttkmenu.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/demos/ttkmenu.tcl b/library/demos/ttkmenu.tcl index 0084dd6..5e92586 100644 --- a/library/demos/ttkmenu.tcl +++ b/library/demos/ttkmenu.tcl @@ -10,7 +10,7 @@ if {![info exists widgetDemo]} { package require Tk set w .ttkmenu -catch {destroy $w} +destroy $w toplevel $w wm title $w "Ttk Menu Buttons" wm iconname $w "ttkmenu" @@ -35,7 +35,7 @@ menu $w.m3.menu -tearoff 0 menu $w.m4.menu -tearoff 0 menu $w.m5.menu -tearoff 0 -foreach theme [ttk::themes] { +foreach theme [ttk::style theme names] { $w.m1.menu add command -label $theme -command [list ttk::setTheme $theme] $w.m2.menu add command -label $theme -command [list ttk::setTheme $theme] $w.m3.menu add command -label $theme -command [list ttk::setTheme $theme] |