cpython-lru_cache-weakref: Modules/flmodule.c annotate

annotate Modules/flmodule.c @ 16798:258dcafe2d0b legacy-trunk

Gustavo Niemeyer <niemeyer@conectiva.com>: Fixed recno support (keys are integers rather than strings). Work around DB bug that cause stdin to be closed by rnopen() when the DB file needed to exist but did not (no longer segfaults). This closes SF tracker patch #403445. Also wrapped some long lines and added whitespace around operators -- FLD.

author	Fred Drake <fdrake@acm.org>
date	Tue, 27 Feb 2001 18:56:46 +0000
parents	6f6f965c5e2d
children	304b34023876

rev	line source
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1 /* FL module -- interface to Mark Overmars' FORMS Library. */
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	2
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	3 /* This code works with FORMS version 2.2 (if you defined
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	4 OBSOLETE_FORMS_CALLS), and 2.3.
1319 cd397266dc1c * Makefile: added all: and default: targets. Guido van Rossum <guido@python.org> parents: 1313 diff changeset	5 FORMS can be ftp'ed from ftp.cs.ruu.nl (131.211.80.17), directory
cd397266dc1c * Makefile: added all: and default: targets. Guido van Rossum <guido@python.org> parents: 1313 diff changeset	6 /pub/SGI/FORMS. */
469 42130e7220af Support for FORMS 2.0. Guido van Rossum <guido@python.org> parents: 442 diff changeset	7
947 260d96db112f Modified to allow other threads to run in a multithreaded environment. Jack Jansen <jack.jansen@cwi.nl> parents: 926 diff changeset	8 /* A half-hearted attempt has been made to allow programs using this
260d96db112f Modified to allow other threads to run in a multithreaded environment. Jack Jansen <jack.jansen@cwi.nl> parents: 926 diff changeset	9 * module to exploit parallelism (through the threads module). No provisions
260d96db112f Modified to allow other threads to run in a multithreaded environment. Jack Jansen <jack.jansen@cwi.nl> parents: 926 diff changeset	10 * have been made for multiple threads to use this module at the same time,
260d96db112f Modified to allow other threads to run in a multithreaded environment. Jack Jansen <jack.jansen@cwi.nl> parents: 926 diff changeset	11 * though. So, a program with a forms thread and a non-forms thread will work
260d96db112f Modified to allow other threads to run in a multithreaded environment. Jack Jansen <jack.jansen@cwi.nl> parents: 926 diff changeset	12 * fine but a program with two threads using forms will probably crash (unless
260d96db112f Modified to allow other threads to run in a multithreaded environment. Jack Jansen <jack.jansen@cwi.nl> parents: 926 diff changeset	13 * the program takes precaution to ensure that only one thread can be in
260d96db112f Modified to allow other threads to run in a multithreaded environment. Jack Jansen <jack.jansen@cwi.nl> parents: 926 diff changeset	14 * this module at any time). This will have to be fixed some time.
13620 5b727ab37092 Spelling fixes supplied by Rob W. W. Hooft. All these are fixes in either Thomas Wouters <thomas@python.org> parents: 13572 diff changeset	15 * (A fix will probably also have to synchronize with the gl module).
947 260d96db112f Modified to allow other threads to run in a multithreaded environment. Jack Jansen <jack.jansen@cwi.nl> parents: 926 diff changeset	16 */
260d96db112f Modified to allow other threads to run in a multithreaded environment. Jack Jansen <jack.jansen@cwi.nl> parents: 926 diff changeset	17
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	18 #include "Python.h"
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	19 #include "forms.h"
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	20 #include "structmember.h"
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	21
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	22 /* Generic Forms Objects */
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	23
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	24 typedef struct {
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	25 PyObject_HEAD
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	26 FL_OBJECT *ob_generic;
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	27 PyMethodDef *ob_methods;
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	28 PyObject *ob_callback;
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	29 PyObject *ob_callback_arg;
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	30 } genericobject;
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	31
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	32 staticforward PyTypeObject GenericObjecttype;
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	33
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	34 #define is_genericobject(g) ((g)->ob_type == &GenericObjecttype)
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	35
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	36 /* List of all objects (XXX this should be a hash table on address...) */
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	37
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	38 static PyObject *allgenerics = NULL;
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	39 static int nfreeslots = 0;
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	40
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	41 /* Add an object to the list of known objects */
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	42
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	43 static void
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	44 knowgeneric(genericobject *g)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	45 {
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	46 int i, n;
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	47 /* Create the list if it doesn't already exist */
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	48 if (allgenerics == NULL) {
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	49 allgenerics = PyList_New(0);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	50 if (allgenerics == NULL) {
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	51 PyErr_Clear();
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	52 return; /* Too bad, live without allgenerics... */
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	53 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	54 }
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	55 if (nfreeslots > 0) {
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	56 /* Search the list for reusable slots (NULL items) */
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	57 /* XXX This can be made faster! */
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	58 n = PyList_Size(allgenerics);
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	59 for (i = 0; i < n; i++) {
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	60 if (PyList_GetItem(allgenerics, i) == NULL) {
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	61 Py_INCREF(g);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	62 PyList_SetItem(allgenerics, i, (PyObject *)g);
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	63 nfreeslots--;
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	64 return;
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	65 }
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	66 }
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	67 /* Strange... no free slots found... */
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	68 nfreeslots = 0;
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	69 }
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	70 /* No free entries, append new item to the end */
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	71 PyList_Append(allgenerics, (PyObject *)g);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	72 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	73
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	74 /* Find an object in the list of known objects */
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	75
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	76 static genericobject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	77 findgeneric(FL_OBJECT *generic)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	78 {
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	79 int i, n;
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	80 genericobject *g;
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	81
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	82 if (allgenerics == NULL)
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	83 return NULL; /* No objects known yet */
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	84 n = PyList_Size(allgenerics);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	85 for (i = 0; i < n; i++) {
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	86 g = (genericobject *)PyList_GetItem(allgenerics, i);
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	87 if (g != NULL && g->ob_generic == generic)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	88 return g;
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	89 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	90 return NULL; /* Unknown object */
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	91 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	92
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	93 /* Remove an object from the list of known objects */
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	94
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	95 static void
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	96 forgetgeneric(genericobject *g)
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	97 {
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	98 int i, n;
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	99
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	100 Py_XDECREF(g->ob_callback);
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	101 g->ob_callback = NULL;
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	102 Py_XDECREF(g->ob_callback_arg);
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	103 g->ob_callback_arg = NULL;
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	104 if (allgenerics == NULL)
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	105 return; /* No objects known yet */
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	106 n = PyList_Size(allgenerics);
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	107 for (i = 0; i < n; i++) {
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	108 if (g == (genericobject *)PyList_GetItem(allgenerics, i)) {
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	109 PyList_SetItem(allgenerics, i, (PyObject *)NULL);
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	110 nfreeslots++;
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	111 break;
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	112 }
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	113 }
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	114 }
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	115
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	116 /* Called when a form is about to be freed --
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	117 remove all the objects that we know about from it. */
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	118
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	119 static void
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	120 releaseobjects(FL_FORM *form)
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	121 {
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	122 int i, n;
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	123 genericobject *g;
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	124
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	125 if (allgenerics == NULL)
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	126 return; /* No objects known yet */
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	127 n = PyList_Size(allgenerics);
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	128 for (i = 0; i < n; i++) {
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	129 g = (genericobject *)PyList_GetItem(allgenerics, i);
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	130 if (g != NULL && g->ob_generic->form == form) {
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	131 fl_delete_object(g->ob_generic);
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	132 /* The object is now unreachable for
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	133 do_forms and check_forms, so
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	134 delete it from the list of known objects */
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	135 Py_XDECREF(g->ob_callback);
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	136 g->ob_callback = NULL;
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	137 Py_XDECREF(g->ob_callback_arg);
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	138 g->ob_callback_arg = NULL;
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	139 PyList_SetItem(allgenerics, i, (PyObject *)NULL);
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	140 nfreeslots++;
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	141 }
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	142 }
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	143 }
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	144
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	145
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	146 /* Methods of generic objects */
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	147
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	148 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	149 generic_set_call_back(genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	150 {
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	151 if (args == NULL) {
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	152 Py_XDECREF(g->ob_callback);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	153 Py_XDECREF(g->ob_callback_arg);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	154 g->ob_callback = NULL;
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	155 g->ob_callback_arg = NULL;
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	156 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	157 else {
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	158 if (!PyTuple_Check(args) \|\| PyTuple_Size(args) != 2) {
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	159 PyErr_BadArgument();
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	160 return NULL;
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	161 }
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	162 Py_XDECREF(g->ob_callback);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	163 Py_XDECREF(g->ob_callback_arg);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	164 g->ob_callback = PyTuple_GetItem(args, 0);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	165 Py_INCREF(g->ob_callback);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	166 g->ob_callback_arg = PyTuple_GetItem(args, 1);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	167 Py_INCREF(g->ob_callback_arg);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	168 }
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	169 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	170 return Py_None;
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	171 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	172
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	173 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	174 generic_call(genericobject g, PyObject args, void (func)(FL_OBJECT ))
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	175 {
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	176 if (!PyArg_NoArgs(args))
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	177 return NULL;
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	178 (*func)(g->ob_generic);
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	179 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	180 return Py_None;
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	181 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	182
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	183 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	184 generic_delete_object(genericobject g, PyObject args)
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	185 {
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	186 PyObject *res;
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	187 res = generic_call(g, args, fl_delete_object);
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	188 if (res != NULL)
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	189 forgetgeneric(g);
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	190 return res;
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	191 }
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	192
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	193 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	194 generic_show_object(genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	195 {
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	196 return generic_call(g, args, fl_show_object);
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	197 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	198
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	199 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	200 generic_hide_object(genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	201 {
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	202 return generic_call(g, args, fl_hide_object);
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	203 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	204
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	205 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	206 generic_redraw_object(genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	207 {
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	208 return generic_call(g, args, fl_redraw_object);
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	209 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	210
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	211 #ifdef OBSOLETE_FORMS_CALLS
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	212
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	213 /* (un)freeze_object() are obsolete in FORMS 2.2 and unsupported
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	214 in 2.3. Since there's no foolproof way to tell which version we're
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	215 using, we omit them unconditionally. */
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	216
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	217 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	218 generic_freeze_object(genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	219 {
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	220 return generic_call(g, args, fl_freeze_object);
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	221 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	222
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	223 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	224 generic_unfreeze_object(genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	225 {
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	226 return generic_call(g, args, fl_unfreeze_object);
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	227 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	228
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	229 #endif /* OBSOLETE_FORMS_CALLS */
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	230
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	231 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	232 generic_activate_object(genericobject g, PyObject args)
1319 cd397266dc1c * Makefile: added all: and default: targets. Guido van Rossum <guido@python.org> parents: 1313 diff changeset	233 {
cd397266dc1c * Makefile: added all: and default: targets. Guido van Rossum <guido@python.org> parents: 1313 diff changeset	234 return generic_call(g, args, fl_activate_object);
cd397266dc1c * Makefile: added all: and default: targets. Guido van Rossum <guido@python.org> parents: 1313 diff changeset	235 }
cd397266dc1c * Makefile: added all: and default: targets. Guido van Rossum <guido@python.org> parents: 1313 diff changeset	236
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	237 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	238 generic_deactivate_object(genericobject g, PyObject args)
1319 cd397266dc1c * Makefile: added all: and default: targets. Guido van Rossum <guido@python.org> parents: 1313 diff changeset	239 {
cd397266dc1c * Makefile: added all: and default: targets. Guido van Rossum <guido@python.org> parents: 1313 diff changeset	240 return generic_call(g, args, fl_deactivate_object);
cd397266dc1c * Makefile: added all: and default: targets. Guido van Rossum <guido@python.org> parents: 1313 diff changeset	241 }
cd397266dc1c * Makefile: added all: and default: targets. Guido van Rossum <guido@python.org> parents: 1313 diff changeset	242
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	243 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	244 generic_set_object_shortcut(genericobject g, PyObject args)
1319 cd397266dc1c * Makefile: added all: and default: targets. Guido van Rossum <guido@python.org> parents: 1313 diff changeset	245 {
cd397266dc1c * Makefile: added all: and default: targets. Guido van Rossum <guido@python.org> parents: 1313 diff changeset	246 char *str;
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	247 if (!PyArg_Parse(args, "s", &str))
1319 cd397266dc1c * Makefile: added all: and default: targets. Guido van Rossum <guido@python.org> parents: 1313 diff changeset	248 return NULL;
cd397266dc1c * Makefile: added all: and default: targets. Guido van Rossum <guido@python.org> parents: 1313 diff changeset	249 fl_set_object_shortcut(g->ob_generic, str);
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	250 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	251 return Py_None;
1319 cd397266dc1c * Makefile: added all: and default: targets. Guido van Rossum <guido@python.org> parents: 1313 diff changeset	252 }
cd397266dc1c * Makefile: added all: and default: targets. Guido van Rossum <guido@python.org> parents: 1313 diff changeset	253
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	254 static PyMethodDef generic_methods[] = {
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	255 {"set_call_back", (PyCFunction)generic_set_call_back},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	256 {"delete_object", (PyCFunction)generic_delete_object},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	257 {"show_object", (PyCFunction)generic_show_object},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	258 {"hide_object", (PyCFunction)generic_hide_object},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	259 {"redraw_object", (PyCFunction)generic_redraw_object},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	260 #ifdef OBSOLETE_FORMS_CALLS
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	261 {"freeze_object", (PyCFunction)generic_freeze_object},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	262 {"unfreeze_object", (PyCFunction)generic_unfreeze_object},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	263 #endif
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	264 {"activate_object", (PyCFunction)generic_activate_object},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	265 {"deactivate_object", (PyCFunction)generic_deactivate_object},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	266 {"set_object_shortcut", (PyCFunction)generic_set_object_shortcut},
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	267 {NULL, NULL} /* sentinel */
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	268 };
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	269
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	270 static void
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	271 generic_dealloc(genericobject *g)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	272 {
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	273 fl_free_object(g->ob_generic);
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	274 Py_XDECREF(g->ob_callback);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	275 Py_XDECREF(g->ob_callback_arg);
12576 1c7c2dd1beb1 Vladimir Marangozov's long-awaited malloc restructuring. Guido van Rossum <guido@python.org> parents: 9588 diff changeset	276 PyObject_Del(g);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	277 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	278
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	279 #define OFF(x) offsetof(FL_OBJECT, x)
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	280
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	281 static struct memberlist generic_memberlist[] = {
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	282 {"objclass", T_INT, OFF(objclass), RO},
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	283 {"type", T_INT, OFF(type), RO},
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	284 {"boxtype", T_INT, OFF(boxtype)},
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	285 {"x", T_FLOAT, OFF(x)},
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	286 {"y", T_FLOAT, OFF(y)},
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	287 {"w", T_FLOAT, OFF(w)},
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	288 {"h", T_FLOAT, OFF(h)},
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	289 {"col1", T_INT, OFF(col1)},
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	290 {"col2", T_INT, OFF(col2)},
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	291 {"align", T_INT, OFF(align)},
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	292 {"lcol", T_INT, OFF(lcol)},
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	293 {"lsize", T_FLOAT, OFF(lsize)},
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	294 /* "label" is treated specially! */
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	295 {"lstyle", T_INT, OFF(lstyle)},
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	296 {"pushed", T_INT, OFF(pushed), RO},
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	297 {"focus", T_INT, OFF(focus), RO},
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	298 {"belowmouse", T_INT, OFF(belowmouse),RO},
1319 cd397266dc1c * Makefile: added all: and default: targets. Guido van Rossum <guido@python.org> parents: 1313 diff changeset	299 /* {"frozen", T_INT, OFF(frozen), RO}, */
1051 f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around. Guido van Rossum <guido@python.org> parents: 1020 diff changeset	300 {"active", T_INT, OFF(active)},
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around. Guido van Rossum <guido@python.org> parents: 1020 diff changeset	301 {"input", T_INT, OFF(input)},
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	302 {"visible", T_INT, OFF(visible), RO},
1051 f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around. Guido van Rossum <guido@python.org> parents: 1020 diff changeset	303 {"radio", T_INT, OFF(radio)},
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around. Guido van Rossum <guido@python.org> parents: 1020 diff changeset	304 {"automatic", T_INT, OFF(automatic)},
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	305 {NULL} /* Sentinel */
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	306 };
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	307
442 17f4cdf28959 Fixed duplicate use of OFF macro. Guido van Rossum <guido@python.org> parents: 437 diff changeset	308 #undef OFF
17f4cdf28959 Fixed duplicate use of OFF macro. Guido van Rossum <guido@python.org> parents: 437 diff changeset	309
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	310 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	311 generic_getattr(genericobject g, char name)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	312 {
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	313 PyObject *meth;
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	314
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	315 /* XXX Ought to special-case name "__methods__" */
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	316 if (g-> ob_methods) {
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	317 meth = Py_FindMethod(g->ob_methods, (PyObject *)g, name);
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	318 if (meth != NULL) return meth;
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	319 PyErr_Clear();
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	320 }
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	321
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	322 meth = Py_FindMethod(generic_methods, (PyObject *)g, name);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	323 if (meth != NULL)
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	324 return meth;
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	325 PyErr_Clear();
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	326
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	327 /* "label" is an exception, getmember only works for char pointers,
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	328 not for char arrays */
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	329 if (strcmp(name, "label") == 0)
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	330 return PyString_FromString(g->ob_generic->label);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	331
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	332 return PyMember_Get((char *)g->ob_generic, generic_memberlist, name);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	333 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	334
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	335 static int
13572 e417d9528fd6 Fixed up some ANSIfications. Sjoerd Mullender <sjoerd@acm.org> parents: 13514 diff changeset	336 generic_setattr(genericobject g, char name, PyObject *v)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	337 {
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	338 int ret;
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	339
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	340 if (v == NULL) {
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	341 PyErr_SetString(PyExc_TypeError,
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	342 "can't delete forms object attributes");
890 b3d639ad666d fixed bugs in generic_setattr (returned NULL instead of Guido van Rossum <guido@python.org> parents: 812 diff changeset	343 return -1;
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	344 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	345
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	346 /* "label" is an exception: setmember doesn't set strings;
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	347 and FORMS wants you to call a function to set the label */
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	348 if (strcmp(name, "label") == 0) {
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	349 if (!PyString_Check(v)) {
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	350 PyErr_SetString(PyExc_TypeError,
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	351 "label attr must be string");
890 b3d639ad666d fixed bugs in generic_setattr (returned NULL instead of Guido van Rossum <guido@python.org> parents: 812 diff changeset	352 return -1;
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	353 }
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	354 fl_set_object_label(g->ob_generic, PyString_AsString(v));
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	355 return 0;
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	356 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	357
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	358 ret = PyMember_Set((char *)g->ob_generic, generic_memberlist, name, v);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	359
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	360 /* Rather than calling all the various set_object_* functions,
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	361 we call fl_redraw_object here. This is sometimes redundant
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	362 but I doubt that's a big problem */
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	363 if (ret == 0)
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	364 fl_redraw_object(g->ob_generic);
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	365
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	366 return ret;
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	367 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	368
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	369 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	370 generic_repr(genericobject *g)
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	371 {
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	372 char buf[100];
13210 ff243b0f16ee Trent Mick <trentm@activestate.com>: Fred Drake <fdrake@acm.org> parents: 12576 diff changeset	373 sprintf(buf, "<FORMS_object at %p, objclass=%d>",
ff243b0f16ee Trent Mick <trentm@activestate.com>: Fred Drake <fdrake@acm.org> parents: 12576 diff changeset	374 g, g->ob_generic->objclass);
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	375 return PyString_FromString(buf);
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	376 }
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	377
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	378 static PyTypeObject GenericObjecttype = {
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	379 PyObject_HEAD_INIT(&PyType_Type)
1746 1940892d2fe3 Merge alpha100 branch back to main trunk Guido van Rossum <guido@python.org> parents: 1482 diff changeset	380 0, /ob_size/
1940892d2fe3 Merge alpha100 branch back to main trunk Guido van Rossum <guido@python.org> parents: 1482 diff changeset	381 "FORMS_object", /tp_name/
1940892d2fe3 Merge alpha100 branch back to main trunk Guido van Rossum <guido@python.org> parents: 1482 diff changeset	382 sizeof(genericobject), /tp_size/
1940892d2fe3 Merge alpha100 branch back to main trunk Guido van Rossum <guido@python.org> parents: 1482 diff changeset	383 0, /tp_itemsize/
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	384 /* methods */
1746 1940892d2fe3 Merge alpha100 branch back to main trunk Guido van Rossum <guido@python.org> parents: 1482 diff changeset	385 (destructor)generic_dealloc, /tp_dealloc/
1940892d2fe3 Merge alpha100 branch back to main trunk Guido van Rossum <guido@python.org> parents: 1482 diff changeset	386 0, /tp_print/
1940892d2fe3 Merge alpha100 branch back to main trunk Guido van Rossum <guido@python.org> parents: 1482 diff changeset	387 (getattrfunc)generic_getattr, /tp_getattr/
1940892d2fe3 Merge alpha100 branch back to main trunk Guido van Rossum <guido@python.org> parents: 1482 diff changeset	388 (setattrfunc)generic_setattr, /tp_setattr/
1940892d2fe3 Merge alpha100 branch back to main trunk Guido van Rossum <guido@python.org> parents: 1482 diff changeset	389 0, /tp_compare/
1940892d2fe3 Merge alpha100 branch back to main trunk Guido van Rossum <guido@python.org> parents: 1482 diff changeset	390 (reprfunc)generic_repr, /tp_repr/
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	391 };
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	392
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	393 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	394 newgenericobject(FL_OBJECT generic, PyMethodDef methods)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	395 {
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	396 genericobject *g;
12576 1c7c2dd1beb1 Vladimir Marangozov's long-awaited malloc restructuring. Guido van Rossum <guido@python.org> parents: 9588 diff changeset	397 g = PyObject_New(genericobject, &GenericObjecttype);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	398 if (g == NULL)
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	399 return NULL;
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	400 g-> ob_generic = generic;
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	401 g->ob_methods = methods;
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	402 g->ob_callback = NULL;
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	403 g->ob_callback_arg = NULL;
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	404 knowgeneric(g);
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	405 return (PyObject *)g;
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	406 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	407
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	408 /**********************************************************************/
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	409 /* Some common calling sequences */
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	410
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	411 /* void func (object, float) */
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	412 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	413 call_forms_INf (void (func)(FL_OBJECT , float), FL_OBJECT obj, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	414 {
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	415 float parameter;
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	416
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	417 if (!PyArg_Parse(args, "f", &parameter)) return NULL;
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	418
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	419 (*func) (obj, parameter);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	420
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	421 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	422 return Py_None;
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	423 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	424
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	425 /* void func (object, float) */
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	426 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	427 call_forms_INfINf (void (func)(FL_OBJECT , float, float), FL_OBJECT obj, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	428 {
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	429 float par1, par2;
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	430
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	431 if (!PyArg_Parse(args, "(ff)", &par1, &par2)) return NULL;
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	432
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	433 (*func) (obj, par1, par2);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	434
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	435 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	436 return Py_None;
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	437 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	438
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	439 /* void func (object, int) */
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	440 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	441 call_forms_INi (void (func)(FL_OBJECT , int), FL_OBJECT obj, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	442 {
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	443 int parameter;
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	444
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	445 if (!PyArg_Parse(args, "i", &parameter)) return NULL;
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	446
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	447 (*func) (obj, parameter);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	448
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	449 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	450 return Py_None;
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	451 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	452
469 42130e7220af Support for FORMS 2.0. Guido van Rossum <guido@python.org> parents: 442 diff changeset	453 /* void func (object, char) */
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	454 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	455 call_forms_INc (void (func)(FL_OBJECT , int), FL_OBJECT obj, PyObject args)
469 42130e7220af Support for FORMS 2.0. Guido van Rossum <guido@python.org> parents: 442 diff changeset	456 {
635 784a09a52375 Use getargs() function. Guido van Rossum <guido@python.org> parents: 486 diff changeset	457 char *a;
469 42130e7220af Support for FORMS 2.0. Guido van Rossum <guido@python.org> parents: 442 diff changeset	458
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	459 if (!PyArg_Parse(args, "s", &a)) return NULL;
469 42130e7220af Support for FORMS 2.0. Guido van Rossum <guido@python.org> parents: 442 diff changeset	460
635 784a09a52375 Use getargs() function. Guido van Rossum <guido@python.org> parents: 486 diff changeset	461 (*func) (obj, a[0]);
469 42130e7220af Support for FORMS 2.0. Guido van Rossum <guido@python.org> parents: 442 diff changeset	462
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	463 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	464 return Py_None;
469 42130e7220af Support for FORMS 2.0. Guido van Rossum <guido@python.org> parents: 442 diff changeset	465 }
42130e7220af Support for FORMS 2.0. Guido van Rossum <guido@python.org> parents: 442 diff changeset	466
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	467 /* void func (object, string) */
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	468 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	469 call_forms_INstr (void (func)(FL_OBJECT , char ), FL_OBJECT obj, PyObject *args)
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	470 {
635 784a09a52375 Use getargs() function. Guido van Rossum <guido@python.org> parents: 486 diff changeset	471 char *a;
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	472
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	473 if (!PyArg_Parse(args, "s", &a)) return NULL;
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	474
635 784a09a52375 Use getargs() function. Guido van Rossum <guido@python.org> parents: 486 diff changeset	475 (*func) (obj, a);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	476
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	477 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	478 return Py_None;
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	479 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	480
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	481
1319 cd397266dc1c * Makefile: added all: and default: targets. Guido van Rossum <guido@python.org> parents: 1313 diff changeset	482 /* void func (object, int, string) */
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	483 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	484 call_forms_INiINstr (void (func)(FL_OBJECT , int, char ), FL_OBJECT obj, PyObject *args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	485 {
635 784a09a52375 Use getargs() function. Guido van Rossum <guido@python.org> parents: 486 diff changeset	486 char *b;
784a09a52375 Use getargs() function. Guido van Rossum <guido@python.org> parents: 486 diff changeset	487 int a;
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	488
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	489 if (!PyArg_Parse(args, "(is)", &a, &b)) return NULL;
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	490
635 784a09a52375 Use getargs() function. Guido van Rossum <guido@python.org> parents: 486 diff changeset	491 (*func) (obj, a, b);
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	492
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	493 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	494 return Py_None;
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	495 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	496
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	497 #ifdef UNUSED
1319 cd397266dc1c * Makefile: added all: and default: targets. Guido van Rossum <guido@python.org> parents: 1313 diff changeset	498 /* void func (object, int, int) */
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	499 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	500 call_forms_INiINi (void (func)(FL_OBJECT , int, int), FL_OBJECT obj, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	501 {
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	502 int par1, par2;
1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	503
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	504 if (!PyArg_Parse(args, "(ii)", &par1, &par2)) return NULL;
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	505
1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	506 (*func) (obj, par1, par2);
1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	507
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	508 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	509 return Py_None;
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	510 }
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	511 #endif
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	512
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	513 /* int func (object) */
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	514 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	515 call_forms_Ri (int (func)(FL_OBJECT ), FL_OBJECT obj, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	516 {
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	517 int retval;
1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	518
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	519 if (!PyArg_NoArgs(args)) return NULL;
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	520
1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	521 retval = (*func) (obj);
1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	522
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	523 return PyInt_FromLong ((long) retval);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	524 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	525
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	526 /* char * func (object) */
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	527 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	528 call_forms_Rstr (char * (func)(FL_OBJECT ), FL_OBJECT obj, PyObject args)
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	529 {
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	530 char *str;
1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	531
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	532 if (!PyArg_NoArgs(args)) return NULL;
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	533
1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	534 str = (*func) (obj);
1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	535
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	536 if (str == NULL) {
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	537 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	538 return Py_None;
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	539 }
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	540 return PyString_FromString (str);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	541 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	542
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	543 /* int func (object) */
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	544 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	545 call_forms_Rf (float (func)(FL_OBJECT ), FL_OBJECT obj, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	546 {
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	547 float retval;
1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	548
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	549 if (!PyArg_NoArgs(args)) return NULL;
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	550
1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	551 retval = (*func) (obj);
1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	552
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	553 return PyFloat_FromDouble (retval);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	554 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	555
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	556 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	557 call_forms_OUTfOUTf (void (func)(FL_OBJECT , float , float ), FL_OBJECT obj, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	558 {
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	559 float f1, f2;
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	560
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	561 if (!PyArg_NoArgs(args)) return NULL;
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	562
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	563 (*func) (obj, &f1, &f2);
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	564
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	565 return Py_BuildValue("(ff)", f1, f2);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	566 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	567
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	568 #ifdef UNUSED
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	569 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	570 call_forms_OUTf (void (func)(FL_OBJECT , float ), FL_OBJECT obj, PyObject *args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	571 {
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	572 float f;
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	573
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	574 if (!PyArg_NoArgs(args)) return NULL;
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	575
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	576 (*func) (obj, &f);
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	577
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	578 return PyFloat_FromDouble (f);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	579 }
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	580 #endif
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	581
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	582 /**********************************************************************/
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	583 /* Class : browser */
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	584
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	585 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	586 set_browser_topline(genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	587 {
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	588 return call_forms_INi (fl_set_browser_topline, g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	589 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	590
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	591 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	592 clear_browser(genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	593 {
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	594 return generic_call (g, args, fl_clear_browser);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	595 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	596
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	597 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	598 add_browser_line (genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	599 {
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	600 return call_forms_INstr (fl_add_browser_line, g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	601 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	602
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	603 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	604 addto_browser (genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	605 {
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	606 return call_forms_INstr (fl_addto_browser, g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	607 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	608
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	609 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	610 insert_browser_line (genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	611 {
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	612 return call_forms_INiINstr (fl_insert_browser_line,
1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	613 g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	614 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	615
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	616 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	617 delete_browser_line (genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	618 {
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	619 return call_forms_INi (fl_delete_browser_line, g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	620 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	621
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	622 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	623 replace_browser_line (genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	624 {
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	625 return call_forms_INiINstr (fl_replace_browser_line,
1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	626 g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	627 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	628
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	629 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	630 get_browser_line(genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	631 {
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	632 int i;
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	633 char *str;
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	634
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	635 if (!PyArg_Parse(args, "i", &i))
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	636 return NULL;
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	637
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	638 str = fl_get_browser_line (g->ob_generic, i);
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	639
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	640 if (str == NULL) {
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	641 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	642 return Py_None;
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	643 }
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	644 return PyString_FromString (str);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	645 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	646
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	647 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	648 load_browser (genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	649 {
331 21c266f7eca1 Fixed almost all list errors. Guido van Rossum <guido@python.org> parents: 330 diff changeset	650 /* XXX strictly speaking this is wrong since fl_load_browser
21c266f7eca1 Fixed almost all list errors. Guido van Rossum <guido@python.org> parents: 330 diff changeset	651 XXX returns int, not void */
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	652 return call_forms_INstr (fl_load_browser, g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	653 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	654
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	655 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	656 get_browser_maxline(genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	657 {
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	658 return call_forms_Ri (fl_get_browser_maxline, g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	659 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	660
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	661 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	662 select_browser_line (genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	663 {
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	664 return call_forms_INi (fl_select_browser_line, g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	665 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	666
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	667 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	668 deselect_browser_line (genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	669 {
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	670 return call_forms_INi (fl_deselect_browser_line, g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	671 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	672
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	673 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	674 deselect_browser (genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	675 {
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	676 return generic_call (g, args, fl_deselect_browser);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	677 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	678
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	679 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	680 isselected_browser_line (genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	681 {
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	682 int i, j;
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	683
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	684 if (!PyArg_Parse(args, "i", &i))
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	685 return NULL;
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	686
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	687 j = fl_isselected_browser_line (g->ob_generic, i);
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	688
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	689 return PyInt_FromLong (j);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	690 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	691
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	692 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	693 get_browser (genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	694 {
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	695 return call_forms_Ri (fl_get_browser, g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	696 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	697
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	698 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	699 set_browser_fontsize (genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	700 {
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	701 return call_forms_INf (fl_set_browser_fontsize, g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	702 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	703
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	704 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	705 set_browser_fontstyle (genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	706 {
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	707 return call_forms_INi (fl_set_browser_fontstyle, g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	708 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	709
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	710 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	711 set_browser_specialkey (genericobject g, PyObject args)
469 42130e7220af Support for FORMS 2.0. Guido van Rossum <guido@python.org> parents: 442 diff changeset	712 {
42130e7220af Support for FORMS 2.0. Guido van Rossum <guido@python.org> parents: 442 diff changeset	713 return call_forms_INc(fl_set_browser_specialkey, g-> ob_generic, args);
42130e7220af Support for FORMS 2.0. Guido van Rossum <guido@python.org> parents: 442 diff changeset	714 }
42130e7220af Support for FORMS 2.0. Guido van Rossum <guido@python.org> parents: 442 diff changeset	715
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	716 static PyMethodDef browser_methods[] = {
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	717 {"set_browser_topline", (PyCFunction)set_browser_topline},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	718 {"clear_browser", (PyCFunction)clear_browser},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	719 {"add_browser_line", (PyCFunction)add_browser_line},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	720 {"addto_browser", (PyCFunction)addto_browser},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	721 {"insert_browser_line", (PyCFunction)insert_browser_line},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	722 {"delete_browser_line", (PyCFunction)delete_browser_line},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	723 {"replace_browser_line", (PyCFunction)replace_browser_line},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	724 {"get_browser_line", (PyCFunction)get_browser_line},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	725 {"load_browser", (PyCFunction)load_browser},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	726 {"get_browser_maxline", (PyCFunction)get_browser_maxline},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	727 {"select_browser_line", (PyCFunction)select_browser_line},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	728 {"deselect_browser_line", (PyCFunction)deselect_browser_line},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	729 {"deselect_browser", (PyCFunction)deselect_browser},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	730 {"isselected_browser_line", (PyCFunction)isselected_browser_line},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	731 {"get_browser", (PyCFunction)get_browser},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	732 {"set_browser_fontsize", (PyCFunction)set_browser_fontsize},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	733 {"set_browser_fontstyle", (PyCFunction)set_browser_fontstyle},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	734 {"set_browser_specialkey", (PyCFunction)set_browser_specialkey},
469 42130e7220af Support for FORMS 2.0. Guido van Rossum <guido@python.org> parents: 442 diff changeset	735 {NULL, NULL} /* sentinel */
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	736 };
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	737
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	738 /* Class: button */
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	739
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	740 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	741 set_button(genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	742 {
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	743 return call_forms_INi (fl_set_button, g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	744 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	745
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	746 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	747 get_button(genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	748 {
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	749 return call_forms_Ri (fl_get_button, g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	750 }
1319 cd397266dc1c * Makefile: added all: and default: targets. Guido van Rossum <guido@python.org> parents: 1313 diff changeset	751
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	752 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	753 get_button_numb(genericobject g, PyObject args)
1319 cd397266dc1c * Makefile: added all: and default: targets. Guido van Rossum <guido@python.org> parents: 1313 diff changeset	754 {
cd397266dc1c * Makefile: added all: and default: targets. Guido van Rossum <guido@python.org> parents: 1313 diff changeset	755 return call_forms_Ri (fl_get_button_numb, g-> ob_generic, args);
cd397266dc1c * Makefile: added all: and default: targets. Guido van Rossum <guido@python.org> parents: 1313 diff changeset	756 }
cd397266dc1c * Makefile: added all: and default: targets. Guido van Rossum <guido@python.org> parents: 1313 diff changeset	757
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	758 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	759 set_button_shortcut(genericobject g, PyObject args)
469 42130e7220af Support for FORMS 2.0. Guido van Rossum <guido@python.org> parents: 442 diff changeset	760 {
42130e7220af Support for FORMS 2.0. Guido van Rossum <guido@python.org> parents: 442 diff changeset	761 return call_forms_INstr (fl_set_button_shortcut, g-> ob_generic, args);
42130e7220af Support for FORMS 2.0. Guido van Rossum <guido@python.org> parents: 442 diff changeset	762 }
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	763
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	764 static PyMethodDef button_methods[] = {
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	765 {"set_button", (PyCFunction)set_button},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	766 {"get_button", (PyCFunction)get_button},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	767 {"get_button_numb", (PyCFunction)get_button_numb},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	768 {"set_button_shortcut", (PyCFunction)set_button_shortcut},
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	769 {NULL, NULL} /* sentinel */
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	770 };
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	771
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	772 /* Class: choice */
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	773
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	774 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	775 set_choice(genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	776 {
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	777 return call_forms_INi (fl_set_choice, g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	778 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	779
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	780 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	781 get_choice(genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	782 {
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	783 return call_forms_Ri (fl_get_choice, g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	784 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	785
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	786 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	787 clear_choice (genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	788 {
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	789 return generic_call (g, args, fl_clear_choice);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	790 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	791
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	792 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	793 addto_choice (genericobject g, PyObject args)
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	794 {
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	795 return call_forms_INstr (fl_addto_choice, g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	796 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	797
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	798 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	799 replace_choice (genericobject g, PyObject args)
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	800 {
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	801 return call_forms_INiINstr (fl_replace_choice, g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	802 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	803
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	804 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	805 delete_choice (genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	806 {
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	807 return call_forms_INi (fl_delete_choice, g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	808 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	809
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	810 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	811 get_choice_text (genericobject g, PyObject args)
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	812 {
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	813 return call_forms_Rstr (fl_get_choice_text, g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	814 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	815
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	816 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	817 set_choice_fontsize (genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	818 {
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	819 return call_forms_INf (fl_set_choice_fontsize, g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	820 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	821
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	822 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	823 set_choice_fontstyle (genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	824 {
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	825 return call_forms_INi (fl_set_choice_fontstyle, g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	826 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	827
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	828 static PyMethodDef choice_methods[] = {
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	829 {"set_choice", (PyCFunction)set_choice},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	830 {"get_choice", (PyCFunction)get_choice},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	831 {"clear_choice", (PyCFunction)clear_choice},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	832 {"addto_choice", (PyCFunction)addto_choice},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	833 {"replace_choice", (PyCFunction)replace_choice},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	834 {"delete_choice", (PyCFunction)delete_choice},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	835 {"get_choice_text", (PyCFunction)get_choice_text},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	836 {"set_choice_fontsize", (PyCFunction)set_choice_fontsize},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	837 {"set_choice_fontstyle",(PyCFunction)set_choice_fontstyle},
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	838 {NULL, NULL} /* sentinel */
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	839 };
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	840
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	841 /* Class : Clock */
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	842
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	843 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	844 get_clock(genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	845 {
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	846 int i0, i1, i2;
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	847
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	848 if (!PyArg_NoArgs(args))
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	849 return NULL;
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	850
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	851 fl_get_clock (g->ob_generic, &i0, &i1, &i2);
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	852
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	853 return Py_BuildValue("(iii)", i0, i1, i2);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	854 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	855
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	856 static PyMethodDef clock_methods[] = {
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	857 {"get_clock", (PyCFunction)get_clock},
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	858 {NULL, NULL} /* sentinel */
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	859 };
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	860
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	861 /* CLass : Counters */
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	862
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	863 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	864 get_counter_value(genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	865 {
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	866 return call_forms_Rf (fl_get_counter_value, g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	867 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	868
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	869 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	870 set_counter_value (genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	871 {
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	872 return call_forms_INf (fl_set_counter_value, g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	873 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	874
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	875 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	876 set_counter_precision (genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	877 {
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	878 return call_forms_INi (fl_set_counter_precision, g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	879 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	880
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	881 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	882 set_counter_bounds (genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	883 {
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	884 return call_forms_INfINf (fl_set_counter_bounds, g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	885 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	886
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	887 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	888 set_counter_step (genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	889 {
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	890 return call_forms_INfINf (fl_set_counter_step, g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	891 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	892
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	893 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	894 set_counter_return (genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	895 {
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	896 return call_forms_INi (fl_set_counter_return, g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	897 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	898
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	899 static PyMethodDef counter_methods[] = {
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	900 {"set_counter_value", (PyCFunction)set_counter_value},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	901 {"get_counter_value", (PyCFunction)get_counter_value},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	902 {"set_counter_bounds", (PyCFunction)set_counter_bounds},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	903 {"set_counter_step", (PyCFunction)set_counter_step},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	904 {"set_counter_precision", (PyCFunction)set_counter_precision},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	905 {"set_counter_return", (PyCFunction)set_counter_return},
469 42130e7220af Support for FORMS 2.0. Guido van Rossum <guido@python.org> parents: 442 diff changeset	906 {NULL, NULL} /* sentinel */
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	907 };
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	908
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	909
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	910 /* Class: Dials */
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	911
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	912 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	913 get_dial_value(genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	914 {
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	915 return call_forms_Rf (fl_get_dial_value, g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	916 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	917
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	918 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	919 set_dial_value (genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	920 {
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	921 return call_forms_INf (fl_set_dial_value, g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	922 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	923
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	924 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	925 set_dial_bounds (genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	926 {
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	927 return call_forms_INfINf (fl_set_dial_bounds, g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	928 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	929
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	930 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	931 get_dial_bounds (genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	932 {
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	933 return call_forms_OUTfOUTf (fl_get_dial_bounds, g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	934 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	935
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	936 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	937 set_dial_step (genericobject g, PyObject args)
469 42130e7220af Support for FORMS 2.0. Guido van Rossum <guido@python.org> parents: 442 diff changeset	938 {
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	939 return call_forms_INf (fl_set_dial_step, g-> ob_generic, args);
469 42130e7220af Support for FORMS 2.0. Guido van Rossum <guido@python.org> parents: 442 diff changeset	940 }
42130e7220af Support for FORMS 2.0. Guido van Rossum <guido@python.org> parents: 442 diff changeset	941
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	942 static PyMethodDef dial_methods[] = {
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	943 {"set_dial_value", (PyCFunction)set_dial_value},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	944 {"get_dial_value", (PyCFunction)get_dial_value},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	945 {"set_dial_bounds", (PyCFunction)set_dial_bounds},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	946 {"get_dial_bounds", (PyCFunction)get_dial_bounds},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	947 {"set_dial_step", (PyCFunction)set_dial_step},
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	948 {NULL, NULL} /* sentinel */
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	949 };
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	950
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	951 /* Class : Input */
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	952
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	953 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	954 set_input (genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	955 {
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	956 return call_forms_INstr (fl_set_input, g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	957 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	958
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	959 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	960 get_input (genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	961 {
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	962 return call_forms_Rstr (fl_get_input, g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	963 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	964
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	965 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	966 set_input_color (genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	967 {
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	968 return call_forms_INfINf (fl_set_input_color, g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	969 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	970
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	971 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	972 set_input_return (genericobject g, PyObject args)
469 42130e7220af Support for FORMS 2.0. Guido van Rossum <guido@python.org> parents: 442 diff changeset	973 {
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	974 return call_forms_INi (fl_set_input_return, g-> ob_generic, args);
469 42130e7220af Support for FORMS 2.0. Guido van Rossum <guido@python.org> parents: 442 diff changeset	975 }
42130e7220af Support for FORMS 2.0. Guido van Rossum <guido@python.org> parents: 442 diff changeset	976
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	977 static PyMethodDef input_methods[] = {
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	978 {"set_input", (PyCFunction)set_input},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	979 {"get_input", (PyCFunction)get_input},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	980 {"set_input_color", (PyCFunction)set_input_color},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	981 {"set_input_return", (PyCFunction)set_input_return},
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	982 {NULL, NULL} /* sentinel */
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	983 };
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	984
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	985
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	986 /* Class : Menu */
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	987
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	988 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	989 set_menu (genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	990 {
331 21c266f7eca1 Fixed almost all list errors. Guido van Rossum <guido@python.org> parents: 330 diff changeset	991 return call_forms_INstr (fl_set_menu, g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	992 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	993
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	994 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	995 get_menu (genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	996 {
331 21c266f7eca1 Fixed almost all list errors. Guido van Rossum <guido@python.org> parents: 330 diff changeset	997 /* XXX strictly speaking this is wrong since fl_get_menu
21c266f7eca1 Fixed almost all list errors. Guido van Rossum <guido@python.org> parents: 330 diff changeset	998 XXX returns long, not int */
21c266f7eca1 Fixed almost all list errors. Guido van Rossum <guido@python.org> parents: 330 diff changeset	999 return call_forms_Ri (fl_get_menu, g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1000 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1001
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1002 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1003 get_menu_text (genericobject g, PyObject args)
1262 f820e6917f07 Changes to speed up local variables enormously, by avoiding dictionary Guido van Rossum <guido@python.org> parents: 1252 diff changeset	1004 {
f820e6917f07 Changes to speed up local variables enormously, by avoiding dictionary Guido van Rossum <guido@python.org> parents: 1252 diff changeset	1005 return call_forms_Rstr (fl_get_menu_text, g-> ob_generic, args);
f820e6917f07 Changes to speed up local variables enormously, by avoiding dictionary Guido van Rossum <guido@python.org> parents: 1252 diff changeset	1006 }
f820e6917f07 Changes to speed up local variables enormously, by avoiding dictionary Guido van Rossum <guido@python.org> parents: 1252 diff changeset	1007
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1008 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1009 addto_menu (genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1010 {
331 21c266f7eca1 Fixed almost all list errors. Guido van Rossum <guido@python.org> parents: 330 diff changeset	1011 return call_forms_INstr (fl_addto_menu, g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1012 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1013
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1014 static PyMethodDef menu_methods[] = {
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1015 {"set_menu", (PyCFunction)set_menu},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1016 {"get_menu", (PyCFunction)get_menu},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1017 {"get_menu_text", (PyCFunction)get_menu_text},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1018 {"addto_menu", (PyCFunction)addto_menu},
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1019 {NULL, NULL} /* sentinel */
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1020 };
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1021
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1022
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1023 /* Class: Sliders */
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1024
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1025 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1026 get_slider_value(genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1027 {
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	1028 return call_forms_Rf (fl_get_slider_value, g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1029 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1030
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1031 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1032 set_slider_value (genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1033 {
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	1034 return call_forms_INf (fl_set_slider_value, g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1035 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1036
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1037 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1038 set_slider_bounds (genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1039 {
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	1040 return call_forms_INfINf (fl_set_slider_bounds, g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1041 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1042
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1043 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1044 get_slider_bounds (genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1045 {
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1046 return call_forms_OUTfOUTf(fl_get_slider_bounds, g-> ob_generic, args);
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1047 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1048
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1049 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1050 set_slider_return (genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1051 {
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	1052 return call_forms_INf (fl_set_slider_return, g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1053 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1054
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1055 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1056 set_slider_size (genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1057 {
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	1058 return call_forms_INf (fl_set_slider_size, g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1059 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1060
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1061 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1062 set_slider_precision (genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1063 {
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	1064 return call_forms_INi (fl_set_slider_precision, g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1065 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1066
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1067 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1068 set_slider_step (genericobject g, PyObject args)
469 42130e7220af Support for FORMS 2.0. Guido van Rossum <guido@python.org> parents: 442 diff changeset	1069 {
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	1070 return call_forms_INf (fl_set_slider_step, g-> ob_generic, args);
469 42130e7220af Support for FORMS 2.0. Guido van Rossum <guido@python.org> parents: 442 diff changeset	1071 }
42130e7220af Support for FORMS 2.0. Guido van Rossum <guido@python.org> parents: 442 diff changeset	1072
42130e7220af Support for FORMS 2.0. Guido van Rossum <guido@python.org> parents: 442 diff changeset	1073
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1074 static PyMethodDef slider_methods[] = {
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1075 {"set_slider_value", (PyCFunction)set_slider_value},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1076 {"get_slider_value", (PyCFunction)get_slider_value},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1077 {"set_slider_bounds", (PyCFunction)set_slider_bounds},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1078 {"get_slider_bounds", (PyCFunction)get_slider_bounds},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1079 {"set_slider_return", (PyCFunction)set_slider_return},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1080 {"set_slider_size", (PyCFunction)set_slider_size},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1081 {"set_slider_precision",(PyCFunction)set_slider_precision},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1082 {"set_slider_step", (PyCFunction)set_slider_step},
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1083 {NULL, NULL} /* sentinel */
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1084 };
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1085
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1086 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1087 set_positioner_xvalue (genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1088 {
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	1089 return call_forms_INf (fl_set_positioner_xvalue, g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1090 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1091
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1092 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1093 set_positioner_xbounds (genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1094 {
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	1095 return call_forms_INfINf (fl_set_positioner_xbounds,
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	1096 g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1097 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1098
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1099 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1100 set_positioner_yvalue (genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1101 {
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	1102 return call_forms_INf (fl_set_positioner_yvalue, g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1103 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1104
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1105 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1106 set_positioner_ybounds (genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1107 {
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	1108 return call_forms_INfINf (fl_set_positioner_ybounds,
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	1109 g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1110 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1111
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1112 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1113 get_positioner_xvalue (genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1114 {
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	1115 return call_forms_Rf (fl_get_positioner_xvalue, g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1116 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1117
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1118 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1119 get_positioner_xbounds (genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1120 {
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	1121 return call_forms_OUTfOUTf (fl_get_positioner_xbounds,
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	1122 g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1123 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1124
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1125 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1126 get_positioner_yvalue (genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1127 {
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	1128 return call_forms_Rf (fl_get_positioner_yvalue, g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1129 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1130
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1131 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1132 get_positioner_ybounds (genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1133 {
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	1134 return call_forms_OUTfOUTf (fl_get_positioner_ybounds,
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	1135 g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1136 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1137
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1138 static PyMethodDef positioner_methods[] = {
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1139 {"set_positioner_xvalue", (PyCFunction)set_positioner_xvalue},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1140 {"set_positioner_yvalue", (PyCFunction)set_positioner_yvalue},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1141 {"set_positioner_xbounds", (PyCFunction)set_positioner_xbounds},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1142 {"set_positioner_ybounds", (PyCFunction)set_positioner_ybounds},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1143 {"get_positioner_xvalue", (PyCFunction)get_positioner_xvalue},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1144 {"get_positioner_yvalue", (PyCFunction)get_positioner_yvalue},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1145 {"get_positioner_xbounds", (PyCFunction)get_positioner_xbounds},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1146 {"get_positioner_ybounds", (PyCFunction)get_positioner_ybounds},
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1147 {NULL, NULL} /* sentinel */
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1148 };
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1149
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1150 /* Class timer */
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1151
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1152 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1153 set_timer (genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1154 {
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	1155 return call_forms_INf (fl_set_timer, g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1156 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1157
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1158 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1159 get_timer (genericobject g, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1160 {
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	1161 return call_forms_Rf (fl_get_timer, g-> ob_generic, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1162 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1163
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1164 static PyMethodDef timer_methods[] = {
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1165 {"set_timer", (PyCFunction)set_timer},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1166 {"get_timer", (PyCFunction)get_timer},
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1167 {NULL, NULL} /* sentinel */
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1168 };
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1169
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1170 /* Form objects */
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1171
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1172 typedef struct {
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1173 PyObject_HEAD
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1174 FL_FORM *ob_form;
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1175 } formobject;
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1176
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1177 staticforward PyTypeObject Formtype;
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1178
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1179 #define is_formobject(v) ((v)->ob_type == &Formtype)
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1180
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1181 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1182 form_show_form(formobject f, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1183 {
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1184 int place, border;
635 784a09a52375 Use getargs() function. Guido van Rossum <guido@python.org> parents: 486 diff changeset	1185 char *name;
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1186 if (!PyArg_Parse(args, "(iis)", &place, &border, &name))
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1187 return NULL;
635 784a09a52375 Use getargs() function. Guido van Rossum <guido@python.org> parents: 486 diff changeset	1188 fl_show_form(f->ob_form, place, border, name);
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1189 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1190 return Py_None;
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1191 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1192
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1193 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1194 form_call(void (func)(FL_FORM ), FL_FORM f, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1195 {
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1196 if (!PyArg_NoArgs(args)) return NULL;
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1197
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1198 (*func)(f);
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1199
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1200 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1201 return Py_None;
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1202 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1203
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1204 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1205 form_call_INiINi(void (func)(FL_FORM , int, int), FL_FORM f, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1206 {
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	1207 int a, b;
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1208
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1209 if (!PyArg_Parse(args, "(ii)", &a, &b)) return NULL;
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1210
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1211 (*func)(f, a, b);
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1212
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1213 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1214 return Py_None;
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1215 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1216
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1217 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1218 form_call_INfINf(void (func)(FL_FORM , float, float), FL_FORM f, PyObject args)
1319 cd397266dc1c * Makefile: added all: and default: targets. Guido van Rossum <guido@python.org> parents: 1313 diff changeset	1219 {
cd397266dc1c * Makefile: added all: and default: targets. Guido van Rossum <guido@python.org> parents: 1313 diff changeset	1220 float a, b;
cd397266dc1c * Makefile: added all: and default: targets. Guido van Rossum <guido@python.org> parents: 1313 diff changeset	1221
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1222 if (!PyArg_Parse(args, "(ff)", &a, &b)) return NULL;
1319 cd397266dc1c * Makefile: added all: and default: targets. Guido van Rossum <guido@python.org> parents: 1313 diff changeset	1223
cd397266dc1c * Makefile: added all: and default: targets. Guido van Rossum <guido@python.org> parents: 1313 diff changeset	1224 (*func)(f, a, b);
cd397266dc1c * Makefile: added all: and default: targets. Guido van Rossum <guido@python.org> parents: 1313 diff changeset	1225
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1226 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1227 return Py_None;
1319 cd397266dc1c * Makefile: added all: and default: targets. Guido van Rossum <guido@python.org> parents: 1313 diff changeset	1228 }
cd397266dc1c * Makefile: added all: and default: targets. Guido van Rossum <guido@python.org> parents: 1313 diff changeset	1229
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1230 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1231 form_hide_form(formobject f, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1232 {
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1233 return form_call(fl_hide_form, f-> ob_form, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1234 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1235
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1236 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1237 form_redraw_form(formobject f, PyObject args)
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	1238 {
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1239 return form_call(fl_redraw_form, f-> ob_form, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1240 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1241
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1242 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1243 form_set_form_position(formobject f, PyObject args)
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1244 {
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1245 return form_call_INiINi(fl_set_form_position, f-> ob_form, args);
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1246 }
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1247
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1248 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1249 form_set_form_size(formobject f, PyObject args)
1319 cd397266dc1c * Makefile: added all: and default: targets. Guido van Rossum <guido@python.org> parents: 1313 diff changeset	1250 {
cd397266dc1c * Makefile: added all: and default: targets. Guido van Rossum <guido@python.org> parents: 1313 diff changeset	1251 return form_call_INiINi(fl_set_form_size, f-> ob_form, args);
cd397266dc1c * Makefile: added all: and default: targets. Guido van Rossum <guido@python.org> parents: 1313 diff changeset	1252 }
cd397266dc1c * Makefile: added all: and default: targets. Guido van Rossum <guido@python.org> parents: 1313 diff changeset	1253
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1254 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1255 form_scale_form(formobject f, PyObject args)
1319 cd397266dc1c * Makefile: added all: and default: targets. Guido van Rossum <guido@python.org> parents: 1313 diff changeset	1256 {
cd397266dc1c * Makefile: added all: and default: targets. Guido van Rossum <guido@python.org> parents: 1313 diff changeset	1257 return form_call_INfINf(fl_scale_form, f-> ob_form, args);
cd397266dc1c * Makefile: added all: and default: targets. Guido van Rossum <guido@python.org> parents: 1313 diff changeset	1258 }
cd397266dc1c * Makefile: added all: and default: targets. Guido van Rossum <guido@python.org> parents: 1313 diff changeset	1259
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1260 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1261 generic_add_object(formobject f, PyObject args, FL_OBJECT (func)(int, float, float, float, float, char), PyMethodDef internal_methods)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1262 {
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1263 int type;
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1264 float x, y, w, h;
635 784a09a52375 Use getargs() function. Guido van Rossum <guido@python.org> parents: 486 diff changeset	1265 char *name;
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1266 FL_OBJECT *obj;
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1267
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1268 if (!PyArg_Parse(args,"(iffffs)", &type,&x,&y,&w,&h,&name))
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1269 return NULL;
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	1270
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1271 fl_addto_form (f-> ob_form);
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	1272
635 784a09a52375 Use getargs() function. Guido van Rossum <guido@python.org> parents: 486 diff changeset	1273 obj = (*func) (type, x, y, w, h, name);
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1274
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1275 fl_end_form();
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1276
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1277 if (obj == NULL) {
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1278 PyErr_NoMemory();
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1279 return NULL;
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1280 }
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1281
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1282 return newgenericobject (obj, internal_methods);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1283 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1284
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1285 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1286 form_add_button(formobject f, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1287 {
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1288 return generic_add_object(f, args, fl_add_button, button_methods);
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1289 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1290
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1291 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1292 form_add_lightbutton(formobject f, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1293 {
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1294 return generic_add_object(f, args, fl_add_lightbutton, button_methods);
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1295 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1296
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1297 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1298 form_add_roundbutton(formobject f, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1299 {
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1300 return generic_add_object(f, args, fl_add_roundbutton, button_methods);
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1301 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1302
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1303 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1304 form_add_menu (formobject f, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1305 {
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1306 return generic_add_object(f, args, fl_add_menu, menu_methods);
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1307 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1308
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1309 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1310 form_add_slider(formobject f, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1311 {
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1312 return generic_add_object(f, args, fl_add_slider, slider_methods);
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1313 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1314
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1315 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1316 form_add_valslider(formobject f, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1317 {
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1318 return generic_add_object(f, args, fl_add_valslider, slider_methods);
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1319 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1320
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1321 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1322 form_add_dial(formobject f, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1323 {
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1324 return generic_add_object(f, args, fl_add_dial, dial_methods);
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1325 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1326
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1327 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1328 form_add_counter(formobject f, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1329 {
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1330 return generic_add_object(f, args, fl_add_counter, counter_methods);
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1331 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1332
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1333 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1334 form_add_clock(formobject f, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1335 {
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1336 return generic_add_object(f, args, fl_add_clock, clock_methods);
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1337 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1338
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1339 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1340 form_add_box(formobject f, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1341 {
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	1342 return generic_add_object(f, args, fl_add_box,
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1343 (PyMethodDef *)NULL);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1344 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1345
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1346 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1347 form_add_choice(formobject f, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1348 {
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1349 return generic_add_object(f, args, fl_add_choice, choice_methods);
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1350 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1351
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1352 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1353 form_add_browser(formobject f, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1354 {
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1355 return generic_add_object(f, args, fl_add_browser, browser_methods);
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1356 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1357
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1358 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1359 form_add_positioner(formobject f, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1360 {
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1361 return generic_add_object(f, args, fl_add_positioner,
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1362 positioner_methods);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1363 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1364
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1365 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1366 form_add_input(formobject f, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1367 {
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1368 return generic_add_object(f, args, fl_add_input, input_methods);
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1369 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1370
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1371 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1372 form_add_text(formobject f, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1373 {
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	1374 return generic_add_object(f, args, fl_add_text,
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1375 (PyMethodDef *)NULL);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1376 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1377
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1378 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1379 form_add_timer(formobject f, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1380 {
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1381 return generic_add_object(f, args, fl_add_timer, timer_methods);
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1382 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1383
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1384 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1385 form_freeze_form(formobject f, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1386 {
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	1387 return form_call(fl_freeze_form, f-> ob_form, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1388 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1389
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1390 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1391 form_unfreeze_form(formobject f, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1392 {
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1393 return form_call(fl_unfreeze_form, f-> ob_form, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1394 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1395
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1396 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1397 form_activate_form(formobject f, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1398 {
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1399 return form_call(fl_activate_form, f-> ob_form, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1400 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1401
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1402 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1403 form_deactivate_form(formobject f, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1404 {
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1405 return form_call(fl_deactivate_form, f-> ob_form, args);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1406 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1407
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1408 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1409 form_bgn_group(formobject f, PyObject args)
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	1410 {
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1411 FL_OBJECT *obj;
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1412
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1413 fl_addto_form(f-> ob_form);
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1414 obj = fl_bgn_group();
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1415 fl_end_form();
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1416
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1417 if (obj == NULL) {
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1418 PyErr_NoMemory();
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1419 return NULL;
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1420 }
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1421
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1422 return newgenericobject (obj, (PyMethodDef *) NULL);
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1423 }
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1424
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1425 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1426 form_end_group(formobject f, PyObject args)
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1427 {
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1428 fl_addto_form(f-> ob_form);
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1429 fl_end_group();
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1430 fl_end_form();
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1431 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1432 return Py_None;
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	1433 }
1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	1434
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1435 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1436 forms_find_first_or_last(FL_OBJECT (func)(FL_FORM , int, float, float), formobject f, PyObject *args)
329 f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl) Guido van Rossum <guido@python.org> parents: 328 diff changeset	1437 {
f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl) Guido van Rossum <guido@python.org> parents: 328 diff changeset	1438 int type;
f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl) Guido van Rossum <guido@python.org> parents: 328 diff changeset	1439 float mx, my;
f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl) Guido van Rossum <guido@python.org> parents: 328 diff changeset	1440 FL_OBJECT *generic;
f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl) Guido van Rossum <guido@python.org> parents: 328 diff changeset	1441 genericobject *g;
f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl) Guido van Rossum <guido@python.org> parents: 328 diff changeset	1442
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1443 if (!PyArg_Parse(args, "(iff)", &type, &mx, &my)) return NULL;
329 f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl) Guido van Rossum <guido@python.org> parents: 328 diff changeset	1444
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	1445 generic = (*func) (f-> ob_form, type, mx, my);
329 f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl) Guido van Rossum <guido@python.org> parents: 328 diff changeset	1446
f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl) Guido van Rossum <guido@python.org> parents: 328 diff changeset	1447 if (generic == NULL)
f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl) Guido van Rossum <guido@python.org> parents: 328 diff changeset	1448 {
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1449 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1450 return Py_None;
329 f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl) Guido van Rossum <guido@python.org> parents: 328 diff changeset	1451 }
f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl) Guido van Rossum <guido@python.org> parents: 328 diff changeset	1452
f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl) Guido van Rossum <guido@python.org> parents: 328 diff changeset	1453 g = findgeneric(generic);
f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl) Guido van Rossum <guido@python.org> parents: 328 diff changeset	1454 if (g == NULL) {
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1455 PyErr_SetString(PyExc_RuntimeError,
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1456 "forms_find_{first\|last} returns unknown object");
329 f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl) Guido van Rossum <guido@python.org> parents: 328 diff changeset	1457 return NULL;
f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl) Guido van Rossum <guido@python.org> parents: 328 diff changeset	1458 }
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1459 Py_INCREF(g);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1460 return (PyObject *) g;
329 f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl) Guido van Rossum <guido@python.org> parents: 328 diff changeset	1461 }
f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl) Guido van Rossum <guido@python.org> parents: 328 diff changeset	1462
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1463 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1464 form_find_first(formobject f, PyObject args)
329 f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl) Guido van Rossum <guido@python.org> parents: 328 diff changeset	1465 {
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1466 return forms_find_first_or_last(fl_find_first, f, args);
329 f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl) Guido van Rossum <guido@python.org> parents: 328 diff changeset	1467 }
f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl) Guido van Rossum <guido@python.org> parents: 328 diff changeset	1468
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1469 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1470 form_find_last(formobject f, PyObject args)
329 f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl) Guido van Rossum <guido@python.org> parents: 328 diff changeset	1471 {
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1472 return forms_find_first_or_last(fl_find_last, f, args);
329 f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl) Guido van Rossum <guido@python.org> parents: 328 diff changeset	1473 }
f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl) Guido van Rossum <guido@python.org> parents: 328 diff changeset	1474
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1475 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1476 form_set_object_focus(formobject f, PyObject args)
1051 f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around. Guido van Rossum <guido@python.org> parents: 1020 diff changeset	1477 {
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around. Guido van Rossum <guido@python.org> parents: 1020 diff changeset	1478 genericobject *g;
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around. Guido van Rossum <guido@python.org> parents: 1020 diff changeset	1479 if (args == NULL \|\| !is_genericobject(args)) {
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1480 PyErr_BadArgument();
1051 f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around. Guido van Rossum <guido@python.org> parents: 1020 diff changeset	1481 return NULL;
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around. Guido van Rossum <guido@python.org> parents: 1020 diff changeset	1482 }
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around. Guido van Rossum <guido@python.org> parents: 1020 diff changeset	1483 g = (genericobject *)args;
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around. Guido van Rossum <guido@python.org> parents: 1020 diff changeset	1484 fl_set_object_focus(f->ob_form, g->ob_generic);
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1485 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1486 return Py_None;
1051 f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around. Guido van Rossum <guido@python.org> parents: 1020 diff changeset	1487 }
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around. Guido van Rossum <guido@python.org> parents: 1020 diff changeset	1488
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1489 static PyMethodDef form_methods[] = {
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1490 /* adm */
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1491 {"show_form", (PyCFunction)form_show_form},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1492 {"hide_form", (PyCFunction)form_hide_form},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1493 {"redraw_form", (PyCFunction)form_redraw_form},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1494 {"set_form_position", (PyCFunction)form_set_form_position},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1495 {"set_form_size", (PyCFunction)form_set_form_size},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1496 {"scale_form", (PyCFunction)form_scale_form},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1497 {"freeze_form", (PyCFunction)form_freeze_form},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1498 {"unfreeze_form", (PyCFunction)form_unfreeze_form},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1499 {"activate_form", (PyCFunction)form_activate_form},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1500 {"deactivate_form", (PyCFunction)form_deactivate_form},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1501 {"bgn_group", (PyCFunction)form_bgn_group},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1502 {"end_group", (PyCFunction)form_end_group},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1503 {"find_first", (PyCFunction)form_find_first},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1504 {"find_last", (PyCFunction)form_find_last},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1505 {"set_object_focus", (PyCFunction)form_set_object_focus},
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1506
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1507 /* basic objects */
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1508 {"add_button", (PyCFunction)form_add_button},
1746 1940892d2fe3 Merge alpha100 branch back to main trunk Guido van Rossum <guido@python.org> parents: 1482 diff changeset	1509 /* {"add_bitmap", (method)form_add_bitmap}, */
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1510 {"add_lightbutton", (PyCFunction)form_add_lightbutton},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1511 {"add_roundbutton", (PyCFunction)form_add_roundbutton},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1512 {"add_menu", (PyCFunction)form_add_menu},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1513 {"add_slider", (PyCFunction)form_add_slider},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1514 {"add_positioner", (PyCFunction)form_add_positioner},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1515 {"add_valslider", (PyCFunction)form_add_valslider},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1516 {"add_dial", (PyCFunction)form_add_dial},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1517 {"add_counter", (PyCFunction)form_add_counter},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1518 {"add_box", (PyCFunction)form_add_box},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1519 {"add_clock", (PyCFunction)form_add_clock},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1520 {"add_choice", (PyCFunction)form_add_choice},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1521 {"add_browser", (PyCFunction)form_add_browser},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1522 {"add_input", (PyCFunction)form_add_input},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1523 {"add_timer", (PyCFunction)form_add_timer},
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1524 {"add_text", (PyCFunction)form_add_text},
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1525 {NULL, NULL} /* sentinel */
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1526 };
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1527
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1528 static void
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1529 form_dealloc(formobject *f)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1530 {
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1531 releaseobjects(f->ob_form);
812 94ea6ea7f7d5 in form_dealloc, only hide the form if it's visible Guido van Rossum <guido@python.org> parents: 795 diff changeset	1532 if (f->ob_form->visible)
94ea6ea7f7d5 in form_dealloc, only hide the form if it's visible Guido van Rossum <guido@python.org> parents: 795 diff changeset	1533 fl_hide_form(f->ob_form);
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1534 fl_free_form(f->ob_form);
12576 1c7c2dd1beb1 Vladimir Marangozov's long-awaited malloc restructuring. Guido van Rossum <guido@python.org> parents: 9588 diff changeset	1535 PyObject_Del(f);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1536 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1537
442 17f4cdf28959 Fixed duplicate use of OFF macro. Guido van Rossum <guido@python.org> parents: 437 diff changeset	1538 #define OFF(x) offsetof(FL_FORM, x)
17f4cdf28959 Fixed duplicate use of OFF macro. Guido van Rossum <guido@python.org> parents: 437 diff changeset	1539
437 402a59ad2493 Finally added form attributes. Guido van Rossum <guido@python.org> parents: 392 diff changeset	1540 static struct memberlist form_memberlist[] = {
402a59ad2493 Finally added form attributes. Guido van Rossum <guido@python.org> parents: 392 diff changeset	1541 {"window", T_LONG, OFF(window), RO},
402a59ad2493 Finally added form attributes. Guido van Rossum <guido@python.org> parents: 392 diff changeset	1542 {"w", T_FLOAT, OFF(w)},
402a59ad2493 Finally added form attributes. Guido van Rossum <guido@python.org> parents: 392 diff changeset	1543 {"h", T_FLOAT, OFF(h)},
1051 f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around. Guido van Rossum <guido@python.org> parents: 1020 diff changeset	1544 {"x", T_FLOAT, OFF(x), RO},
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around. Guido van Rossum <guido@python.org> parents: 1020 diff changeset	1545 {"y", T_FLOAT, OFF(y), RO},
437 402a59ad2493 Finally added form attributes. Guido van Rossum <guido@python.org> parents: 392 diff changeset	1546 {"deactivated", T_INT, OFF(deactivated)},
1051 f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around. Guido van Rossum <guido@python.org> parents: 1020 diff changeset	1547 {"visible", T_INT, OFF(visible), RO},
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around. Guido van Rossum <guido@python.org> parents: 1020 diff changeset	1548 {"frozen", T_INT, OFF(frozen), RO},
437 402a59ad2493 Finally added form attributes. Guido van Rossum <guido@python.org> parents: 392 diff changeset	1549 {"doublebuf", T_INT, OFF(doublebuf)},
402a59ad2493 Finally added form attributes. Guido van Rossum <guido@python.org> parents: 392 diff changeset	1550 {NULL} /* Sentinel */
402a59ad2493 Finally added form attributes. Guido van Rossum <guido@python.org> parents: 392 diff changeset	1551 };
402a59ad2493 Finally added form attributes. Guido van Rossum <guido@python.org> parents: 392 diff changeset	1552
442 17f4cdf28959 Fixed duplicate use of OFF macro. Guido van Rossum <guido@python.org> parents: 437 diff changeset	1553 #undef OFF
17f4cdf28959 Fixed duplicate use of OFF macro. Guido van Rossum <guido@python.org> parents: 437 diff changeset	1554
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1555 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1556 form_getattr(formobject f, char name)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1557 {
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1558 PyObject *meth;
437 402a59ad2493 Finally added form attributes. Guido van Rossum <guido@python.org> parents: 392 diff changeset	1559
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1560 meth = Py_FindMethod(form_methods, (PyObject *)f, name);
437 402a59ad2493 Finally added form attributes. Guido van Rossum <guido@python.org> parents: 392 diff changeset	1561 if (meth != NULL)
402a59ad2493 Finally added form attributes. Guido van Rossum <guido@python.org> parents: 392 diff changeset	1562 return meth;
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1563 PyErr_Clear();
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1564 return PyMember_Get((char *)f->ob_form, form_memberlist, name);
437 402a59ad2493 Finally added form attributes. Guido van Rossum <guido@python.org> parents: 392 diff changeset	1565 }
402a59ad2493 Finally added form attributes. Guido van Rossum <guido@python.org> parents: 392 diff changeset	1566
402a59ad2493 Finally added form attributes. Guido van Rossum <guido@python.org> parents: 392 diff changeset	1567 static int
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1568 form_setattr(formobject f, char name, PyObject *v)
437 402a59ad2493 Finally added form attributes. Guido van Rossum <guido@python.org> parents: 392 diff changeset	1569 {
402a59ad2493 Finally added form attributes. Guido van Rossum <guido@python.org> parents: 392 diff changeset	1570 if (v == NULL) {
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1571 PyErr_SetString(PyExc_TypeError,
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1572 "can't delete form attributes");
4297 cf9a97bfc023 Correct typo: return -1 for error, not NULL Guido van Rossum <guido@python.org> parents: 2061 diff changeset	1573 return -1;
437 402a59ad2493 Finally added form attributes. Guido van Rossum <guido@python.org> parents: 392 diff changeset	1574 }
402a59ad2493 Finally added form attributes. Guido van Rossum <guido@python.org> parents: 392 diff changeset	1575
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1576 return PyMember_Set((char *)f->ob_form, form_memberlist, name, v);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1577 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1578
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1579 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1580 form_repr(formobject *f)
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	1581 {
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	1582 char buf[100];
13210 ff243b0f16ee Trent Mick <trentm@activestate.com>: Fred Drake <fdrake@acm.org> parents: 12576 diff changeset	1583 sprintf(buf, "<FORMS_form at %p, window=%ld>",
ff243b0f16ee Trent Mick <trentm@activestate.com>: Fred Drake <fdrake@acm.org> parents: 12576 diff changeset	1584 f, f->ob_form->window);
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1585 return PyString_FromString(buf);
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	1586 }
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	1587
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1588 static PyTypeObject Formtype = {
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1589 PyObject_HEAD_INIT(&PyType_Type)
1746 1940892d2fe3 Merge alpha100 branch back to main trunk Guido van Rossum <guido@python.org> parents: 1482 diff changeset	1590 0, /ob_size/
1940892d2fe3 Merge alpha100 branch back to main trunk Guido van Rossum <guido@python.org> parents: 1482 diff changeset	1591 "FORMS_form", /tp_name/
1940892d2fe3 Merge alpha100 branch back to main trunk Guido van Rossum <guido@python.org> parents: 1482 diff changeset	1592 sizeof(formobject), /tp_size/
1940892d2fe3 Merge alpha100 branch back to main trunk Guido van Rossum <guido@python.org> parents: 1482 diff changeset	1593 0, /tp_itemsize/
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1594 /* methods */
1746 1940892d2fe3 Merge alpha100 branch back to main trunk Guido van Rossum <guido@python.org> parents: 1482 diff changeset	1595 (destructor)form_dealloc, /tp_dealloc/
1940892d2fe3 Merge alpha100 branch back to main trunk Guido van Rossum <guido@python.org> parents: 1482 diff changeset	1596 0, /tp_print/
1940892d2fe3 Merge alpha100 branch back to main trunk Guido van Rossum <guido@python.org> parents: 1482 diff changeset	1597 (getattrfunc)form_getattr, /tp_getattr/
1940892d2fe3 Merge alpha100 branch back to main trunk Guido van Rossum <guido@python.org> parents: 1482 diff changeset	1598 (setattrfunc)form_setattr, /tp_setattr/
1940892d2fe3 Merge alpha100 branch back to main trunk Guido van Rossum <guido@python.org> parents: 1482 diff changeset	1599 0, /tp_compare/
1940892d2fe3 Merge alpha100 branch back to main trunk Guido van Rossum <guido@python.org> parents: 1482 diff changeset	1600 (reprfunc)form_repr, /tp_repr/
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1601 };
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1602
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1603 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1604 newformobject(FL_FORM *form)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1605 {
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1606 formobject *f;
12576 1c7c2dd1beb1 Vladimir Marangozov's long-awaited malloc restructuring. Guido van Rossum <guido@python.org> parents: 9588 diff changeset	1607 f = PyObject_New(formobject, &Formtype);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1608 if (f == NULL)
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1609 return NULL;
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1610 f->ob_form = form;
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1611 return (PyObject *)f;
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1612 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1613
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1614
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1615 /* The "fl" module */
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1616
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1617 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1618 forms_make_form(PyObject dummy, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1619 {
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1620 int type;
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1621 float w, h;
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1622 FL_FORM *form;
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1623 if (!PyArg_Parse(args, "(iff)", &type, &w, &h))
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1624 return NULL;
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1625 form = fl_bgn_form(type, w, h);
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1626 if (form == NULL) {
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1627 /* XXX Actually, cannot happen! */
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1628 PyErr_NoMemory();
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1629 return NULL;
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1630 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1631 fl_end_form();
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1632 return newformobject(form);
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1633 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1634
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1635 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1636 forms_activate_all_forms(PyObject f, PyObject args)
726 e8c6fa9118eb Added forms_(de)activate_all_forms functions; minor lay-out fixes. Guido van Rossum <guido@python.org> parents: 714 diff changeset	1637 {
e8c6fa9118eb Added forms_(de)activate_all_forms functions; minor lay-out fixes. Guido van Rossum <guido@python.org> parents: 714 diff changeset	1638 fl_activate_all_forms();
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1639 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1640 return Py_None;
726 e8c6fa9118eb Added forms_(de)activate_all_forms functions; minor lay-out fixes. Guido van Rossum <guido@python.org> parents: 714 diff changeset	1641 }
e8c6fa9118eb Added forms_(de)activate_all_forms functions; minor lay-out fixes. Guido van Rossum <guido@python.org> parents: 714 diff changeset	1642
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1643 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1644 forms_deactivate_all_forms(PyObject f, PyObject args)
726 e8c6fa9118eb Added forms_(de)activate_all_forms functions; minor lay-out fixes. Guido van Rossum <guido@python.org> parents: 714 diff changeset	1645 {
e8c6fa9118eb Added forms_(de)activate_all_forms functions; minor lay-out fixes. Guido van Rossum <guido@python.org> parents: 714 diff changeset	1646 fl_deactivate_all_forms();
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1647 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1648 return Py_None;
726 e8c6fa9118eb Added forms_(de)activate_all_forms functions; minor lay-out fixes. Guido van Rossum <guido@python.org> parents: 714 diff changeset	1649 }
e8c6fa9118eb Added forms_(de)activate_all_forms functions; minor lay-out fixes. Guido van Rossum <guido@python.org> parents: 714 diff changeset	1650
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1651 static PyObject *my_event_callback = NULL;
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1652
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1653 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1654 forms_set_event_call_back(PyObject dummy, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1655 {
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1656 if (args == Py_None)
1328 e2deca983008 forms_set_event_call_back: argument of None resets event callback to NULL. Guido van Rossum <guido@python.org> parents: 1319 diff changeset	1657 args = NULL;
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1658 my_event_callback = args;
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1659 Py_XINCREF(args);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1660 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1661 return Py_None;
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1662 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1663
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1664 static PyObject *
13667 a6c7bfdd6777 Even more ANSIfication: fix as many function pointers and declarations as Thomas Wouters <thomas@python.org> parents: 13651 diff changeset	1665 forms_do_or_check_forms(PyObject dummy, PyObject args, FL_OBJECT (func)(void))
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1666 {
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1667 FL_OBJECT *generic;
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1668 genericobject *g;
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1669 PyObject arg, res;
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1670
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1671 if (!PyArg_NoArgs(args))
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1672 return NULL;
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1673
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1674 for (;;) {
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1675 Py_BEGIN_ALLOW_THREADS
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1676 generic = (*func)();
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1677 Py_END_ALLOW_THREADS
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1678 if (generic == NULL) {
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1679 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1680 return Py_None;
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1681 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1682 if (generic == FL_EVENT) {
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1683 int dev;
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1684 short val;
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1685 if (my_event_callback == NULL)
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1686 return PyInt_FromLong(-1L);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1687 dev = fl_qread(&val);
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1688 arg = Py_BuildValue("(ih)", dev, val);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1689 if (arg == NULL)
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1690 return NULL;
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1691 res = PyEval_CallObject(my_event_callback, arg);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1692 Py_XDECREF(res);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1693 Py_DECREF(arg);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1694 if (res == NULL)
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1695 return NULL; /* Callback raised exception */
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1696 continue;
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1697 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1698 g = findgeneric(generic);
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1699 if (g == NULL) {
1079 e4c6a0dd5c2b * bltinmodule.c: added built-in function cmp(a, b) Guido van Rossum <guido@python.org> parents: 1051 diff changeset	1700 /* Object not known to us (some dialogs cause this) */
712 00cdb8dedd6f Implemented show_choice(); moved items around a little bit. Guido van Rossum <guido@python.org> parents: 635 diff changeset	1701 continue; /* Ignore it */
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1702 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1703 if (g->ob_callback == NULL) {
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1704 Py_INCREF(g);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1705 return ((PyObject *) g);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1706 }
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1707 arg = Py_BuildValue("(OO)", (PyObject *)g, g->ob_callback_arg);
1252 c4cd0d9d8281 * Changed many files to use mkvalue() instead of newtupleobject(). Guido van Rossum <guido@python.org> parents: 1079 diff changeset	1708 if (arg == NULL)
c4cd0d9d8281 * Changed many files to use mkvalue() instead of newtupleobject(). Guido van Rossum <guido@python.org> parents: 1079 diff changeset	1709 return NULL;
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1710 res = PyEval_CallObject(g->ob_callback, arg);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1711 Py_XDECREF(res);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1712 Py_DECREF(arg);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1713 if (res == NULL)
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1714 return NULL; /* Callback raised exception */
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1715 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1716 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1717
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1718 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1719 forms_do_forms(PyObject dummy, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1720 {
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1721 return forms_do_or_check_forms(dummy, args, fl_do_forms);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1722 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1723
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1724 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1725 forms_check_forms(PyObject dummy, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1726 {
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1727 return forms_do_or_check_forms(dummy, args, fl_check_forms);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1728 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1729
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1730 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1731 forms_do_only_forms(PyObject dummy, PyObject args)
1051 f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around. Guido van Rossum <guido@python.org> parents: 1020 diff changeset	1732 {
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around. Guido van Rossum <guido@python.org> parents: 1020 diff changeset	1733 return forms_do_or_check_forms(dummy, args, fl_do_only_forms);
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around. Guido van Rossum <guido@python.org> parents: 1020 diff changeset	1734 }
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around. Guido van Rossum <guido@python.org> parents: 1020 diff changeset	1735
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1736 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1737 forms_check_only_forms(PyObject dummy, PyObject args)
1051 f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around. Guido van Rossum <guido@python.org> parents: 1020 diff changeset	1738 {
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around. Guido van Rossum <guido@python.org> parents: 1020 diff changeset	1739 return forms_do_or_check_forms(dummy, args, fl_check_only_forms);
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around. Guido van Rossum <guido@python.org> parents: 1020 diff changeset	1740 }
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around. Guido van Rossum <guido@python.org> parents: 1020 diff changeset	1741
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	1742 #ifdef UNUSED
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1743 static PyObject *
13667 a6c7bfdd6777 Even more ANSIfication: fix as many function pointers and declarations as Thomas Wouters <thomas@python.org> parents: 13651 diff changeset	1744 fl_call(void (func)(void), PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1745 {
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1746 if (!PyArg_NoArgs(args))
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1747 return NULL;
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1748 (*func)();
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1749 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1750 return Py_None;
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1751 }
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	1752 #endif
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1753
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1754 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1755 forms_set_graphics_mode(PyObject dummy, PyObject args)
469 42130e7220af Support for FORMS 2.0. Guido van Rossum <guido@python.org> parents: 442 diff changeset	1756 {
42130e7220af Support for FORMS 2.0. Guido van Rossum <guido@python.org> parents: 442 diff changeset	1757 int rgbmode, doublebuf;
42130e7220af Support for FORMS 2.0. Guido van Rossum <guido@python.org> parents: 442 diff changeset	1758
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1759 if (!PyArg_Parse(args, "(ii)", &rgbmode, &doublebuf))
469 42130e7220af Support for FORMS 2.0. Guido van Rossum <guido@python.org> parents: 442 diff changeset	1760 return NULL;
42130e7220af Support for FORMS 2.0. Guido van Rossum <guido@python.org> parents: 442 diff changeset	1761 fl_set_graphics_mode(rgbmode,doublebuf);
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1762 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1763 return Py_None;
469 42130e7220af Support for FORMS 2.0. Guido van Rossum <guido@python.org> parents: 442 diff changeset	1764 }
42130e7220af Support for FORMS 2.0. Guido van Rossum <guido@python.org> parents: 442 diff changeset	1765
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1766 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1767 forms_get_rgbmode(PyObject dummy, PyObject args)
469 42130e7220af Support for FORMS 2.0. Guido van Rossum <guido@python.org> parents: 442 diff changeset	1768 {
1051 f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around. Guido van Rossum <guido@python.org> parents: 1020 diff changeset	1769 extern int fl_rgbmode;
469 42130e7220af Support for FORMS 2.0. Guido van Rossum <guido@python.org> parents: 442 diff changeset	1770
42130e7220af Support for FORMS 2.0. Guido van Rossum <guido@python.org> parents: 442 diff changeset	1771 if (args != NULL) {
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1772 PyErr_BadArgument();
469 42130e7220af Support for FORMS 2.0. Guido van Rossum <guido@python.org> parents: 442 diff changeset	1773 return NULL;
42130e7220af Support for FORMS 2.0. Guido van Rossum <guido@python.org> parents: 442 diff changeset	1774 }
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1775 return PyInt_FromLong((long)fl_rgbmode);
1051 f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around. Guido van Rossum <guido@python.org> parents: 1020 diff changeset	1776 }
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around. Guido van Rossum <guido@python.org> parents: 1020 diff changeset	1777
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1778 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1779 forms_show_errors(PyObject dummy, PyObject args)
1051 f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around. Guido van Rossum <guido@python.org> parents: 1020 diff changeset	1780 {
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around. Guido van Rossum <guido@python.org> parents: 1020 diff changeset	1781 int show;
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1782 if (!PyArg_Parse(args, "i", &show))
1051 f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around. Guido van Rossum <guido@python.org> parents: 1020 diff changeset	1783 return NULL;
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around. Guido van Rossum <guido@python.org> parents: 1020 diff changeset	1784 fl_show_errors(show);
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1785 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1786 return Py_None;
469 42130e7220af Support for FORMS 2.0. Guido van Rossum <guido@python.org> parents: 442 diff changeset	1787 }
1051 f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around. Guido van Rossum <guido@python.org> parents: 1020 diff changeset	1788
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1789 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1790 forms_set_font_name(PyObject dummy, PyObject args)
1051 f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around. Guido van Rossum <guido@python.org> parents: 1020 diff changeset	1791 {
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around. Guido van Rossum <guido@python.org> parents: 1020 diff changeset	1792 int numb;
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around. Guido van Rossum <guido@python.org> parents: 1020 diff changeset	1793 char *name;
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1794 if (!PyArg_Parse(args, "(is)", &numb, &name))
1051 f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around. Guido van Rossum <guido@python.org> parents: 1020 diff changeset	1795 return NULL;
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around. Guido van Rossum <guido@python.org> parents: 1020 diff changeset	1796 fl_set_font_name(numb, name);
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1797 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1798 return Py_None;
1051 f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around. Guido van Rossum <guido@python.org> parents: 1020 diff changeset	1799 }
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around. Guido van Rossum <guido@python.org> parents: 1020 diff changeset	1800
469 42130e7220af Support for FORMS 2.0. Guido van Rossum <guido@python.org> parents: 442 diff changeset	1801
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1802 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1803 forms_qdevice(PyObject self, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1804 {
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	1805 short arg1;
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1806 if (!PyArg_Parse(args, "h", &arg1))
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1807 return NULL;
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1808 fl_qdevice(arg1);
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1809 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1810 return Py_None;
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1811 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1812
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1813 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1814 forms_unqdevice(PyObject self, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1815 {
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	1816 short arg1;
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1817 if (!PyArg_Parse(args, "h", &arg1))
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1818 return NULL;
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1819 fl_unqdevice(arg1);
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1820 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1821 return Py_None;
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1822 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1823
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1824 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1825 forms_isqueued(PyObject self, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1826 {
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	1827 long retval;
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	1828 short arg1;
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1829 if (!PyArg_Parse(args, "h", &arg1))
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1830 return NULL;
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1831 retval = fl_isqueued(arg1);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1832
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1833 return PyInt_FromLong(retval);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1834 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1835
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1836 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1837 forms_qtest(PyObject self, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1838 {
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1839 long retval;
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1840 retval = fl_qtest();
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1841 return PyInt_FromLong(retval);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1842 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1843
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1844
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1845 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1846 forms_qread(PyObject self, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1847 {
1252 c4cd0d9d8281 * Changed many files to use mkvalue() instead of newtupleobject(). Guido van Rossum <guido@python.org> parents: 1079 diff changeset	1848 int dev;
c4cd0d9d8281 * Changed many files to use mkvalue() instead of newtupleobject(). Guido van Rossum <guido@python.org> parents: 1079 diff changeset	1849 short val;
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1850 Py_BEGIN_ALLOW_THREADS
1252 c4cd0d9d8281 * Changed many files to use mkvalue() instead of newtupleobject(). Guido van Rossum <guido@python.org> parents: 1079 diff changeset	1851 dev = fl_qread(&val);
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1852 Py_END_ALLOW_THREADS
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1853 return Py_BuildValue("(ih)", dev, val);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1854 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1855
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1856 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1857 forms_qreset(PyObject self, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1858 {
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1859 if (!PyArg_NoArgs(args)) return NULL;
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1860
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	1861 fl_qreset();
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1862 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1863 return Py_None;
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1864 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1865
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1866 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1867 forms_qenter(PyObject self, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1868 {
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	1869 short arg1, arg2;
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1870 if (!PyArg_Parse(args, "(hh)", &arg1, &arg2))
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1871 return NULL;
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1872 fl_qenter(arg1, arg2);
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1873 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1874 return Py_None;
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1875 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1876
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1877 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1878 forms_color(PyObject self, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1879 {
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1880 int arg;
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1881
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1882 if (!PyArg_Parse(args, "i", &arg)) return NULL;
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1883
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1884 fl_color((short) arg);
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1885
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1886 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1887 return Py_None;
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1888 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1889
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1890 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1891 forms_mapcolor(PyObject self, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1892 {
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1893 int arg0, arg1, arg2, arg3;
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1894
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1895 if (!PyArg_Parse(args, "(iiii)", &arg0, &arg1, &arg2, &arg3))
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	1896 return NULL;
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1897
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1898 fl_mapcolor(arg0, (short) arg1, (short) arg2, (short) arg3);
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1899
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1900 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1901 return Py_None;
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1902 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1903
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1904 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1905 forms_getmcolor(PyObject self, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1906 {
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	1907 int arg;
1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	1908 short r, g, b;
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1909
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1910 if (!PyArg_Parse(args, "i", &arg)) return NULL;
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1911
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1912 fl_getmcolor(arg, &r, &g, &b);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1913
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1914 return Py_BuildValue("(hhh)", r, g, b);
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1915 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1916
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1917 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1918 forms_get_mouse(PyObject self, PyObject args)
329 f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl) Guido van Rossum <guido@python.org> parents: 328 diff changeset	1919 {
1252 c4cd0d9d8281 * Changed many files to use mkvalue() instead of newtupleobject(). Guido van Rossum <guido@python.org> parents: 1079 diff changeset	1920 float x, y;
329 f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl) Guido van Rossum <guido@python.org> parents: 328 diff changeset	1921
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1922 if (!PyArg_NoArgs(args)) return NULL;
329 f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl) Guido van Rossum <guido@python.org> parents: 328 diff changeset	1923
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1924 fl_get_mouse(&x, &y);
329 f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl) Guido van Rossum <guido@python.org> parents: 328 diff changeset	1925
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1926 return Py_BuildValue("(ff)", x, y);
329 f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl) Guido van Rossum <guido@python.org> parents: 328 diff changeset	1927 }
f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl) Guido van Rossum <guido@python.org> parents: 328 diff changeset	1928
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1929 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1930 forms_tie(PyObject self, PyObject args)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1931 {
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	1932 short arg1, arg2, arg3;
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1933 if (!PyArg_Parse(args, "(hhh)", &arg1, &arg2, &arg3))
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1934 return NULL;
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	1935 fl_tie(arg1, arg2, arg3);
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1936 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1937 return Py_None;
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1938 }
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	1939
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1940 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1941 forms_show_message(PyObject f, PyObject args)
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	1942 {
635 784a09a52375 Use getargs() function. Guido van Rossum <guido@python.org> parents: 486 diff changeset	1943 char a, b, *c;
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	1944
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1945 if (!PyArg_Parse(args, "(sss)", &a, &b, &c)) return NULL;
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	1946
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1947 Py_BEGIN_ALLOW_THREADS
635 784a09a52375 Use getargs() function. Guido van Rossum <guido@python.org> parents: 486 diff changeset	1948 fl_show_message(a, b, c);
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1949 Py_END_ALLOW_THREADS
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	1950
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1951 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1952 return Py_None;
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	1953 }
1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	1954
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1955 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1956 forms_show_choice(PyObject f, PyObject args)
712 00cdb8dedd6f Implemented show_choice(); moved items around a little bit. Guido van Rossum <guido@python.org> parents: 635 diff changeset	1957 {
00cdb8dedd6f Implemented show_choice(); moved items around a little bit. Guido van Rossum <guido@python.org> parents: 635 diff changeset	1958 char m1, m2, m3, b1, b2, b3;
00cdb8dedd6f Implemented show_choice(); moved items around a little bit. Guido van Rossum <guido@python.org> parents: 635 diff changeset	1959 int nb;
00cdb8dedd6f Implemented show_choice(); moved items around a little bit. Guido van Rossum <guido@python.org> parents: 635 diff changeset	1960 char *format;
1051 f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around. Guido van Rossum <guido@python.org> parents: 1020 diff changeset	1961 long rv;
712 00cdb8dedd6f Implemented show_choice(); moved items around a little bit. Guido van Rossum <guido@python.org> parents: 635 diff changeset	1962
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1963 if (args == NULL \|\| !PyTuple_Check(args)) {
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1964 PyErr_BadArgument();
712 00cdb8dedd6f Implemented show_choice(); moved items around a little bit. Guido van Rossum <guido@python.org> parents: 635 diff changeset	1965 return NULL;
00cdb8dedd6f Implemented show_choice(); moved items around a little bit. Guido van Rossum <guido@python.org> parents: 635 diff changeset	1966 }
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1967 nb = PyTuple_Size(args) - 3;
712 00cdb8dedd6f Implemented show_choice(); moved items around a little bit. Guido van Rossum <guido@python.org> parents: 635 diff changeset	1968 if (nb <= 0) {
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1969 PyErr_SetString(PyExc_TypeError,
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1970 "need at least one button label");
712 00cdb8dedd6f Implemented show_choice(); moved items around a little bit. Guido van Rossum <guido@python.org> parents: 635 diff changeset	1971 return NULL;
00cdb8dedd6f Implemented show_choice(); moved items around a little bit. Guido van Rossum <guido@python.org> parents: 635 diff changeset	1972 }
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1973 if (PyInt_Check(PyTuple_GetItem(args, 3))) {
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1974 PyErr_SetString(PyExc_TypeError,
712 00cdb8dedd6f Implemented show_choice(); moved items around a little bit. Guido van Rossum <guido@python.org> parents: 635 diff changeset	1975 "'number-of-buttons' argument not needed");
00cdb8dedd6f Implemented show_choice(); moved items around a little bit. Guido van Rossum <guido@python.org> parents: 635 diff changeset	1976 return NULL;
00cdb8dedd6f Implemented show_choice(); moved items around a little bit. Guido van Rossum <guido@python.org> parents: 635 diff changeset	1977 }
00cdb8dedd6f Implemented show_choice(); moved items around a little bit. Guido van Rossum <guido@python.org> parents: 635 diff changeset	1978 switch (nb) {
00cdb8dedd6f Implemented show_choice(); moved items around a little bit. Guido van Rossum <guido@python.org> parents: 635 diff changeset	1979 case 1: format = "(ssss)"; break;
00cdb8dedd6f Implemented show_choice(); moved items around a little bit. Guido van Rossum <guido@python.org> parents: 635 diff changeset	1980 case 2: format = "(sssss)"; break;
00cdb8dedd6f Implemented show_choice(); moved items around a little bit. Guido van Rossum <guido@python.org> parents: 635 diff changeset	1981 case 3: format = "(ssssss)"; break;
00cdb8dedd6f Implemented show_choice(); moved items around a little bit. Guido van Rossum <guido@python.org> parents: 635 diff changeset	1982 default:
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1983 PyErr_SetString(PyExc_TypeError, "too many button labels");
712 00cdb8dedd6f Implemented show_choice(); moved items around a little bit. Guido van Rossum <guido@python.org> parents: 635 diff changeset	1984 return NULL;
00cdb8dedd6f Implemented show_choice(); moved items around a little bit. Guido van Rossum <guido@python.org> parents: 635 diff changeset	1985 }
00cdb8dedd6f Implemented show_choice(); moved items around a little bit. Guido van Rossum <guido@python.org> parents: 635 diff changeset	1986
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1987 if (!PyArg_Parse(args, format, &m1, &m2, &m3, &b1, &b2, &b3))
712 00cdb8dedd6f Implemented show_choice(); moved items around a little bit. Guido van Rossum <guido@python.org> parents: 635 diff changeset	1988 return NULL;
00cdb8dedd6f Implemented show_choice(); moved items around a little bit. Guido van Rossum <guido@python.org> parents: 635 diff changeset	1989
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1990 Py_BEGIN_ALLOW_THREADS
947 260d96db112f Modified to allow other threads to run in a multithreaded environment. Jack Jansen <jack.jansen@cwi.nl> parents: 926 diff changeset	1991 rv = fl_show_choice(m1, m2, m3, nb, b1, b2, b3);
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1992 Py_END_ALLOW_THREADS
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1993 return PyInt_FromLong(rv);
712 00cdb8dedd6f Implemented show_choice(); moved items around a little bit. Guido van Rossum <guido@python.org> parents: 635 diff changeset	1994 }
00cdb8dedd6f Implemented show_choice(); moved items around a little bit. Guido van Rossum <guido@python.org> parents: 635 diff changeset	1995
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	1996 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	1997 forms_show_question(PyObject f, PyObject args)
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	1998 {
635 784a09a52375 Use getargs() function. Guido van Rossum <guido@python.org> parents: 486 diff changeset	1999 int ret;
784a09a52375 Use getargs() function. Guido van Rossum <guido@python.org> parents: 486 diff changeset	2000 char a, b, *c;
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	2001
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	2002 if (!PyArg_Parse(args, "(sss)", &a, &b, &c)) return NULL;
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	2003
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	2004 Py_BEGIN_ALLOW_THREADS
635 784a09a52375 Use getargs() function. Guido van Rossum <guido@python.org> parents: 486 diff changeset	2005 ret = fl_show_question(a, b, c);
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	2006 Py_END_ALLOW_THREADS
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	2007
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	2008 return PyInt_FromLong((long) ret);
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	2009 }
1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	2010
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	2011 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	2012 forms_show_input(PyObject f, PyObject args)
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	2013 {
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	2014 char *str;
635 784a09a52375 Use getargs() function. Guido van Rossum <guido@python.org> parents: 486 diff changeset	2015 char a, b;
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	2016
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	2017 if (!PyArg_Parse(args, "(ss)", &a, &b)) return NULL;
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	2018
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	2019 Py_BEGIN_ALLOW_THREADS
635 784a09a52375 Use getargs() function. Guido van Rossum <guido@python.org> parents: 486 diff changeset	2020 str = fl_show_input(a, b);
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	2021 Py_END_ALLOW_THREADS
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	2022
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	2023 if (str == NULL) {
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	2024 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	2025 return Py_None;
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	2026 }
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	2027 return PyString_FromString(str);
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	2028 }
1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	2029
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	2030 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	2031 forms_file_selector(PyObject f, PyObject args)
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	2032 {
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	2033 char *str;
635 784a09a52375 Use getargs() function. Guido van Rossum <guido@python.org> parents: 486 diff changeset	2034 char a, b, c, d;
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	2035
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	2036 if (!PyArg_Parse(args, "(ssss)", &a, &b, &c, &d)) return NULL;
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	2037
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	2038 Py_BEGIN_ALLOW_THREADS
635 784a09a52375 Use getargs() function. Guido van Rossum <guido@python.org> parents: 486 diff changeset	2039 str = fl_show_file_selector(a, b, c, d);
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	2040 Py_END_ALLOW_THREADS
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	2041
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	2042 if (str == NULL) {
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	2043 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	2044 return Py_None;
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	2045 }
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	2046 return PyString_FromString(str);
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	2047 }
1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	2048
1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	2049
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	2050 static PyObject *
13667 a6c7bfdd6777 Even more ANSIfication: fix as many function pointers and declarations as Thomas Wouters <thomas@python.org> parents: 13651 diff changeset	2051 forms_file_selector_func(PyObject args, char (*func)(void))
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	2052 {
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	2053 char *str;
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	2054
f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	2055 str = (*func) ();
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	2056
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	2057 if (str == NULL) {
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	2058 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	2059 return Py_None;
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	2060 }
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	2061 return PyString_FromString(str);
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	2062 }
1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	2063
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	2064 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	2065 forms_get_directory(PyObject f, PyObject args)
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	2066 {
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	2067 return forms_file_selector_func(args, fl_get_directory);
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	2068 }
1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	2069
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	2070 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	2071 forms_get_pattern(PyObject f, PyObject args)
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	2072 {
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	2073 return forms_file_selector_func(args, fl_get_pattern);
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	2074 }
1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	2075
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	2076 static PyObject *
13514 5304b88fe3cc ANSI-fication of the SGI modules (note that svmodule.c and sgimodule.c Peter Schneider-Kamp <nowonder@nowonder.de> parents: 13256 diff changeset	2077 forms_get_filename(PyObject f, PyObject args)
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	2078 {
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	2079 return forms_file_selector_func(args, fl_get_filename);
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	2080 }
1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	2081
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	2082 static PyMethodDef forms_methods[] = {
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	2083 /* adm */
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	2084 {"make_form", forms_make_form},
726 e8c6fa9118eb Added forms_(de)activate_all_forms functions; minor lay-out fixes. Guido van Rossum <guido@python.org> parents: 714 diff changeset	2085 {"activate_all_forms", forms_activate_all_forms},
e8c6fa9118eb Added forms_(de)activate_all_forms functions; minor lay-out fixes. Guido van Rossum <guido@python.org> parents: 714 diff changeset	2086 {"deactivate_all_forms",forms_deactivate_all_forms},
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	2087 /* gl support wrappers */
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	2088 {"qdevice", forms_qdevice},
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	2089 {"unqdevice", forms_unqdevice},
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	2090 {"isqueued", forms_isqueued},
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	2091 {"qtest", forms_qtest},
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	2092 {"qread", forms_qread},
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	2093 /* {"blkqread", forms_blkqread}, */
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	2094 {"qreset", forms_qreset},
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	2095 {"qenter", forms_qenter},
330 1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	2096 {"get_mouse", forms_get_mouse},
1807d60e6231 Lots of cosmetic changes. Guido van Rossum <guido@python.org> parents: 329 diff changeset	2097 {"tie", forms_tie},
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	2098 /* {"new_events", forms_new_events}, */
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	2099 {"color", forms_color},
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	2100 {"mapcolor", forms_mapcolor},
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	2101 {"getmcolor", forms_getmcolor},
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	2102 /* interaction */
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	2103 {"do_forms", forms_do_forms},
1079 e4c6a0dd5c2b * bltinmodule.c: added built-in function cmp(a, b) Guido van Rossum <guido@python.org> parents: 1051 diff changeset	2104 {"do_only_forms", forms_do_only_forms},
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	2105 {"check_forms", forms_check_forms},
1079 e4c6a0dd5c2b * bltinmodule.c: added built-in function cmp(a, b) Guido van Rossum <guido@python.org> parents: 1051 diff changeset	2106 {"check_only_forms", forms_check_only_forms},
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	2107 {"set_event_call_back", forms_set_event_call_back},
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	2108 /* goodies */
1020 7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	2109 {"show_message", forms_show_message},
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	2110 {"show_question", forms_show_question},
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	2111 {"show_choice", forms_show_choice},
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	2112 {"show_input", forms_show_input},
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	2113 {"show_file_selector", forms_file_selector},
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	2114 {"file_selector", forms_file_selector}, /* BW compat */
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	2115 {"get_directory", forms_get_directory},
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	2116 {"get_pattern", forms_get_pattern},
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing Guido van Rossum <guido@python.org> parents: 947 diff changeset	2117 {"get_filename", forms_get_filename},
469 42130e7220af Support for FORMS 2.0. Guido van Rossum <guido@python.org> parents: 442 diff changeset	2118 {"set_graphics_mode", forms_set_graphics_mode},
42130e7220af Support for FORMS 2.0. Guido van Rossum <guido@python.org> parents: 442 diff changeset	2119 {"get_rgbmode", forms_get_rgbmode},
1051 f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around. Guido van Rossum <guido@python.org> parents: 1020 diff changeset	2120 {"show_errors", forms_show_errors},
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around. Guido van Rossum <guido@python.org> parents: 1020 diff changeset	2121 {"set_font_name", forms_set_font_name},
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	2122 {NULL, NULL} /* sentinel */
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	2123 };
48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	2124
9588 38023a425e48 Add DL_EXPORT() to all modules that could possibly be used Guido van Rossum <guido@python.org> parents: 5380 diff changeset	2125 DL_EXPORT(void)
13651 8a063423e0b7 Bunch of minor ANSIfications: 'void initfunc()' -> 'void initfunc(void)', Thomas Wouters <thomas@python.org> parents: 13620 diff changeset	2126 initfl(void)
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	2127 {
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	2128 Py_InitModule("fl", forms_methods);
392 f33a3f69dfcb Done a little bit about garbage collection. Guido van Rossum <guido@python.org> parents: 376 diff changeset	2129 foreground();
469 42130e7220af Support for FORMS 2.0. Guido van Rossum <guido@python.org> parents: 442 diff changeset	2130 fl_init();
328 48bbc8ad8016 Initial revision Guido van Rossum <guido@python.org> parents: diff changeset	2131 }
4884 65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	2132
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	2133
65cb261f7736 Renamed, but untested. Roger E. Masse <rmasse@newcnri.cnri.reston.va.us> parents: 4503 diff changeset	2134

Mercurial > cpython-lru_cache-weakref

annotate Modules/flmodule.c @ 16798:258dcafe2d0b legacy-trunk