diff options
Diffstat (limited to 'unix/tkAppInit.c')
| -rw-r--r-- | unix/tkAppInit.c | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/unix/tkAppInit.c b/unix/tkAppInit.c index 1a2421c..91eb691 100644 --- a/unix/tkAppInit.c +++ b/unix/tkAppInit.c @@ -4,9 +4,9 @@ * Provides a default version of the main program and Tcl_AppInit * procedure for wish and other Tk-based applications. * - * Copyright (c) 1993 The Regents of the University of California. - * Copyright (c) 1994-1997 Sun Microsystems, Inc. - * Copyright (c) 1998-1999 Scriptics Corporation. + * Copyright © 1993 The Regents of the University of California. + * Copyright © 1994-1997 Sun Microsystems, Inc. + * Copyright © 1998-1999 Scriptics Corporation. * * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. @@ -88,6 +88,9 @@ main( { #ifdef TK_LOCAL_MAIN_HOOK TK_LOCAL_MAIN_HOOK(&argc, &argv); +#elif (TCL_MAJOR_VERSION > 8) || (TCL_MINOR_VERSION > 6) + /* This doesn't work with Tcl 8.6 */ + TclZipfs_AppHook(&argc, &argv); #endif Tk_Main(argc, argv, TK_LOCAL_APPINIT); |