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