diff options
author | Guido van Rossum <guido@python.org> | 2000-05-03 22:33:14 (GMT) |
---|---|---|
committer | Guido van Rossum <guido@python.org> | 2000-05-03 22:33:14 (GMT) |
commit | 31c9a27c120cdfe5886bc1c7c8675e9edeb423dd (patch) | |
tree | ee5c11ecbbd8e16d91cf0c7f90e635302fb9b06b /Modules | |
parent | 98e189dab4bb2698323682e683ca401a0654faef (diff) | |
download | cpython-31c9a27c120cdfe5886bc1c7c8675e9edeb423dd.zip cpython-31c9a27c120cdfe5886bc1c7c8675e9edeb423dd.tar.gz cpython-31c9a27c120cdfe5886bc1c7c8675e9edeb423dd.tar.bz2 |
>>Boing!<<
Finally, this long-obsolete module bites the dust.
Diffstat (limited to 'Modules')
-rw-r--r-- | Modules/stdwinmodule.c | 2664 |
1 files changed, 0 insertions, 2664 deletions
diff --git a/Modules/stdwinmodule.c b/Modules/stdwinmodule.c deleted file mode 100644 index ffae730..0000000 --- a/Modules/stdwinmodule.c +++ /dev/null @@ -1,2664 +0,0 @@ -/*********************************************************** -Copyright 1991-1995 by Stichting Mathematisch Centrum, Amsterdam, -The Netherlands. - - All Rights Reserved - -Permission to use, copy, modify, and distribute this software and its -documentation for any purpose and without fee is hereby granted, -provided that the above copyright notice appear in all copies and that -both that copyright notice and this permission notice appear in -supporting documentation, and that the names of Stichting Mathematisch -Centrum or CWI or Corporation for National Research Initiatives or -CNRI not be used in advertising or publicity pertaining to -distribution of the software without specific, written prior -permission. - -While CWI is the initial source for this software, a modified version -is made available by the Corporation for National Research Initiatives -(CNRI) at the Internet address ftp://ftp.python.org. - -STICHTING MATHEMATISCH CENTRUM AND CNRI DISCLAIM ALL WARRANTIES WITH -REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF -MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH -CENTRUM OR CNRI BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL -DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR -PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER -TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR -PERFORMANCE OF THIS SOFTWARE. - -******************************************************************/ - -/* Stdwin module */ - -/* Stdwin itself is a module, not a separate object type. - Object types defined here: - wp: a window - dp: a drawing structure (only one can exist at a time) - mp: a menu - tp: a textedit block - bp: a bitmap -*/ - -/* Rules for translating C stdwin function calls into Python stwin: - - All names drop their initial letter 'w' - - Functions with a window as first parameter are methods of window objects - - There is no equivalent for wclose(); just delete the window object - (all references to it!) (XXX maybe this is a bad idea) - - w.begindrawing() returns a drawing object - - There is no equivalent for wenddrawing(win); just delete the drawing - object (all references to it!) (XXX maybe this is a bad idea) - - Functions that may only be used inside wbegindrawing / wendddrawing - are methods of the drawing object; this includes the text measurement - functions (which however have doubles as module functions). - - Methods of the drawing object drop an initial 'draw' from their name - if they have it, e.g., wdrawline() --> d.line() - - The obvious type conversions: int --> intobject; string --> stringobject - - A text parameter followed by a length parameter is only a text (string) - parameter in Python - - A point or other pair of horizontal and vertical coordinates is always - a pair of integers in Python - - Two points forming a rectangle or endpoints of a line segment are a - pair of points in Python - - The arguments to d.elarc() are three points. - - The functions wgetclip() and wsetclip() are translated into - stdwin.getcutbuffer() and stdwin.setcutbuffer(); 'clip' is really - a bad word for what these functions do (clipping has a different - meaning in the drawing world), while cutbuffer is standard X jargon. - XXX This must change again in the light of changes to stdwin! - - For textedit, similar rules hold, but they are less strict. - XXX more? -*/ - -#include "Python.h" - -#ifdef macintosh -#include "macglue.h" -#endif - -#ifdef macintosh -#include ":::stdwin:H:stdwin.h" -#else /* !macintosh */ -#include "stdwin.h" -#define HAVE_BITMAPS -#endif /* !macintosh */ - -#ifdef WITH_THREAD - -#include "pythread.h" - -static PyThread_type_lock StdwinLock; /* Lock held when interpreter not locked */ - -#define BGN_STDWIN Py_BEGIN_ALLOW_THREADS PyThread_acquire_lock(StdwinLock, 1); -#define RET_STDWIN PyThread_release_lock(StdwinLock); Py_BLOCK_THREADS -#define END_STDWIN PyThread_release_lock(StdwinLock); Py_END_ALLOW_THREADS - -#else - -#define BGN_STDWIN Py_BEGIN_ALLOW_THREADS -#define RET_STDWIN Py_BLOCK_THREADS -#define END_STDWIN Py_END_ALLOW_THREADS - -#endif - -#define getintarg(v,a) PyArg_Parse(v, "i", a) -#define getlongarg(v,a) PyArg_Parse(v, "l", a) -#define getstrarg(v,a) PyArg_Parse(v, "s", a) -#define getpointarg(v, a) PyArg_Parse(v, "(ii)", a, (a)+1) -#define get3pointarg(v, a) PyArg_Parse(v, "((ii)(ii)(ii))", \ - a, a+1, a+2, a+3, a+4, a+5) -#define getrectarg(v, a) PyArg_Parse(v, "((ii)(ii))", a, a+1, a+2, a+3) -#define getrectintarg(v, a) PyArg_Parse(v, "(((ii)(ii))i)", \ - a, a+1, a+2, a+3, a+4) -#define getpointintarg(v, a) PyArg_Parse(v, "((ii)i)", a, a+1, a+2) -#define getrectpointarg(v, a) PyArg_Parse(v, "(((ii)(ii))(ii))", \ - a, a+1, a+2, a+3, a+4, a+5) - -static PyObject *StdwinError; /* Exception stdwin.error */ - -/* Window and menu object types declared here because of forward references */ - -typedef struct { - PyObject_HEAD - PyObject *w_title; - WINDOW *w_win; - PyObject *w_attr; /* Attributes dictionary */ -} windowobject; - -staticforward PyTypeObject Windowtype; - -#define is_windowobject(wp) ((wp)->ob_type == &Windowtype) - -typedef struct { - PyObject_HEAD - MENU *m_menu; - int m_id; - PyObject *m_attr; /* Attributes dictionary */ -} menuobject; - -staticforward PyTypeObject Menutype; - -#define is_menuobject(mp) ((mp)->ob_type == &Menutype) - -typedef struct { - PyObject_HEAD - BITMAP *b_bitmap; - PyObject *b_attr; /* Attributes dictionary */ -} bitmapobject; - -staticforward PyTypeObject Bitmaptype; - -#define is_bitmapobject(mp) ((mp)->ob_type == &Bitmaptype) - - -/* Strongly stdwin-specific argument handlers */ - -static int -getmenudetail(v, ep) - PyObject *v; - EVENT *ep; -{ - menuobject *mp; - if (!PyArg_Parse(v, "(Oi)", &mp, &ep->u.m.item)) - return 0; - if (!is_menuobject(mp)) - return PyErr_BadArgument(); - ep->u.m.id = mp->m_id; - return 1; -} - -static int -geteventarg(v, ep) - PyObject *v; - EVENT *ep; -{ - PyObject *wp, *detail; - int a[4]; - if (!PyArg_Parse(v, "(iOO)", &ep->type, &wp, &detail)) - return 0; - if (is_windowobject(wp)) - ep->window = ((windowobject *)wp) -> w_win; - else if (wp == Py_None) - ep->window = NULL; - else - return PyErr_BadArgument(); - switch (ep->type) { - case WE_CHAR: { - char c; - if (!PyArg_Parse(detail, "c", &c)) - return 0; - ep->u.character = c; - return 1; - } - case WE_COMMAND: - return getintarg(detail, &ep->u.command); - case WE_DRAW: - if (!getrectarg(detail, a)) - return 0; - ep->u.area.left = a[0]; - ep->u.area.top = a[1]; - ep->u.area.right = a[2]; - ep->u.area.bottom = a[3]; - return 1; - case WE_MOUSE_DOWN: - case WE_MOUSE_UP: - case WE_MOUSE_MOVE: - return PyArg_Parse(detail, "((ii)iii)", - &ep->u.where.h, &ep->u.where.v, - &ep->u.where.clicks, - &ep->u.where.button, - &ep->u.where.mask); - case WE_MENU: - return getmenudetail(detail, ep); - case WE_KEY: - return PyArg_Parse(detail, "(ii)", - &ep->u.key.code, &ep->u.key.mask); - default: - return 1; - } -} - - -/* Return construction tools */ - -static PyObject * -makepoint(a, b) - int a, b; -{ - return Py_BuildValue("(ii)", a, b); -} - -static PyObject * -makerect(a, b, c, d) - int a, b, c, d; -{ - return Py_BuildValue("((ii)(ii))", a, b, c, d); -} - - -/* Drawing objects */ - -typedef struct { - PyObject_HEAD - windowobject *d_ref; -} drawingobject; - -static drawingobject *Drawing; /* Set to current drawing object, or NULL */ - -/* Drawing methods */ - -static PyObject * -drawing_close(dp) - drawingobject *dp; -{ - if (dp->d_ref != NULL) { - wenddrawing(dp->d_ref->w_win); - Drawing = NULL; - Py_DECREF(dp->d_ref); - dp->d_ref = NULL; - } - Py_INCREF(Py_None); - return Py_None; -} - -static void -drawing_dealloc(dp) - drawingobject *dp; -{ - if (dp->d_ref != NULL) { - wenddrawing(dp->d_ref->w_win); - Drawing = NULL; - Py_DECREF(dp->d_ref); - dp->d_ref = NULL; - } - free((char *)dp); -} - -static PyObject * -drawing_generic(dp, args, func) - drawingobject *dp; - PyObject *args; - void (*func) Py_FPROTO((int, int, int, int)); -{ - int a[4]; - if (!getrectarg(args, a)) - return NULL; - (*func)(a[0], a[1], a[2], a[3]); - Py_INCREF(Py_None); - return Py_None; -} - -static PyObject * -drawing_line(dp, args) - drawingobject *dp; - PyObject *args; -{ - return drawing_generic(dp, args, wdrawline); -} - -static PyObject * -drawing_xorline(dp, args) - drawingobject *dp; - PyObject *args; -{ - return drawing_generic(dp, args, wxorline); -} - -static PyObject * -drawing_circle(dp, args) - drawingobject *dp; - PyObject *args; -{ - int a[3]; - if (!getpointintarg(args, a)) - return NULL; - wdrawcircle(a[0], a[1], a[2]); - Py_INCREF(Py_None); - return Py_None; -} - -static PyObject * -drawing_fillcircle(dp, args) - drawingobject *dp; - PyObject *args; -{ - int a[3]; - if (!getpointintarg(args, a)) - return NULL; - wfillcircle(a[0], a[1], a[2]); - Py_INCREF(Py_None); - return Py_None; -} - -static PyObject * -drawing_xorcircle(dp, args) - drawingobject *dp; - PyObject *args; -{ - int a[3]; - if (!getpointintarg(args, a)) - return NULL; - wxorcircle(a[0], a[1], a[2]); - Py_INCREF(Py_None); - return Py_None; -} - -static PyObject * -drawing_elarc(dp, args) - drawingobject *dp; - PyObject *args; -{ - int a[6]; - if (!get3pointarg(args, a)) - return NULL; - wdrawelarc(a[0], a[1], a[2], a[3], a[4], a[5]); - Py_INCREF(Py_None); - return Py_None; -} - -static PyObject * -drawing_fillelarc(dp, args) - drawingobject *dp; - PyObject *args; -{ - int a[6]; - if (!get3pointarg(args, a)) - return NULL; - wfillelarc(a[0], a[1], a[2], a[3], a[4], a[5]); - Py_INCREF(Py_None); - return Py_None; -} - -static PyObject * -drawing_xorelarc(dp, args) - drawingobject *dp; - PyObject *args; -{ - int a[6]; - if (!get3pointarg(args, a)) - return NULL; - wxorelarc(a[0], a[1], a[2], a[3], a[4], a[5]); - Py_INCREF(Py_None); - return Py_None; -} - -static PyObject * -drawing_box(dp, args) - drawingobject *dp; - PyObject *args; -{ - return drawing_generic(dp, args, wdrawbox); -} - -static PyObject * -drawing_erase(dp, args) - drawingobject *dp; - PyObject *args; -{ - return drawing_generic(dp, args, werase); -} - -static PyObject * -drawing_paint(dp, args) - drawingobject *dp; - PyObject *args; -{ - return drawing_generic(dp, args, wpaint); -} - -static PyObject * -drawing_invert(dp, args) - drawingobject *dp; - PyObject *args; -{ - return drawing_generic(dp, args, winvert); -} - -static POINT * -getpointsarray(v, psize) - PyObject *v; - int *psize; -{ - int n = -1; - PyObject * (*getitem) Py_PROTO((PyObject *, int)); - int i; - POINT *points; - - if (v == NULL) - ; - else if (PyList_Check(v)) { - n = PyList_Size(v); - getitem = PyList_GetItem; - } - else if (PyTuple_Check(v)) { - n = PyTuple_Size(v); - getitem = PyTuple_GetItem; - } - - if (n <= 0) { - (void) PyErr_BadArgument(); - return NULL; - } - - points = PyMem_NEW(POINT, n); - if (points == NULL) { - (void) PyErr_NoMemory(); - return NULL; - } - - for (i = 0; i < n; i++) { - PyObject *w = (*getitem)(v, i); - int a[2]; - if (!getpointarg(w, a)) { - PyMem_DEL(points); - return NULL; - } - points[i].h = a[0]; - points[i].v = a[1]; - } - - *psize = n; - return points; -} - -static PyObject * -drawing_poly(dp, args) - drawingobject *dp; - PyObject *args; -{ - int n; - POINT *points = getpointsarray(args, &n); - if (points == NULL) - return NULL; - wdrawpoly(n, points); - PyMem_DEL(points); - Py_INCREF(Py_None); - return Py_None; -} - -static PyObject * -drawing_fillpoly(dp, args) - drawingobject *dp; - PyObject *args; -{ - int n; - POINT *points = getpointsarray(args, &n); - if (points == NULL) - return NULL; - wfillpoly(n, points); - PyMem_DEL(points); - Py_INCREF(Py_None); - return Py_None; -} - -static PyObject * -drawing_xorpoly(dp, args) - drawingobject *dp; - PyObject *args; -{ - int n; - POINT *points = getpointsarray(args, &n); - if (points == NULL) - return NULL; - wxorpoly(n, points); - PyMem_DEL(points); - Py_INCREF(Py_None); - return Py_None; -} - -static PyObject * -drawing_cliprect(dp, args) - drawingobject *dp; - PyObject *args; -{ - return drawing_generic(dp, args, wcliprect); -} - -static PyObject * -drawing_noclip(dp, args) - drawingobject *dp; - PyObject *args; -{ - if (!PyArg_NoArgs(args)) - return NULL; - wnoclip(); - Py_INCREF(Py_None); - return Py_None; -} - -static PyObject * -drawing_shade(dp, args) - drawingobject *dp; - PyObject *args; -{ - int a[5]; - if (!getrectintarg(args, a)) - return NULL; - wshade(a[0], a[1], a[2], a[3], a[4]); - Py_INCREF(Py_None); - return Py_None; -} - -static PyObject * -drawing_text(dp, args) - drawingobject *dp; - PyObject *args; -{ - int h, v, size; - char *text; - if (!PyArg_Parse(args, "((ii)t#)", &h, &v, &text, &size)) - return NULL; - wdrawtext(h, v, text, size); - Py_INCREF(Py_None); - return Py_None; -} - -/* The following four are also used as stdwin functions */ - -static PyObject * -drawing_lineheight(dp, args) - drawingobject *dp; - PyObject *args; -{ - if (!PyArg_NoArgs(args)) - return NULL; - return PyInt_FromLong((long)wlineheight()); -} - -static PyObject * -drawing_baseline(dp, args) - drawingobject *dp; - PyObject *args; -{ - if (!PyArg_NoArgs(args)) - return NULL; - return PyInt_FromLong((long)wbaseline()); -} - -static PyObject * -drawing_textwidth(dp, args) - drawingobject *dp; - PyObject *args; -{ - char *text; - int size; - if (!PyArg_Parse(args, "t#", &text, &size)) - return NULL; - return PyInt_FromLong((long)wtextwidth(text, size)); -} - -static PyObject * -drawing_textbreak(dp, args) - drawingobject *dp; - PyObject *args; -{ - char *text; - int size, width; - if (!PyArg_Parse(args, "(t#i)", &text, &size, &width)) - return NULL; - return PyInt_FromLong((long)wtextbreak(text, size, width)); -} - -static PyObject * -drawing_setfont(self, args) - drawingobject *self; - PyObject *args; -{ - char *font; - char style = '\0'; - int size = 0; - if (args == NULL || !PyTuple_Check(args)) { - if (!PyArg_Parse(args, "z", &font)) - return NULL; - } - else { - int n = PyTuple_Size(args); - if (n == 2) { - if (!PyArg_Parse(args, "(zi)", &font, &size)) - return NULL; - } - else if (!PyArg_Parse(args, "(zic)", &font, &size, &style)) { - PyErr_Clear(); - if (!PyArg_Parse(args, "(zci)", &font, &style, &size)) - return NULL; - } - } - if (font != NULL) { - if (!wsetfont(font)) { - PyErr_SetString(StdwinError, "font not found"); - return NULL; - } - } - if (size != 0) - wsetsize(size); - switch (style) { - case 'b': - wsetbold(); - break; - case 'i': - wsetitalic(); - break; - case 'o': - wsetbolditalic(); - break; - case 'u': - wsetunderline(); - break; - case 'p': - wsetplain(); - break; - } - Py_INCREF(Py_None); - return Py_None; -} - -static PyObject * -drawing_getbgcolor(self, args) - PyObject *self; - PyObject *args; -{ - if (!PyArg_NoArgs(args)) - return NULL; - return PyInt_FromLong((long)wgetbgcolor()); -} - -static PyObject * -drawing_getfgcolor(self, args) - PyObject *self; - PyObject *args; -{ - if (!PyArg_NoArgs(args)) - return NULL; - return PyInt_FromLong((long)wgetfgcolor()); -} - -static PyObject * -drawing_setbgcolor(self, args) - PyObject *self; - PyObject *args; -{ - long color; - if (!getlongarg(args, &color)) - return NULL; - wsetbgcolor((COLOR)color); - Py_INCREF(Py_None); - return Py_None; -} - -static PyObject * -drawing_setfgcolor(self, args) - PyObject *self; - PyObject *args; -{ - long color; - if (!getlongarg(args, &color)) - return NULL; - wsetfgcolor((COLOR)color); - Py_INCREF(Py_None); - return Py_None; -} - -#ifdef HAVE_BITMAPS - -static PyObject * -drawing_bitmap(self, args) - PyObject *self; - PyObject *args; -{ - int h, v; - PyObject *bp; - PyObject *mask = NULL; - if (!PyArg_Parse(args, "((ii)O)", &h, &v, &bp)) { - PyErr_Clear(); - if (!PyArg_Parse(args, "((ii)OO)", &h, &v, &bp, &mask)) - return NULL; - if (mask == Py_None) - mask = NULL; - else if (!is_bitmapobject(mask)) { - PyErr_BadArgument(); - return NULL; - } - } - if (!is_bitmapobject(bp)) { - PyErr_BadArgument(); - return NULL; - } - if (((bitmapobject *)bp)->b_bitmap == NULL || - mask != NULL && ((bitmapobject *)mask)->b_bitmap == NULL) { - PyErr_SetString(StdwinError, "bitmap object already close"); - return NULL; - } - if (mask == NULL) - wdrawbitmap(h, v, ((bitmapobject *)bp)->b_bitmap, ALLBITS); - else - wdrawbitmap(h, v, - ((bitmapobject *)bp)->b_bitmap, - ((bitmapobject *)bp)->b_bitmap); - Py_INCREF(Py_None); - return Py_None; -} - -#endif /* HAVE_BITMAPS */ - -static PyMethodDef drawing_methods[] = { -#ifdef HAVE_BITMAPS - {"bitmap", (PyCFunction)drawing_bitmap}, -#endif - {"box", (PyCFunction)drawing_box}, - {"circle", (PyCFunction)drawing_circle}, - {"cliprect", (PyCFunction)drawing_cliprect}, - {"close", (PyCFunction)drawing_close}, - {"elarc", (PyCFunction)drawing_elarc}, - {"enddrawing", (PyCFunction)drawing_close}, - {"erase", (PyCFunction)drawing_erase}, - {"fillcircle", (PyCFunction)drawing_fillcircle}, - {"fillelarc", (PyCFunction)drawing_fillelarc}, - {"fillpoly", (PyCFunction)drawing_fillpoly}, - {"invert", (PyCFunction)drawing_invert}, - {"line", (PyCFunction)drawing_line}, - {"noclip", (PyCFunction)drawing_noclip}, - {"paint", (PyCFunction)drawing_paint}, - {"poly", (PyCFunction)drawing_poly}, - {"shade", (PyCFunction)drawing_shade}, - {"text", (PyCFunction)drawing_text}, - {"xorcircle", (PyCFunction)drawing_xorcircle}, - {"xorelarc", (PyCFunction)drawing_xorelarc}, - {"xorline", (PyCFunction)drawing_xorline}, - {"xorpoly", (PyCFunction)drawing_xorpoly}, - - /* Text measuring methods: */ - {"baseline", (PyCFunction)drawing_baseline}, - {"lineheight", (PyCFunction)drawing_lineheight}, - {"textbreak", (PyCFunction)drawing_textbreak}, - {"textwidth", (PyCFunction)drawing_textwidth}, - - /* Font setting methods: */ - {"setfont", (PyCFunction)drawing_setfont}, - - /* Color methods: */ - {"getbgcolor", (PyCFunction)drawing_getbgcolor}, - {"getfgcolor", (PyCFunction)drawing_getfgcolor}, - {"setbgcolor", (PyCFunction)drawing_setbgcolor}, - {"setfgcolor", (PyCFunction)drawing_setfgcolor}, - - {NULL, NULL} /* sentinel */ -}; - -static PyObject * -drawing_getattr(dp, name) - drawingobject *dp; - char *name; -{ - if (dp->d_ref == NULL) { - PyErr_SetString(StdwinError, "drawing object already closed"); - return NULL; - } - return Py_FindMethod(drawing_methods, (PyObject *)dp, name); -} - -PyTypeObject Drawingtype = { - PyObject_HEAD_INIT(&PyType_Type) - 0, /*ob_size*/ - "drawing", /*tp_name*/ - sizeof(drawingobject), /*tp_size*/ - 0, /*tp_itemsize*/ - /* methods */ - (destructor)drawing_dealloc, /*tp_dealloc*/ - 0, /*tp_print*/ - (getattrfunc)drawing_getattr, /*tp_getattr*/ - 0, /*tp_setattr*/ - 0, /*tp_compare*/ - 0, /*tp_repr*/ -}; - - -/* Text(edit) objects */ - -typedef struct { - PyObject_HEAD - TEXTEDIT *t_text; - windowobject *t_ref; - PyObject *t_attr; /* Attributes dictionary */ -} textobject; - -staticforward PyTypeObject Texttype; - -static textobject * -newtextobject(wp, left, top, right, bottom) - windowobject *wp; - int left, top, right, bottom; -{ - textobject *tp; - tp = PyObject_NEW(textobject, &Texttype); - if (tp == NULL) - return NULL; - tp->t_attr = NULL; - Py_INCREF(wp); - tp->t_ref = wp; - tp->t_text = tecreate(wp->w_win, left, top, right, bottom); - if (tp->t_text == NULL) { - Py_DECREF(tp); - return (textobject *) PyErr_NoMemory(); - } - return tp; -} - -/* Text(edit) methods */ - -static void -text_dealloc(tp) - textobject *tp; -{ - if (tp->t_text != NULL) - tefree(tp->t_text); - Py_XDECREF(tp->t_attr); - Py_XDECREF(tp->t_ref); - PyMem_DEL(tp); -} - -static PyObject * -text_close(tp, args) - textobject *tp; - PyObject *args; -{ - if (tp->t_text != NULL) { - tefree(tp->t_text); - tp->t_text = NULL; - } - if (tp->t_attr != NULL) { - Py_DECREF(tp->t_attr); - tp->t_attr = NULL; - } - if (tp->t_ref != NULL) { - Py_DECREF(tp->t_ref); - tp->t_ref = NULL; - } - Py_INCREF(Py_None); - return Py_None; -} - -static PyObject * -text_arrow(self, args) - textobject *self; - PyObject *args; -{ - int code; - if (!getintarg(args, &code)) - return NULL; - tearrow(self->t_text, code); - Py_INCREF(Py_None); - return Py_None; -} - -static PyObject * -text_draw(self, args) - textobject *self; - PyObject *args; -{ - register TEXTEDIT *tp = self->t_text; - int a[4]; - int left, top, right, bottom; - if (!getrectarg(args, a)) - return NULL; - if (Drawing != NULL) { - PyErr_SetString(StdwinError, "already drawing"); - return NULL; - } - /* Clip to text area and ignore if area is empty */ - left = tegetleft(tp); - top = tegettop(tp); - right = tegetright(tp); - bottom = tegetbottom(tp); - if (a[0] < left) a[0] = left; - if (a[1] < top) a[1] = top; - if (a[2] > right) a[2] = right; - if (a[3] > bottom) a[3] = bottom; - if (a[0] < a[2] && a[1] < a[3]) { - wbegindrawing(self->t_ref->w_win); - tedrawnew(tp, a[0], a[1], a[2], a[3]); - wenddrawing(self->t_ref->w_win); - } - Py_INCREF(Py_None); - return Py_None; -} - -static PyObject * -text_event(self, args) - textobject *self; - PyObject *args; -{ - register TEXTEDIT *tp = self->t_text; - EVENT e; - if (!geteventarg(args, &e)) - return NULL; - if (e.type == WE_MOUSE_DOWN) { - /* Cheat at the margins */ - int width, height; - wgetdocsize(e.window, &width, &height); - if (e.u.where.h < 0 && tegetleft(tp) == 0) - e.u.where.h = 0; - else if (e.u.where.h > width && tegetright(tp) == width) - e.u.where.h = width; - if (e.u.where.v < 0 && tegettop(tp) == 0) - e.u.where.v = 0; - else if (e.u.where.v > height && tegetright(tp) == height) - e.u.where.v = height; - } - return PyInt_FromLong((long) teevent(tp, &e)); -} - -static PyObject * -text_getfocus(self, args) - textobject *self; - PyObject *args; -{ - if (!PyArg_NoArgs(args)) - return NULL; - return makepoint(tegetfoc1(self->t_text), tegetfoc2(self->t_text)); -} - -static PyObject * -text_getfocustext(self, args) - textobject *self; - PyObject *args; -{ - int f1, f2; - char *text; - if (!PyArg_NoArgs(args)) - return NULL; - f1 = tegetfoc1(self->t_text); - f2 = tegetfoc2(self->t_text); - text = tegettext(self->t_text); - return PyString_FromStringAndSize(text + f1, f2-f1); -} - -static PyObject * -text_getrect(self, args) - textobject *self; - PyObject *args; -{ - if (!PyArg_NoArgs(args)) - return NULL; - return makerect(tegetleft(self->t_text), - tegettop(self->t_text), - tegetright(self->t_text), - tegetbottom(self->t_text)); -} - -static PyObject * -text_gettext(self, args) - textobject *self; - PyObject *args; -{ - if (!PyArg_NoArgs(args)) - return NULL; - return PyString_FromStringAndSize(tegettext(self->t_text), - tegetlen(self->t_text)); -} - -static PyObject * -text_move(self, args) - textobject *self; - PyObject *args; -{ - int a[4]; - if (!getrectarg(args, a)) - return NULL; - temovenew(self->t_text, a[0], a[1], a[2], a[3]); - Py_INCREF(Py_None); - return Py_None; -} - -static PyObject * -text_replace(self, args) - textobject *self; - PyObject *args; -{ - char *text; - if (!getstrarg(args, &text)) - return NULL; - tereplace(self->t_text, text); - Py_INCREF(Py_None); - return Py_None; -} - -static PyObject * -text_setactive(self, args) - textobject *self; - PyObject *args; -{ - int flag; - if (!getintarg(args, &flag)) - return NULL; - tesetactive(self->t_text, flag); - Py_INCREF(Py_None); - return Py_None; -} - -static PyObject * -text_setfocus(self, args) - textobject *self; - PyObject *args; -{ - int a[2]; - if (!getpointarg(args, a)) - return NULL; - tesetfocus(self->t_text, a[0], a[1]); - Py_INCREF(Py_None); - return Py_None; -} - -static PyObject * -text_settext(self, args) - textobject *self; - PyObject *args; -{ - char *text; - char *buf; - int size; - if (!PyArg_Parse(args, "t#", &text, &size)) - return NULL; - if ((buf = PyMem_NEW(char, size)) == NULL) { - return PyErr_NoMemory(); - } - memcpy(buf, text, size); - tesetbuf(self->t_text, buf, size); /* Becomes owner of buffer */ - Py_INCREF(Py_None); - return Py_None; -} - -static PyObject * -text_setview(self, args) - textobject *self; - PyObject *args; -{ - int a[4]; - if (args == Py_None) - tenoview(self->t_text); - else { - if (!getrectarg(args, a)) - return NULL; - tesetview(self->t_text, a[0], a[1], a[2], a[3]); - } - Py_INCREF(Py_None); - return Py_None; -} - -static PyMethodDef text_methods[] = { - {"arrow", (PyCFunction)text_arrow}, - {"close", (PyCFunction)text_close}, - {"draw", (PyCFunction)text_draw}, - {"event", (PyCFunction)text_event}, - {"getfocus", (PyCFunction)text_getfocus}, - {"getfocustext",(PyCFunction)text_getfocustext}, - {"getrect", (PyCFunction)text_getrect}, - {"gettext", (PyCFunction)text_gettext}, - {"move", (PyCFunction)text_move}, - {"replace", (PyCFunction)text_replace}, - {"setactive", (PyCFunction)text_setactive}, - {"setfocus", (PyCFunction)text_setfocus}, - {"settext", (PyCFunction)text_settext}, - {"setview", (PyCFunction)text_setview}, - {NULL, NULL} /* sentinel */ -}; - -static PyObject * -text_getattr(tp, name) - textobject *tp; - char *name; -{ - PyObject *v = NULL; - if (tp->t_ref == NULL) { - PyErr_SetString(StdwinError, "text object already closed"); - return NULL; - } - if (strcmp(name, "__dict__") == 0) { - v = tp->t_attr; - if (v == NULL) - v = Py_None; - } - else if (tp->t_attr != NULL) { - v = PyDict_GetItemString(tp->t_attr, name); - } - if (v != NULL) { - Py_INCREF(v); - return v; - } - return Py_FindMethod(text_methods, (PyObject *)tp, name); -} - -static int -text_setattr(tp, name, v) - textobject *tp; - char *name; - PyObject *v; -{ - if (tp->t_attr == NULL) { - tp->t_attr = PyDict_New(); - if (tp->t_attr == NULL) - return -1; - } - if (v == NULL) { - int rv = PyDict_DelItemString(tp->t_attr, name); - if (rv < 0) - PyErr_SetString(PyExc_AttributeError, - "delete non-existing text object attribute"); - return rv; - } - else - return PyDict_SetItemString(tp->t_attr, name, v); -} - -statichere PyTypeObject Texttype = { - PyObject_HEAD_INIT(&PyType_Type) - 0, /*ob_size*/ - "textedit", /*tp_name*/ - sizeof(textobject), /*tp_size*/ - 0, /*tp_itemsize*/ - /* methods */ - (destructor)text_dealloc, /*tp_dealloc*/ - 0, /*tp_print*/ - (getattrfunc)text_getattr, /*tp_getattr*/ - (setattrfunc)text_setattr, /*tp_setattr*/ - 0, /*tp_compare*/ - 0, /*tp_repr*/ -}; - - -/* Menu objects */ - -#define IDOFFSET 10 /* Menu IDs we use start here */ -#define MAXNMENU 200 /* Max #menus we allow */ -static menuobject *menulist[MAXNMENU]; - -static menuobject *newmenuobject Py_PROTO((char *)); -static menuobject * -newmenuobject(title) - char *title; -{ - int id; - MENU *menu; - menuobject *mp; - for (id = 0; id < MAXNMENU; id++) { - if (menulist[id] == NULL) - break; - } - if (id >= MAXNMENU) { - PyErr_SetString(StdwinError, "creating too many menus"); - return NULL; - } - menu = wmenucreate(id + IDOFFSET, title); - if (menu == NULL) - return (menuobject *) PyErr_NoMemory(); - mp = PyObject_NEW(menuobject, &Menutype); - if (mp != NULL) { - mp->m_menu = menu; - mp->m_id = id + IDOFFSET; - mp->m_attr = NULL; - menulist[id] = mp; - } - else - wmenudelete(menu); - return mp; -} - -/* Menu methods */ - -static void -menu_dealloc(mp) - menuobject *mp; -{ - - int id = mp->m_id - IDOFFSET; - if (id >= 0 && id < MAXNMENU && menulist[id] == mp) { - menulist[id] = NULL; - } - if (mp->m_menu != NULL) - wmenudelete(mp->m_menu); - Py_XDECREF(mp->m_attr); - PyMem_DEL(mp); -} - -static PyObject * -menu_close(mp, args) - menuobject *mp; - PyObject *args; -{ - int id = mp->m_id - IDOFFSET; - if (id >= 0 && id < MAXNMENU && menulist[id] == mp) { - menulist[id] = NULL; - } - mp->m_id = -1; - if (mp->m_menu != NULL) - wmenudelete(mp->m_menu); - mp->m_menu = NULL; - Py_XDECREF(mp->m_attr); - mp->m_attr = NULL; - Py_INCREF(Py_None); - return Py_None; -} - -static PyObject * -menu_additem(self, args) - menuobject *self; - PyObject *args; -{ - char *text; - int shortcut = -1; - if (PyTuple_Check(args)) { - char c; - if (!PyArg_Parse(args, "(sc)", &text, &c)) - return NULL; - shortcut = c; - } - else if (!getstrarg(args, &text)) - return NULL; - wmenuadditem(self->m_menu, text, shortcut); - Py_INCREF(Py_None); - return Py_None; -} - -static PyObject * -menu_setitem(self, args) - menuobject *self; - PyObject *args; -{ - int index; - char *text; - if (!PyArg_Parse(args, "(is)", &index, &text)) - return NULL; - wmenusetitem(self->m_menu, index, text); - Py_INCREF(Py_None); - return Py_None; -} - -static PyObject * -menu_enable(self, args) - menuobject *self; - PyObject *args; -{ - int index; - int flag; - if (!PyArg_Parse(args, "(ii)", &index, &flag)) - return NULL; - wmenuenable(self->m_menu, index, flag); - Py_INCREF(Py_None); - return Py_None; -} - -static PyObject * -menu_check(self, args) - menuobject *self; - PyObject *args; -{ - int index; - int flag; - if (!PyArg_Parse(args, "(ii)", &index, &flag)) - return NULL; - wmenucheck(self->m_menu, index, flag); - Py_INCREF(Py_None); - return Py_None; -} - -static PyMethodDef menu_methods[] = { - {"additem", (PyCFunction)menu_additem}, - {"setitem", (PyCFunction)menu_setitem}, - {"enable", (PyCFunction)menu_enable}, - {"check", (PyCFunction)menu_check}, - {"close", (PyCFunction)menu_close}, - {NULL, NULL} /* sentinel */ -}; - -static PyObject * -menu_getattr(mp, name) - menuobject *mp; - char *name; -{ - PyObject *v = NULL; - if (mp->m_menu == NULL) { - PyErr_SetString(StdwinError, "menu object already closed"); - return NULL; - } - if (strcmp(name, "__dict__") == 0) { - v = mp->m_attr; - if (v == NULL) - v = Py_None; - } - else if (mp->m_attr != NULL) { - v = PyDict_GetItemString(mp->m_attr, name); - } - if (v != NULL) { - Py_INCREF(v); - return v; - } - return Py_FindMethod(menu_methods, (PyObject *)mp, name); -} - -static int -menu_setattr(mp, name, v) - menuobject *mp; - char *name; - PyObject *v; -{ - if (mp->m_attr == NULL) { - mp->m_attr = PyDict_New(); - if (mp->m_attr == NULL) - return -1; - } - if (v == NULL) { - int rv = PyDict_DelItemString(mp->m_attr, name); - if (rv < 0) - PyErr_SetString(PyExc_AttributeError, - "delete non-existing menu object attribute"); - return rv; - } - else - return PyDict_SetItemString(mp->m_attr, name, v); -} - -statichere PyTypeObject Menutype = { - PyObject_HEAD_INIT(&PyType_Type) - 0, /*ob_size*/ - "menu", /*tp_name*/ - sizeof(menuobject), /*tp_size*/ - 0, /*tp_itemsize*/ - /* methods */ - (destructor)menu_dealloc, /*tp_dealloc*/ - 0, /*tp_print*/ - (getattrfunc)menu_getattr, /*tp_getattr*/ - (setattrfunc)menu_setattr, /*tp_setattr*/ - 0, /*tp_compare*/ - 0, /*tp_repr*/ -}; - - -#ifdef HAVE_BITMAPS - -/* Bitmaps objects */ - -static bitmapobject *newbitmapobject Py_PROTO((int, int)); -static bitmapobject * -newbitmapobject(width, height) - int width, height; -{ - BITMAP *bitmap; - bitmapobject *bp; - bitmap = wnewbitmap(width, height); - if (bitmap == NULL) - return (bitmapobject *) PyErr_NoMemory(); - bp = PyObject_NEW(bitmapobject, &Bitmaptype); - if (bp != NULL) { - bp->b_bitmap = bitmap; - bp->b_attr = NULL; - } - else - wfreebitmap(bitmap); - return bp; -} - -/* Bitmap methods */ - -static void -bitmap_dealloc(bp) - bitmapobject *bp; -{ - if (bp->b_bitmap != NULL) - wfreebitmap(bp->b_bitmap); - Py_XDECREF(bp->b_attr); - PyMem_DEL(bp); -} - -static PyObject * -bitmap_close(bp, args) - bitmapobject *bp; - PyObject *args; -{ - if (bp->b_bitmap != NULL) - wfreebitmap(bp->b_bitmap); - bp->b_bitmap = NULL; - Py_XDECREF(bp->b_attr); - bp->b_attr = NULL; - Py_INCREF(Py_None); - return Py_None; -} - -static PyObject * -bitmap_setbit(self, args) - bitmapobject *self; - PyObject *args; -{ - int a[3]; - if (!getpointintarg(args, a)) - return NULL; - wsetbit(self->b_bitmap, a[0], a[1], a[2]); - Py_INCREF(Py_None); - return Py_None; -} - -static PyObject * -bitmap_getbit(self, args) - bitmapobject *self; - PyObject *args; -{ - int a[2]; - if (!getpointarg(args, a)) - return NULL; - return PyInt_FromLong((long) wgetbit(self->b_bitmap, a[0], a[1])); -} - -static PyObject * -bitmap_getsize(self, args) - bitmapobject *self; - PyObject *args; -{ - int width, height; - if (!PyArg_NoArgs(args)) - return NULL; - wgetbitmapsize(self->b_bitmap, &width, &height); - return Py_BuildValue("(ii)", width, height); -} - -static PyMethodDef bitmap_methods[] = { - {"close", (PyCFunction)bitmap_close}, - {"getsize", (PyCFunction)bitmap_getsize}, - {"getbit", (PyCFunction)bitmap_getbit}, - {"setbit", (PyCFunction)bitmap_setbit}, - {NULL, NULL} /* sentinel */ -}; - -static PyObject * -bitmap_getattr(bp, name) - bitmapobject *bp; - char *name; -{ - PyObject *v = NULL; - if (bp->b_bitmap == NULL) { - PyErr_SetString(StdwinError, "bitmap object already closed"); - return NULL; - } - if (strcmp(name, "__dict__") == 0) { - v = bp->b_attr; - if (v == NULL) - v = Py_None; - } - else if (bp->b_attr != NULL) { - v = PyDict_GetItemString(bp->b_attr, name); - } - if (v != NULL) { - Py_INCREF(v); - return v; - } - return Py_FindMethod(bitmap_methods, (PyObject *)bp, name); -} - -static int -bitmap_setattr(bp, name, v) - bitmapobject *bp; - char *name; - PyObject *v; -{ - if (bp->b_attr == NULL) { - bp->b_attr = PyDict_New(); - if (bp->b_attr == NULL) - return -1; - } - if (v == NULL) { - int rv = PyDict_DelItemString(bp->b_attr, name); - if (rv < 0) - PyErr_SetString(PyExc_AttributeError, - "delete non-existing bitmap object attribute"); - return rv; - } - else - return PyDict_SetItemString(bp->b_attr, name, v); -} - -statichere PyTypeObject Bitmaptype = { - PyObject_HEAD_INIT(&PyType_Type) - 0, /*ob_size*/ - "bitmap", /*tp_name*/ - sizeof(bitmapobject), /*tp_size*/ - 0, /*tp_itemsize*/ - /* methods */ - (destructor)bitmap_dealloc, /*tp_dealloc*/ - 0, /*tp_print*/ - (getattrfunc)bitmap_getattr, /*tp_getattr*/ - (setattrfunc)bitmap_setattr, /*tp_setattr*/ - 0, /*tp_compare*/ - 0, /*tp_repr*/ -}; - -#endif /* HAVE_BITMAPS */ - - -/* Windows */ - -#define MAXNWIN 50 -static windowobject *windowlist[MAXNWIN]; - -/* Window methods */ - -static void -window_dealloc(wp) - windowobject *wp; -{ - if (wp->w_win != NULL) { - int tag = wgettag(wp->w_win); - if (tag >= 0 && tag < MAXNWIN) - windowlist[tag] = NULL; - else - fprintf(stderr, "XXX help! tag %d in window_dealloc\n", - tag); - wclose(wp->w_win); - } - Py_DECREF(wp->w_title); - if (wp->w_attr != NULL) - Py_DECREF(wp->w_attr); - free((char *)wp); -} - -static PyObject * -window_close(wp, args) - windowobject *wp; - PyObject *args; -{ - if (wp->w_win != NULL) { - int tag = wgettag(wp->w_win); - if (tag >= 0 && tag < MAXNWIN) - windowlist[tag] = NULL; - wclose(wp->w_win); - wp->w_win = NULL; - } - Py_INCREF(Py_None); - return Py_None; -} - -static PyObject * -window_begindrawing(wp, args) - windowobject *wp; - PyObject *args; -{ - drawingobject *dp; - if (!PyArg_NoArgs(args)) - return NULL; - if (Drawing != NULL) { - PyErr_SetString(StdwinError, "already drawing"); - return NULL; - } - dp = PyObject_NEW(drawingobject, &Drawingtype); - if (dp == NULL) - return NULL; - Drawing = dp; - Py_INCREF(wp); - dp->d_ref = wp; - wbegindrawing(wp->w_win); - return (PyObject *)dp; -} - -static PyObject * -window_change(wp, args) - windowobject *wp; - PyObject *args; -{ - int a[4]; - if (!getrectarg(args, a)) - return NULL; - wchange(wp->w_win, a[0], a[1], a[2], a[3]); - Py_INCREF(Py_None); - return Py_None; -} - -static PyObject * -window_gettitle(wp, args) - windowobject *wp; - PyObject *args; -{ - if (!PyArg_NoArgs(args)) - return NULL; - Py_INCREF(wp->w_title); - return wp->w_title; -} - -static PyObject * -window_getwinpos(wp, args) - windowobject *wp; - PyObject *args; -{ - int h, v; - if (!PyArg_NoArgs(args)) - return NULL; - wgetwinpos(wp->w_win, &h, &v); - return makepoint(h, v); -} - -static PyObject * -window_getwinsize(wp, args) - windowobject *wp; - PyObject *args; -{ - int width, height; - if (!PyArg_NoArgs(args)) - return NULL; - wgetwinsize(wp->w_win, &width, &height); - return makepoint(width, height); -} - -static PyObject * -window_setwinpos(wp, args) - windowobject *wp; - PyObject *args; -{ - int a[2]; - if (!getpointarg(args, a)) - return NULL; - wsetwinpos(wp->w_win, a[0], a[1]); - Py_INCREF(Py_None); - return Py_None; -} - -static PyObject * -window_setwinsize(wp, args) - windowobject *wp; - PyObject *args; -{ - int a[2]; - if (!getpointarg(args, a)) - return NULL; - wsetwinsize(wp->w_win, a[0], a[1]); - Py_INCREF(Py_None); - return Py_None; -} - -static PyObject * -window_getdocsize(wp, args) - windowobject *wp; - PyObject *args; -{ - int width, height; - if (!PyArg_NoArgs(args)) - return NULL; - wgetdocsize(wp->w_win, &width, &height); - return makepoint(width, height); -} - -static PyObject * -window_getorigin(wp, args) - windowobject *wp; - PyObject *args; -{ - int width, height; - if (!PyArg_NoArgs(args)) - return NULL; - wgetorigin(wp->w_win, &width, &height); - return makepoint(width, height); -} - -static PyObject * -window_scroll(wp, args) - windowobject *wp; - PyObject *args; -{ - int a[6]; - if (!getrectpointarg(args, a)) - return NULL; - wscroll(wp->w_win, a[0], a[1], a[2], a[3], a[4], a[5]); - Py_INCREF(Py_None); - return Py_None; -} - -static PyObject * -window_setdocsize(wp, args) - windowobject *wp; - PyObject *args; -{ - int a[2]; - if (!getpointarg(args, a)) - return NULL; - wsetdocsize(wp->w_win, a[0], a[1]); - Py_INCREF(Py_None); - return Py_None; -} - -static PyObject * -window_setorigin(wp, args) - windowobject *wp; - PyObject *args; -{ - int a[2]; - if (!getpointarg(args, a)) - return NULL; - wsetorigin(wp->w_win, a[0], a[1]); - Py_INCREF(Py_None); - return Py_None; -} - -static PyObject * -window_settitle(wp, args) - windowobject *wp; - PyObject *args; -{ - PyObject *title; - if (!PyArg_Parse(args, "S", &title)) - return NULL; - Py_DECREF(wp->w_title); - Py_INCREF(title); - wp->w_title = title; - wsettitle(wp->w_win, PyString_AsString(title)); - Py_INCREF(Py_None); - return Py_None; -} - -static PyObject * -window_show(wp, args) - windowobject *wp; - PyObject *args; -{ - int a[4]; - if (!getrectarg(args, a)) - return NULL; - wshow(wp->w_win, a[0], a[1], a[2], a[3]); - Py_INCREF(Py_None); - return Py_None; -} - -static PyObject * -window_settimer(wp, args) - windowobject *wp; - PyObject *args; -{ - int a; - if (!getintarg(args, &a)) - return NULL; - wsettimer(wp->w_win, a); - Py_INCREF(Py_None); - return Py_None; -} - -static PyObject * -window_menucreate(self, args) - windowobject *self; - PyObject *args; -{ - menuobject *mp; - char *title; - if (!getstrarg(args, &title)) - return NULL; - wmenusetdeflocal(1); - mp = newmenuobject(title); - if (mp == NULL) - return NULL; - wmenuattach(self->w_win, mp->m_menu); - return (PyObject *)mp; -} - -static PyObject * -window_textcreate(self, args) - windowobject *self; - PyObject *args; -{ - int a[4]; - if (!getrectarg(args, a)) - return NULL; - return (PyObject *)newtextobject(self, a[0], a[1], a[2], a[3]); -} - -static PyObject * -window_setselection(self, args) - windowobject *self; - PyObject *args; -{ - int sel, size, ok; - char *text; - if (!PyArg_Parse(args, "(it#)", &sel, &text, &size)) - return NULL; - ok = wsetselection(self->w_win, sel, text, size); - return PyInt_FromLong(ok); -} - -static PyObject * -window_setwincursor(self, args) - windowobject *self; - PyObject *args; -{ - char *name; - CURSOR *c; - if (!PyArg_Parse(args, "z", &name)) - return NULL; - if (name == NULL) - c = NULL; - else { - c = wfetchcursor(name); - if (c == NULL) { - PyErr_SetString(StdwinError, "no such cursor"); - return NULL; - } - } - wsetwincursor(self->w_win, c); - Py_INCREF(Py_None); - return Py_None; -} - -static PyObject * -window_setactive(self, args) - windowobject *self; - PyObject *args; -{ - if (!PyArg_NoArgs(args)) - return NULL; - wsetactive(self->w_win); - Py_INCREF(Py_None); - return Py_None; -} - -#ifdef CWI_HACKS -static PyObject * -window_getxwindowid(self, args) - windowobject *self; - PyObject *args; -{ - long wid = wgetxwindowid(self->w_win); - return PyInt_FromLong(wid); -} -#endif - -static PyMethodDef window_methods[] = { - {"begindrawing",(PyCFunction)window_begindrawing}, - {"change", (PyCFunction)window_change}, - {"close", (PyCFunction)window_close}, - {"getdocsize", (PyCFunction)window_getdocsize}, - {"getorigin", (PyCFunction)window_getorigin}, - {"gettitle", (PyCFunction)window_gettitle}, - {"getwinpos", (PyCFunction)window_getwinpos}, - {"getwinsize", (PyCFunction)window_getwinsize}, - {"menucreate", (PyCFunction)window_menucreate}, - {"scroll", (PyCFunction)window_scroll}, - {"setactive", (PyCFunction)window_setactive}, - {"setdocsize", (PyCFunction)window_setdocsize}, - {"setorigin", (PyCFunction)window_setorigin}, - {"setselection",(PyCFunction)window_setselection}, - {"settimer", (PyCFunction)window_settimer}, - {"settitle", (PyCFunction)window_settitle}, - {"setwincursor",(PyCFunction)window_setwincursor}, - {"setwinpos", (PyCFunction)window_setwinpos}, - {"setwinsize", (PyCFunction)window_setwinsize}, - {"show", (PyCFunction)window_show}, - {"textcreate", (PyCFunction)window_textcreate}, -#ifdef CWI_HACKS - {"getxwindowid",(PyCFunction)window_getxwindowid}, -#endif - {NULL, NULL} /* sentinel */ -}; - -static PyObject * -window_getattr(wp, name) - windowobject *wp; - char *name; -{ - PyObject *v = NULL; - if (wp->w_win == NULL) { - PyErr_SetString(StdwinError, "window already closed"); - return NULL; - } - if (strcmp(name, "__dict__") == 0) { - v = wp->w_attr; - if (v == NULL) - v = Py_None; - } - else if (wp->w_attr != NULL) { - v = PyDict_GetItemString(wp->w_attr, name); - } - if (v != NULL) { - Py_INCREF(v); - return v; - } - return Py_FindMethod(window_methods, (PyObject *)wp, name); -} - -static int -window_setattr(wp, name, v) - windowobject *wp; - char *name; - PyObject *v; -{ - if (wp->w_attr == NULL) { - wp->w_attr = PyDict_New(); - if (wp->w_attr == NULL) - return -1; - } - if (v == NULL) { - int rv = PyDict_DelItemString(wp->w_attr, name); - if (rv < 0) - PyErr_SetString(PyExc_AttributeError, - "delete non-existing menu object attribute"); - return rv; - } - else - return PyDict_SetItemString(wp->w_attr, name, v); -} - -statichere PyTypeObject Windowtype = { - PyObject_HEAD_INIT(&PyType_Type) - 0, /*ob_size*/ - "window", /*tp_name*/ - sizeof(windowobject), /*tp_size*/ - 0, /*tp_itemsize*/ - /* methods */ - (destructor)window_dealloc, /*tp_dealloc*/ - 0, /*tp_print*/ - (getattrfunc)window_getattr, /*tp_getattr*/ - (setattrfunc)window_setattr, /*tp_setattr*/ - 0, /*tp_compare*/ - 0, /*tp_repr*/ -}; - -/* Stdwin methods */ - -static PyObject * -stdwin_done(sw, args) - PyObject *sw; - PyObject *args; -{ - if (!PyArg_NoArgs(args)) - return NULL; - wdone(); - /* XXX There is no protection against continued use of - XXX stdwin functions or objects after this call is made. - XXX Use at own risk */ - Py_INCREF(Py_None); - return Py_None; -} - -static PyObject * -stdwin_open(sw, args) - PyObject *sw; - PyObject *args; -{ - int tag; - PyObject *title; - windowobject *wp; - if (!PyArg_Parse(args, "S", &title)) - return NULL; - for (tag = 0; tag < MAXNWIN; tag++) { - if (windowlist[tag] == NULL) - break; - } - if (tag >= MAXNWIN) { - PyErr_SetString(StdwinError, "creating too many windows"); - return NULL; - } - wp = PyObject_NEW(windowobject, &Windowtype); - if (wp == NULL) - return NULL; - Py_INCREF(title); - wp->w_title = title; - wp->w_win = wopen(PyString_AsString(title), (void (*)()) NULL); - wp->w_attr = NULL; - if (wp->w_win == NULL) { - Py_DECREF(wp); - return NULL; - } - windowlist[tag] = wp; - wsettag(wp->w_win, tag); - return (PyObject *)wp; -} - -static PyObject * -window2object(win) - WINDOW *win; -{ - PyObject *w; - if (win == NULL) - w = Py_None; - else { - int tag = wgettag(win); - if (tag < 0 || tag >= MAXNWIN || windowlist[tag] == NULL || - windowlist[tag]->w_win != win) - w = Py_None; - else - w = (PyObject *)windowlist[tag]; - } - Py_INCREF(w); - return w; -} - -static PyObject * -stdwin_get_poll_event(poll, args) - int poll; - PyObject *args; -{ - EVENT e; - PyObject *u, *v, *w; - if (!PyArg_NoArgs(args)) - return NULL; - if (Drawing != NULL) { - PyErr_SetString(StdwinError, - "cannot getevent() while drawing"); - return NULL; - } - again: - BGN_STDWIN - if (poll) { - if (!wpollevent(&e)) { - RET_STDWIN - Py_INCREF(Py_None); - return Py_None; - } - } - else - wgetevent(&e); - END_STDWIN - if (e.type == WE_COMMAND && e.u.command == WC_CANCEL) { - /* Turn keyboard interrupts into exceptions */ - PyErr_SetNone(PyExc_KeyboardInterrupt); - return NULL; - } - if (e.type == WE_COMMAND && e.u.command == WC_CLOSE) { - /* Turn WC_CLOSE commands into WE_CLOSE events */ - e.type = WE_CLOSE; - } - v = window2object(e.window); - switch (e.type) { - case WE_CHAR: - { - char c[1]; - c[0] = e.u.character; - w = PyString_FromStringAndSize(c, 1); - } - break; - case WE_COMMAND: - w = PyInt_FromLong((long)e.u.command); - break; - case WE_DRAW: - w = makerect(e.u.area.left, e.u.area.top, - e.u.area.right, e.u.area.bottom); - break; - case WE_MOUSE_DOWN: - case WE_MOUSE_MOVE: - case WE_MOUSE_UP: - w = Py_BuildValue("((ii)iii)", - e.u.where.h, e.u.where.v, - e.u.where.clicks, - e.u.where.button, - e.u.where.mask); - break; - case WE_MENU: - if (e.u.m.id >= IDOFFSET && - e.u.m.id < IDOFFSET+MAXNMENU && - menulist[e.u.m.id - IDOFFSET] != NULL) - { - w = Py_BuildValue("(Oi)", - menulist[e.u.m.id - IDOFFSET], - e.u.m.item); - } - else { - /* Ghost menu event. - Can occur only on the Mac if another part - of the aplication has installed a menu; - like the THINK C console library. */ - Py_DECREF(v); - goto again; - } - break; - case WE_KEY: - w = Py_BuildValue("(ii)", e.u.key.code, e.u.key.mask); - break; - case WE_LOST_SEL: - w = PyInt_FromLong((long)e.u.sel); - break; - default: - w = Py_None; - Py_INCREF(w); - break; - } - if (w == NULL) { - Py_DECREF(v); - return NULL; - } - u = Py_BuildValue("(iOO)", e.type, v, w); - Py_XDECREF(v); - Py_XDECREF(w); - return u; -} - -static PyObject * -stdwin_getevent(sw, args) - PyObject *sw; - PyObject *args; -{ - return stdwin_get_poll_event(0, args); -} - -static PyObject * -stdwin_pollevent(sw, args) - PyObject *sw; - PyObject *args; -{ - return stdwin_get_poll_event(1, args); -} - -static PyObject * -stdwin_setdefwinpos(sw, args) - PyObject *sw; - PyObject *args; -{ - int a[2]; - if (!getpointarg(args, a)) - return NULL; - wsetdefwinpos(a[0], a[1]); - Py_INCREF(Py_None); - return Py_None; -} - -static PyObject * -stdwin_setdefwinsize(sw, args) - PyObject *sw; - PyObject *args; -{ - int a[2]; - if (!getpointarg(args, a)) - return NULL; - wsetdefwinsize(a[0], a[1]); - Py_INCREF(Py_None); - return Py_None; -} - -static PyObject * -stdwin_setdefscrollbars(sw, args) - PyObject *sw; - PyObject *args; -{ - int a[2]; - if (!getpointarg(args, a)) - return NULL; - wsetdefscrollbars(a[0], a[1]); - Py_INCREF(Py_None); - return Py_None; -} - -static PyObject * -stdwin_getdefwinpos(self, args) - PyObject *self; - PyObject *args; -{ - int h, v; - if (!PyArg_NoArgs(args)) - return NULL; - wgetdefwinpos(&h, &v); - return makepoint(h, v); -} - -static PyObject * -stdwin_getdefwinsize(self, args) - PyObject *self; - PyObject *args; -{ - int width, height; - if (!PyArg_NoArgs(args)) - return NULL; - wgetdefwinsize(&width, &height); - return makepoint(width, height); -} - -static PyObject * -stdwin_getdefscrollbars(self, args) - PyObject *self; - PyObject *args; -{ - int h, v; - if (!PyArg_NoArgs(args)) - return NULL; - wgetdefscrollbars(&h, &v); - return makepoint(h, v); -} - -static PyObject * -stdwin_menucreate(self, args) - PyObject *self; - PyObject *args; -{ - char *title; - if (!getstrarg(args, &title)) - return NULL; - wmenusetdeflocal(0); - return (PyObject *)newmenuobject(title); -} - -static PyObject * -stdwin_askfile(self, args) - PyObject *self; - PyObject *args; -{ - char *prompt, *dflt; - int new, ret; - char buf[256]; - if (!PyArg_Parse(args, "(ssi)", &prompt, &dflt, &new)) - return NULL; - strncpy(buf, dflt, sizeof buf); - buf[sizeof buf - 1] = '\0'; - BGN_STDWIN - ret = waskfile(prompt, buf, sizeof buf, new); - END_STDWIN - if (!ret) { - PyErr_SetNone(PyExc_KeyboardInterrupt); - return NULL; - } - return PyString_FromString(buf); -} - -static PyObject * -stdwin_askync(self, args) - PyObject *self; - PyObject *args; -{ - char *prompt; - int new, ret; - if (!PyArg_Parse(args, "(si)", &prompt, &new)) - return NULL; - BGN_STDWIN - ret = waskync(prompt, new); - END_STDWIN - if (ret < 0) { - PyErr_SetNone(PyExc_KeyboardInterrupt); - return NULL; - } - return PyInt_FromLong((long)ret); -} - -static PyObject * -stdwin_askstr(self, args) - PyObject *self; - PyObject *args; -{ - char *prompt, *dflt; - int ret; - char buf[256]; - if (!PyArg_Parse(args, "(ss)", &prompt, &dflt)) - return NULL; - strncpy(buf, dflt, sizeof buf); - buf[sizeof buf - 1] = '\0'; - BGN_STDWIN - ret = waskstr(prompt, buf, sizeof buf); - END_STDWIN - if (!ret) { - PyErr_SetNone(PyExc_KeyboardInterrupt); - return NULL; - } - return PyString_FromString(buf); -} - -static PyObject * -stdwin_message(self, args) - PyObject *self; - PyObject *args; -{ - char *msg; - if (!getstrarg(args, &msg)) - return NULL; - BGN_STDWIN - wmessage(msg); - END_STDWIN - Py_INCREF(Py_None); - return Py_None; -} - -static PyObject * -stdwin_fleep(self, args) - PyObject *self; - PyObject *args; -{ - if (!PyArg_NoArgs(args)) - return NULL; - wfleep(); - Py_INCREF(Py_None); - return Py_None; -} - -static PyObject * -stdwin_setcutbuffer(self, args) - PyObject *self; - PyObject *args; -{ - int i, size; - char *str; - if (!PyArg_Parse(args, "(it#)", &i, &str, &size)) - return NULL; - wsetcutbuffer(i, str, size); - Py_INCREF(Py_None); - return Py_None; -} - -static PyObject * -stdwin_getactive(self, args) - PyObject *self; - PyObject *args; -{ - return window2object(wgetactive()); -} - -static PyObject * -stdwin_getcutbuffer(self, args) - PyObject *self; - PyObject *args; -{ - int i; - char *str; - int len; - if (!getintarg(args, &i)) - return NULL; - str = wgetcutbuffer(i, &len); - if (str == NULL) { - str = ""; - len = 0; - } - return PyString_FromStringAndSize(str, len); -} - -static PyObject * -stdwin_rotatecutbuffers(self, args) - PyObject *self; - PyObject *args; -{ - int i; - if (!getintarg(args, &i)) - return NULL; - wrotatecutbuffers(i); - Py_INCREF(Py_None); - return Py_None; -} - -static PyObject * -stdwin_getselection(self, args) - PyObject *self; - PyObject *args; -{ - int sel; - char *data; - int len; - if (!getintarg(args, &sel)) - return NULL; - data = wgetselection(sel, &len); - if (data == NULL) { - data = ""; - len = 0; - } - return PyString_FromStringAndSize(data, len); -} - -static PyObject * -stdwin_resetselection(self, args) - PyObject *self; - PyObject *args; -{ - int sel; - if (!getintarg(args, &sel)) - return NULL; - wresetselection(sel); - Py_INCREF(Py_None); - return Py_None; -} - -static PyObject * -stdwin_fetchcolor(self, args) - PyObject *self; - PyObject *args; -{ - char *colorname; - COLOR color; - if (!getstrarg(args, &colorname)) - return NULL; - color = wfetchcolor(colorname); -#ifdef BADCOLOR - if (color == BADCOLOR) { - PyErr_SetString(StdwinError, "color name not found"); - return NULL; - } -#endif - return PyInt_FromLong((long)color); -} - -static PyObject * -stdwin_getscrsize(self, args) - PyObject *self; - PyObject *args; -{ - int width, height; - if (!PyArg_NoArgs(args)) - return NULL; - wgetscrsize(&width, &height); - return makepoint(width, height); -} - -static PyObject * -stdwin_getscrmm(self, args) - PyObject *self; - PyObject *args; -{ - int width, height; - if (!PyArg_NoArgs(args)) - return NULL; - wgetscrmm(&width, &height); - return makepoint(width, height); -} - -#ifdef unix -static PyObject * -stdwin_connectionnumber(self, args) - PyObject *self; - PyObject *args; -{ - if (!PyArg_NoArgs(args)) - return NULL; - return PyInt_FromLong((long) wconnectionnumber()); -} -#endif - -static PyObject * -stdwin_listfontnames(self, args) - PyObject *self; - PyObject *args; -{ - char *pattern; - char **fontnames; - int count; - PyObject *list; - if (!PyArg_Parse(args, "z", &pattern)) - return NULL; - fontnames = wlistfontnames(pattern, &count); - list = PyList_New(count); - if (list != NULL) { - int i; - for (i = 0; i < count; i++) { - PyObject *v = PyString_FromString(fontnames[i]); - if (v == NULL) { - Py_DECREF(list); - list = NULL; - break; - } - PyList_SetItem(list, i, v); - } - } - return list; -} - -#ifdef HAVE_BITMAPS -static PyObject * -stdwin_newbitmap(self, args) - PyObject *self; - PyObject *args; -{ - int width, height; - bitmapobject *bp; - if (!PyArg_Parse(args, "(ii)", &width, &height)) - return NULL; - return (PyObject *)newbitmapobject(width, height); -} -#endif - -static PyMethodDef stdwin_methods[] = { - {"askfile", stdwin_askfile}, - {"askstr", stdwin_askstr}, - {"askync", stdwin_askync}, - {"done", stdwin_done}, - {"fetchcolor", stdwin_fetchcolor}, -#ifdef unix - {"fileno", stdwin_connectionnumber}, - {"connectionnumber", stdwin_connectionnumber}, -#endif - {"fleep", stdwin_fleep}, - {"getactive", stdwin_getactive}, - {"getcutbuffer", stdwin_getcutbuffer}, - {"getdefscrollbars", stdwin_getdefscrollbars}, - {"getdefwinpos", stdwin_getdefwinpos}, - {"getdefwinsize", stdwin_getdefwinsize}, - {"getevent", stdwin_getevent}, - {"getscrmm", stdwin_getscrmm}, - {"getscrsize", stdwin_getscrsize}, - {"getselection", stdwin_getselection}, - {"listfontnames", stdwin_listfontnames}, - {"menucreate", stdwin_menucreate}, - {"message", stdwin_message}, -#ifdef HAVE_BITMAPS - {"newbitmap", stdwin_newbitmap}, -#endif - {"open", stdwin_open}, - {"pollevent", stdwin_pollevent}, - {"resetselection", stdwin_resetselection}, - {"rotatecutbuffers", stdwin_rotatecutbuffers}, - {"setcutbuffer", stdwin_setcutbuffer}, - {"setdefscrollbars", stdwin_setdefscrollbars}, - {"setdefwinpos", stdwin_setdefwinpos}, - {"setdefwinsize", stdwin_setdefwinsize}, - - /* Text measuring methods borrow code from drawing objects: */ - {"baseline", (PyCFunction)drawing_baseline}, - {"lineheight", (PyCFunction)drawing_lineheight}, - {"textbreak", (PyCFunction)drawing_textbreak}, - {"textwidth", (PyCFunction)drawing_textwidth}, - - /* Same for font setting methods: */ - {"setfont", (PyCFunction)drawing_setfont}, - - /* Same for color setting/getting methods: */ - {"getbgcolor", (PyCFunction)drawing_getbgcolor}, - {"getfgcolor", (PyCFunction)drawing_getfgcolor}, - {"setbgcolor", (PyCFunction)drawing_setbgcolor}, - {"setfgcolor", (PyCFunction)drawing_setfgcolor}, - - {NULL, NULL} /* sentinel */ -}; - -#ifndef macintosh -static int -checkstringlist(args, ps, pn) - PyObject *args; - char ***ps; - int *pn; -{ - int i, n; - char **s; - if (!PyList_Check(args)) { - PyErr_SetString(PyExc_TypeError, "list of strings expected"); - return 0; - } - n = PyList_Size(args); - s = PyMem_NEW(char *, n+1); - if (s == NULL) { - PyErr_NoMemory(); - return 0; - } - for (i = 0; i < n; i++) { - PyObject *item = PyList_GetItem(args, i); - if (!PyString_Check(item)) { - PyErr_SetString(PyExc_TypeError, - "list of strings expected"); - return 0; - } - s[i] = PyString_AsString(item); - } - s[n] = NULL; /* In case caller wants a NULL-terminated list */ - *ps = s; - *pn = n; - return 1; -} - -static int -putbackstringlist(list, s, n) - PyObject *list; - char **s; - int n; -{ - int oldsize = PyList_Size(list); - PyObject *newlist; - int i; - if (n == oldsize) - return 1; - newlist = PyList_New(n); - for (i = 0; i < n && newlist != NULL; i++) { - PyObject *item = PyString_FromString(s[i]); - if (item == NULL) { - Py_DECREF(newlist); - newlist = NULL; - } - else - PyList_SetItem(newlist, i, item); - } - if (newlist == NULL) - return 0; - (*list->ob_type->tp_as_sequence->sq_ass_slice) - (list, 0, oldsize, newlist); - Py_DECREF(newlist); - return 1; -} -#endif /* macintosh */ - -DL_EXPORT(void) -initstdwin() -{ - PyObject *m, *d; - static int inited = 0; - - if (!inited) { -#ifdef macintosh - winit(); - PyMac_DoYieldEnabled = 0; -#else - char buf[1000]; - int argc = 0; - char **argv = NULL; - PyObject *sys_argv = PySys_GetObject("argv"); - if (sys_argv != NULL) { - if (!checkstringlist(sys_argv, &argv, &argc)) - PyErr_Clear(); - } - if (argc > 0) { - /* If argv[0] has a ".py" suffix, remove the suffix */ - char *p = strrchr(argv[0], '.'); - if (p != NULL && strcmp(p, ".py") == 0) { - int n = p - argv[0]; - if (n >= sizeof(buf)) - n = sizeof(buf)-1; - strncpy(buf, argv[0], n); - buf[n] = '\0'; - argv[0] = buf; - } - } - winitargs(&argc, &argv); - if (argv != NULL) { - if (!putbackstringlist(sys_argv, argv, argc)) - PyErr_Clear(); - } -#endif - inited = 1; - } - m = Py_InitModule("stdwin", stdwin_methods); - d = PyModule_GetDict(m); - - /* Initialize stdwin.error exception */ - StdwinError = PyErr_NewException("stdwin.error", NULL, NULL); - if (StdwinError == NULL || - PyDict_SetItemString(d, "error", StdwinError) != 0) - return; -#ifdef WITH_THREAD - StdwinLock = PyThread_allocate_lock(); -#endif -} |