diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-11-16 08:26:51 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-11-16 08:26:51 (GMT) |
| commit | 82180c0e02b1d5f7e5fa81672d90f741281dbbff (patch) | |
| tree | a69878156fe1e05cf255f9b60f12c7c4978c0704 /unix | |
| parent | 10ad6cb31e294f4e49fd86f89e20e95d0d7dc8b0 (diff) | |
| download | tk-82180c0e02b1d5f7e5fa81672d90f741281dbbff.zip tk-82180c0e02b1d5f7e5fa81672d90f741281dbbff.tar.gz tk-82180c0e02b1d5f7e5fa81672d90f741281dbbff.tar.bz2 | |
Second argument of Tcl_StaticPackage() should always be Titlecase. Synced from this commit in Tcl: [d8e520bee8e1a287]
Diffstat (limited to 'unix')
| -rw-r--r-- | unix/tkAppInit.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/unix/tkAppInit.c b/unix/tkAppInit.c index 422b9e1..8ea1b4e 100644 --- a/unix/tkAppInit.c +++ b/unix/tkAppInit.c @@ -93,10 +93,12 @@ Tcl_AppInit( if (Tcl_Init(interp) == TCL_ERROR) { return TCL_ERROR; } + if (Tk_Init(interp) == TCL_ERROR) { return TCL_ERROR; } Tcl_StaticPackage(interp, "Tk", Tk_Init, Tk_SafeInit); + #ifdef TK_TEST if (Tktest_Init(interp) == TCL_ERROR) { return TCL_ERROR; |