Mercurial > cpython-lru_cache-weakref

annotate Modules/flmodule.c @ 7278:59d2761ba1cf legacy-trunk

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove obsolete pagenumbering / pagestyle cruft.
author Fred Drake <fdrake@acm.org>
date Fri, 13 Feb 1998 07:08:56 +0000
parents 2d4c6cba01bf
children 38023a425e48
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1 /**********************************************************
2061
172ba04a5191 Added 1995 to copyright message.
Guido van Rossum <guido@python.org>
parents: 1746
diff changeset
2 Copyright 1991-1995 by Stichting Mathematisch Centrum, Amsterdam,
172ba04a5191 Added 1995 to copyright message.
Guido van Rossum <guido@python.org>
parents: 1746
diff changeset
3 The Netherlands.
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
4
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
5 All Rights Reserved
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
6
4503
65d2d8e67da3 New permission notice, includes CNRI.
Guido van Rossum <guido@python.org>
parents: 4297
diff changeset
7 Permission to use, copy, modify, and distribute this software and its
65d2d8e67da3 New permission notice, includes CNRI.
Guido van Rossum <guido@python.org>
parents: 4297
diff changeset
8 documentation for any purpose and without fee is hereby granted,
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
9 provided that the above copyright notice appear in all copies and that
4503
65d2d8e67da3 New permission notice, includes CNRI.
Guido van Rossum <guido@python.org>
parents: 4297
diff changeset
10 both that copyright notice and this permission notice appear in
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
11 supporting documentation, and that the names of Stichting Mathematisch
4503
65d2d8e67da3 New permission notice, includes CNRI.
Guido van Rossum <guido@python.org>
parents: 4297
diff changeset
12 Centrum or CWI or Corporation for National Research Initiatives or
65d2d8e67da3 New permission notice, includes CNRI.
Guido van Rossum <guido@python.org>
parents: 4297
diff changeset
13 CNRI not be used in advertising or publicity pertaining to
65d2d8e67da3 New permission notice, includes CNRI.
Guido van Rossum <guido@python.org>
parents: 4297
diff changeset
14 distribution of the software without specific, written prior
65d2d8e67da3 New permission notice, includes CNRI.
Guido van Rossum <guido@python.org>
parents: 4297
diff changeset
15 permission.
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
16
4503
65d2d8e67da3 New permission notice, includes CNRI.
Guido van Rossum <guido@python.org>
parents: 4297
diff changeset
17 While CWI is the initial source for this software, a modified version
65d2d8e67da3 New permission notice, includes CNRI.
Guido van Rossum <guido@python.org>
parents: 4297
diff changeset
18 is made available by the Corporation for National Research Initiatives
65d2d8e67da3 New permission notice, includes CNRI.
Guido van Rossum <guido@python.org>
parents: 4297
diff changeset
19 (CNRI) at the Internet address ftp://ftp.python.org.
65d2d8e67da3 New permission notice, includes CNRI.
Guido van Rossum <guido@python.org>
parents: 4297
diff changeset
20
65d2d8e67da3 New permission notice, includes CNRI.
Guido van Rossum <guido@python.org>
parents: 4297
diff changeset
21 STICHTING MATHEMATISCH CENTRUM AND CNRI DISCLAIM ALL WARRANTIES WITH
65d2d8e67da3 New permission notice, includes CNRI.
Guido van Rossum <guido@python.org>
parents: 4297
diff changeset
22 REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF
65d2d8e67da3 New permission notice, includes CNRI.
Guido van Rossum <guido@python.org>
parents: 4297
diff changeset
23 MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH
65d2d8e67da3 New permission notice, includes CNRI.
Guido van Rossum <guido@python.org>
parents: 4297
diff changeset
24 CENTRUM OR CNRI BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL
65d2d8e67da3 New permission notice, includes CNRI.
Guido van Rossum <guido@python.org>
parents: 4297
diff changeset
25 DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
65d2d8e67da3 New permission notice, includes CNRI.
Guido van Rossum <guido@python.org>
parents: 4297
diff changeset
26 PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
65d2d8e67da3 New permission notice, includes CNRI.
Guido van Rossum <guido@python.org>
parents: 4297
diff changeset
27 TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
65d2d8e67da3 New permission notice, includes CNRI.
Guido van Rossum <guido@python.org>
parents: 4297
diff changeset
28 PERFORMANCE OF THIS SOFTWARE.
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
29
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
30 ******************************************************************/
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 /* FL module -- interface to Mark Overmars' FORMS Library. */
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
33
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
34 /* 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
35 OBSOLETE_FORMS_CALLS), and 2.3.
1319
cd397266dc1c * Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents: 1313
diff changeset
36 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
37 /pub/SGI/FORMS. */
469
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
38
947
260d96db112f Modified to allow other threads to run in a multithreaded environment.
Jack Jansen <jack.jansen@cwi.nl>
parents: 926
diff changeset
39 /* 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
40 * 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
41 * 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
42 * 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
43 * 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
44 * 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
45 * this module at any time). This will have to be fixed some time.
260d96db112f Modified to allow other threads to run in a multithreaded environment.
Jack Jansen <jack.jansen@cwi.nl>
parents: 926
diff changeset
46 * (A fix will probably also have to synchronise with the gl module).
260d96db112f Modified to allow other threads to run in a multithreaded environment.
Jack Jansen <jack.jansen@cwi.nl>
parents: 926
diff changeset
47 */
260d96db112f Modified to allow other threads to run in a multithreaded environment.
Jack Jansen <jack.jansen@cwi.nl>
parents: 926
diff changeset
48
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
49 #include "Python.h"
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
50 #include "forms.h"
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
51 #include "structmember.h"
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 /* Generic Forms Objects */
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
54
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
55 typedef struct {
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
56 PyObject_HEAD
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
57 FL_OBJECT *ob_generic;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
58 PyMethodDef *ob_methods;
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
59 PyObject *ob_callback;
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
60 PyObject *ob_callback_arg;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
61 } genericobject;
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
62
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
63 staticforward PyTypeObject GenericObjecttype;
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
64
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
65 #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
66
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
67 /* 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
68
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
69 static PyObject *allgenerics = NULL;
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
70 static int nfreeslots = 0;
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
71
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
72 /* Add an object to the list of known objects */
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
73
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
74 static void
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
75 knowgeneric(g)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
76 genericobject *g;
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
77 {
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
78 int i, n;
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
79 /* Create the list if it doesn't already exist */
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
80 if (allgenerics == NULL) {
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
81 allgenerics = PyList_New(0);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
82 if (allgenerics == NULL) {
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
83 PyErr_Clear();
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
84 return; /* Too bad, live without allgenerics... */
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
85 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
86 }
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
87 if (nfreeslots > 0) {
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
88 /* 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
89 /* XXX This can be made faster! */
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
90 n = PyList_Size(allgenerics);
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
91 for (i = 0; i < n; i++) {
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
92 if (PyList_GetItem(allgenerics, i) == NULL) {
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
93 Py_INCREF(g);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
94 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
95 nfreeslots--;
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
96 return;
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
97 }
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
98 }
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
99 /* Strange... no free slots found... */
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
100 nfreeslots = 0;
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
101 }
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
102 /* 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
103 PyList_Append(allgenerics, (PyObject *)g);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
104 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
105
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
106 /* 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
107
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
108 static genericobject *
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
109 findgeneric(generic)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
110 FL_OBJECT *generic;
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
111 {
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
112 int i, n;
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
113 genericobject *g;
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
114
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
115 if (allgenerics == NULL)
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
116 return NULL; /* No objects known yet */
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
117 n = PyList_Size(allgenerics);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
118 for (i = 0; i < n; i++) {
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
119 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
120 if (g != NULL && g->ob_generic == generic)
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
121 return g;
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
122 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
123 return NULL; /* Unknown object */
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
124 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
125
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
126 /* 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
127
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
128 static void
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
129 forgetgeneric(g)
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
130 genericobject *g;
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
131 {
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
132 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
133
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
134 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
135 g->ob_callback = NULL;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
136 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
137 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
138 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
139 return; /* No objects known yet */
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
140 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
141 for (i = 0; i < n; i++) {
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
142 if (g == (genericobject *)PyList_GetItem(allgenerics, i)) {
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
143 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
144 nfreeslots++;
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
145 break;
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
146 }
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
147 }
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
148 }
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
149
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
150 /* 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
151 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
152
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
153 static void
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
154 releaseobjects(form)
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
155 FL_FORM *form;
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
156 {
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
157 int i, n;
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
158 genericobject *g;
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
159
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
160 if (allgenerics == NULL)
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
161 return; /* No objects known yet */
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
162 n = PyList_Size(allgenerics);
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
163 for (i = 0; i < n; i++) {
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
164 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
165 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
166 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
167 /* 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
168 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
169 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
170 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
171 g->ob_callback = NULL;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
172 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
173 g->ob_callback_arg = NULL;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
174 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
175 nfreeslots++;
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
176 }
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
177 }
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
178 }
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
179
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
180
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
181 /* Methods of generic objects */
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 *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
184 generic_set_call_back(g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
185 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
186 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
187 {
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
188 if (args == NULL) {
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
189 Py_XDECREF(g->ob_callback);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
190 Py_XDECREF(g->ob_callback_arg);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
191 g->ob_callback = NULL;
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
192 g->ob_callback_arg = NULL;
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
193 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
194 else {
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
195 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
196 PyErr_BadArgument();
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
197 return NULL;
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
198 }
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
199 Py_XDECREF(g->ob_callback);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
200 Py_XDECREF(g->ob_callback_arg);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
201 g->ob_callback = PyTuple_GetItem(args, 0);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
202 Py_INCREF(g->ob_callback);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
203 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
204 Py_INCREF(g->ob_callback_arg);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
205 }
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
206 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
207 return Py_None;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
208 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
209
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
210 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
211 generic_call(g, args, func)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
212 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
213 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
214 void (*func)(FL_OBJECT *);
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
215 {
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
216 if (!PyArg_NoArgs(args))
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
217 return NULL;
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
218 (*func)(g->ob_generic);
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
219 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
220 return Py_None;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
221 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
222
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
223 static PyObject *
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
224 generic_delete_object(g, args)
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
225 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
226 PyObject *args;
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
227 {
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
228 PyObject *res;
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
229 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
230 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
231 forgetgeneric(g);
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
232 return res;
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
233 }
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
234
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
235 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
236 generic_show_object(g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
237 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
238 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
239 {
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
240 return generic_call(g, args, fl_show_object);
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
241 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
242
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
243 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
244 generic_hide_object(g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
245 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
246 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
247 {
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
248 return generic_call(g, args, fl_hide_object);
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
249 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
250
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
251 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
252 generic_redraw_object(g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
253 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
254 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
255 {
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
256 return generic_call(g, args, fl_redraw_object);
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
257 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
258
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
259 #ifdef OBSOLETE_FORMS_CALLS
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
260
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
261 /* (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
262 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
263 using, we omit them unconditionally. */
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
264
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
265 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
266 generic_freeze_object(g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
267 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
268 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
269 {
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
270 return generic_call(g, args, fl_freeze_object);
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
271 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
272
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
273 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
274 generic_unfreeze_object(g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
275 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
276 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
277 {
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
278 return generic_call(g, args, fl_unfreeze_object);
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
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
281 #endif /* OBSOLETE_FORMS_CALLS */
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
282
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
283 static PyObject *
1319
cd397266dc1c * Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents: 1313
diff changeset
284 generic_activate_object(g, args)
cd397266dc1c * Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents: 1313
diff changeset
285 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
286 PyObject *args;
1319
cd397266dc1c * Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents: 1313
diff changeset
287 {
cd397266dc1c * Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents: 1313
diff changeset
288 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
289 }
cd397266dc1c * Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents: 1313
diff changeset
290
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
291 static PyObject *
1319
cd397266dc1c * Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents: 1313
diff changeset
292 generic_deactivate_object(g, args)
cd397266dc1c * Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents: 1313
diff changeset
293 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
294 PyObject *args;
1319
cd397266dc1c * Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents: 1313
diff changeset
295 {
cd397266dc1c * Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents: 1313
diff changeset
296 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
297 }
cd397266dc1c * Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents: 1313
diff changeset
298
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
299 static PyObject *
1319
cd397266dc1c * Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents: 1313
diff changeset
300 generic_set_object_shortcut(g, args)
cd397266dc1c * Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents: 1313
diff changeset
301 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
302 PyObject *args;
1319
cd397266dc1c * Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents: 1313
diff changeset
303 {
cd397266dc1c * Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents: 1313
diff changeset
304 char *str;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
305 if (!PyArg_Parse(args, "s", &str))
1319
cd397266dc1c * Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents: 1313
diff changeset
306 return NULL;
cd397266dc1c * Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents: 1313
diff changeset
307 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
308 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
309 return Py_None;
1319
cd397266dc1c * Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents: 1313
diff changeset
310 }
cd397266dc1c * Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents: 1313
diff changeset
311
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
312 static PyMethodDef generic_methods[] = {
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
313 {"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
314 {"delete_object", (PyCFunction)generic_delete_object},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
315 {"show_object", (PyCFunction)generic_show_object},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
316 {"hide_object", (PyCFunction)generic_hide_object},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
317 {"redraw_object", (PyCFunction)generic_redraw_object},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
318 #ifdef OBSOLETE_FORMS_CALLS
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
319 {"freeze_object", (PyCFunction)generic_freeze_object},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
320 {"unfreeze_object", (PyCFunction)generic_unfreeze_object},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
321 #endif
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
322 {"activate_object", (PyCFunction)generic_activate_object},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
323 {"deactivate_object", (PyCFunction)generic_deactivate_object},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
324 {"set_object_shortcut", (PyCFunction)generic_set_object_shortcut},
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
325 {NULL, NULL} /* sentinel */
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
326 };
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
327
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
328 static void
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
329 generic_dealloc(g)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
330 genericobject *g;
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
331 {
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
332 fl_free_object(g->ob_generic);
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
333 Py_XDECREF(g->ob_callback);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
334 Py_XDECREF(g->ob_callback_arg);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
335 PyMem_DEL(g);
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
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
338 #define OFF(x) offsetof(FL_OBJECT, x)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
339
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
340 static struct memberlist generic_memberlist[] = {
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
341 {"objclass", T_INT, OFF(objclass), RO},
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
342 {"type", T_INT, OFF(type), RO},
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
343 {"boxtype", T_INT, OFF(boxtype)},
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
344 {"x", T_FLOAT, OFF(x)},
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
345 {"y", T_FLOAT, OFF(y)},
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
346 {"w", T_FLOAT, OFF(w)},
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
347 {"h", T_FLOAT, OFF(h)},
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
348 {"col1", T_INT, OFF(col1)},
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
349 {"col2", T_INT, OFF(col2)},
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
350 {"align", T_INT, OFF(align)},
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
351 {"lcol", T_INT, OFF(lcol)},
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
352 {"lsize", T_FLOAT, OFF(lsize)},
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
353 /* "label" is treated specially! */
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
354 {"lstyle", T_INT, OFF(lstyle)},
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
355 {"pushed", T_INT, OFF(pushed), RO},
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
356 {"focus", T_INT, OFF(focus), RO},
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
357 {"belowmouse", T_INT, OFF(belowmouse),RO},
1319
cd397266dc1c * Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents: 1313
diff changeset
358 /* {"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
359 {"active", T_INT, OFF(active)},
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents: 1020
diff changeset
360 {"input", T_INT, OFF(input)},
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
361 {"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
362 {"radio", T_INT, OFF(radio)},
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents: 1020
diff changeset
363 {"automatic", T_INT, OFF(automatic)},
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
364 {NULL} /* Sentinel */
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
365 };
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
366
442
17f4cdf28959 Fixed duplicate use of OFF macro.
Guido van Rossum <guido@python.org>
parents: 437
diff changeset
367 #undef OFF
17f4cdf28959 Fixed duplicate use of OFF macro.
Guido van Rossum <guido@python.org>
parents: 437
diff changeset
368
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
369 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
370 generic_getattr(g, name)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
371 genericobject *g;
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
372 char *name;
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
373 {
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
374 PyObject *meth;
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
375
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
376 /* XXX Ought to special-case name "__methods__" */
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
377 if (g-> ob_methods) {
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
378 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
379 if (meth != NULL) return meth;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
380 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
381 }
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
382
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
383 meth = Py_FindMethod(generic_methods, (PyObject *)g, name);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
384 if (meth != NULL)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
385 return meth;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
386 PyErr_Clear();
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
387
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
388 /* "label" is an exception, getmember only works for char pointers,
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
389 not for char arrays */
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
390 if (strcmp(name, "label") == 0)
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
391 return PyString_FromString(g->ob_generic->label);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
392
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
393 return PyMember_Get((char *)g->ob_generic, generic_memberlist, name);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
394 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
395
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
396 static int
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
397 generic_setattr(g, name, v)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
398 genericobject *g;
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
399 char *name;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
400 PyObject *v;
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 int ret;
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
403
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
404 if (v == NULL) {
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
405 PyErr_SetString(PyExc_TypeError,
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
406 "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
407 return -1;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
408 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
409
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
410 /* "label" is an exception: setmember doesn't set strings;
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
411 and FORMS wants you to call a function to set the label */
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
412 if (strcmp(name, "label") == 0) {
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
413 if (!PyString_Check(v)) {
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
414 PyErr_SetString(PyExc_TypeError,
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
415 "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
416 return -1;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
417 }
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
418 fl_set_object_label(g->ob_generic, PyString_AsString(v));
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
419 return 0;
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
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
422 ret = PyMember_Set((char *)g->ob_generic, generic_memberlist, name, v);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
423
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
424 /* Rather than calling all the various set_object_* functions,
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
425 we call fl_redraw_object here. This is sometimes redundant
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
426 but I doubt that's a big problem */
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
427 if (ret == 0)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
428 fl_redraw_object(g->ob_generic);
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
429
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
430 return ret;
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
431 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
432
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
433 static PyObject *
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
434 generic_repr(g)
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
435 genericobject *g;
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
436 {
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
437 char buf[100];
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
438 sprintf(buf, "<FORMS_object at %lx, objclass=%d>",
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
439 (long)g, g->ob_generic->objclass);
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
440 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
441 }
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
442
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
443 static PyTypeObject GenericObjecttype = {
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
444 PyObject_HEAD_INIT(&PyType_Type)
1746
1940892d2fe3 Merge alpha100 branch back to main trunk
Guido van Rossum <guido@python.org>
parents: 1482
diff changeset
445 0, /*ob_size*/
1940892d2fe3 Merge alpha100 branch back to main trunk
Guido van Rossum <guido@python.org>
parents: 1482
diff changeset
446 "FORMS_object", /*tp_name*/
1940892d2fe3 Merge alpha100 branch back to main trunk
Guido van Rossum <guido@python.org>
parents: 1482
diff changeset
447 sizeof(genericobject), /*tp_size*/
1940892d2fe3 Merge alpha100 branch back to main trunk
Guido van Rossum <guido@python.org>
parents: 1482
diff changeset
448 0, /*tp_itemsize*/
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
449 /* methods */
1746
1940892d2fe3 Merge alpha100 branch back to main trunk
Guido van Rossum <guido@python.org>
parents: 1482
diff changeset
450 (destructor)generic_dealloc, /*tp_dealloc*/
1940892d2fe3 Merge alpha100 branch back to main trunk
Guido van Rossum <guido@python.org>
parents: 1482
diff changeset
451 0, /*tp_print*/
1940892d2fe3 Merge alpha100 branch back to main trunk
Guido van Rossum <guido@python.org>
parents: 1482
diff changeset
452 (getattrfunc)generic_getattr, /*tp_getattr*/
1940892d2fe3 Merge alpha100 branch back to main trunk
Guido van Rossum <guido@python.org>
parents: 1482
diff changeset
453 (setattrfunc)generic_setattr, /*tp_setattr*/
1940892d2fe3 Merge alpha100 branch back to main trunk
Guido van Rossum <guido@python.org>
parents: 1482
diff changeset
454 0, /*tp_compare*/
1940892d2fe3 Merge alpha100 branch back to main trunk
Guido van Rossum <guido@python.org>
parents: 1482
diff changeset
455 (reprfunc)generic_repr, /*tp_repr*/
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
456 };
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
457
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
458 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
459 newgenericobject(generic, methods)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
460 FL_OBJECT *generic;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
461 PyMethodDef *methods;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
462 {
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
463 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
464 g = PyObject_NEW(genericobject, &GenericObjecttype);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
465 if (g == NULL)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
466 return NULL;
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
467 g-> ob_generic = generic;
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
468 g->ob_methods = methods;
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
469 g->ob_callback = NULL;
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
470 g->ob_callback_arg = NULL;
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
471 knowgeneric(g);
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
472 return (PyObject *)g;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
473 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
474
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
475 /**********************************************************************/
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
476 /* Some common calling sequences */
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
477
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
478 /* void func (object, float) */
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
479 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
480 call_forms_INf (func, obj, args)
331
21c266f7eca1 Fixed almost all list errors.
Guido van Rossum <guido@python.org>
parents: 330
diff changeset
481 void (*func)(FL_OBJECT *, float);
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
482 FL_OBJECT *obj;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
483 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
484 {
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
485 float parameter;
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 if (!PyArg_Parse(args, "f", &parameter)) return NULL;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
488
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
489 (*func) (obj, parameter);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
490
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
491 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
492 return Py_None;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
493 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
494
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
495 /* void func (object, float) */
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
496 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
497 call_forms_INfINf (func, obj, args)
331
21c266f7eca1 Fixed almost all list errors.
Guido van Rossum <guido@python.org>
parents: 330
diff changeset
498 void (*func)(FL_OBJECT *, float, float);
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
499 FL_OBJECT *obj;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
500 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
501 {
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
502 float par1, par2;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
503
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
504 if (!PyArg_Parse(args, "(ff)", &par1, &par2)) return NULL;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
505
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
506 (*func) (obj, par1, par2);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
507
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
508 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
509 return Py_None;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
510 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
511
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
512 /* void func (object, int) */
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
513 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
514 call_forms_INi (func, obj, args)
331
21c266f7eca1 Fixed almost all list errors.
Guido van Rossum <guido@python.org>
parents: 330
diff changeset
515 void (*func)(FL_OBJECT *, int);
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
516 FL_OBJECT *obj;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
517 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
518 {
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
519 int parameter;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
520
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
521 if (!PyArg_Parse(args, "i", &parameter)) return NULL;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
522
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
523 (*func) (obj, parameter);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
524
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
525 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
526 return Py_None;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
527 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
528
469
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
529 /* void func (object, char) */
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
530 static PyObject *
469
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
531 call_forms_INc (func, obj, args)
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
532 void (*func)(FL_OBJECT *, int);
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
533 FL_OBJECT *obj;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
534 PyObject *args;
469
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
535 {
635
784a09a52375 Use getargs() function.
Guido van Rossum <guido@python.org>
parents: 486
diff changeset
536 char *a;
469
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
537
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
538 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
539
635
784a09a52375 Use getargs() function.
Guido van Rossum <guido@python.org>
parents: 486
diff changeset
540 (*func) (obj, a[0]);
469
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
541
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
542 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
543 return Py_None;
469
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
544 }
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
545
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
546 /* void func (object, string) */
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
547 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
548 call_forms_INstr (func, obj, args)
331
21c266f7eca1 Fixed almost all list errors.
Guido van Rossum <guido@python.org>
parents: 330
diff changeset
549 void (*func)(FL_OBJECT *, char *);
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
550 FL_OBJECT *obj;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
551 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
552 {
635
784a09a52375 Use getargs() function.
Guido van Rossum <guido@python.org>
parents: 486
diff changeset
553 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
554
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
555 if (!PyArg_Parse(args, "s", &a)) return NULL;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
556
635
784a09a52375 Use getargs() function.
Guido van Rossum <guido@python.org>
parents: 486
diff changeset
557 (*func) (obj, a);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
558
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
559 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
560 return Py_None;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
561 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
562
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
563
1319
cd397266dc1c * Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents: 1313
diff changeset
564 /* void func (object, int, string) */
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
565 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
566 call_forms_INiINstr (func, obj, args)
331
21c266f7eca1 Fixed almost all list errors.
Guido van Rossum <guido@python.org>
parents: 330
diff changeset
567 void (*func)(FL_OBJECT *, int, char *);
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
568 FL_OBJECT *obj;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
569 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
570 {
635
784a09a52375 Use getargs() function.
Guido van Rossum <guido@python.org>
parents: 486
diff changeset
571 char *b;
784a09a52375 Use getargs() function.
Guido van Rossum <guido@python.org>
parents: 486
diff changeset
572 int a;
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
573
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
574 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
575
635
784a09a52375 Use getargs() function.
Guido van Rossum <guido@python.org>
parents: 486
diff changeset
576 (*func) (obj, a, b);
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
577
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
578 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
579 return Py_None;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
580 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
581
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
582 #ifdef UNUSED
1319
cd397266dc1c * Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents: 1313
diff changeset
583 /* void func (object, int, int) */
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
584 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
585 call_forms_INiINi (func, obj, args)
1319
cd397266dc1c * Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents: 1313
diff changeset
586 void (*func)(FL_OBJECT *, int, int);
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
587 FL_OBJECT *obj;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
588 PyObject *args;
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 int par1, par2;
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
591
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
592 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
593
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
594 (*func) (obj, par1, par2);
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
595
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
596 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
597 return Py_None;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
598 }
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
599 #endif
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
600
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
601 /* int func (object) */
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
602 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
603 call_forms_Ri (func, obj, args)
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
604 int (*func)(FL_OBJECT *);
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
605 FL_OBJECT *obj;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
606 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
607 {
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
608 int retval;
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
609
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
610 if (!PyArg_NoArgs(args)) return NULL;
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
611
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
612 retval = (*func) (obj);
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
613
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
614 return PyInt_FromLong ((long) retval);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
615 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
616
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
617 /* char * func (object) */
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
618 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
619 call_forms_Rstr (func, obj, args)
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
620 char * (*func)(FL_OBJECT *);
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
621 FL_OBJECT *obj;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
622 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
623 {
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
624 char *str;
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
625
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
626 if (!PyArg_NoArgs(args)) return NULL;
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
627
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
628 str = (*func) (obj);
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
629
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
630 if (str == NULL) {
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
631 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
632 return Py_None;
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
633 }
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
634 return PyString_FromString (str);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
635 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
636
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
637 /* int func (object) */
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
638 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
639 call_forms_Rf (func, obj, args)
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
640 float (*func)(FL_OBJECT *);
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
641 FL_OBJECT *obj;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
642 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
643 {
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
644 float retval;
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
645
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
646 if (!PyArg_NoArgs(args)) return NULL;
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
647
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
648 retval = (*func) (obj);
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
649
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
650 return PyFloat_FromDouble (retval);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
651 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
652
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
653 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
654 call_forms_OUTfOUTf (func, obj, args)
331
21c266f7eca1 Fixed almost all list errors.
Guido van Rossum <guido@python.org>
parents: 330
diff changeset
655 void (*func)(FL_OBJECT *, float *, float *);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
656 FL_OBJECT *obj;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
657 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
658 {
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
659 float f1, f2;
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
660
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
661 if (!PyArg_NoArgs(args)) return NULL;
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
662
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
663 (*func) (obj, &f1, &f2);
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 return Py_BuildValue("(ff)", f1, f2);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
666 }
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 #ifdef UNUSED
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
669 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
670 call_forms_OUTf (func, obj, args)
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
671 void (*func)(FL_OBJECT *, float *);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
672 FL_OBJECT *obj;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
673 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
674 {
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
675 float f;
328
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 if (!PyArg_NoArgs(args)) return NULL;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
678
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
679 (*func) (obj, &f);
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
680
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
681 return PyFloat_FromDouble (f);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
682 }
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
683 #endif
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
684
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
685 /**********************************************************************/
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
686 /* Class : browser */
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
687
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
688 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
689 set_browser_topline(g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
690 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
691 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
692 {
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
693 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
694 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
695
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
696 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
697 clear_browser(g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
698 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
699 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
700 {
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
701 return generic_call (g, args, fl_clear_browser);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
702 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
703
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
704 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
705 add_browser_line (g, args)
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
706 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
707 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
708 {
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
709 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
710 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
711
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
712 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
713 addto_browser (g, args)
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
714 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
715 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_INstr (fl_addto_browser, 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 *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
721 insert_browser_line (g, args)
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
722 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
723 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
724 {
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
725 return call_forms_INiINstr (fl_insert_browser_line,
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
726 g-> ob_generic, args);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
727 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
728
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
729 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
730 delete_browser_line (g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
731 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
732 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
733 {
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
734 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
735 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
736
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
737 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
738 replace_browser_line (g, args)
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
739 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
740 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
741 {
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
742 return call_forms_INiINstr (fl_replace_browser_line,
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
743 g-> ob_generic, args);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
744 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
745
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
746 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
747 get_browser_line(g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
748 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
749 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
750 {
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
751 int i;
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
752 char *str;
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
753
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
754 if (!PyArg_Parse(args, "i", &i))
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
755 return NULL;
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
756
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
757 str = fl_get_browser_line (g->ob_generic, i);
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
758
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
759 if (str == NULL) {
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
760 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
761 return Py_None;
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
762 }
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
763 return PyString_FromString (str);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
764 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
765
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
766 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
767 load_browser (g, args)
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
768 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
769 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
770 {
331
21c266f7eca1 Fixed almost all list errors.
Guido van Rossum <guido@python.org>
parents: 330
diff changeset
771 /* 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
772 XXX returns int, not void */
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
773 return call_forms_INstr (fl_load_browser, g-> ob_generic, args);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
774 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
775
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
776 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
777 get_browser_maxline(g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
778 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
779 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
780 {
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
781 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
782 }
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 *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
785 select_browser_line (g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
786 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
787 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
788 {
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
789 return call_forms_INi (fl_select_browser_line, g-> ob_generic, args);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
790 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
791
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
792 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
793 deselect_browser_line (g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
794 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
795 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
796 {
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
797 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
798 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
799
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
800 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
801 deselect_browser (g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
802 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
803 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
804 {
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
805 return generic_call (g, args, fl_deselect_browser);
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 *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
809 isselected_browser_line (g, args)
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
810 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
811 PyObject *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 int i, j;
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
814
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
815 if (!PyArg_Parse(args, "i", &i))
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
816 return NULL;
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
817
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
818 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
819
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
820 return PyInt_FromLong (j);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
821 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
822
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
823 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
824 get_browser (g, args)
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
825 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
826 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
827 {
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
828 return call_forms_Ri (fl_get_browser, g-> ob_generic, args);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
829 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
830
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
831 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
832 set_browser_fontsize (g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
833 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
834 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
835 {
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
836 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
837 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
838
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
839 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
840 set_browser_fontstyle (g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
841 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
842 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
843 {
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
844 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
845 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
846
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
847 static PyObject *
469
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
848 set_browser_specialkey (g, args)
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
849 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
850 PyObject *args;
469
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
851 {
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
852 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
853 }
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
854
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
855 static PyMethodDef browser_methods[] = {
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
856 {"set_browser_topline", (PyCFunction)set_browser_topline},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
857 {"clear_browser", (PyCFunction)clear_browser},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
858 {"add_browser_line", (PyCFunction)add_browser_line},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
859 {"addto_browser", (PyCFunction)addto_browser},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
860 {"insert_browser_line", (PyCFunction)insert_browser_line},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
861 {"delete_browser_line", (PyCFunction)delete_browser_line},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
862 {"replace_browser_line", (PyCFunction)replace_browser_line},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
863 {"get_browser_line", (PyCFunction)get_browser_line},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
864 {"load_browser", (PyCFunction)load_browser},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
865 {"get_browser_maxline", (PyCFunction)get_browser_maxline},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
866 {"select_browser_line", (PyCFunction)select_browser_line},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
867 {"deselect_browser_line", (PyCFunction)deselect_browser_line},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
868 {"deselect_browser", (PyCFunction)deselect_browser},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
869 {"isselected_browser_line", (PyCFunction)isselected_browser_line},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
870 {"get_browser", (PyCFunction)get_browser},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
871 {"set_browser_fontsize", (PyCFunction)set_browser_fontsize},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
872 {"set_browser_fontstyle", (PyCFunction)set_browser_fontstyle},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
873 {"set_browser_specialkey", (PyCFunction)set_browser_specialkey},
469
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
874 {NULL, NULL} /* sentinel */
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
875 };
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
876
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
877 /* Class: button */
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 *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
880 set_button(g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
881 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
882 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
883 {
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
884 return call_forms_INi (fl_set_button, g-> ob_generic, args);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
885 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
886
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
887 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
888 get_button(g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
889 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
890 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
891 {
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
892 return call_forms_Ri (fl_get_button, g-> ob_generic, args);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
893 }
1319
cd397266dc1c * Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents: 1313
diff changeset
894
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
895 static PyObject *
1319
cd397266dc1c * Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents: 1313
diff changeset
896 get_button_numb(g, args)
cd397266dc1c * Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents: 1313
diff changeset
897 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
898 PyObject *args;
1319
cd397266dc1c * Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents: 1313
diff changeset
899 {
cd397266dc1c * Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents: 1313
diff changeset
900 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
901 }
cd397266dc1c * Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents: 1313
diff changeset
902
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
903 static PyObject *
469
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
904 set_button_shortcut(g, args)
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
905 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
906 PyObject *args;
469
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
907 {
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
908 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
909 }
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
910
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
911 static PyMethodDef button_methods[] = {
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
912 {"set_button", (PyCFunction)set_button},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
913 {"get_button", (PyCFunction)get_button},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
914 {"get_button_numb", (PyCFunction)get_button_numb},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
915 {"set_button_shortcut", (PyCFunction)set_button_shortcut},
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
916 {NULL, NULL} /* sentinel */
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 /* Class: choice */
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
920
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
921 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
922 set_choice(g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
923 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
924 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
925 {
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
926 return call_forms_INi (fl_set_choice, g-> ob_generic, args);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
927 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
928
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
929 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
930 get_choice(g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
931 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
932 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
933 {
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
934 return call_forms_Ri (fl_get_choice, g-> ob_generic, args);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
935 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
936
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
937 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
938 clear_choice (g, args)
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
939 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
940 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
941 {
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
942 return generic_call (g, args, fl_clear_choice);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
943 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
944
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
945 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
946 addto_choice (g, args)
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
947 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
948 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
949 {
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
950 return call_forms_INstr (fl_addto_choice, g-> ob_generic, args);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
951 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
952
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
953 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
954 replace_choice (g, args)
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
955 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
956 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
957 {
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
958 return call_forms_INiINstr (fl_replace_choice, g-> ob_generic, args);
328
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
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
961 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
962 delete_choice (g, args)
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
963 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
964 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
965 {
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
966 return call_forms_INi (fl_delete_choice, 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 *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
970 get_choice_text (g, args)
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
971 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
972 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
973 {
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
974 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
975 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
976
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
977 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
978 set_choice_fontsize (g, args)
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
979 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
980 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
981 {
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
982 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
983 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
984
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
985 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
986 set_choice_fontstyle (g, args)
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
987 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
988 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
989 {
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
990 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
991 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
992
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
993 static PyMethodDef choice_methods[] = {
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
994 {"set_choice", (PyCFunction)set_choice},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
995 {"get_choice", (PyCFunction)get_choice},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
996 {"clear_choice", (PyCFunction)clear_choice},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
997 {"addto_choice", (PyCFunction)addto_choice},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
998 {"replace_choice", (PyCFunction)replace_choice},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
999 {"delete_choice", (PyCFunction)delete_choice},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1000 {"get_choice_text", (PyCFunction)get_choice_text},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1001 {"set_choice_fontsize", (PyCFunction)set_choice_fontsize},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1002 {"set_choice_fontstyle",(PyCFunction)set_choice_fontstyle},
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1003 {NULL, NULL} /* sentinel */
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1004 };
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1005
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1006 /* Class : Clock */
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1007
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1008 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1009 get_clock(g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1010 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1011 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1012 {
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1013 int i0, i1, i2;
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1014
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1015 if (!PyArg_NoArgs(args))
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1016 return NULL;
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1017
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1018 fl_get_clock (g->ob_generic, &i0, &i1, &i2);
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1019
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1020 return Py_BuildValue("(iii)", i0, i1, i2);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1021 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1022
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1023 static PyMethodDef clock_methods[] = {
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1024 {"get_clock", (PyCFunction)get_clock},
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1025 {NULL, NULL} /* sentinel */
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1026 };
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1027
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1028 /* CLass : Counters */
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1029
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1030 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1031 get_counter_value(g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1032 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1033 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1034 {
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1035 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
1036 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1037
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1038 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1039 set_counter_value (g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1040 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1041 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1042 {
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1043 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
1044 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1045
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1046 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1047 set_counter_precision (g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1048 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1049 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1050 {
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1051 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
1052 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1053
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1054 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1055 set_counter_bounds (g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1056 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1057 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1058 {
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1059 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
1060 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1061
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1062 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1063 set_counter_step (g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1064 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1065 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1066 {
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1067 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
1068 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1069
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1070 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1071 set_counter_return (g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1072 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1073 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1074 {
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
1075 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
1076 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1077
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1078 static PyMethodDef counter_methods[] = {
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1079 {"set_counter_value", (PyCFunction)set_counter_value},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1080 {"get_counter_value", (PyCFunction)get_counter_value},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1081 {"set_counter_bounds", (PyCFunction)set_counter_bounds},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1082 {"set_counter_step", (PyCFunction)set_counter_step},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1083 {"set_counter_precision", (PyCFunction)set_counter_precision},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1084 {"set_counter_return", (PyCFunction)set_counter_return},
469
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
1085 {NULL, NULL} /* sentinel */
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1086 };
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1087
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1088
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1089 /* Class: Dials */
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1090
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1091 static PyObject *
469
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
1092 get_dial_value(g, args)
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1093 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1094 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1095 {
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1096 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
1097 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1098
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1099 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1100 set_dial_value (g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1101 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1102 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1103 {
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1104 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
1105 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1106
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1107 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1108 set_dial_bounds (g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1109 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1110 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_INfINf (fl_set_dial_bounds, 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 *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1116 get_dial_bounds (g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1117 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1118 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1119 {
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1120 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
1121 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1122
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1123 static PyObject *
469
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
1124 set_dial_step (g, args)
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
1125 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1126 PyObject *args;
469
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
1127 {
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1128 return call_forms_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
1129 }
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
1130
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1131 static PyMethodDef dial_methods[] = {
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1132 {"set_dial_value", (PyCFunction)set_dial_value},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1133 {"get_dial_value", (PyCFunction)get_dial_value},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1134 {"set_dial_bounds", (PyCFunction)set_dial_bounds},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1135 {"get_dial_bounds", (PyCFunction)get_dial_bounds},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1136 {"set_dial_step", (PyCFunction)set_dial_step},
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1137 {NULL, NULL} /* sentinel */
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1138 };
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 /* Class : Input */
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1141
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1142 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1143 set_input (g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1144 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1145 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1146 {
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1147 return call_forms_INstr (fl_set_input, g-> ob_generic, args);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1148 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1149
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1150 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1151 get_input (g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1152 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1153 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1154 {
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1155 return call_forms_Rstr (fl_get_input, g-> ob_generic, args);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1156 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1157
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1158 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1159 set_input_color (g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1160 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1161 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1162 {
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1163 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
1164 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1165
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1166 static PyObject *
469
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
1167 set_input_return (g, args)
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
1168 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1169 PyObject *args;
469
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
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_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
1172 }
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
1173
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1174 static PyMethodDef input_methods[] = {
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1175 {"set_input", (PyCFunction)set_input},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1176 {"get_input", (PyCFunction)get_input},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1177 {"set_input_color", (PyCFunction)set_input_color},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1178 {"set_input_return", (PyCFunction)set_input_return},
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1179 {NULL, NULL} /* sentinel */
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1180 };
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
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1183 /* Class : Menu */
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1184
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1185 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1186 set_menu (g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1187 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1188 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1189 {
331
21c266f7eca1 Fixed almost all list errors.
Guido van Rossum <guido@python.org>
parents: 330
diff changeset
1190 return call_forms_INstr (fl_set_menu, g-> ob_generic, args);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1191 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1192
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1193 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1194 get_menu (g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1195 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1196 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1197 {
331
21c266f7eca1 Fixed almost all list errors.
Guido van Rossum <guido@python.org>
parents: 330
diff changeset
1198 /* 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
1199 XXX returns long, not int */
21c266f7eca1 Fixed almost all list errors.
Guido van Rossum <guido@python.org>
parents: 330
diff changeset
1200 return call_forms_Ri (fl_get_menu, g-> ob_generic, args);
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 *
1262
f820e6917f07 Changes to speed up local variables enormously, by avoiding dictionary
Guido van Rossum <guido@python.org>
parents: 1252
diff changeset
1204 get_menu_text (g, args)
f820e6917f07 Changes to speed up local variables enormously, by avoiding dictionary
Guido van Rossum <guido@python.org>
parents: 1252
diff changeset
1205 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1206 PyObject *args;
1262
f820e6917f07 Changes to speed up local variables enormously, by avoiding dictionary
Guido van Rossum <guido@python.org>
parents: 1252
diff changeset
1207 {
f820e6917f07 Changes to speed up local variables enormously, by avoiding dictionary
Guido van Rossum <guido@python.org>
parents: 1252
diff changeset
1208 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
1209 }
f820e6917f07 Changes to speed up local variables enormously, by avoiding dictionary
Guido van Rossum <guido@python.org>
parents: 1252
diff changeset
1210
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1211 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1212 addto_menu (g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1213 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1214 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1215 {
331
21c266f7eca1 Fixed almost all list errors.
Guido van Rossum <guido@python.org>
parents: 330
diff changeset
1216 return call_forms_INstr (fl_addto_menu, g-> ob_generic, args);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1217 }
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 static PyMethodDef menu_methods[] = {
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1220 {"set_menu", (PyCFunction)set_menu},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1221 {"get_menu", (PyCFunction)get_menu},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1222 {"get_menu_text", (PyCFunction)get_menu_text},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1223 {"addto_menu", (PyCFunction)addto_menu},
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1224 {NULL, NULL} /* sentinel */
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
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1227
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1228 /* Class: Sliders */
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1229
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1230 static PyObject *
469
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
1231 get_slider_value(g, args)
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1232 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1233 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1234 {
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1235 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
1236 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1237
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1238 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1239 set_slider_value (g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1240 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1241 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1242 {
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1243 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
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 *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1247 set_slider_bounds (g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1248 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1249 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1250 {
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1251 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
1252 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1253
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1254 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1255 get_slider_bounds (g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1256 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1257 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1258 {
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1259 return call_forms_OUTfOUTf(fl_get_slider_bounds, g-> ob_generic, args);
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1260 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1261
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1262 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1263 set_slider_return (g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1264 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1265 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1266 {
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1267 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
1268 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1269
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1270 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1271 set_slider_size (g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1272 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1273 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1274 {
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1275 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
1276 }
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 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1279 set_slider_precision (g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1280 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1281 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1282 {
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1283 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
1284 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1285
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1286 static PyObject *
469
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
1287 set_slider_step (g, args)
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
1288 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1289 PyObject *args;
469
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
1290 {
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1291 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
1292 }
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
1293
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
1294
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1295 static PyMethodDef slider_methods[] = {
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1296 {"set_slider_value", (PyCFunction)set_slider_value},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1297 {"get_slider_value", (PyCFunction)get_slider_value},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1298 {"set_slider_bounds", (PyCFunction)set_slider_bounds},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1299 {"get_slider_bounds", (PyCFunction)get_slider_bounds},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1300 {"set_slider_return", (PyCFunction)set_slider_return},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1301 {"set_slider_size", (PyCFunction)set_slider_size},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1302 {"set_slider_precision",(PyCFunction)set_slider_precision},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1303 {"set_slider_step", (PyCFunction)set_slider_step},
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1304 {NULL, NULL} /* sentinel */
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 *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1308 set_positioner_xvalue (g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1309 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1310 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1311 {
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1312 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
1313 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1314
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1315 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1316 set_positioner_xbounds (g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1317 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1318 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1319 {
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1320 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
1321 g-> ob_generic, args);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1322 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1323
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1324 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1325 set_positioner_yvalue (g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1326 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1327 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1328 {
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1329 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
1330 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1331
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1332 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1333 set_positioner_ybounds (g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1334 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1335 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1336 {
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1337 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
1338 g-> ob_generic, 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
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1341 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1342 get_positioner_xvalue (g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1343 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1344 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1345 {
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1346 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
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 *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1350 get_positioner_xbounds (g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1351 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1352 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1353 {
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1354 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
1355 g-> ob_generic, args);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1356 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1357
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1358 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1359 get_positioner_yvalue (g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1360 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1361 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1362 {
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1363 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
1364 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1365
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1366 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1367 get_positioner_ybounds (g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1368 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1369 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1370 {
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1371 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
1372 g-> ob_generic, args);
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 PyMethodDef positioner_methods[] = {
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1376 {"set_positioner_xvalue", (PyCFunction)set_positioner_xvalue},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1377 {"set_positioner_yvalue", (PyCFunction)set_positioner_yvalue},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1378 {"set_positioner_xbounds", (PyCFunction)set_positioner_xbounds},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1379 {"set_positioner_ybounds", (PyCFunction)set_positioner_ybounds},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1380 {"get_positioner_xvalue", (PyCFunction)get_positioner_xvalue},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1381 {"get_positioner_yvalue", (PyCFunction)get_positioner_yvalue},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1382 {"get_positioner_xbounds", (PyCFunction)get_positioner_xbounds},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1383 {"get_positioner_ybounds", (PyCFunction)get_positioner_ybounds},
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1384 {NULL, NULL} /* sentinel */
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1385 };
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 /* Class timer */
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1388
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1389 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1390 set_timer (g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1391 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1392 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1393 {
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1394 return call_forms_INf (fl_set_timer, g-> ob_generic, args);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1395 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1396
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1397 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1398 get_timer (g, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1399 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1400 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1401 {
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1402 return call_forms_Rf (fl_get_timer, g-> ob_generic, args);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1403 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1404
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1405 static PyMethodDef timer_methods[] = {
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1406 {"set_timer", (PyCFunction)set_timer},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1407 {"get_timer", (PyCFunction)get_timer},
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1408 {NULL, NULL} /* sentinel */
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1409 };
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 /* Form objects */
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1412
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1413 typedef struct {
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1414 PyObject_HEAD
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1415 FL_FORM *ob_form;
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1416 } formobject;
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 staticforward PyTypeObject Formtype;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1419
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1420 #define is_formobject(v) ((v)->ob_type == &Formtype)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1421
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1422 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1423 form_show_form(f, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1424 formobject *f;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1425 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1426 {
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1427 int place, border;
635
784a09a52375 Use getargs() function.
Guido van Rossum <guido@python.org>
parents: 486
diff changeset
1428 char *name;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1429 if (!PyArg_Parse(args, "(iis)", &place, &border, &name))
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1430 return NULL;
635
784a09a52375 Use getargs() function.
Guido van Rossum <guido@python.org>
parents: 486
diff changeset
1431 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
1432 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1433 return Py_None;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1434 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1435
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1436 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1437 form_call(func, f, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1438 FL_FORM *f;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1439 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1440 void (*func)(FL_FORM *);
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1441 {
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1442 if (!PyArg_NoArgs(args)) return NULL;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1443
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1444 (*func)(f);
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1445
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1446 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1447 return Py_None;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1448 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1449
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1450 static PyObject *
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1451 form_call_INiINi(func, f, args)
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1452 FL_FORM *f;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1453 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1454 void (*func)(FL_FORM *, int, int);
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1455 {
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1456 int a, b;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1457
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1458 if (!PyArg_Parse(args, "(ii)", &a, &b)) return NULL;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1459
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1460 (*func)(f, a, b);
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1461
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1462 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1463 return Py_None;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1464 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1465
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1466 static PyObject *
1319
cd397266dc1c * Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents: 1313
diff changeset
1467 form_call_INfINf(func, f, args)
cd397266dc1c * Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents: 1313
diff changeset
1468 FL_FORM *f;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1469 PyObject *args;
1319
cd397266dc1c * Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents: 1313
diff changeset
1470 void (*func)(FL_FORM *, float, float);
cd397266dc1c * Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents: 1313
diff changeset
1471 {
cd397266dc1c * Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents: 1313
diff changeset
1472 float a, b;
cd397266dc1c * Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents: 1313
diff changeset
1473
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1474 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
1475
cd397266dc1c * Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents: 1313
diff changeset
1476 (*func)(f, a, b);
cd397266dc1c * Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents: 1313
diff changeset
1477
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1478 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1479 return Py_None;
1319
cd397266dc1c * Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents: 1313
diff changeset
1480 }
cd397266dc1c * Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents: 1313
diff changeset
1481
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1482 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1483 form_hide_form(f, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1484 formobject *f;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1485 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1486 {
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1487 return form_call(fl_hide_form, f-> ob_form, args);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1488 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1489
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1490 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1491 form_redraw_form(f, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1492 formobject *f;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1493 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
1494 {
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1495 return form_call(fl_redraw_form, f-> ob_form, args);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1496 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1497
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1498 static PyObject *
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1499 form_set_form_position(f, args)
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1500 formobject *f;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1501 PyObject *args;
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1502 {
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1503 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
1504 }
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1505
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1506 static PyObject *
1319
cd397266dc1c * Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents: 1313
diff changeset
1507 form_set_form_size(f, args)
cd397266dc1c * Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents: 1313
diff changeset
1508 formobject *f;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1509 PyObject *args;
1319
cd397266dc1c * Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents: 1313
diff changeset
1510 {
cd397266dc1c * Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents: 1313
diff changeset
1511 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
1512 }
cd397266dc1c * Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents: 1313
diff changeset
1513
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1514 static PyObject *
1319
cd397266dc1c * Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents: 1313
diff changeset
1515 form_scale_form(f, args)
cd397266dc1c * Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents: 1313
diff changeset
1516 formobject *f;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1517 PyObject *args;
1319
cd397266dc1c * Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents: 1313
diff changeset
1518 {
cd397266dc1c * Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents: 1313
diff changeset
1519 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
1520 }
cd397266dc1c * Makefile: added all: and default: targets.
Guido van Rossum <guido@python.org>
parents: 1313
diff changeset
1521
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1522 static PyObject *
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1523 generic_add_object(f, args, func, internal_methods)
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1524 formobject *f;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1525 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1526 FL_OBJECT *(*func)(int, float, float, float, float, char*);
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1527 PyMethodDef *internal_methods;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1528 {
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1529 int type;
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1530 float x, y, w, h;
635
784a09a52375 Use getargs() function.
Guido van Rossum <guido@python.org>
parents: 486
diff changeset
1531 char *name;
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1532 FL_OBJECT *obj;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1533
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1534 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
1535 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
1536
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1537 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
1538
635
784a09a52375 Use getargs() function.
Guido van Rossum <guido@python.org>
parents: 486
diff changeset
1539 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
1540
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1541 fl_end_form();
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1542
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1543 if (obj == NULL) {
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1544 PyErr_NoMemory();
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1545 return NULL;
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1546 }
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1547
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1548 return newgenericobject (obj, internal_methods);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1549 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1550
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1551 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1552 form_add_button(f, args)
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1553 formobject *f;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1554 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1555 {
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1556 return generic_add_object(f, args, fl_add_button, button_methods);
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1557 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1558
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1559 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1560 form_add_lightbutton(f, args)
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1561 formobject *f;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1562 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1563 {
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1564 return generic_add_object(f, args, fl_add_lightbutton, button_methods);
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1565 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1566
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1567 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1568 form_add_roundbutton(f, args)
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1569 formobject *f;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1570 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1571 {
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1572 return generic_add_object(f, args, fl_add_roundbutton, button_methods);
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1573 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1574
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1575 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1576 form_add_menu (f, args)
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1577 formobject *f;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1578 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1579 {
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1580 return generic_add_object(f, args, fl_add_menu, menu_methods);
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1581 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1582
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1583 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1584 form_add_slider(f, args)
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1585 formobject *f;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1586 PyObject *args;
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 return generic_add_object(f, args, fl_add_slider, slider_methods);
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1589 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1590
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1591 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1592 form_add_valslider(f, args)
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1593 formobject *f;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1594 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1595 {
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1596 return generic_add_object(f, args, fl_add_valslider, slider_methods);
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1597 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1598
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1599 static PyObject *
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1600 form_add_dial(f, args)
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1601 formobject *f;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1602 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1603 {
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1604 return generic_add_object(f, args, fl_add_dial, dial_methods);
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1605 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1606
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1607 static PyObject *
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1608 form_add_counter(f, args)
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1609 formobject *f;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1610 PyObject *args;
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 return generic_add_object(f, args, fl_add_counter, counter_methods);
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1613 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1614
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1615 static PyObject *
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1616 form_add_clock(f, args)
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1617 formobject *f;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1618 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1619 {
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1620 return generic_add_object(f, args, fl_add_clock, clock_methods);
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1621 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1622
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1623 static PyObject *
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1624 form_add_box(f, args)
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1625 formobject *f;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1626 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1627 {
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
1628 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
1629 (PyMethodDef *)NULL);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1630 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1631
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1632 static PyObject *
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1633 form_add_choice(f, args)
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1634 formobject *f;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1635 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1636 {
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1637 return generic_add_object(f, args, fl_add_choice, choice_methods);
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1638 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1639
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1640 static PyObject *
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1641 form_add_browser(f, args)
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1642 formobject *f;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1643 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1644 {
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1645 return generic_add_object(f, args, fl_add_browser, browser_methods);
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1646 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1647
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1648 static PyObject *
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1649 form_add_positioner(f, args)
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1650 formobject *f;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1651 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1652 {
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1653 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
1654 positioner_methods);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1655 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1656
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1657 static PyObject *
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1658 form_add_input(f, args)
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1659 formobject *f;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1660 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1661 {
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1662 return generic_add_object(f, args, fl_add_input, input_methods);
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1663 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1664
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1665 static PyObject *
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1666 form_add_text(f, args)
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1667 formobject *f;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1668 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1669 {
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
1670 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
1671 (PyMethodDef *)NULL);
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 *
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1675 form_add_timer(f, args)
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1676 formobject *f;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1677 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1678 {
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1679 return generic_add_object(f, args, fl_add_timer, timer_methods);
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1680 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1681
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1682 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1683 form_freeze_form(f, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1684 formobject *f;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1685 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1686 {
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1687 return form_call(fl_freeze_form, f-> ob_form, args);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1688 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1689
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1690 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1691 form_unfreeze_form(f, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1692 formobject *f;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1693 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1694 {
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1695 return form_call(fl_unfreeze_form, f-> ob_form, args);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1696 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1697
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1698 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1699 form_activate_form(f, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1700 formobject *f;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1701 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1702 {
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1703 return form_call(fl_activate_form, f-> ob_form, args);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1704 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1705
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1706 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1707 form_deactivate_form(f, args)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1708 formobject *f;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1709 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1710 {
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1711 return form_call(fl_deactivate_form, f-> ob_form, args);
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
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1714 static PyObject *
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1715 form_bgn_group(f, args)
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
1716 formobject *f;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1717 PyObject *args;
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
1718 {
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1719 FL_OBJECT *obj;
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1720
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1721 fl_addto_form(f-> ob_form);
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1722 obj = fl_bgn_group();
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1723 fl_end_form();
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1724
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1725 if (obj == NULL) {
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1726 PyErr_NoMemory();
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1727 return NULL;
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1728 }
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1729
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1730 return newgenericobject (obj, (PyMethodDef *) NULL);
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1731 }
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1732
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1733 static PyObject *
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1734 form_end_group(f, args)
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1735 formobject *f;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1736 PyObject *args;
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1737 {
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1738 fl_addto_form(f-> ob_form);
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1739 fl_end_group();
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1740 fl_end_form();
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1741 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1742 return Py_None;
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
1743 }
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
1744
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1745 static PyObject *
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1746 forms_find_first_or_last(func, f, args)
329
f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents: 328
diff changeset
1747 FL_OBJECT *(*func)(FL_FORM *, int, float, float);
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
1748 formobject *f;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1749 PyObject *args;
329
f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents: 328
diff changeset
1750 {
f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents: 328
diff changeset
1751 int type;
f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents: 328
diff changeset
1752 float mx, my;
f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents: 328
diff changeset
1753 FL_OBJECT *generic;
f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents: 328
diff changeset
1754 genericobject *g;
f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents: 328
diff changeset
1755
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1756 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
1757
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
1758 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
1759
f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents: 328
diff changeset
1760 if (generic == NULL)
f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents: 328
diff changeset
1761 {
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1762 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1763 return Py_None;
329
f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents: 328
diff changeset
1764 }
f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents: 328
diff changeset
1765
f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents: 328
diff changeset
1766 g = findgeneric(generic);
f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents: 328
diff changeset
1767 if (g == NULL) {
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1768 PyErr_SetString(PyExc_RuntimeError,
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1769 "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
1770 return NULL;
f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents: 328
diff changeset
1771 }
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1772 Py_INCREF(g);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1773 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
1774 }
f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents: 328
diff changeset
1775
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1776 static PyObject *
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1777 form_find_first(f, args)
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
1778 formobject *f;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1779 PyObject *args;
329
f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents: 328
diff changeset
1780 {
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1781 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
1782 }
f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents: 328
diff changeset
1783
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1784 static PyObject *
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1785 form_find_last(f, args)
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
1786 formobject *f;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1787 PyObject *args;
329
f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents: 328
diff changeset
1788 {
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1789 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
1790 }
f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents: 328
diff changeset
1791
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1792 static PyObject *
1051
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents: 1020
diff changeset
1793 form_set_object_focus(f, args)
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents: 1020
diff changeset
1794 formobject *f;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1795 PyObject *args;
1051
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents: 1020
diff changeset
1796 {
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents: 1020
diff changeset
1797 genericobject *g;
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents: 1020
diff changeset
1798 if (args == NULL || !is_genericobject(args)) {
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1799 PyErr_BadArgument();
1051
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents: 1020
diff changeset
1800 return NULL;
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 g = (genericobject *)args;
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents: 1020
diff changeset
1803 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
1804 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1805 return Py_None;
1051
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents: 1020
diff changeset
1806 }
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents: 1020
diff changeset
1807
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1808 static PyMethodDef form_methods[] = {
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1809 /* adm */
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1810 {"show_form", (PyCFunction)form_show_form},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1811 {"hide_form", (PyCFunction)form_hide_form},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1812 {"redraw_form", (PyCFunction)form_redraw_form},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1813 {"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
1814 {"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
1815 {"scale_form", (PyCFunction)form_scale_form},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1816 {"freeze_form", (PyCFunction)form_freeze_form},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1817 {"unfreeze_form", (PyCFunction)form_unfreeze_form},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1818 {"activate_form", (PyCFunction)form_activate_form},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1819 {"deactivate_form", (PyCFunction)form_deactivate_form},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1820 {"bgn_group", (PyCFunction)form_bgn_group},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1821 {"end_group", (PyCFunction)form_end_group},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1822 {"find_first", (PyCFunction)form_find_first},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1823 {"find_last", (PyCFunction)form_find_last},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1824 {"set_object_focus", (PyCFunction)form_set_object_focus},
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1825
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1826 /* basic objects */
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1827 {"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
1828 /* {"add_bitmap", (method)form_add_bitmap}, */
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1829 {"add_lightbutton", (PyCFunction)form_add_lightbutton},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1830 {"add_roundbutton", (PyCFunction)form_add_roundbutton},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1831 {"add_menu", (PyCFunction)form_add_menu},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1832 {"add_slider", (PyCFunction)form_add_slider},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1833 {"add_positioner", (PyCFunction)form_add_positioner},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1834 {"add_valslider", (PyCFunction)form_add_valslider},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1835 {"add_dial", (PyCFunction)form_add_dial},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1836 {"add_counter", (PyCFunction)form_add_counter},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1837 {"add_box", (PyCFunction)form_add_box},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1838 {"add_clock", (PyCFunction)form_add_clock},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1839 {"add_choice", (PyCFunction)form_add_choice},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1840 {"add_browser", (PyCFunction)form_add_browser},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1841 {"add_input", (PyCFunction)form_add_input},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1842 {"add_timer", (PyCFunction)form_add_timer},
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1843 {"add_text", (PyCFunction)form_add_text},
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1844 {NULL, NULL} /* sentinel */
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1845 };
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1846
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1847 static void
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1848 form_dealloc(f)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1849 formobject *f;
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1850 {
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1851 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
1852 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
1853 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
1854 fl_free_form(f->ob_form);
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1855 PyMem_DEL(f);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1856 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1857
442
17f4cdf28959 Fixed duplicate use of OFF macro.
Guido van Rossum <guido@python.org>
parents: 437
diff changeset
1858 #define OFF(x) offsetof(FL_FORM, x)
17f4cdf28959 Fixed duplicate use of OFF macro.
Guido van Rossum <guido@python.org>
parents: 437
diff changeset
1859
437
402a59ad2493 Finally added form attributes.
Guido van Rossum <guido@python.org>
parents: 392
diff changeset
1860 static struct memberlist form_memberlist[] = {
402a59ad2493 Finally added form attributes.
Guido van Rossum <guido@python.org>
parents: 392
diff changeset
1861 {"window", T_LONG, OFF(window), RO},
402a59ad2493 Finally added form attributes.
Guido van Rossum <guido@python.org>
parents: 392
diff changeset
1862 {"w", T_FLOAT, OFF(w)},
402a59ad2493 Finally added form attributes.
Guido van Rossum <guido@python.org>
parents: 392
diff changeset
1863 {"h", T_FLOAT, OFF(h)},
1051
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents: 1020
diff changeset
1864 {"x", T_FLOAT, OFF(x), RO},
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents: 1020
diff changeset
1865 {"y", T_FLOAT, OFF(y), RO},
437
402a59ad2493 Finally added form attributes.
Guido van Rossum <guido@python.org>
parents: 392
diff changeset
1866 {"deactivated", T_INT, OFF(deactivated)},
1051
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents: 1020
diff changeset
1867 {"visible", T_INT, OFF(visible), RO},
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents: 1020
diff changeset
1868 {"frozen", T_INT, OFF(frozen), RO},
437
402a59ad2493 Finally added form attributes.
Guido van Rossum <guido@python.org>
parents: 392
diff changeset
1869 {"doublebuf", T_INT, OFF(doublebuf)},
402a59ad2493 Finally added form attributes.
Guido van Rossum <guido@python.org>
parents: 392
diff changeset
1870 {NULL} /* Sentinel */
402a59ad2493 Finally added form attributes.
Guido van Rossum <guido@python.org>
parents: 392
diff changeset
1871 };
402a59ad2493 Finally added form attributes.
Guido van Rossum <guido@python.org>
parents: 392
diff changeset
1872
442
17f4cdf28959 Fixed duplicate use of OFF macro.
Guido van Rossum <guido@python.org>
parents: 437
diff changeset
1873 #undef OFF
17f4cdf28959 Fixed duplicate use of OFF macro.
Guido van Rossum <guido@python.org>
parents: 437
diff changeset
1874
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1875 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1876 form_getattr(f, name)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1877 formobject *f;
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1878 char *name;
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1879 {
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1880 PyObject *meth;
437
402a59ad2493 Finally added form attributes.
Guido van Rossum <guido@python.org>
parents: 392
diff changeset
1881
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1882 meth = Py_FindMethod(form_methods, (PyObject *)f, name);
437
402a59ad2493 Finally added form attributes.
Guido van Rossum <guido@python.org>
parents: 392
diff changeset
1883 if (meth != NULL)
402a59ad2493 Finally added form attributes.
Guido van Rossum <guido@python.org>
parents: 392
diff changeset
1884 return meth;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1885 PyErr_Clear();
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1886 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
1887 }
402a59ad2493 Finally added form attributes.
Guido van Rossum <guido@python.org>
parents: 392
diff changeset
1888
402a59ad2493 Finally added form attributes.
Guido van Rossum <guido@python.org>
parents: 392
diff changeset
1889 static int
402a59ad2493 Finally added form attributes.
Guido van Rossum <guido@python.org>
parents: 392
diff changeset
1890 form_setattr(f, name, v)
402a59ad2493 Finally added form attributes.
Guido van Rossum <guido@python.org>
parents: 392
diff changeset
1891 formobject *f;
402a59ad2493 Finally added form attributes.
Guido van Rossum <guido@python.org>
parents: 392
diff changeset
1892 char *name;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1893 PyObject *v;
437
402a59ad2493 Finally added form attributes.
Guido van Rossum <guido@python.org>
parents: 392
diff changeset
1894 {
402a59ad2493 Finally added form attributes.
Guido van Rossum <guido@python.org>
parents: 392
diff changeset
1895 if (v == NULL) {
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1896 PyErr_SetString(PyExc_TypeError,
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1897 "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
1898 return -1;
437
402a59ad2493 Finally added form attributes.
Guido van Rossum <guido@python.org>
parents: 392
diff changeset
1899 }
402a59ad2493 Finally added form attributes.
Guido van Rossum <guido@python.org>
parents: 392
diff changeset
1900
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1901 return PyMember_Set((char *)f->ob_form, form_memberlist, name, v);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1902 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1903
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1904 static PyObject *
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1905 form_repr(f)
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1906 formobject *f;
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1907 {
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1908 char buf[100];
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1909 sprintf(buf, "<FORMS_form at %lx, window=%ld>",
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1910 (long)f, f->ob_form->window);
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1911 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
1912 }
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
1913
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1914 static PyTypeObject Formtype = {
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1915 PyObject_HEAD_INIT(&PyType_Type)
1746
1940892d2fe3 Merge alpha100 branch back to main trunk
Guido van Rossum <guido@python.org>
parents: 1482
diff changeset
1916 0, /*ob_size*/
1940892d2fe3 Merge alpha100 branch back to main trunk
Guido van Rossum <guido@python.org>
parents: 1482
diff changeset
1917 "FORMS_form", /*tp_name*/
1940892d2fe3 Merge alpha100 branch back to main trunk
Guido van Rossum <guido@python.org>
parents: 1482
diff changeset
1918 sizeof(formobject), /*tp_size*/
1940892d2fe3 Merge alpha100 branch back to main trunk
Guido van Rossum <guido@python.org>
parents: 1482
diff changeset
1919 0, /*tp_itemsize*/
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1920 /* methods */
1746
1940892d2fe3 Merge alpha100 branch back to main trunk
Guido van Rossum <guido@python.org>
parents: 1482
diff changeset
1921 (destructor)form_dealloc, /*tp_dealloc*/
1940892d2fe3 Merge alpha100 branch back to main trunk
Guido van Rossum <guido@python.org>
parents: 1482
diff changeset
1922 0, /*tp_print*/
1940892d2fe3 Merge alpha100 branch back to main trunk
Guido van Rossum <guido@python.org>
parents: 1482
diff changeset
1923 (getattrfunc)form_getattr, /*tp_getattr*/
1940892d2fe3 Merge alpha100 branch back to main trunk
Guido van Rossum <guido@python.org>
parents: 1482
diff changeset
1924 (setattrfunc)form_setattr, /*tp_setattr*/
1940892d2fe3 Merge alpha100 branch back to main trunk
Guido van Rossum <guido@python.org>
parents: 1482
diff changeset
1925 0, /*tp_compare*/
1940892d2fe3 Merge alpha100 branch back to main trunk
Guido van Rossum <guido@python.org>
parents: 1482
diff changeset
1926 (reprfunc)form_repr, /*tp_repr*/
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1927 };
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1928
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1929 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1930 newformobject(form)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1931 FL_FORM *form;
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1932 {
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1933 formobject *f;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1934 f = PyObject_NEW(formobject, &Formtype);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1935 if (f == NULL)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1936 return NULL;
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1937 f->ob_form = form;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1938 return (PyObject *)f;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1939 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1940
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1941
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1942 /* The "fl" module */
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
1943
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1944 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1945 forms_make_form(dummy, args)
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1946 PyObject *dummy;
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1947 PyObject *args;
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 int type;
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1950 float w, h;
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1951 FL_FORM *form;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1952 if (!PyArg_Parse(args, "(iff)", &type, &w, &h))
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1953 return NULL;
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1954 form = fl_bgn_form(type, w, h);
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1955 if (form == NULL) {
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1956 /* XXX Actually, cannot happen! */
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1957 PyErr_NoMemory();
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1958 return NULL;
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1959 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1960 fl_end_form();
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1961 return newformobject(form);
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1962 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1963
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1964 static PyObject *
726
e8c6fa9118eb Added forms_(de)activate_all_forms functions; minor lay-out fixes.
Guido van Rossum <guido@python.org>
parents: 714
diff changeset
1965 forms_activate_all_forms(f, args)
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1966 PyObject *f;
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1967 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
1968 {
e8c6fa9118eb Added forms_(de)activate_all_forms functions; minor lay-out fixes.
Guido van Rossum <guido@python.org>
parents: 714
diff changeset
1969 fl_activate_all_forms();
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1970 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1971 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
1972 }
e8c6fa9118eb Added forms_(de)activate_all_forms functions; minor lay-out fixes.
Guido van Rossum <guido@python.org>
parents: 714
diff changeset
1973
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1974 static PyObject *
726
e8c6fa9118eb Added forms_(de)activate_all_forms functions; minor lay-out fixes.
Guido van Rossum <guido@python.org>
parents: 714
diff changeset
1975 forms_deactivate_all_forms(f, args)
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1976 PyObject *f;
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1977 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
1978 {
e8c6fa9118eb Added forms_(de)activate_all_forms functions; minor lay-out fixes.
Guido van Rossum <guido@python.org>
parents: 714
diff changeset
1979 fl_deactivate_all_forms();
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1980 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1981 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
1982 }
e8c6fa9118eb Added forms_(de)activate_all_forms functions; minor lay-out fixes.
Guido van Rossum <guido@python.org>
parents: 714
diff changeset
1983
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1984 static PyObject *my_event_callback = NULL;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1985
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1986 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1987 forms_set_event_call_back(dummy, args)
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1988 PyObject *dummy;
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1989 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1990 {
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1991 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
1992 args = NULL;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1993 my_event_callback = args;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1994 Py_XINCREF(args);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1995 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1996 return Py_None;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1997 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
1998
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
1999 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2000 forms_do_or_check_forms(dummy, args, func)
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2001 PyObject *dummy;
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2002 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2003 FL_OBJECT *(*func)();
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2004 {
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2005 FL_OBJECT *generic;
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2006 genericobject *g;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2007 PyObject *arg, *res;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2008
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2009 if (!PyArg_NoArgs(args))
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2010 return NULL;
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2011
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2012 for (;;) {
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2013 Py_BEGIN_ALLOW_THREADS
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2014 generic = (*func)();
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2015 Py_END_ALLOW_THREADS
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2016 if (generic == NULL) {
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2017 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2018 return Py_None;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2019 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2020 if (generic == FL_EVENT) {
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2021 int dev;
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2022 short val;
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2023 if (my_event_callback == NULL)
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2024 return PyInt_FromLong(-1L);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2025 dev = fl_qread(&val);
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2026 arg = Py_BuildValue("(ih)", dev, val);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2027 if (arg == NULL)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2028 return NULL;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2029 res = PyEval_CallObject(my_event_callback, arg);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2030 Py_XDECREF(res);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2031 Py_DECREF(arg);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2032 if (res == NULL)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2033 return NULL; /* Callback raised exception */
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2034 continue;
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2035 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2036 g = findgeneric(generic);
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2037 if (g == NULL) {
1079
e4c6a0dd5c2b * bltinmodule.c: added built-in function cmp(a, b)
Guido van Rossum <guido@python.org>
parents: 1051
diff changeset
2038 /* 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
2039 continue; /* Ignore it */
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2040 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2041 if (g->ob_callback == NULL) {
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2042 Py_INCREF(g);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2043 return ((PyObject *) g);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2044 }
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2045 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
2046 if (arg == NULL)
c4cd0d9d8281 * Changed many files to use mkvalue() instead of newtupleobject().
Guido van Rossum <guido@python.org>
parents: 1079
diff changeset
2047 return NULL;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2048 res = PyEval_CallObject(g->ob_callback, arg);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2049 Py_XDECREF(res);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2050 Py_DECREF(arg);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2051 if (res == NULL)
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2052 return NULL; /* Callback raised exception */
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2053 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2054 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2055
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2056 static PyObject *
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
2057 forms_do_forms(dummy, args)
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2058 PyObject *dummy;
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2059 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2060 {
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
2061 return forms_do_or_check_forms(dummy, args, fl_do_forms);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2062 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2063
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2064 static PyObject *
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
2065 forms_check_forms(dummy, args)
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2066 PyObject *dummy;
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2067 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2068 {
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
2069 return forms_do_or_check_forms(dummy, args, fl_check_forms);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2070 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2071
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2072 static PyObject *
1051
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents: 1020
diff changeset
2073 forms_do_only_forms(dummy, args)
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2074 PyObject *dummy;
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2075 PyObject *args;
1051
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents: 1020
diff changeset
2076 {
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents: 1020
diff changeset
2077 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
2078 }
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents: 1020
diff changeset
2079
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2080 static PyObject *
1051
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents: 1020
diff changeset
2081 forms_check_only_forms(dummy, args)
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2082 PyObject *dummy;
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2083 PyObject *args;
1051
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents: 1020
diff changeset
2084 {
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents: 1020
diff changeset
2085 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
2086 }
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents: 1020
diff changeset
2087
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
2088 #ifdef UNUSED
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2089 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2090 fl_call(func, args)
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2091 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2092 void (*func)();
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2093 {
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2094 if (!PyArg_NoArgs(args))
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2095 return NULL;
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2096 (*func)();
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2097 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2098 return Py_None;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2099 }
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
2100 #endif
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2101
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2102 static PyObject *
469
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
2103 forms_set_graphics_mode(dummy, args)
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2104 PyObject *dummy;
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2105 PyObject *args;
469
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
2106 {
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
2107 int rgbmode, doublebuf;
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
2108
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2109 if (!PyArg_Parse(args, "(ii)", &rgbmode, &doublebuf))
469
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
2110 return NULL;
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
2111 fl_set_graphics_mode(rgbmode,doublebuf);
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2112 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2113 return Py_None;
469
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
2114 }
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
2115
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2116 static PyObject *
469
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
2117 forms_get_rgbmode(dummy, args)
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2118 PyObject *dummy;
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2119 PyObject *args;
469
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
2120 {
1051
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents: 1020
diff changeset
2121 extern int fl_rgbmode;
469
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
2122
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
2123 if (args != NULL) {
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2124 PyErr_BadArgument();
469
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
2125 return NULL;
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
2126 }
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2127 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
2128 }
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents: 1020
diff changeset
2129
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2130 static PyObject *
1051
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents: 1020
diff changeset
2131 forms_show_errors(dummy, args)
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2132 PyObject *dummy;
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2133 PyObject *args;
1051
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents: 1020
diff changeset
2134 {
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents: 1020
diff changeset
2135 int show;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2136 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
2137 return NULL;
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents: 1020
diff changeset
2138 fl_show_errors(show);
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2139 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2140 return Py_None;
469
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
2141 }
1051
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents: 1020
diff changeset
2142
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2143 static PyObject *
1051
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents: 1020
diff changeset
2144 forms_set_font_name(dummy, args)
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2145 PyObject *dummy;
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2146 PyObject *args;
1051
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents: 1020
diff changeset
2147 {
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents: 1020
diff changeset
2148 int numb;
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents: 1020
diff changeset
2149 char *name;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2150 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
2151 return NULL;
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents: 1020
diff changeset
2152 fl_set_font_name(numb, name);
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2153 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2154 return Py_None;
1051
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents: 1020
diff changeset
2155 }
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents: 1020
diff changeset
2156
469
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
2157
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2158 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2159 forms_qdevice(self, args)
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2160 PyObject *self;
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2161 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2162 {
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
2163 short arg1;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2164 if (!PyArg_Parse(args, "h", &arg1))
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2165 return NULL;
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
2166 fl_qdevice(arg1);
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2167 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2168 return Py_None;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2169 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2170
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2171 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2172 forms_unqdevice(self, args)
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2173 PyObject *self;
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2174 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2175 {
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
2176 short arg1;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2177 if (!PyArg_Parse(args, "h", &arg1))
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2178 return NULL;
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
2179 fl_unqdevice(arg1);
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2180 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2181 return Py_None;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2182 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2183
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2184 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2185 forms_isqueued(self, args)
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2186 PyObject *self;
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2187 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2188 {
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
2189 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
2190 short arg1;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2191 if (!PyArg_Parse(args, "h", &arg1))
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2192 return NULL;
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
2193 retval = fl_isqueued(arg1);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2194
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2195 return PyInt_FromLong(retval);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2196 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2197
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2198 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2199 forms_qtest(self, args)
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2200 PyObject *self;
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2201 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2202 {
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2203 long retval;
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
2204 retval = fl_qtest();
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2205 return PyInt_FromLong(retval);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2206 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2207
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2208
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2209 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2210 forms_qread(self, args)
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2211 PyObject *self;
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2212 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2213 {
1252
c4cd0d9d8281 * Changed many files to use mkvalue() instead of newtupleobject().
Guido van Rossum <guido@python.org>
parents: 1079
diff changeset
2214 int dev;
c4cd0d9d8281 * Changed many files to use mkvalue() instead of newtupleobject().
Guido van Rossum <guido@python.org>
parents: 1079
diff changeset
2215 short val;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2216 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
2217 dev = fl_qread(&val);
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2218 Py_END_ALLOW_THREADS
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2219 return Py_BuildValue("(ih)", dev, val);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2220 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2221
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2222 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2223 forms_qreset(self, args)
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2224 PyObject *self;
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2225 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2226 {
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2227 if (!PyArg_NoArgs(args)) return NULL;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2228
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
2229 fl_qreset();
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2230 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2231 return Py_None;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2232 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2233
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2234 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2235 forms_qenter(self, args)
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2236 PyObject *self;
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2237 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2238 {
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
2239 short arg1, arg2;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2240 if (!PyArg_Parse(args, "(hh)", &arg1, &arg2))
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2241 return NULL;
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
2242 fl_qenter(arg1, arg2);
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2243 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2244 return Py_None;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2245 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2246
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2247 static PyObject *
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
2248 forms_color(self, args)
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2249 PyObject *self;
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2250 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2251 {
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2252 int arg;
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2253
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2254 if (!PyArg_Parse(args, "i", &arg)) return NULL;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2255
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2256 fl_color((short) arg);
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2257
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2258 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2259 return Py_None;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2260 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2261
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2262 static PyObject *
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
2263 forms_mapcolor(self, args)
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2264 PyObject *self;
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2265 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2266 {
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2267 int arg0, arg1, arg2, arg3;
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2268
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2269 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
2270 return NULL;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2271
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2272 fl_mapcolor(arg0, (short) arg1, (short) arg2, (short) arg3);
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2273
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2274 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2275 return Py_None;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2276 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2277
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2278 static PyObject *
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
2279 forms_getmcolor(self, args)
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2280 PyObject *self;
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2281 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2282 {
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
2283 int arg;
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
2284 short r, g, b;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2285
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2286 if (!PyArg_Parse(args, "i", &arg)) return NULL;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2287
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
2288 fl_getmcolor(arg, &r, &g, &b);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2289
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2290 return Py_BuildValue("(hhh)", r, g, b);
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2291 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2292
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2293 static PyObject *
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
2294 forms_get_mouse(self, args)
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2295 PyObject *self;
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2296 PyObject *args;
329
f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents: 328
diff changeset
2297 {
1252
c4cd0d9d8281 * Changed many files to use mkvalue() instead of newtupleobject().
Guido van Rossum <guido@python.org>
parents: 1079
diff changeset
2298 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
2299
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2300 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
2301
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
2302 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
2303
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2304 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
2305 }
f21cb7b53f6c Adde get_mouse and find_first/find_last (by robertl)
Guido van Rossum <guido@python.org>
parents: 328
diff changeset
2306
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2307 static PyObject *
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2308 forms_tie(self, args)
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2309 PyObject *self;
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2310 PyObject *args;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2311 {
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
2312 short arg1, arg2, arg3;
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2313 if (!PyArg_Parse(args, "(hhh)", &arg1, &arg2, &arg3))
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2314 return NULL;
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
2315 fl_tie(arg1, arg2, arg3);
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2316 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2317 return Py_None;
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2318 }
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2319
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2320 static PyObject *
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
2321 forms_show_message(f, args)
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2322 PyObject *f;
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2323 PyObject *args;
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
2324 {
635
784a09a52375 Use getargs() function.
Guido van Rossum <guido@python.org>
parents: 486
diff changeset
2325 char *a, *b, *c;
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
2326
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2327 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
2328
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2329 Py_BEGIN_ALLOW_THREADS
635
784a09a52375 Use getargs() function.
Guido van Rossum <guido@python.org>
parents: 486
diff changeset
2330 fl_show_message(a, b, c);
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2331 Py_END_ALLOW_THREADS
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
2332
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2333 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2334 return Py_None;
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
2335 }
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
2336
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2337 static PyObject *
712
00cdb8dedd6f Implemented show_choice(); moved items around a little bit.
Guido van Rossum <guido@python.org>
parents: 635
diff changeset
2338 forms_show_choice(f, args)
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2339 PyObject *f;
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2340 PyObject *args;
712
00cdb8dedd6f Implemented show_choice(); moved items around a little bit.
Guido van Rossum <guido@python.org>
parents: 635
diff changeset
2341 {
00cdb8dedd6f Implemented show_choice(); moved items around a little bit.
Guido van Rossum <guido@python.org>
parents: 635
diff changeset
2342 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
2343 int nb;
00cdb8dedd6f Implemented show_choice(); moved items around a little bit.
Guido van Rossum <guido@python.org>
parents: 635
diff changeset
2344 char *format;
1051
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents: 1020
diff changeset
2345 long rv;
712
00cdb8dedd6f Implemented show_choice(); moved items around a little bit.
Guido van Rossum <guido@python.org>
parents: 635
diff changeset
2346
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2347 if (args == NULL || !PyTuple_Check(args)) {
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2348 PyErr_BadArgument();
712
00cdb8dedd6f Implemented show_choice(); moved items around a little bit.
Guido van Rossum <guido@python.org>
parents: 635
diff changeset
2349 return NULL;
00cdb8dedd6f Implemented show_choice(); moved items around a little bit.
Guido van Rossum <guido@python.org>
parents: 635
diff changeset
2350 }
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2351 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
2352 if (nb <= 0) {
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2353 PyErr_SetString(PyExc_TypeError,
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2354 "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
2355 return NULL;
00cdb8dedd6f Implemented show_choice(); moved items around a little bit.
Guido van Rossum <guido@python.org>
parents: 635
diff changeset
2356 }
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2357 if (PyInt_Check(PyTuple_GetItem(args, 3))) {
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2358 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
2359 "'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
2360 return NULL;
00cdb8dedd6f Implemented show_choice(); moved items around a little bit.
Guido van Rossum <guido@python.org>
parents: 635
diff changeset
2361 }
00cdb8dedd6f Implemented show_choice(); moved items around a little bit.
Guido van Rossum <guido@python.org>
parents: 635
diff changeset
2362 switch (nb) {
00cdb8dedd6f Implemented show_choice(); moved items around a little bit.
Guido van Rossum <guido@python.org>
parents: 635
diff changeset
2363 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
2364 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
2365 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
2366 default:
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2367 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
2368 return NULL;
00cdb8dedd6f Implemented show_choice(); moved items around a little bit.
Guido van Rossum <guido@python.org>
parents: 635
diff changeset
2369 }
00cdb8dedd6f Implemented show_choice(); moved items around a little bit.
Guido van Rossum <guido@python.org>
parents: 635
diff changeset
2370
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2371 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
2372 return NULL;
00cdb8dedd6f Implemented show_choice(); moved items around a little bit.
Guido van Rossum <guido@python.org>
parents: 635
diff changeset
2373
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2374 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
2375 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
2376 Py_END_ALLOW_THREADS
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2377 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
2378 }
00cdb8dedd6f Implemented show_choice(); moved items around a little bit.
Guido van Rossum <guido@python.org>
parents: 635
diff changeset
2379
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2380 static PyObject *
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
2381 forms_show_question(f, args)
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2382 PyObject *f;
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2383 PyObject *args;
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
2384 {
635
784a09a52375 Use getargs() function.
Guido van Rossum <guido@python.org>
parents: 486
diff changeset
2385 int ret;
784a09a52375 Use getargs() function.
Guido van Rossum <guido@python.org>
parents: 486
diff changeset
2386 char *a, *b, *c;
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
2387
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2388 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
2389
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2390 Py_BEGIN_ALLOW_THREADS
635
784a09a52375 Use getargs() function.
Guido van Rossum <guido@python.org>
parents: 486
diff changeset
2391 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
2392 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
2393
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2394 return PyInt_FromLong((long) ret);
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
2395 }
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
2396
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2397 static PyObject *
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
2398 forms_show_input(f, args)
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2399 PyObject *f;
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2400 PyObject *args;
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
2401 {
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
2402 char *str;
635
784a09a52375 Use getargs() function.
Guido van Rossum <guido@python.org>
parents: 486
diff changeset
2403 char *a, *b;
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
2404
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2405 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
2406
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2407 Py_BEGIN_ALLOW_THREADS
635
784a09a52375 Use getargs() function.
Guido van Rossum <guido@python.org>
parents: 486
diff changeset
2408 str = fl_show_input(a, b);
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2409 Py_END_ALLOW_THREADS
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
2410
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
2411 if (str == NULL) {
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2412 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2413 return Py_None;
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
2414 }
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2415 return PyString_FromString(str);
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
2416 }
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
2417
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2418 static PyObject *
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
2419 forms_file_selector(f, args)
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2420 PyObject *f;
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2421 PyObject *args;
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
2422 {
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
2423 char *str;
635
784a09a52375 Use getargs() function.
Guido van Rossum <guido@python.org>
parents: 486
diff changeset
2424 char *a, *b, *c, *d;
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
2425
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2426 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
2427
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2428 Py_BEGIN_ALLOW_THREADS
635
784a09a52375 Use getargs() function.
Guido van Rossum <guido@python.org>
parents: 486
diff changeset
2429 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
2430 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
2431
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
2432 if (str == NULL) {
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2433 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2434 return Py_None;
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
2435 }
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2436 return PyString_FromString(str);
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
2437 }
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
2438
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
2439
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2440 static PyObject *
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
2441 forms_file_selector_func(args, func)
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2442 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
2443 char *(*func)();
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
2444 {
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
2445 char *str;
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
2446
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
2447 str = (*func) ();
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
2448
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
2449 if (str == NULL) {
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2450 Py_INCREF(Py_None);
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2451 return Py_None;
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
2452 }
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2453 return PyString_FromString(str);
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
2454 }
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
2455
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2456 static PyObject *
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
2457 forms_get_directory(f, args)
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2458 PyObject *f;
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2459 PyObject *args;
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
2460 {
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
2461 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
2462 }
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
2463
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2464 static PyObject *
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
2465 forms_get_pattern(f, args)
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2466 PyObject *f;
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2467 PyObject *args;
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
2468 {
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
2469 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
2470 }
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
2471
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2472 static PyObject *
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
2473 forms_get_filename(f, args)
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2474 PyObject *f;
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2475 PyObject *args;
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
2476 {
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
2477 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
2478 }
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
2479
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2480 static PyMethodDef forms_methods[] = {
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2481 /* adm */
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2482 {"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
2483 {"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
2484 {"deactivate_all_forms",forms_deactivate_all_forms},
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2485 /* gl support wrappers */
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2486 {"qdevice", forms_qdevice},
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2487 {"unqdevice", forms_unqdevice},
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2488 {"isqueued", forms_isqueued},
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2489 {"qtest", forms_qtest},
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2490 {"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
2491 /* {"blkqread", forms_blkqread}, */
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2492 {"qreset", forms_qreset},
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2493 {"qenter", forms_qenter},
330
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
2494 {"get_mouse", forms_get_mouse},
1807d60e6231 Lots of cosmetic changes.
Guido van Rossum <guido@python.org>
parents: 329
diff changeset
2495 {"tie", forms_tie},
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2496 /* {"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
2497 {"color", forms_color},
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2498 {"mapcolor", forms_mapcolor},
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2499 {"getmcolor", forms_getmcolor},
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2500 /* interaction */
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2501 {"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
2502 {"do_only_forms", forms_do_only_forms},
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2503 {"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
2504 {"check_only_forms", forms_check_only_forms},
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2505 {"set_event_call_back", forms_set_event_call_back},
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2506 /* goodies */
1020
7442b20c43fd Use getargs() everywhere now. Standardize lay-out yet more (an ongoing
Guido van Rossum <guido@python.org>
parents: 947
diff changeset
2507 {"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
2508 {"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
2509 {"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
2510 {"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
2511 {"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
2512 {"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
2513 {"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
2514 {"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
2515 {"get_filename", forms_get_filename},
469
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
2516 {"set_graphics_mode", forms_set_graphics_mode},
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
2517 {"get_rgbmode", forms_get_rgbmode},
1051
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents: 1020
diff changeset
2518 {"show_errors", forms_show_errors},
f54e64c8b9b7 * Makefile: added IMGFILE; moved some stuff around.
Guido van Rossum <guido@python.org>
parents: 1020
diff changeset
2519 {"set_font_name", forms_set_font_name},
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2520 {NULL, NULL} /* sentinel */
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2521 };
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2522
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2523 void
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2524 initfl()
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2525 {
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2526 Py_InitModule("fl", forms_methods);
392
f33a3f69dfcb Done a little bit about garbage collection.
Guido van Rossum <guido@python.org>
parents: 376
diff changeset
2527 foreground();
469
42130e7220af Support for FORMS 2.0.
Guido van Rossum <guido@python.org>
parents: 442
diff changeset
2528 fl_init();
328
48bbc8ad8016 Initial revision
Guido van Rossum <guido@python.org>
parents:
diff changeset
2529 }
4884
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2530
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2531
65cb261f7736 Renamed, but untested.
Roger E. Masse <rmasse@newcnri.cnri.reston.va.us>
parents: 4503
diff changeset
2532