Function IntervalWidgetCmd

micropolis-activity/src/sim/w_inter.c:401–496

(clientData, interp, argc, argv)

 *
 *--------------------------------------------------------------
 */

static int
IntervalWidgetCmd(clientData, interp, argc, argv)
    ClientData clientData;		/* Information about interval
					 * widget. */
    Tcl_Interp *interp;			/* Current interpreter. */
    int argc;				/* Number of arguments. */
    char **argv;			/* Argument strings. */
{
    register Interval *intervalPtr = (Interval *) clientData;
    int result = TCL_OK;
    int length;
    char c;

    if (argc < 2) {
	Tcl_AppendResult(interp, "wrong # args: should be \"",
		argv[0], " option ?arg arg ...?\"", (char *) NULL);
	return TCL_ERROR;
    }
    Tk_Preserve((ClientData) intervalPtr);
    c = argv[1][0];
    length = strlen(argv[1]);
    if ((c == 'c') && (strncmp(argv[1], "configure", length) == 0)) {
	if (argc == 2) {
	    result = Tk_ConfigureInfo(interp, intervalPtr->tkwin, configSpecs,
		    (char *) intervalPtr, (char *) NULL, 0);
	} else if (argc == 3) {
	    result = Tk_ConfigureInfo(interp, intervalPtr->tkwin, configSpecs,
		    (char *) intervalPtr, argv[2], 0);
	} else {
	    result = ConfigureInterval(interp, intervalPtr, argc-2, argv+2,
		    TK_CONFIG_ARGV_ONLY);
	}
    } else if ((c == 'g') && (strncmp(argv[1], "get", length) == 0)) {
	if (argc != 2) {
	    Tcl_AppendResult(interp, "wrong # args: should be \"",
		    argv[0], " get\"", (char *) NULL);
	    goto error;
	}
	sprintf(interp->result, "%d %d", intervalPtr->minValue, intervalPtr->maxValue);
    } else if ((c == 's') && (strncmp(argv[1], "set", length) == 0)) {
	int minValue, maxValue;

	if (argc != 4) {
	    Tcl_AppendResult(interp, "wrong # args: should be \"",
		    argv[0], " set minValue maxValue\"", (char *) NULL);
	    goto error;
	}
	if (Tcl_GetInt(interp, argv[2], &minValue) != TCL_OK) {
	    goto error;
	}
	if (Tcl_GetInt(interp, argv[3], &maxValue) != TCL_OK) {
	    goto error;
	}
	if (minValue > maxValue) {
	  int temp = minValue;
	  minValue = maxValue; maxValue = temp;