summaryrefslogtreecommitdiffstats
path: root/mac
diff options
context:
space:
mode:
Diffstat (limited to 'mac')
-rw-r--r--mac/tclMacFCmd.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/mac/tclMacFCmd.c b/mac/tclMacFCmd.c
index 181130e..a83011d 100644
--- a/mac/tclMacFCmd.c
+++ b/mac/tclMacFCmd.c
@@ -9,7 +9,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclMacFCmd.c,v 1.6 1999/10/05 22:46:14 hobbs Exp $
+ * RCS: @(#) $Id: tclMacFCmd.c,v 1.7 1999/10/15 04:47:03 jingham Exp $
*/
#include "tclInt.h"
@@ -1202,7 +1202,7 @@ GetFileFinderAttributes(
FInfo finfo;
Tcl_DString pathString;
- Tcl_UtfToExternalDString(NULL, path, -1, &pathString);
+ Tcl_UtfToExternalDString(NULL, fileName, -1, &pathString);
err = FSpLocationFromPath(Tcl_DStringLength(&pathString),
Tcl_DStringValue(&pathString), &fileSpec);
Tcl_DStringFree(&pathString);
@@ -1281,7 +1281,7 @@ GetFileReadOnly(
CInfoPBRec paramBlock;
Tcl_DString pathString;
- Tcl_UtfToExternalDString(NULL, path, -1, &pathString);
+ Tcl_UtfToExternalDString(NULL, fileName, -1, &pathString);
err = FSpLocationFromPath(Tcl_DStringLength(&pathString),
Tcl_DStringValue(&pathString), &fileSpec);
Tcl_DStringFree(&pathString);
@@ -1346,7 +1346,7 @@ SetFileFinderAttributes(
FInfo finfo;
Tcl_DString pathString;
- Tcl_UtfToExternalDString(NULL, path, -1, &pathString);
+ Tcl_UtfToExternalDString(NULL, fileName, -1, &pathString);
err = FSpLocationFromPath(Tcl_DStringLength(&pathString),
Tcl_DStringValue(&pathString), &fileSpec);
Tcl_DStringFree(&pathString);
@@ -1439,7 +1439,7 @@ SetFileReadOnly(
int hidden;
Tcl_DString pathString;
- Tcl_UtfToExternalDString(NULL, path, -1, &pathString);
+ Tcl_UtfToExternalDString(NULL, fileName, -1, &pathString);
err = FSpLocationFromPath(Tcl_DStringLength(&pathString),
Tcl_DStringValue(&pathString), &fileSpec);
Tcl_DStringFree(&pathString);