diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-15 16:48:13 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-15 16:48:13 (GMT) |
| commit | e2b504bf3a2dc5aabd16dd640f75e87553dcf25a (patch) | |
| tree | 7da4ab4af7a9789043e70df26fe6d1cfe2547c15 /generic/tkWindow.c | |
| parent | e64bb74c70d8f231c8e599823f28ee88aa60dcb3 (diff) | |
| download | tk-e2b504bf3a2dc5aabd16dd640f75e87553dcf25a.zip tk-e2b504bf3a2dc5aabd16dd640f75e87553dcf25a.tar.gz tk-e2b504bf3a2dc5aabd16dd640f75e87553dcf25a.tar.bz2 | |
Don't use deprecated "case" any more.
Don't do unnecessary Tcl_PkgRequire(..., "Tcl", ...), the preceding Tcl_InitStubs() call already does that, both for dynamic loaded as wel as the static case.
Diffstat (limited to 'generic/tkWindow.c')
| -rw-r--r-- | generic/tkWindow.c | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/generic/tkWindow.c b/generic/tkWindow.c index 2bccbb9..40b2fed 100644 --- a/generic/tkWindow.c +++ b/generic/tkWindow.c @@ -3017,8 +3017,7 @@ Initialize(interp) ThreadSpecificData *tsdPtr; /* - * Ensure that we are getting the matching version of Tcl. This is - * really only an issue when Tk is loaded dynamically. + * Ensure that we are getting the matching version of Tcl. */ if (Tcl_InitStubs(interp, TCL_VERSION, 1) == NULL) { @@ -3242,11 +3241,6 @@ Initialize(interp) geometry = NULL; } - if (Tcl_PkgRequire(interp, "Tcl", TCL_VERSION, 1) == NULL) { - code = TCL_ERROR; - goto done; - } - /* * Provide Tk and its stub table. */ |