diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2007-10-31 16:17:57 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2007-10-31 16:17:57 (GMT) |
| commit | a0bcf50401b6824925838b8ce781d72ba993caf9 (patch) | |
| tree | f0bbc146baa704a957ddf41a57eb1e4b4d75adf0 | |
| parent | 7f630964e1b98e229c06b4e4a3f44e076d9256f5 (diff) | |
| download | tk-a0bcf50401b6824925838b8ce781d72ba993caf9.zip tk-a0bcf50401b6824925838b8ce781d72ba993caf9.tar.gz tk-a0bcf50401b6824925838b8ce781d72ba993caf9.tar.bz2 | |
D'uh, now make the code more idiomatic!
| -rw-r--r-- | library/demos/widget | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/demos/widget b/library/demos/widget index af016a2..67dc893 100644 --- a/library/demos/widget +++ b/library/demos/widget @@ -10,7 +10,7 @@ exec wish "$0" "$@" # separate ".tcl" files is this directory, which are sourced by this script as # needed. # -# RCS: @(#) $Id: widget,v 1.42 2007/10/31 16:17:06 dkf Exp $ +# RCS: @(#) $Id: widget,v 1.43 2007/10/31 16:17:57 dkf Exp $ package require Tcl 8.5 package require Tk 8.5 @@ -714,7 +714,7 @@ proc PrintTextWin32 {filename} { # proc aboutBox {} { tk_messageBox -icon info -type ok -title [mc "About Widget Demo"] \ - -message "[mc {Tk widget demonstration application}]" -detail \ + -message [mc "Tk widget demonstration application"] -detail \ "[mc {Copyright (c) %s} {1996-1997 Sun Microsystems, Inc.}] [mc {Copyright (c) %s} {1997-2000 Ajuba Solutions, Inc.}] [mc {Copyright (c) %s} {2001-2007 Donal K. Fellows}] |