diff options
| -rw-r--r-- | ChangeLog | 2 | ||||
| -rw-r--r-- | library/demos/fontchoose.tcl | 4 |
2 files changed, 4 insertions, 2 deletions
@@ -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" |