diff options
| author | patthoyts <patthoyts@users.sourceforge.net> | 2010-01-04 12:09:36 (GMT) |
|---|---|---|
| committer | patthoyts <patthoyts@users.sourceforge.net> | 2010-01-04 12:09:36 (GMT) |
| commit | 37af6877cec98f828c177e32d0fa41b4a3d217fa (patch) | |
| tree | 3b8e09c849bea7937d3247b1b34aab63adac5eb5 /library/demos/fontchoose.tcl | |
| parent | 1123a820260423a4987437280a9f6ec6ae123839 (diff) | |
| download | tk-37af6877cec98f828c177e32d0fa41b4a3d217fa.zip tk-37af6877cec98f828c177e32d0fa41b4a3d217fa.tar.gz tk-37af6877cec98f828c177e32d0fa41b4a3d217fa.tar.bz2 | |
Fix display of source code for fontchooser demo
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" |