diff options
| author | chengyemao <chengyemao> | 2005-11-11 05:13:44 (GMT) |
|---|---|---|
| committer | chengyemao <chengyemao> | 2005-11-11 05:13:44 (GMT) |
| commit | af2b671e90ddc3feaba80629c4d46074e6a33f11 (patch) | |
| tree | 72b19cda7c0eaa60fda14d91ed90eed307643640 | |
| parent | 2032c7fd40326e4191d8116e4d8e62a135aa3285 (diff) | |
| download | tk-af2b671e90ddc3feaba80629c4d46074e6a33f11.zip tk-af2b671e90ddc3feaba80629c4d46074e6a33f11.tar.gz tk-af2b671e90ddc3feaba80629c4d46074e6a33f11.tar.bz2 | |
Error fixes in GetFileNameW and GetFileNameA
| -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); |