diff options
Diffstat (limited to 'library/demos/ttkbut.tcl')
| -rw-r--r-- | library/demos/ttkbut.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/demos/ttkbut.tcl b/library/demos/ttkbut.tcl index 904cd31..79bad3d 100644 --- a/library/demos/ttkbut.tcl +++ b/library/demos/ttkbut.tcl @@ -11,7 +11,7 @@ if {![info exists widgetDemo]} { package require Tk set w .ttkbut -catch {destroy $w} +destroy $w toplevel $w wm title $w "Simple Ttk Widgets" wm iconname $w "ttkbut" @@ -26,7 +26,7 @@ pack [addSeeDismiss $w.seeDismiss $w {enabled cheese tomato basil oregano happyn ## Add buttons for setting the theme ttk::labelframe $w.buttons -text "Buttons" -foreach theme [ttk::themes] { +foreach theme [ttk::style theme names] { ttk::button $w.buttons.$theme -text $theme \ -command [list ttk::setTheme $theme] pack $w.buttons.$theme -pady 2 |