[Python-checkins] python/dist/src/Modules _tkinter.c,1.147,1.148

[loewis@users.sourceforge.net]

Update of /cvsroot/python/python/dist/src/Modules
In directory sc8-pr-cvs1:/tmp/cvs-serv31154/Modules

Modified Files:
	_tkinter.c 
Log Message:
Convert booleans to integers in IntVar.set. Fixes #671741.
Return booleans from _tkinter.getboolean. 
Convert booleans to Tcl booleans in AsObj.


Index: _tkinter.c
===================================================================
RCS file: /cvsroot/python/python/dist/src/Modules/_tkinter.c,v
retrieving revision 1.147
retrieving revision 1.148
diff -C2 -d -r1.147 -r1.148
*** _tkinter.c	21 Jan 2003 21:52:57 -0000	1.147
--- _tkinter.c	22 Jan 2003 09:17:38 -0000	1.148
***************
*** 869,872 ****
--- 869,874 ----
  		return Tcl_NewStringObj(PyString_AS_STRING(value),
  					PyString_GET_SIZE(value));
+ 	else if (PyBool_Check(value))
+ 		return Tcl_NewBooleanObj(PyObject_IsTrue(value));
  	else if (PyInt_Check(value))
  		return Tcl_NewLongObj(PyInt_AS_LONG(value));
***************
*** 1740,1744 ****
  	if (Tcl_GetBoolean(Tkapp_Interp(self), s, &v) == TCL_ERROR)
  		return Tkinter_Error(self);
! 	return Py_BuildValue("i", v);
  }
  
--- 1742,1746 ----
  	if (Tcl_GetBoolean(Tkapp_Interp(self), s, &v) == TCL_ERROR)
  		return Tkinter_Error(self);
! 	return PyBool_FromLong(v);
  }