diff options
Diffstat (limited to 'library/demos/fontchoose.tcl')
| -rw-r--r-- | library/demos/fontchoose.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/demos/fontchoose.tcl b/library/demos/fontchoose.tcl index 3410d12..b67e17a 100644 --- a/library/demos/fontchoose.tcl +++ b/library/demos/fontchoose.tcl @@ -2,7 +2,7 @@ # # Show off the stock font selector dialog # -# RCS: @(#) $Id: fontchoose.tcl,v 1.1 2008/12/12 02:02:35 patthoyts Exp $ +# RCS: @(#) $Id: fontchoose.tcl,v 1.2 2010/01/04 12:09:36 patthoyts Exp $ if {![info exists widgetDemo]} { error "This script should be run from the \"widget\" demo." @@ -10,7 +10,7 @@ if {![info exists widgetDemo]} { package require Tk -set w .fontchoice +set w .fontchoose catch {destroy $w} toplevel $w wm title $w "Font Selection Dialog" |