[Tclresource-commits] Source tclResourceOSX.c,1.12,1.13

[Bernard D. <bde...@us...>]

Update of /cvsroot/tclresource/Source
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12962/Source

Modified Files:
	tclResourceOSX.c 
Log Message:
Result in resultPtr (Fork command)

Index: tclResourceOSX.c
===================================================================
RCS file: /cvsroot/tclresource/Source/tclResourceOSX.c,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- tclResourceOSX.c	4 Sep 2004 18:12:47 -0000	1.12
+++ tclResourceOSX.c	6 Sep 2004 05:08:10 -0000	1.13
@@ -951,17 +951,17 @@
 		Tcl_ResetResult(interp);
 		switch (resourceRef->fileFork) {
 		  case from_rezfork:
-		    Tcl_AppendStringsToObj(Tcl_GetObjResult(interp), "resourcefork", (char *) NULL);
+		    Tcl_AppendStringsToObj(resultPtr, "resourcefork", (char *) NULL);
 		    return TCL_OK;
 		    break;
 		
 		  case from_datafork:
-		    Tcl_AppendStringsToObj(Tcl_GetObjResult(interp), "datafork", (char *) NULL);
+		    Tcl_AppendStringsToObj(resultPtr, "datafork", (char *) NULL);
 		    return TCL_OK;
 		    break;
 		
 		  default:
-		    Tcl_AppendStringsToObj(Tcl_GetObjResult(interp), "unknown", (char *) NULL);
+		    Tcl_AppendStringsToObj(resultPtr, "unknown", (char *) NULL);
 		    return TCL_OK;
 		}
 	    } else {