diff options
Diffstat (limited to 'library/demos/fontchoose.tcl')
| -rw-r--r-- | library/demos/fontchoose.tcl | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/library/demos/fontchoose.tcl b/library/demos/fontchoose.tcl index def30c3..a449136 100644 --- a/library/demos/fontchoose.tcl +++ b/library/demos/fontchoose.tcl @@ -9,7 +9,7 @@ if {![info exists widgetDemo]} { package require Tk set w .fontchoose -catch {destroy $w} +destroy $w toplevel $w wm title $w "Font Selection Dialog" wm iconname $w "fontchooser" @@ -39,7 +39,6 @@ bind $w <<TkFontchooserVisibility>> { } } - set f [ttk::frame $w.f -relief sunken -padding 2] text $f.msg -font FontchooseDemoFont -width 40 -height 6 -borderwidth 0 \ |