From 9c2f6043c0c4d4670d8b71e2b13d3a32cc86d1d4 Mon Sep 17 00:00:00 2001
From: cc_benny <cc_benny>
Date: Wed, 25 Feb 2004 13:22:32 +0000
Subject: * (addFormattedText): Correct off-by-one error.

---
 library/demos/widget | 4 ++--
 1 file 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} {
-- 
cgit v0.12