blob: 781256ff61f590fc24c7fcf999b28a672ee2efd5 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
--- 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;
}
|
