Changeset 2175 for trunk/lang/tcl/scripts

Timestamp:

Mar 30, 2011 1:45:19 PM (13 years ago)

Author:

gah

Message:

updates to makefiles

File:

• trunk/lang/tcl/scripts/library.tcl (modified) (1 diff)

trunk/lang/tcl/scripts/library.tcl

@@ -509 +509 @@
         return ""
     }
+    # Expat (via tDOM) will always produce utf-8 output, regardless of the
+    # encoding of the tool.xml.  We need to convert utf-8 to unicode for
+    # Tcl/Tk.  This shouldn't affect ASCII tool.xml files.
+    set string [encoding convertfrom utf-8 [$node text]]
     if {$params(-decode) == "yes"} {
-        return [Rappture::encoding::decode -- [string trim [$node text]]]
-    } else {
-        return [string trim [$node text]]
-    }
+        set string [Rappture::encoding::decode -- $string]
+    }
+    return [string trim $string]
 }