21 lines
555 B
Text
21 lines
555 B
Text
|
--- Src/C64_x.i.orig Wed Aug 6 20:56:25 1997
|
||
|
|
+++ Src/C64_x.i Thu Jul 6 18:52:43 2000
|
||
|
|
@@ -100,7 +100,16 @@ void C64::c64_ctor1(void)
|
||
|
|
gui = 0;
|
||
|
|
#else
|
||
|
|
// try to start up Tk gui.
|
||
|
|
- gui = new CmdPipe("wish", "TkGui.tcl");
|
||
|
|
+ char *wishName = getenv("WISH");
|
||
|
|
+ if (wishName == NULL)
|
||
|
|
+ wishName = WISH;
|
||
|
|
+ char *d = getenv("FRODOLIBDIR");
|
||
|
|
+ if (d == NULL)
|
||
|
|
+ d = FRODOLIBDIR;
|
||
|
|
+ char buffer[1024];
|
||
|
|
+ snprintf(buffer, sizeof(buffer), "%s/%s", d, "TkGui.tcl");
|
||
|
|
+
|
||
|
|
+ gui = new CmdPipe(wishName, buffer);
|
||
|
|
if (gui) {
|
||
|
|
if (gui->fail) {
|
||
|
|
delete gui; gui = 0;
|