diff options
| author | hobbs <hobbs@noemail.net> | 2000-04-19 23:12:54 (GMT) |
|---|---|---|
| committer | hobbs <hobbs@noemail.net> | 2000-04-19 23:12:54 (GMT) |
| commit | f533a44423e789bd731d87093ce12b1356c0bba8 (patch) | |
| tree | 48432f0b2c9c70cba5dcbddd5ab06c100214d1cd /win | |
| parent | a074f4d1d5a5b5fcd565a039022a421465242ce2 (diff) | |
| download | tk-f533a44423e789bd731d87093ce12b1356c0bba8.zip tk-f533a44423e789bd731d87093ce12b1356c0bba8.tar.gz tk-f533a44423e789bd731d87093ce12b1356c0bba8.tar.bz2 | |
* library/choosedir.tcl (::tk::dialog::file::chooseDir::Config):
* library/tkfbox.tcl (::tk::dialog::file::Config): removed the
extraneous glob on -initialdir after file isdir already returned 1
and moved cd trick into this case as the else already uses [pwd].
[Bug: 5181]
* win/winMain.c: moved extern call out of WinMain func
FossilOrigin-Name: 363c75beb90525f9a7136a709b82fc3a43a9bf41
Diffstat (limited to 'win')
| -rw-r--r-- | win/winMain.c | 46 |
1 files changed, 23 insertions, 23 deletions
diff --git a/win/winMain.c b/win/winMain.c index d17c4ce..cf517b0 100644 --- a/win/winMain.c +++ b/win/winMain.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: winMain.c,v 1.9 1999/12/02 02:05:46 redman Exp $ + * RCS: @(#) $Id: winMain.c,v 1.10 2000/04/19 23:12:56 hobbs Exp $ */ #include <tk.h> @@ -45,6 +45,28 @@ extern int Tcltest_Init _ANSI_ARGS_((Tcl_Interp *interp)); static BOOL consoleRequired = TRUE; +/* + * The following #if block allows you to change the AppInit + * function by using a #define of TCL_LOCAL_APPINIT instead + * of rewriting this entire file. The #if checks for that + * #define and uses Tcl_AppInit if it doesn't exist. + */ + +#ifndef TK_LOCAL_APPINIT +#define TK_LOCAL_APPINIT Tcl_AppInit +#endif +extern int TK_LOCAL_APPINIT _ANSI_ARGS_((Tcl_Interp *interp)); + +/* + * The following #if block allows you to change how Tcl finds the startup + * script, prime the library or encoding paths, fiddle with the argv, + * etc., without needing to rewrite Tk_Main() + */ + +#ifdef TK_LOCAL_MAIN_HOOK +extern int TK_LOCAL_MAIN_HOOK _ANSI_ARGS_((int *argc, char ***argv)); +#endif + /* *---------------------------------------------------------------------- @@ -74,28 +96,6 @@ WinMain(hInstance, hPrevInstance, lpszCmdLine, nCmdShow) int argc; char buffer[MAX_PATH+1]; char *p; - - /* - * The following #if block allows you to change the AppInit - * function by using a #define of TCL_LOCAL_APPINIT instead - * of rewriting this entire file. The #if checks for that - * #define and uses Tcl_AppInit if it doesn't exist. - */ - -#ifndef TK_LOCAL_APPINIT -#define TK_LOCAL_APPINIT Tcl_AppInit -#endif - extern int TK_LOCAL_APPINIT _ANSI_ARGS_((Tcl_Interp *interp)); - - /* - * The following #if block allows you to change how Tcl finds the startup - * script, prime the library or encoding paths, fiddle with the argv, - * etc., without needing to rewrite Tk_Main() - */ - -#ifdef TK_LOCAL_MAIN_HOOK - extern int TK_LOCAL_MAIN_HOOK _ANSI_ARGS_((int *argc, char ***argv)); -#endif Tcl_SetPanicProc(WishPanic); |