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

annotate Modules/flmodule.c @ 14150:302dfd53b3c8 legacy-trunk

Make sure Thomas Wouters has enough to do. ;-) (Some of this is in-progress; this also serves as a reminded to me to check this out once it is written.)

author	Fred Drake <fdrake@acm.org>
date	Thu, 24 Aug 2000 00:50:27 +0000
parents	a6c7bfdd6777
children	6f6f965c5e2d

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

Mercurial > cpython-lru_cache-weakref

annotate Modules/flmodule.c @ 14150:302dfd53b3c8 legacy-trunk