summaryrefslogtreecommitdiffstats
path: root/library/demos/widget
diff options
context:
space:
mode:
authorcc_benny <cc_benny>2004-02-25 13:22:32 (GMT)
committercc_benny <cc_benny>2004-02-25 13:22:32 (GMT)
commit9c2f6043c0c4d4670d8b71e2b13d3a32cc86d1d4 (patch)
treed6fe8d797f0ce1770e4f2cad6395c96db6beec51 /library/demos/widget
parent3ff435ef8b7848997321a134c3c229a1a11b5896 (diff)
downloadtk-9c2f6043c0c4d4670d8b71e2b13d3a32cc86d1d4.zip
tk-9c2f6043c0c4d4670d8b71e2b13d3a32cc86d1d4.tar.gz
tk-9c2f6043c0c4d4670d8b71e2b13d3a32cc86d1d4.tar.bz2
* (addFormattedText): Correct off-by-one error.
Diffstat (limited to 'library/demos/widget')
-rw-r--r--library/demos/widget4
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} {