From f41390747c3db9237b5c2da437e6b9b721d73ab3 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Fri, 1 Feb 2013 16:07:52 +0000
Subject: eliminate unnecessary Tcl_ConvertToType call

---
 generic/tkObj.c | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/generic/tkObj.c b/generic/tkObj.c
index b027b0f..7c09656 100644
--- a/generic/tkObj.c
+++ b/generic/tkObj.c
@@ -817,11 +817,12 @@ TkGetWindowFromObj(
 {
     TkMainInfo *mainPtr = ((TkWindow *) tkwin)->mainPtr;
     register WindowRep *winPtr;
-    int result;
 
-    result = Tcl_ConvertToType(interp, objPtr, &windowObjType);
-    if (result != TCL_OK) {
-	return result;
+    if (objPtr->typePtr != &windowObjType) {
+	int result = SetWindowFromAny(interp, objPtr);
+	if (result != TCL_OK) {
+	    return result;
+	}
     }
 
     winPtr = objPtr->internalRep.twoPtrValue.ptr1;
-- 
cgit v0.12