Function Tk_SelectionCmd

micropolis-activity/src/tk/tkselect.c:558–670

(clientData, interp, argc, argv)

 * Side effects:
 *	See the user documentation.
 *
 *--------------------------------------------------------------
 */

int
Tk_SelectionCmd(clientData, interp, argc, argv)
    ClientData clientData;	/* Main window associated with
				 * interpreter. */
    Tcl_Interp *interp;		/* Current interpreter. */
    int argc;			/* Number of arguments. */
    char **argv;		/* Argument strings. */
{
    Tk_Window tkwin = (Tk_Window) clientData;
    int length;
    char *cmd = argv[0];
    char c;

    if (argc < 2) {
	sprintf(interp->result,
		"wrong # args: should be \"%.50s [-window win] option ?arg arg ...?\"",
		cmd);
	return TCL_ERROR;
    }

    argc--; argv++;
    c = argv[0][0];
    length = strlen(argv[0]);

    if ((c == '-') && (strncmp(argv[0], "-window", length) == 0)) {
      if ((argc < 2) ||
	  ((tkwin = Tk_NameToWindow(interp, argv[1], tkwin)) == NULL)) {
	    sprintf(interp->result, "bad arg to %s -window", cmd);
	    return TCL_ERROR;
      }
      argc -= 2; argv += 2;

      if (argc == 0) {
	sprintf(interp->result, "not enough args to %s", cmd);
	return TCL_ERROR;
      }

      c = argv[0][0];
      length = strlen(argv[0]);
    }

    if ((c == 'g') && (strncmp(argv[0], "get", length) == 0)) {
	Atom target;
	GetInfo getInfo;
	int result;

	argc--; argv++;

	if (argc > 1) {
	    sprintf(interp->result,
		    "too may args: should be \"%.50s get ?type?\"",
		    cmd);
	    return TCL_ERROR;
	}