summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--win/tkWinDialog.c6
1 files 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);