From 37af6877cec98f828c177e32d0fa41b4a3d217fa Mon Sep 17 00:00:00 2001
From: patthoyts <patthoyts@users.sourceforge.net>
Date: Mon, 4 Jan 2010 12:09:36 +0000
Subject: Fix display of source code for fontchooser demo

---
 ChangeLog                    | 2 ++
 library/demos/fontchoose.tcl | 4 ++--
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 7d21e92..222905c 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2010-01-04  Pat Thoyts  <patthoyts@users.sourceforge.net>
 
+	* library/demos/fontchoose.tcl: Fix display of demo code.
+
 	* library/tk.tcl: Correctly handle quoted ampersands in AmpMenuArgs
 
 2010-01-03  Donal K. Fellows  <dkf@users.sf.net>
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"
-- 
cgit v0.12