home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / tcl / tkstep0.3b3 / tkstep0 / tkstep / tkConfig.c.diff < prev    next >
Encoding:
Text File  |  1996-07-08  |  858 b   |  34 lines
  1. --- ../tk4.1/generic/tkConfig.c    Fri Feb 16 22:31:59 1996
  2. +++ tkConfig.c    Mon Jul  8 19:24:10 1996
  3. @@ -127,7 +127,6 @@
  4.      if (specPtr == NULL) {
  5.          return TCL_ERROR;
  6.      }
  7. -
  8.      /*
  9.       * Process the entry.
  10.       */
  11. @@ -137,6 +136,12 @@
  12.              "\" missing", (char *) NULL);
  13.          return TCL_ERROR;
  14.      }
  15. +        
  16. +    if ((flags & TK_CONFIG_CHECK_MY_FLAG) &&
  17. +        (specPtr->specFlags & TK_CONFIG_DONT_CHANGE_DEFAULT)) {
  18. +        continue;
  19. +    }
  20. +
  21.      if (DoConfig(interp, tkwin, specPtr, argv[1], 0, widgRec) != TCL_OK) {
  22.          char msg[100];
  23.  
  24. @@ -167,7 +172,8 @@
  25.          continue;
  26.          }
  27.          value = NULL;
  28. -        if (specPtr->dbName != NULL) {
  29. +        if ((specPtr->dbName != NULL) && !((flags & TK_CONFIG_CHECK_MY_FLAG)
  30. +        && (specPtr->specFlags & TK_CONFIG_DONT_CHANGE_DEFAULT))) {
  31.          value = Tk_GetOption(tkwin, specPtr->dbName, specPtr->dbClass);
  32.          }
  33.          if (value != NULL) {
  34.