From b24a044533bce27fb4fbc1f19dcf164e0fb56097 Mon Sep 17 00:00:00 2001
From: stanton <stanton>
Date: Fri, 11 Dec 1998 23:32:21 +0000
Subject: fixed bug in command line argument encoding handling

---
 generic/tkMain.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/generic/tkMain.c b/generic/tkMain.c
index f9ef8d5..c03cf7a 100644
--- a/generic/tkMain.c
+++ b/generic/tkMain.c
@@ -13,7 +13,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tkMain.c,v 1.1.4.2 1998/09/30 02:17:07 stanton Exp $
+ * RCS: @(#) $Id: tkMain.c,v 1.1.4.3 1998/12/11 23:32:22 stanton Exp $
  */
 
 #include <ctype.h>
@@ -133,7 +133,7 @@ Tk_Main(argc, argv, appInitProc)
 
     args = Tcl_Merge(argc-1, argv+1);
     Tcl_ExternalToUtfDString(NULL, args, -1, &argString);
-    Tcl_SetVar(interp, "argv", args, TCL_GLOBAL_ONLY);
+    Tcl_SetVar(interp, "argv", Tcl_DStringValue(&argString), TCL_GLOBAL_ONLY);
     Tcl_DStringFree(&argString);
     ckfree(args);
     sprintf(buf, "%d", argc-1);
-- 
cgit v0.12