diff options
| author | jan.nijtmans <jan.nijtmans@noemail.net> | 2013-02-01 16:07:52 (GMT) |
|---|---|---|
| committer | jan.nijtmans <jan.nijtmans@noemail.net> | 2013-02-01 16:07:52 (GMT) |
| commit | 8dde457bde1e2fa36ed873f885f2504488821aef (patch) | |
| tree | 7e610346500378ed3ca024070310e9532c887134 | |
| parent | aa5e86f85fcab234857c3c492794f7d307ba405a (diff) | |
| download | tk-8dde457bde1e2fa36ed873f885f2504488821aef.zip tk-8dde457bde1e2fa36ed873f885f2504488821aef.tar.gz tk-8dde457bde1e2fa36ed873f885f2504488821aef.tar.bz2 | |
eliminate unnecessary Tcl_ConvertToType call
FossilOrigin-Name: 1a2f18b12a7b2a7176fca675d60226d924cc594f
| -rw-r--r-- | generic/tkObj.c | 9 |
1 files 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; |