[Tcladdressbook-commits] Source TclAddressBook.c,1.12,1.13

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

Update of /cvsroot/tcladdressbook/Source
In directory sc8-pr-cvs1:/tmp/cvs-serv24167/Source

Modified Files:
	TclAddressBook.c 
Log Message:
Inverted index in objv for PropertyCmd

Index: TclAddressBook.c
===================================================================
RCS file: /cvsroot/tcladdressbook/Source/TclAddressBook.c,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- TclAddressBook.c	7 Dec 2003 16:42:57 -0000	1.12
+++ TclAddressBook.c	8 Dec 2003 23:14:24 -0000	1.13
@@ -122,7 +122,7 @@
 	
 	static CONST char *switches[] = {
 		"changed", "count", "create", "export", "getme", "groups", 
-		"image", "import", "parents", "persons", "properties", 
+		"image", "import", "parents", "persons", "property", 
 		"record", "remove", "save", "search", "type", "value", (char *) NULL 
 	};
 	
@@ -953,12 +953,12 @@
 		return TCL_ERROR;
 	}
 	
-	if (Tcl_GetIndexFromObj(interp, objv[3], propSubcmdSwitches,
+	if (Tcl_GetIndexFromObj(interp, objv[2], propSubcmdSwitches,
 							"subcommand", 0, &index) != TCL_OK) {
 		return TCL_ERROR;
 	}
 	
-	if (Tcl_GetIndexFromObj(interp, objv[2], propertySwitches,
+	if (Tcl_GetIndexFromObj(interp, objv[3], propertySwitches,
 							"option", 0, &kind) != TCL_OK) {
 		return TCL_ERROR;
 	}