diff options
| author | chengyemao <chengyemao> | 2005-11-11 05:13:44 (GMT) |
|---|---|---|
| committer | chengyemao <chengyemao> | 2005-11-11 05:13:44 (GMT) |
| commit | 3cbe799d778887e83134bb85abfbbb7a280688a0 (patch) | |
| tree | 72b19cda7c0eaa60fda14d91ed90eed307643640 /win/tkWinDialog.c | |
| parent | edc304c9592d5d5d530ad08c033006e7ce1c38f1 (diff) | |
| download | tk-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.c | 6 |
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); |