/[gcl]/gcl/gcl-tk/tkMain.c
ViewVC logotype

Diff of /gcl/gcl-tk/tkMain.c

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

revision 1.10 by mjthomas, Thu May 12 13:23:19 2005 UTC revision 1.11 by mjthomas, Mon May 30 12:47:30 2005 UTC
# Line 292  TkX_Wish (argc, argv) Line 292  TkX_Wish (argc, argv)
292              name = p;              name = p;
293          }          }
294      }      }
295    #ifndef __MINGW32__
296      /*      /*
297       * If a display was specified, put it into the DISPLAY       * If a display was specified, put it into the DISPLAY
298       * environment variable so that it will be available for       * environment variable so that it will be available for
# Line 302  TkX_Wish (argc, argv) Line 302  TkX_Wish (argc, argv)
302      if (display != NULL) {      if (display != NULL) {
303          Tcl_SetVar2(interp, "env", "DISPLAY", display, TCL_GLOBAL_ONLY);          Tcl_SetVar2(interp, "env", "DISPLAY", display, TCL_GLOBAL_ONLY);
304      }      }
305    #endif
306      /*      /*
307       * Initialize the Tk application.       * Initialize the Tk application.
308       */       */
# Line 358  TkX_Wish (argc, argv) Line 358  TkX_Wish (argc, argv)
358      /*      /*
359       * Invoke application-specific initialization.       * Invoke application-specific initialization.
360       */       */
361    #ifdef _WIN32
362        Tcl_FindExecutable ( argv[0] );
363    #else
364      if (Tcl_AppInit(interp) != TCL_OK) {      if (Tcl_AppInit(interp) != TCL_OK) {
365          fprintf(stderr, "Tcl_AppInit failed: %s\n", interp->result);          fprintf(stderr, "Tcl_AppInit failed: %s\n", interp->result);
366      }      }
367    #endif
368      /*      /*
369       * Set the geometry of the main window, if requested.       * Set the geometry of the main window, if requested.
370       */       */

Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26