Mercurial > cpython-lru_cache-weakref

annotate Mac/Modules/list/Listmodule.c @ 5817:48b94de85bf3 legacy-trunk

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Extensive changes by AMK.
author Guido van Rossum <guido@python.org>
date Thu, 17 Jul 1997 16:29:42 +0000
parents cc92fa2cd86b
children 172c7febd755
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2972
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
1
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
2 /* ========================== Module List =========================== */
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
3
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
4 #include "Python.h"
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
5
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
6
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
7
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
8 #define SystemSevenOrLater 1
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
9
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
10 #include "macglue.h"
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
11 #include <Memory.h>
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
12 #include <Dialogs.h>
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
13 #include <Menus.h>
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
14 #include <Controls.h>
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
15
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
16 extern PyObject *ResObj_New(Handle);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
17 extern int ResObj_Convert(PyObject *, Handle *);
3295
3ca111e0b1a7 - Added color window/pixmap support
Jack Jansen <jack.jansen@cwi.nl>
parents: 3006
diff changeset
18 extern PyObject *OptResObj_New(Handle);
3ca111e0b1a7 - Added color window/pixmap support
Jack Jansen <jack.jansen@cwi.nl>
parents: 3006
diff changeset
19 extern int OptResObj_Convert(PyObject *, Handle *);
2972
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
20
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
21 extern PyObject *WinObj_New(WindowPtr);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
22 extern int WinObj_Convert(PyObject *, WindowPtr *);
3295
3ca111e0b1a7 - Added color window/pixmap support
Jack Jansen <jack.jansen@cwi.nl>
parents: 3006
diff changeset
23 extern PyTypeObject Window_Type;
3ca111e0b1a7 - Added color window/pixmap support
Jack Jansen <jack.jansen@cwi.nl>
parents: 3006
diff changeset
24 #define WinObj_Check(x) ((x)->ob_type == &Window_Type)
2972
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
25
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
26 extern PyObject *DlgObj_New(DialogPtr);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
27 extern int DlgObj_Convert(PyObject *, DialogPtr *);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
28 extern PyTypeObject Dialog_Type;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
29 #define DlgObj_Check(x) ((x)->ob_type == &Dialog_Type)
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
30
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
31 extern PyObject *MenuObj_New(MenuHandle);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
32 extern int MenuObj_Convert(PyObject *, MenuHandle *);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
33
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
34 extern PyObject *CtlObj_New(ControlHandle);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
35 extern int CtlObj_Convert(PyObject *, ControlHandle *);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
36
3295
3ca111e0b1a7 - Added color window/pixmap support
Jack Jansen <jack.jansen@cwi.nl>
parents: 3006
diff changeset
37 extern PyObject *GrafObj_New(GrafPtr);
3ca111e0b1a7 - Added color window/pixmap support
Jack Jansen <jack.jansen@cwi.nl>
parents: 3006
diff changeset
38 extern int GrafObj_Convert(PyObject *, GrafPtr *);
3ca111e0b1a7 - Added color window/pixmap support
Jack Jansen <jack.jansen@cwi.nl>
parents: 3006
diff changeset
39
3ca111e0b1a7 - Added color window/pixmap support
Jack Jansen <jack.jansen@cwi.nl>
parents: 3006
diff changeset
40 extern PyObject *BMObj_New(BitMapPtr);
3ca111e0b1a7 - Added color window/pixmap support
Jack Jansen <jack.jansen@cwi.nl>
parents: 3006
diff changeset
41 extern int BMObj_Convert(PyObject *, BitMapPtr *);
3ca111e0b1a7 - Added color window/pixmap support
Jack Jansen <jack.jansen@cwi.nl>
parents: 3006
diff changeset
42
2972
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
43 extern PyObject *WinObj_WhichWindow(WindowPtr);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
44
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
45 #include <Lists.h>
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
46
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
47 static PyObject *List_Error;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
48
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
49 /* ------------------------ Object type List ------------------------ */
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
50
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
51 PyTypeObject List_Type;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
52
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
53 #define ListObj_Check(x) ((x)->ob_type == &List_Type)
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
54
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
55 typedef struct ListObject {
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
56 PyObject_HEAD
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
57 ListRef ob_itself;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
58 } ListObject;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
59
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
60 PyObject *ListObj_New(itself)
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
61 ListRef itself;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
62 {
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
63 ListObject *it;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
64 if (itself == NULL) {
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
65 PyErr_SetString(List_Error,"Cannot create null List");
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
66 return NULL;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
67 }
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
68 it = PyObject_NEW(ListObject, &List_Type);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
69 if (it == NULL) return NULL;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
70 it->ob_itself = itself;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
71 return (PyObject *)it;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
72 }
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
73 ListObj_Convert(v, p_itself)
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
74 PyObject *v;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
75 ListRef *p_itself;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
76 {
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
77 if (!ListObj_Check(v))
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
78 {
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
79 PyErr_SetString(PyExc_TypeError, "List required");
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
80 return 0;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
81 }
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
82 *p_itself = ((ListObject *)v)->ob_itself;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
83 return 1;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
84 }
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
85
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
86 static void ListObj_dealloc(self)
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
87 ListObject *self;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
88 {
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
89 LDispose(self->ob_itself);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
90 PyMem_DEL(self);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
91 }
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
92
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
93 static PyObject *ListObj_LAddColumn(_self, _args)
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
94 ListObject *_self;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
95 PyObject *_args;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
96 {
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
97 PyObject *_res = NULL;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
98 short _rv;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
99 short count;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
100 short colNum;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
101 if (!PyArg_ParseTuple(_args, "hh",
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
102 &count,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
103 &colNum))
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
104 return NULL;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
105 _rv = LAddColumn(count,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
106 colNum,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
107 _self->ob_itself);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
108 _res = Py_BuildValue("h",
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
109 _rv);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
110 return _res;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
111 }
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
112
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
113 static PyObject *ListObj_LAddRow(_self, _args)
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
114 ListObject *_self;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
115 PyObject *_args;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
116 {
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
117 PyObject *_res = NULL;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
118 short _rv;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
119 short count;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
120 short rowNum;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
121 if (!PyArg_ParseTuple(_args, "hh",
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
122 &count,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
123 &rowNum))
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
124 return NULL;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
125 _rv = LAddRow(count,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
126 rowNum,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
127 _self->ob_itself);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
128 _res = Py_BuildValue("h",
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
129 _rv);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
130 return _res;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
131 }
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
132
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
133 static PyObject *ListObj_LDelColumn(_self, _args)
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
134 ListObject *_self;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
135 PyObject *_args;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
136 {
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
137 PyObject *_res = NULL;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
138 short count;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
139 short colNum;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
140 if (!PyArg_ParseTuple(_args, "hh",
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
141 &count,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
142 &colNum))
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
143 return NULL;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
144 LDelColumn(count,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
145 colNum,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
146 _self->ob_itself);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
147 Py_INCREF(Py_None);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
148 _res = Py_None;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
149 return _res;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
150 }
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
151
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
152 static PyObject *ListObj_LDelRow(_self, _args)
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
153 ListObject *_self;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
154 PyObject *_args;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
155 {
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
156 PyObject *_res = NULL;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
157 short count;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
158 short rowNum;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
159 if (!PyArg_ParseTuple(_args, "hh",
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
160 &count,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
161 &rowNum))
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
162 return NULL;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
163 LDelRow(count,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
164 rowNum,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
165 _self->ob_itself);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
166 Py_INCREF(Py_None);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
167 _res = Py_None;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
168 return _res;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
169 }
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
170
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
171 static PyObject *ListObj_LGetSelect(_self, _args)
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
172 ListObject *_self;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
173 PyObject *_args;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
174 {
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
175 PyObject *_res = NULL;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
176 Boolean _rv;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
177 Boolean next;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
178 Point theCell;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
179 if (!PyArg_ParseTuple(_args, "bO&",
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
180 &next,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
181 PyMac_GetPoint, &theCell))
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
182 return NULL;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
183 _rv = LGetSelect(next,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
184 &theCell,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
185 _self->ob_itself);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
186 _res = Py_BuildValue("bO&",
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
187 _rv,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
188 PyMac_BuildPoint, theCell);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
189 return _res;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
190 }
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
191
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
192 static PyObject *ListObj_LLastClick(_self, _args)
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
193 ListObject *_self;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
194 PyObject *_args;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
195 {
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
196 PyObject *_res = NULL;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
197 Point _rv;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
198 if (!PyArg_ParseTuple(_args, ""))
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
199 return NULL;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
200 _rv = LLastClick(_self->ob_itself);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
201 _res = Py_BuildValue("O&",
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
202 PyMac_BuildPoint, _rv);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
203 return _res;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
204 }
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
205
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
206 static PyObject *ListObj_LNextCell(_self, _args)
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
207 ListObject *_self;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
208 PyObject *_args;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
209 {
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
210 PyObject *_res = NULL;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
211 Boolean _rv;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
212 Boolean hNext;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
213 Boolean vNext;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
214 Point theCell;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
215 if (!PyArg_ParseTuple(_args, "bbO&",
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
216 &hNext,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
217 &vNext,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
218 PyMac_GetPoint, &theCell))
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
219 return NULL;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
220 _rv = LNextCell(hNext,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
221 vNext,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
222 &theCell,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
223 _self->ob_itself);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
224 _res = Py_BuildValue("bO&",
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
225 _rv,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
226 PyMac_BuildPoint, theCell);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
227 return _res;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
228 }
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
229
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
230 static PyObject *ListObj_LSize(_self, _args)
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
231 ListObject *_self;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
232 PyObject *_args;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
233 {
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
234 PyObject *_res = NULL;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
235 short listWidth;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
236 short listHeight;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
237 if (!PyArg_ParseTuple(_args, "hh",
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
238 &listWidth,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
239 &listHeight))
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
240 return NULL;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
241 LSize(listWidth,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
242 listHeight,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
243 _self->ob_itself);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
244 Py_INCREF(Py_None);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
245 _res = Py_None;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
246 return _res;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
247 }
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
248
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
249 static PyObject *ListObj_LSetDrawingMode(_self, _args)
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
250 ListObject *_self;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
251 PyObject *_args;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
252 {
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
253 PyObject *_res = NULL;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
254 Boolean drawIt;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
255 if (!PyArg_ParseTuple(_args, "b",
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
256 &drawIt))
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
257 return NULL;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
258 LSetDrawingMode(drawIt,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
259 _self->ob_itself);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
260 Py_INCREF(Py_None);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
261 _res = Py_None;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
262 return _res;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
263 }
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
264
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
265 static PyObject *ListObj_LScroll(_self, _args)
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
266 ListObject *_self;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
267 PyObject *_args;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
268 {
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
269 PyObject *_res = NULL;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
270 short dCols;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
271 short dRows;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
272 if (!PyArg_ParseTuple(_args, "hh",
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
273 &dCols,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
274 &dRows))
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
275 return NULL;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
276 LScroll(dCols,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
277 dRows,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
278 _self->ob_itself);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
279 Py_INCREF(Py_None);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
280 _res = Py_None;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
281 return _res;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
282 }
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
283
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
284 static PyObject *ListObj_LAutoScroll(_self, _args)
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
285 ListObject *_self;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
286 PyObject *_args;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
287 {
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
288 PyObject *_res = NULL;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
289 if (!PyArg_ParseTuple(_args, ""))
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
290 return NULL;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
291 LAutoScroll(_self->ob_itself);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
292 Py_INCREF(Py_None);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
293 _res = Py_None;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
294 return _res;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
295 }
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
296
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
297 static PyObject *ListObj_LUpdate(_self, _args)
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
298 ListObject *_self;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
299 PyObject *_args;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
300 {
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
301 PyObject *_res = NULL;
3499
5f25040fd63e Replaced various dummy updateRegions by real arguments
Jack Jansen <jack.jansen@cwi.nl>
parents: 3295
diff changeset
302 RgnHandle theRgn;
5f25040fd63e Replaced various dummy updateRegions by real arguments
Jack Jansen <jack.jansen@cwi.nl>
parents: 3295
diff changeset
303 if (!PyArg_ParseTuple(_args, "O&",
5f25040fd63e Replaced various dummy updateRegions by real arguments
Jack Jansen <jack.jansen@cwi.nl>
parents: 3295
diff changeset
304 ResObj_Convert, &theRgn))
2972
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
305 return NULL;
3499
5f25040fd63e Replaced various dummy updateRegions by real arguments
Jack Jansen <jack.jansen@cwi.nl>
parents: 3295
diff changeset
306 LUpdate(theRgn,
2972
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
307 _self->ob_itself);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
308 Py_INCREF(Py_None);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
309 _res = Py_None;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
310 return _res;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
311 }
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
312
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
313 static PyObject *ListObj_LActivate(_self, _args)
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
314 ListObject *_self;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
315 PyObject *_args;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
316 {
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
317 PyObject *_res = NULL;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
318 Boolean act;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
319 if (!PyArg_ParseTuple(_args, "b",
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
320 &act))
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
321 return NULL;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
322 LActivate(act,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
323 _self->ob_itself);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
324 Py_INCREF(Py_None);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
325 _res = Py_None;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
326 return _res;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
327 }
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
328
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
329 static PyObject *ListObj_LCellSize(_self, _args)
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
330 ListObject *_self;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
331 PyObject *_args;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
332 {
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
333 PyObject *_res = NULL;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
334 Point cSize;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
335 if (!PyArg_ParseTuple(_args, "O&",
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
336 PyMac_GetPoint, &cSize))
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
337 return NULL;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
338 LCellSize(cSize,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
339 _self->ob_itself);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
340 Py_INCREF(Py_None);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
341 _res = Py_None;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
342 return _res;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
343 }
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
344
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
345 static PyObject *ListObj_LClick(_self, _args)
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
346 ListObject *_self;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
347 PyObject *_args;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
348 {
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
349 PyObject *_res = NULL;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
350 Boolean _rv;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
351 Point pt;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
352 short modifiers;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
353 if (!PyArg_ParseTuple(_args, "O&h",
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
354 PyMac_GetPoint, &pt,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
355 &modifiers))
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
356 return NULL;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
357 _rv = LClick(pt,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
358 modifiers,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
359 _self->ob_itself);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
360 _res = Py_BuildValue("b",
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
361 _rv);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
362 return _res;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
363 }
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
364
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
365 static PyObject *ListObj_LAddToCell(_self, _args)
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
366 ListObject *_self;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
367 PyObject *_args;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
368 {
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
369 PyObject *_res = NULL;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
370 char *dataPtr__in__;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
371 short dataPtr__len__;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
372 int dataPtr__in_len__;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
373 Point theCell;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
374 if (!PyArg_ParseTuple(_args, "s#O&",
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
375 &dataPtr__in__, &dataPtr__in_len__,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
376 PyMac_GetPoint, &theCell))
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
377 return NULL;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
378 dataPtr__len__ = dataPtr__in_len__;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
379 LAddToCell(dataPtr__in__, dataPtr__len__,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
380 theCell,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
381 _self->ob_itself);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
382 Py_INCREF(Py_None);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
383 _res = Py_None;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
384 dataPtr__error__: ;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
385 return _res;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
386 }
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
387
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
388 static PyObject *ListObj_LClrCell(_self, _args)
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
389 ListObject *_self;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
390 PyObject *_args;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
391 {
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
392 PyObject *_res = NULL;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
393 Point theCell;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
394 if (!PyArg_ParseTuple(_args, "O&",
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
395 PyMac_GetPoint, &theCell))
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
396 return NULL;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
397 LClrCell(theCell,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
398 _self->ob_itself);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
399 Py_INCREF(Py_None);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
400 _res = Py_None;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
401 return _res;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
402 }
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
403
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
404 static PyObject *ListObj_LGetCell(_self, _args)
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
405 ListObject *_self;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
406 PyObject *_args;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
407 {
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
408 PyObject *_res = NULL;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
409 char *dataPtr__out__;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
410 short dataPtr__len__;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
411 int dataPtr__in_len__;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
412 Point theCell;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
413 if (!PyArg_ParseTuple(_args, "iO&",
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
414 &dataPtr__in_len__,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
415 PyMac_GetPoint, &theCell))
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
416 return NULL;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
417 if ((dataPtr__out__ = malloc(dataPtr__in_len__)) == NULL)
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
418 {
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
419 PyErr_NoMemory();
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
420 goto dataPtr__error__;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
421 }
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
422 dataPtr__len__ = dataPtr__in_len__;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
423 LGetCell(dataPtr__out__, &dataPtr__len__,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
424 theCell,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
425 _self->ob_itself);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
426 _res = Py_BuildValue("s#",
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
427 dataPtr__out__, (int)dataPtr__len__);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
428 free(dataPtr__out__);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
429 dataPtr__error__: ;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
430 return _res;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
431 }
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
432
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
433 static PyObject *ListObj_LRect(_self, _args)
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
434 ListObject *_self;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
435 PyObject *_args;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
436 {
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
437 PyObject *_res = NULL;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
438 Rect cellRect;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
439 Point theCell;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
440 if (!PyArg_ParseTuple(_args, "O&",
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
441 PyMac_GetPoint, &theCell))
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
442 return NULL;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
443 LRect(&cellRect,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
444 theCell,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
445 _self->ob_itself);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
446 _res = Py_BuildValue("O&",
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
447 PyMac_BuildRect, &cellRect);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
448 return _res;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
449 }
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
450
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
451 static PyObject *ListObj_LSetCell(_self, _args)
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
452 ListObject *_self;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
453 PyObject *_args;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
454 {
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
455 PyObject *_res = NULL;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
456 char *dataPtr__in__;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
457 short dataPtr__len__;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
458 int dataPtr__in_len__;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
459 Point theCell;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
460 if (!PyArg_ParseTuple(_args, "s#O&",
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
461 &dataPtr__in__, &dataPtr__in_len__,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
462 PyMac_GetPoint, &theCell))
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
463 return NULL;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
464 dataPtr__len__ = dataPtr__in_len__;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
465 LSetCell(dataPtr__in__, dataPtr__len__,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
466 theCell,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
467 _self->ob_itself);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
468 Py_INCREF(Py_None);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
469 _res = Py_None;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
470 dataPtr__error__: ;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
471 return _res;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
472 }
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
473
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
474 static PyObject *ListObj_LSetSelect(_self, _args)
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
475 ListObject *_self;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
476 PyObject *_args;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
477 {
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
478 PyObject *_res = NULL;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
479 Boolean setIt;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
480 Point theCell;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
481 if (!PyArg_ParseTuple(_args, "bO&",
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
482 &setIt,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
483 PyMac_GetPoint, &theCell))
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
484 return NULL;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
485 LSetSelect(setIt,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
486 theCell,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
487 _self->ob_itself);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
488 Py_INCREF(Py_None);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
489 _res = Py_None;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
490 return _res;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
491 }
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
492
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
493 static PyObject *ListObj_LDraw(_self, _args)
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
494 ListObject *_self;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
495 PyObject *_args;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
496 {
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
497 PyObject *_res = NULL;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
498 Point theCell;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
499 if (!PyArg_ParseTuple(_args, "O&",
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
500 PyMac_GetPoint, &theCell))
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
501 return NULL;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
502 LDraw(theCell,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
503 _self->ob_itself);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
504 Py_INCREF(Py_None);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
505 _res = Py_None;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
506 return _res;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
507 }
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
508
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
509 static PyMethodDef ListObj_methods[] = {
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
510 {"LAddColumn", (PyCFunction)ListObj_LAddColumn, 1,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
511 "(short count, short colNum) -> (short _rv)"},
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
512 {"LAddRow", (PyCFunction)ListObj_LAddRow, 1,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
513 "(short count, short rowNum) -> (short _rv)"},
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
514 {"LDelColumn", (PyCFunction)ListObj_LDelColumn, 1,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
515 "(short count, short colNum) -> None"},
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
516 {"LDelRow", (PyCFunction)ListObj_LDelRow, 1,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
517 "(short count, short rowNum) -> None"},
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
518 {"LGetSelect", (PyCFunction)ListObj_LGetSelect, 1,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
519 "(Boolean next, Point theCell) -> (Boolean _rv, Point theCell)"},
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
520 {"LLastClick", (PyCFunction)ListObj_LLastClick, 1,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
521 "() -> (Point _rv)"},
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
522 {"LNextCell", (PyCFunction)ListObj_LNextCell, 1,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
523 "(Boolean hNext, Boolean vNext, Point theCell) -> (Boolean _rv, Point theCell)"},
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
524 {"LSize", (PyCFunction)ListObj_LSize, 1,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
525 "(short listWidth, short listHeight) -> None"},
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
526 {"LSetDrawingMode", (PyCFunction)ListObj_LSetDrawingMode, 1,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
527 "(Boolean drawIt) -> None"},
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
528 {"LScroll", (PyCFunction)ListObj_LScroll, 1,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
529 "(short dCols, short dRows) -> None"},
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
530 {"LAutoScroll", (PyCFunction)ListObj_LAutoScroll, 1,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
531 "() -> None"},
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
532 {"LUpdate", (PyCFunction)ListObj_LUpdate, 1,
3499
5f25040fd63e Replaced various dummy updateRegions by real arguments
Jack Jansen <jack.jansen@cwi.nl>
parents: 3295
diff changeset
533 "(RgnHandle theRgn) -> None"},
2972
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
534 {"LActivate", (PyCFunction)ListObj_LActivate, 1,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
535 "(Boolean act) -> None"},
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
536 {"LCellSize", (PyCFunction)ListObj_LCellSize, 1,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
537 "(Point cSize) -> None"},
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
538 {"LClick", (PyCFunction)ListObj_LClick, 1,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
539 "(Point pt, short modifiers) -> (Boolean _rv)"},
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
540 {"LAddToCell", (PyCFunction)ListObj_LAddToCell, 1,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
541 "(Buffer dataPtr, Point theCell) -> None"},
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
542 {"LClrCell", (PyCFunction)ListObj_LClrCell, 1,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
543 "(Point theCell) -> None"},
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
544 {"LGetCell", (PyCFunction)ListObj_LGetCell, 1,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
545 "(Buffer dataPtr, Point theCell) -> (Buffer dataPtr)"},
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
546 {"LRect", (PyCFunction)ListObj_LRect, 1,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
547 "(Point theCell) -> (Rect cellRect)"},
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
548 {"LSetCell", (PyCFunction)ListObj_LSetCell, 1,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
549 "(Buffer dataPtr, Point theCell) -> None"},
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
550 {"LSetSelect", (PyCFunction)ListObj_LSetSelect, 1,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
551 "(Boolean setIt, Point theCell) -> None"},
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
552 {"LDraw", (PyCFunction)ListObj_LDraw, 1,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
553 "(Point theCell) -> None"},
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
554 {NULL, NULL, 0}
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
555 };
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
556
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
557 PyMethodChain ListObj_chain = { ListObj_methods, NULL };
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
558
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
559 static PyObject *ListObj_getattr(self, name)
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
560 ListObject *self;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
561 char *name;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
562 {
3815
cc92fa2cd86b Added access to selFlags and listFlags members (both read and write)
Jack Jansen <jack.jansen@cwi.nl>
parents: 3499
diff changeset
563 {
cc92fa2cd86b Added access to selFlags and listFlags members (both read and write)
Jack Jansen <jack.jansen@cwi.nl>
parents: 3499
diff changeset
564 /* XXXX Should we HLock() here?? */
cc92fa2cd86b Added access to selFlags and listFlags members (both read and write)
Jack Jansen <jack.jansen@cwi.nl>
parents: 3499
diff changeset
565 if ( strcmp(name, "listFlags") == 0 )
cc92fa2cd86b Added access to selFlags and listFlags members (both read and write)
Jack Jansen <jack.jansen@cwi.nl>
parents: 3499
diff changeset
566 return Py_BuildValue("l", (long)(*self->ob_itself)->listFlags & 0xff);
cc92fa2cd86b Added access to selFlags and listFlags members (both read and write)
Jack Jansen <jack.jansen@cwi.nl>
parents: 3499
diff changeset
567 if ( strcmp(name, "selFlags") == 0 )
cc92fa2cd86b Added access to selFlags and listFlags members (both read and write)
Jack Jansen <jack.jansen@cwi.nl>
parents: 3499
diff changeset
568 return Py_BuildValue("l", (long)(*self->ob_itself)->selFlags & 0xff);
cc92fa2cd86b Added access to selFlags and listFlags members (both read and write)
Jack Jansen <jack.jansen@cwi.nl>
parents: 3499
diff changeset
569 }
2972
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
570 return Py_FindMethodInChain(&ListObj_chain, (PyObject *)self, name);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
571 }
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
572
3815
cc92fa2cd86b Added access to selFlags and listFlags members (both read and write)
Jack Jansen <jack.jansen@cwi.nl>
parents: 3499
diff changeset
573 static int
cc92fa2cd86b Added access to selFlags and listFlags members (both read and write)
Jack Jansen <jack.jansen@cwi.nl>
parents: 3499
diff changeset
574 ListObj_setattr(self, name, value)
cc92fa2cd86b Added access to selFlags and listFlags members (both read and write)
Jack Jansen <jack.jansen@cwi.nl>
parents: 3499
diff changeset
575 ListObject *self;
cc92fa2cd86b Added access to selFlags and listFlags members (both read and write)
Jack Jansen <jack.jansen@cwi.nl>
parents: 3499
diff changeset
576 char *name;
cc92fa2cd86b Added access to selFlags and listFlags members (both read and write)
Jack Jansen <jack.jansen@cwi.nl>
parents: 3499
diff changeset
577 PyObject *value;
cc92fa2cd86b Added access to selFlags and listFlags members (both read and write)
Jack Jansen <jack.jansen@cwi.nl>
parents: 3499
diff changeset
578 {
cc92fa2cd86b Added access to selFlags and listFlags members (both read and write)
Jack Jansen <jack.jansen@cwi.nl>
parents: 3499
diff changeset
579 long intval;
cc92fa2cd86b Added access to selFlags and listFlags members (both read and write)
Jack Jansen <jack.jansen@cwi.nl>
parents: 3499
diff changeset
580
cc92fa2cd86b Added access to selFlags and listFlags members (both read and write)
Jack Jansen <jack.jansen@cwi.nl>
parents: 3499
diff changeset
581 if ( value == NULL || !PyInt_Check(value) )
cc92fa2cd86b Added access to selFlags and listFlags members (both read and write)
Jack Jansen <jack.jansen@cwi.nl>
parents: 3499
diff changeset
582 return -1;
cc92fa2cd86b Added access to selFlags and listFlags members (both read and write)
Jack Jansen <jack.jansen@cwi.nl>
parents: 3499
diff changeset
583 intval = PyInt_AsLong(value);
cc92fa2cd86b Added access to selFlags and listFlags members (both read and write)
Jack Jansen <jack.jansen@cwi.nl>
parents: 3499
diff changeset
584 if (strcmp(name, "listFlags") == 0 ) {
cc92fa2cd86b Added access to selFlags and listFlags members (both read and write)
Jack Jansen <jack.jansen@cwi.nl>
parents: 3499
diff changeset
585 /* XXXX Should we HLock the handle here?? */
cc92fa2cd86b Added access to selFlags and listFlags members (both read and write)
Jack Jansen <jack.jansen@cwi.nl>
parents: 3499
diff changeset
586 (*self->ob_itself)->listFlags = intval;
cc92fa2cd86b Added access to selFlags and listFlags members (both read and write)
Jack Jansen <jack.jansen@cwi.nl>
parents: 3499
diff changeset
587 return 0;
cc92fa2cd86b Added access to selFlags and listFlags members (both read and write)
Jack Jansen <jack.jansen@cwi.nl>
parents: 3499
diff changeset
588 }
cc92fa2cd86b Added access to selFlags and listFlags members (both read and write)
Jack Jansen <jack.jansen@cwi.nl>
parents: 3499
diff changeset
589 if (strcmp(name, "selFlags") == 0 ) {
cc92fa2cd86b Added access to selFlags and listFlags members (both read and write)
Jack Jansen <jack.jansen@cwi.nl>
parents: 3499
diff changeset
590 (*self->ob_itself)->selFlags = intval;
cc92fa2cd86b Added access to selFlags and listFlags members (both read and write)
Jack Jansen <jack.jansen@cwi.nl>
parents: 3499
diff changeset
591 return 0;
cc92fa2cd86b Added access to selFlags and listFlags members (both read and write)
Jack Jansen <jack.jansen@cwi.nl>
parents: 3499
diff changeset
592 }
cc92fa2cd86b Added access to selFlags and listFlags members (both read and write)
Jack Jansen <jack.jansen@cwi.nl>
parents: 3499
diff changeset
593 return -1;
cc92fa2cd86b Added access to selFlags and listFlags members (both read and write)
Jack Jansen <jack.jansen@cwi.nl>
parents: 3499
diff changeset
594 }
cc92fa2cd86b Added access to selFlags and listFlags members (both read and write)
Jack Jansen <jack.jansen@cwi.nl>
parents: 3499
diff changeset
595
2972
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
596
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
597 PyTypeObject List_Type = {
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
598 PyObject_HEAD_INIT(&PyType_Type)
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
599 0, /*ob_size*/
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
600 "List", /*tp_name*/
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
601 sizeof(ListObject), /*tp_basicsize*/
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
602 0, /*tp_itemsize*/
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
603 /* methods */
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
604 (destructor) ListObj_dealloc, /*tp_dealloc*/
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
605 0, /*tp_print*/
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
606 (getattrfunc) ListObj_getattr, /*tp_getattr*/
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
607 (setattrfunc) ListObj_setattr, /*tp_setattr*/
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
608 };
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
609
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
610 /* ---------------------- End object type List ---------------------- */
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
611
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
612
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
613 static PyObject *List_LNew(_self, _args)
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
614 PyObject *_self;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
615 PyObject *_args;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
616 {
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
617 PyObject *_res = NULL;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
618 ListRef _rv;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
619 Rect rView;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
620 Rect dataBounds;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
621 Point cSize;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
622 short theProc;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
623 WindowPtr theWindow;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
624 Boolean drawIt;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
625 Boolean hasGrow;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
626 Boolean scrollHoriz;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
627 Boolean scrollVert;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
628 if (!PyArg_ParseTuple(_args, "O&O&O&hO&bbbb",
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
629 PyMac_GetRect, &rView,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
630 PyMac_GetRect, &dataBounds,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
631 PyMac_GetPoint, &cSize,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
632 &theProc,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
633 WinObj_Convert, &theWindow,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
634 &drawIt,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
635 &hasGrow,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
636 &scrollHoriz,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
637 &scrollVert))
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
638 return NULL;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
639 _rv = LNew(&rView,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
640 &dataBounds,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
641 cSize,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
642 theProc,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
643 theWindow,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
644 drawIt,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
645 hasGrow,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
646 scrollHoriz,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
647 scrollVert);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
648 _res = Py_BuildValue("O&",
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
649 ListObj_New, _rv);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
650 return _res;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
651 }
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
652
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
653 static PyMethodDef List_methods[] = {
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
654 {"LNew", (PyCFunction)List_LNew, 1,
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
655 "(Rect rView, Rect dataBounds, Point cSize, short theProc, WindowPtr theWindow, Boolean drawIt, Boolean hasGrow, Boolean scrollHoriz, Boolean scrollVert) -> (ListRef _rv)"},
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
656 {NULL, NULL, 0}
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
657 };
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
658
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
659
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
660
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
661
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
662 void initList()
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
663 {
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
664 PyObject *m;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
665 PyObject *d;
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
666
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
667
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
668
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
669
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
670 m = Py_InitModule("List", List_methods);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
671 d = PyModule_GetDict(m);
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
672 List_Error = PyMac_GetOSErrException();
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
673 if (List_Error == NULL ||
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
674 PyDict_SetItemString(d, "Error", List_Error) != 0)
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
675 Py_FatalError("can't initialize List.Error");
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
676 }
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
677
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
678 /* ======================== End module List ========================= */
99945fda719d Interface to the Mac List Manager.
Jack Jansen <jack.jansen@cwi.nl>
parents:
diff changeset
679