summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2013-01-15 16:48:13 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2013-01-15 16:48:13 (GMT)
commite2b504bf3a2dc5aabd16dd640f75e87553dcf25a (patch)
tree7da4ab4af7a9789043e70df26fe6d1cfe2547c15 /generic
parente64bb74c70d8f231c8e599823f28ee88aa60dcb3 (diff)
downloadtk-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')
-rw-r--r--generic/tkWindow.c8
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.
*/