24 lines
381 B
Plaintext
24 lines
381 B
Plaintext
--- tcl/uuwish.c.orig Thu Jun 6 14:41:11 1996
|
|
+++ tcl/uuwish.c Thu Nov 4 11:34:43 1999
|
|
@@ -78,19 +78,7 @@
|
|
int
|
|
main (int argc, char *argv[])
|
|
{
|
|
-#ifdef HAVE_TK
|
|
- Tk_Main
|
|
-#else
|
|
-#ifdef HAVE_TCL
|
|
- Tcl_Main
|
|
-#endif
|
|
-#endif
|
|
- (argc, argv
|
|
-#ifdef TMAIN_THREE
|
|
- , Tcl_AppInit
|
|
-#endif
|
|
- );
|
|
-
|
|
+ Tk_MainEx( argc, argv, Tcl_AppInit, Tcl_CreateInterp() );
|
|
return 0;
|
|
}
|
|
|