wxPython/wxSWIG/swig_lib/tcl/configcode.swg

   1 /* configcode.swg */
   2
   3     else if ((*(argv[1]) == 'c') && (strncmp(argv[1],"configure") == 0) && (argv[1][1])) {
   4       int i = 2;
   5       cmd = 0;
   6       while (i+1 < argc) {
   7         @CONFIGMETHODS@
   8            if (cmd) {
   9              oldarg = argv[i];
  10              argv[i] = &temp[0];
  11              rcode = (*cmd)(clientData,interp,3,&argv[i-1]);
  12              argv[i] = oldarg;
  13              if (rcode == TCL_ERROR) return rcode;
  14              cmd = 0;
  15            } else {
  16              Tcl_SetResult(interp,"Invalid configure option. Must be { @CONFIGLIST@ }",TCL_STATIC);
  17              return TCL_ERROR;
  18            }
  19         i+=2;
  20       }
  21       if ((i < argc) || (i == 2)) {
  22         Tcl_SetResult(interp,"{ @CONFIGLIST@ }",TCL_STATIC);
  23         return TCL_ERROR;
  24       }
  25       return TCL_OK;
  26     }
  27