a02aeb236c
Former-commit-id:06a8b51d6d[formerly 64fa9254b946eae7e61bbc3f513b7c3696c4f54f] Former-commit-id:9f19e3f712
71 lines
1.5 KiB
C
71 lines
1.5 KiB
C
/*
|
|
* The Python Imaging Library.
|
|
* $Id: _imagingtk.c 1756 2004-03-28 17:15:33Z fredrik $
|
|
*
|
|
* tkinter hooks
|
|
*
|
|
* history:
|
|
* 99-07-26 fl created
|
|
* 99-08-15 fl moved to its own support module
|
|
*
|
|
* Copyright (c) Secret Labs AB 1999.
|
|
*
|
|
* See the README file for information on usage and redistribution.
|
|
*/
|
|
|
|
|
|
#include "Python.h"
|
|
#include "Imaging.h"
|
|
|
|
#include "tk.h"
|
|
|
|
/* must link with Tk/tkImaging.c */
|
|
extern void TkImaging_Init(Tcl_Interp* interp);
|
|
|
|
/* copied from _tkinter.c (this isn't as bad as it may seem: for new
|
|
versions, we use _tkinter's interpaddr hook instead, and all older
|
|
versions use this structure layout) */
|
|
|
|
typedef struct {
|
|
PyObject_HEAD
|
|
Tcl_Interp* interp;
|
|
} TkappObject;
|
|
|
|
static PyObject*
|
|
_tkinit(PyObject* self, PyObject* args)
|
|
{
|
|
Tcl_Interp* interp;
|
|
|
|
long arg;
|
|
int is_interp;
|
|
if (!PyArg_ParseTuple(args, "li", &arg, &is_interp))
|
|
return NULL;
|
|
|
|
if (is_interp)
|
|
interp = (Tcl_Interp*) arg;
|
|
else {
|
|
TkappObject* app;
|
|
/* Do it the hard way. This will break if the TkappObject
|
|
layout changes */
|
|
app = (TkappObject*) arg;
|
|
interp = app->interp;
|
|
}
|
|
|
|
/* This will bomb if interp is invalid... */
|
|
TkImaging_Init(interp);
|
|
|
|
Py_INCREF(Py_None);
|
|
return Py_None;
|
|
}
|
|
|
|
static PyMethodDef functions[] = {
|
|
/* Tkinter interface stuff */
|
|
{"tkinit", (PyCFunction)_tkinit, 1},
|
|
{NULL, NULL} /* sentinel */
|
|
};
|
|
|
|
DL_EXPORT(void)
|
|
init_imagingtk(void)
|
|
{
|
|
Py_InitModule("_imagingtk", functions);
|
|
}
|