/[ascend]/trunk/tcltk98/generic/interface/Driver.c
ViewVC logotype

Diff of /trunk/tcltk98/generic/interface/Driver.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 20 by aw0a, Tue Dec 7 17:37:58 2004 UTC revision 21 by aw0a, Thu Dec 9 02:03:34 2004 UTC
# Line 553  static int AscDriver(int argc, CONST84 c Line 553  static int AscDriver(int argc, CONST84 c
553   *    CPP_MACRO            ENVIRONMENT VAR    DEFAULT VALUE   *    CPP_MACRO            ENVIRONMENT VAR    DEFAULT VALUE
554   *    =================    ===============    =============   *    =================    ===============    =============
555   *    DIST_ENVIRONVAR      ASCENDDIST         parent of binary's directory   *    DIST_ENVIRONVAR      ASCENDDIST         parent of binary's directory
556   *    ASCTK_ENVIRONVAR     ASCENDTK           ASCENDDIST/TK   * AWW20041208:   ASCTK_ENVIRONVAR     ASCENDTK           ASCENDDIST/TK
557     *    ASCTK_ENVIRONVAR     ASCENDTK           ASCENDDIST/../../tcltk98/TK
558   *    BITMAP_ENVIRONVAR    ASCENDBITMAPS      ASCENDTK/bitmaps   *    BITMAP_ENVIRONVAR    ASCENDBITMAPS      ASCENDTK/bitmaps
559   *    LIBR_ENVIRONVAR      ASCENDLIBRARY   *    LIBR_ENVIRONVAR      ASCENDLIBRARY
560   *                     .:ASCENDDIST/models/libraries:ASCENDDIST/models/examples   *                     .:ASCENDDIST/models/libraries:ASCENDDIST/models/examples
# Line 705  static int AscCheckEnvironVars(Tcl_Inter Line 706  static int AscCheckEnvironVars(Tcl_Inter
706      ascfree(tmpenv);      ascfree(tmpenv);
707    } else {    } else {
708      Tcl_DStringAppend(&buffer2, Tcl_DStringValue(&ascenddist), -1);      Tcl_DStringAppend(&buffer2, Tcl_DStringValue(&ascenddist), -1);
709      Tcl_DStringAppend(&buffer2, "/TK", -1);      /* AWW20041208:    Tcl_DStringAppend(&buffer2, "/TK", -1);
710         */
711        Tcl_DStringAppend(&buffer2, "/../../tcltk98/TK", -1);
712      if(NULL != (Tcl_TranslateFileName(interp, Tcl_DStringValue(&buffer2),      if(NULL != (Tcl_TranslateFileName(interp, Tcl_DStringValue(&buffer2),
713                                        &buffer1))) {                                        &buffer1))) {
714        if( Asc_SetPathList(ASCTK_ENVIRONVAR, Tcl_DStringValue(&buffer1)) != 0) {        if( Asc_SetPathList(ASCTK_ENVIRONVAR, Tcl_DStringValue(&buffer1)) != 0) {
# Line 736  static int AscCheckEnvironVars(Tcl_Inter Line 739  static int AscCheckEnvironVars(Tcl_Inter
739                 TCL_GLOBAL_ONLY);                 TCL_GLOBAL_ONLY);
740    } else {    } else {
741      Asc_Panic(2, "AscCheckEnvironVars",      Asc_Panic(2, "AscCheckEnvironVars",
742                "ERROR: Cannot find the file \"%s\" in the subdirectory \"TK\"\n"                "ERROR: Cannot find the file \"%s\" in the subdirectory \"..\/..\/tcltk98\/TK\"\n"
743                "under the directory \"%s\"\n"                "under the directory \"%s\"\n"
744                "Please check the value of the environment variables %s and\n"                "Please check the value of the environment variables %s and\n"
745                "and %s and start ASCEND again.\n",                "and %s and start ASCEND again.\n",
Legend:
Removed from v.20  
changed lines
  Added in v.21
john.pye@anu.edu.au
 ViewVC Help
Powered by ViewVC 1.1.22