[Tclresource-commits] Source tclResourceOSX.c,1.17,1.18

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

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

Modified Files:
	tclResourceOSX.c 
Log Message:
Var name fix after copy/paste

Index: tclResourceOSX.c
===================================================================
RCS file: /cvsroot/tclresource/Source/tclResourceOSX.c,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -d -r1.17 -r1.18
--- tclResourceOSX.c	15 Sep 2004 09:41:34 -0000	1.17
+++ tclResourceOSX.c	15 Sep 2004 10:29:22 -0000	1.18
@@ -463,11 +463,11 @@
 	    
 		// Don't load the resource in memory 
 		SetResLoad(false);
-		if (gotResID == true) {
-			resourceH = Get1Resource(rezType, rsrcId);
+		if (gotInt == true) {
+			resource = Get1Resource(rezType, rsrcId);
 			err = ResError();
-		} else if (resourceName != NULL) {
-			resourceH = Get1NamedResource(rezType, (StringPtr) resourceName);
+		} else if (resourceId != NULL) {
+			resource = Get1NamedResource(rezType, (StringPtr) resourceId);
 			err = ResError();
 		}
 
@@ -480,7 +480,7 @@
 			goto attributesDone;               
 		}
 	    
-		if (resourceH != NULL) {
+		if (resource != NULL) {
 	    if (gotValue) {
 		/* 
 		 * Setting the resource attributes
@@ -502,8 +502,8 @@
 			// releasing the resource because anyway ReleaseResource() wonÕt
 			// release a resource whose resChanged attribute has been set.
 			if (newValue & resChanged) {
-				if (*resourceH == NULL) {
-					LoadResource(resourceH);
+				if (*resource == NULL) {
+					LoadResource(resource);
 				} 
 			} 
 		    SetResAttrs(resource, newValue);