[Tcladdressbook-commits] Source TclAddressBook.c,1.12,1.13
Status: Alpha
Brought to you by:
bdesgraupes
|
From: <bde...@us...> - 2003-12-08 23:14:28
|
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;
}
|