diff options
| author | cc_benny <cc_benny> | 2004-02-25 13:22:32 (GMT) |
|---|---|---|
| committer | cc_benny <cc_benny> | 2004-02-25 13:22:32 (GMT) |
| commit | 9c2f6043c0c4d4670d8b71e2b13d3a32cc86d1d4 (patch) | |
| tree | d6fe8d797f0ce1770e4f2cad6395c96db6beec51 /library | |
| parent | 3ff435ef8b7848997321a134c3c229a1a11b5896 (diff) | |
| download | tk-9c2f6043c0c4d4670d8b71e2b13d3a32cc86d1d4.zip tk-9c2f6043c0c4d4670d8b71e2b13d3a32cc86d1d4.tar.gz tk-9c2f6043c0c4d4670d8b71e2b13d3a32cc86d1d4.tar.bz2 | |
* (addFormattedText): Correct off-by-one error.
Diffstat (limited to 'library')
| -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 a0c1458..a83b473 100644 --- a/library/demos/widget +++ b/library/demos/widget @@ -11,7 +11,7 @@ exec wish "$0" "$@" # ".tcl" files is this directory, which are sourced by this script # as needed. # -# RCS: @(#) $Id: widget,v 1.21 2003/12/04 12:28:37 vincentdarley Exp $ +# RCS: @(#) $Id: widget,v 1.22 2004/02/25 13:22:32 cc_benny Exp $ package require Tcl 8.4 package require Tk 8.4 @@ -220,7 +220,7 @@ proc addFormattedText {formattedText} { continue } if {[string match @@* $line]} { - set style [string range $line 1 end] + set style [string range $line 2 end] continue } if {!$isNL} { |