Only return objects if wantobjects is set in GetVar.

This commit is contained in:
Martin v. Löwis 2003-05-19 19:57:42 +00:00
parent 7789237331
commit 8fd86cc46e

View File

@ -1647,7 +1647,12 @@ GetVar(PyObject *self, PyObject *args, int flags)
ENTER_TCL
tres = Tcl_GetVar2Ex(Tkapp_Interp(self), name1, name2, flags);
ENTER_OVERLAP
res = FromObj(self, tres);
if (((TkappObject*)self)->wantobjects) {
res = FromObj(self, tres);
}
else {
res = PyString_FromString(Tcl_GetString(tres));
}
LEAVE_OVERLAP_TCL
return res;
}