From 3cbe799d778887e83134bb85abfbbb7a280688a0 Mon Sep 17 00:00:00 2001
From: chengyemao <chengyemao>
Date: Fri, 11 Nov 2005 05:13:44 +0000
Subject: Error fixes in GetFileNameW and GetFileNameA

---
 win/tkWinDialog.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/win/tkWinDialog.c b/win/tkWinDialog.c
index 4fada3a..2664351 100644
--- a/win/tkWinDialog.c
+++ b/win/tkWinDialog.c
@@ -8,7 +8,7 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tkWinDialog.c,v 1.41 2005/11/10 11:22:21 dkf Exp $
+ * RCS: @(#) $Id: tkWinDialog.c,v 1.42 2005/11/11 05:13:44 chengyemao Exp $
  *
  */
 
@@ -836,7 +836,7 @@ GetFileNameW(
 		    fullnameObj = Tcl_NewStringObj(Tcl_DStringValue(&dirBuf),
 			    Tcl_DStringLength(&dirBuf));
 		    Tcl_AppendToObj(fullnameObj, "/", -1);
-		    Tcl_AppendToObj(Tcl_DStringValue(&filenameBuf),
+		    Tcl_AppendToObj(fullnameObj, Tcl_DStringValue(&filenameBuf),
 			    Tcl_DStringLength(&filenameBuf));
 		    Tcl_DStringFree(&filenameBuf);
 		    Tcl_ListObjAppendElement(NULL, returnList, fullnameObj);
@@ -1282,7 +1282,7 @@ GetFileNameA(
 		    fullnameObj = Tcl_NewStringObj(Tcl_DStringValue(&ds),
 			    Tcl_DStringLength(&ds));
 		    Tcl_AppendToObj(fullnameObj, "/", -1);
-		    Tcl_AppendToObj(Tcl_DStringValue(&filename),
+		    Tcl_AppendToObj(fullnameObj, Tcl_DStringValue(&filename),
 			    Tcl_DStringLength(&filename));
 		    Tcl_DStringFree(&filename);
 		    Tcl_ListObjAppendElement(NULL, returnList, fullnameObj);
-- 
cgit v0.12