summaryrefslogtreecommitdiffstats
path: root/win/tkWinDialog.c
diff options
context:
space:
mode:
authorchengyemao <chengyemao>2005-11-11 05:13:44 (GMT)
committerchengyemao <chengyemao>2005-11-11 05:13:44 (GMT)
commit3cbe799d778887e83134bb85abfbbb7a280688a0 (patch)
tree72b19cda7c0eaa60fda14d91ed90eed307643640 /win/tkWinDialog.c
parentedc304c9592d5d5d530ad08c033006e7ce1c38f1 (diff)
downloadtk-3cbe799d778887e83134bb85abfbbb7a280688a0.zip
tk-3cbe799d778887e83134bb85abfbbb7a280688a0.tar.gz
tk-3cbe799d778887e83134bb85abfbbb7a280688a0.tar.bz2
Error fixes in GetFileNameW and GetFileNameA
Diffstat (limited to 'win/tkWinDialog.c')
-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);