summaryrefslogtreecommitdiffstats
path: root/library/demos
diff options
context:
space:
mode:
authorpatthoyts <patthoyts@users.sourceforge.net>2010-01-04 12:09:36 (GMT)
committerpatthoyts <patthoyts@users.sourceforge.net>2010-01-04 12:09:36 (GMT)
commit37af6877cec98f828c177e32d0fa41b4a3d217fa (patch)
tree3b8e09c849bea7937d3247b1b34aab63adac5eb5 /library/demos
parent1123a820260423a4987437280a9f6ec6ae123839 (diff)
downloadtk-37af6877cec98f828c177e32d0fa41b4a3d217fa.zip
tk-37af6877cec98f828c177e32d0fa41b4a3d217fa.tar.gz
tk-37af6877cec98f828c177e32d0fa41b4a3d217fa.tar.bz2
Fix display of source code for fontchooser demo
Diffstat (limited to 'library/demos')
-rw-r--r--library/demos/fontchoose.tcl4
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"