cpython-lru_cache-weakref: Mac/Modules/drag/

annotate Mac/Modules/drag/_Dragmodule.c @ 79675:c0a2294de787 2.7

Issue #16199: Backport 2to3 typo fix from 3.2.

author	Chris Jerdonek <chris.jerdonek@gmail.com>
date	Thu, 11 Oct 2012 16:15:46 -0700
parents	fd25030223b0
children

rev	line source
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	2 /* ========================== Module _Drag ========================== */
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	3
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	4 #include "Python.h"
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	5
47473 c34e34057714 MacOS X: Enable 4-way universal builds Ronald Oussoren <ronaldoussoren@mac.com> parents: 35200 diff changeset	6 #ifndef __LP64__
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	7
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	8
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	9 #include "pymactoolbox.h"
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	10
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	11 /* Macro to test whether a weak-loaded CFM function exists */
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	12 #define PyMac_PRECHECK(rtn) do { if ( &rtn == NULL ) {\
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	13 PyErr_SetString(PyExc_NotImplementedError, \
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	14 "Not available in this shared library/OS version"); \
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	15 return NULL; \
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	16 }} while(0)
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	17
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	18
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	19 #include <Carbon/Carbon.h>
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	20
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	21 /* Callback glue routines */
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	22 DragTrackingHandlerUPP dragglue_TrackingHandlerUPP;
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	23 DragReceiveHandlerUPP dragglue_ReceiveHandlerUPP;
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	24 DragSendDataUPP dragglue_SendDataUPP;
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	25 #if 0
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	26 DragInputUPP dragglue_InputUPP;
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	27 DragDrawingUPP dragglue_DrawingUPP;
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	28 #endif
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	29
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	30 #ifdef USE_TOOLBOX_OBJECT_GLUE
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	31 extern PyObject *_DragObj_New(DragRef);
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	32 extern int _DragObj_Convert(PyObject , DragRef );
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	33
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	34 #define DragObj_New _DragObj_New
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	35 #define DragObj_Convert _DragObj_Convert
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	36 #endif
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	37
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	38 static PyObject *Drag_Error;
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	39
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	40 /* ---------------------- Object type DragObj ----------------------- */
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	41
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	42 PyTypeObject DragObj_Type;
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	43
26720 a12e1727850a Regenerated with inheritance-aware xxxx_Check() macros. Jack Jansen <jack.jansen@cwi.nl> parents: 26524 diff changeset	44 #define DragObj_Check(x) ((x)->ob_type == &DragObj_Type \|\| PyObject_TypeCheck((x), &DragObj_Type))
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	45
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	46 typedef struct DragObjObject {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	47 PyObject_HEAD
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	48 DragRef ob_itself;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	49 PyObject *sendproc;
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	50 } DragObjObject;
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	51
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	52 PyObject *DragObj_New(DragRef itself)
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	53 {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	54 DragObjObject *it;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	55 if (itself == NULL) {
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	56 PyErr_SetString(Drag_Error,"Cannot create null Drag");
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	57 return NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	58 }
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	59 it = PyObject_NEW(DragObjObject, &DragObj_Type);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	60 if (it == NULL) return NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	61 it->ob_itself = itself;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	62 it->sendproc = NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	63 return (PyObject *)it;
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	64 }
35200 5df1c692bb41 Updated (and regenerated) for name change in tp_init method arguments: Jack Jansen <jack.jansen@cwi.nl> parents: 30982 diff changeset	65
19708 6eafc4a6359a Regenerated without default int return types. Jack Jansen <jack.jansen@cwi.nl> parents: 19443 diff changeset	66 int DragObj_Convert(PyObject v, DragRef p_itself)
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	67 {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	68 if (!DragObj_Check(v))
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	69 {
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	70 PyErr_SetString(PyExc_TypeError, "DragObj required");
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	71 return 0;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	72 }
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	73 p_itself = ((DragObjObject )v)->ob_itself;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	74 return 1;
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	75 }
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	76
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	77 static void DragObj_dealloc(DragObjObject *self)
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	78 {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	79 Py_XDECREF(self->sendproc);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	80 self->ob_type->tp_free((PyObject *)self);
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	81 }
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	82
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	83 static PyObject DragObj_DisposeDrag(DragObjObject _self, PyObject *_args)
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	84 {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	85 PyObject *_res = NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	86 OSErr _err;
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	87 #ifndef DisposeDrag
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	88 PyMac_PRECHECK(DisposeDrag);
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	89 #endif
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	90 if (!PyArg_ParseTuple(_args, ""))
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	91 return NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	92 _err = DisposeDrag(_self->ob_itself);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	93 if (_err != noErr) return PyMac_Error(_err);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	94 Py_INCREF(Py_None);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	95 _res = Py_None;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	96 return _res;
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	97 }
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	98
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	99 static PyObject DragObj_AddDragItemFlavor(DragObjObject _self, PyObject *_args)
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	100 {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	101 PyObject *_res = NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	102 OSErr _err;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	103 ItemReference theItemRef;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	104 FlavorType theType;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	105 char *dataPtr__in__;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	106 long dataPtr__len__;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	107 int dataPtr__in_len__;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	108 FlavorFlags theFlags;
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	109 #ifndef AddDragItemFlavor
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	110 PyMac_PRECHECK(AddDragItemFlavor);
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	111 #endif
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	112 if (!PyArg_ParseTuple(_args, "lO&z#l",
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	113 &theItemRef,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	114 PyMac_GetOSType, &theType,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	115 &dataPtr__in__, &dataPtr__in_len__,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	116 &theFlags))
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	117 return NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	118 dataPtr__len__ = dataPtr__in_len__;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	119 _err = AddDragItemFlavor(_self->ob_itself,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	120 theItemRef,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	121 theType,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	122 dataPtr__in__, dataPtr__len__,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	123 theFlags);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	124 if (_err != noErr) return PyMac_Error(_err);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	125 Py_INCREF(Py_None);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	126 _res = Py_None;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	127 return _res;
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	128 }
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	129
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	130 static PyObject DragObj_SetDragItemFlavorData(DragObjObject _self, PyObject *_args)
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	131 {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	132 PyObject *_res = NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	133 OSErr _err;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	134 ItemReference theItemRef;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	135 FlavorType theType;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	136 char *dataPtr__in__;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	137 long dataPtr__len__;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	138 int dataPtr__in_len__;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	139 UInt32 dataOffset;
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	140 #ifndef SetDragItemFlavorData
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	141 PyMac_PRECHECK(SetDragItemFlavorData);
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	142 #endif
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	143 if (!PyArg_ParseTuple(_args, "lO&z#l",
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	144 &theItemRef,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	145 PyMac_GetOSType, &theType,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	146 &dataPtr__in__, &dataPtr__in_len__,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	147 &dataOffset))
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	148 return NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	149 dataPtr__len__ = dataPtr__in_len__;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	150 _err = SetDragItemFlavorData(_self->ob_itself,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	151 theItemRef,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	152 theType,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	153 dataPtr__in__, dataPtr__len__,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	154 dataOffset);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	155 if (_err != noErr) return PyMac_Error(_err);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	156 Py_INCREF(Py_None);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	157 _res = Py_None;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	158 return _res;
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	159 }
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	160
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	161 static PyObject DragObj_SetDragImage(DragObjObject _self, PyObject *_args)
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	162 {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	163 PyObject *_res = NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	164 OSErr _err;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	165 PixMapHandle imagePixMap;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	166 RgnHandle imageRgn;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	167 Point imageOffsetPt;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	168 DragImageFlags theImageFlags;
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	169 #ifndef SetDragImage
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	170 PyMac_PRECHECK(SetDragImage);
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	171 #endif
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	172 if (!PyArg_ParseTuple(_args, "O&O&O&l",
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	173 ResObj_Convert, &imagePixMap,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	174 ResObj_Convert, &imageRgn,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	175 PyMac_GetPoint, &imageOffsetPt,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	176 &theImageFlags))
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	177 return NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	178 _err = SetDragImage(_self->ob_itself,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	179 imagePixMap,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	180 imageRgn,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	181 imageOffsetPt,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	182 theImageFlags);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	183 if (_err != noErr) return PyMac_Error(_err);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	184 Py_INCREF(Py_None);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	185 _res = Py_None;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	186 return _res;
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	187 }
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	188
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	189 static PyObject DragObj_ChangeDragBehaviors(DragObjObject _self, PyObject *_args)
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	190 {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	191 PyObject *_res = NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	192 OSErr _err;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	193 DragBehaviors inBehaviorsToSet;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	194 DragBehaviors inBehaviorsToClear;
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	195 #ifndef ChangeDragBehaviors
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	196 PyMac_PRECHECK(ChangeDragBehaviors);
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	197 #endif
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	198 if (!PyArg_ParseTuple(_args, "ll",
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	199 &inBehaviorsToSet,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	200 &inBehaviorsToClear))
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	201 return NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	202 _err = ChangeDragBehaviors(_self->ob_itself,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	203 inBehaviorsToSet,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	204 inBehaviorsToClear);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	205 if (_err != noErr) return PyMac_Error(_err);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	206 Py_INCREF(Py_None);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	207 _res = Py_None;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	208 return _res;
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	209 }
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	210
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	211 static PyObject DragObj_TrackDrag(DragObjObject _self, PyObject *_args)
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	212 {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	213 PyObject *_res = NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	214 OSErr _err;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	215 EventRecord theEvent;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	216 RgnHandle theRegion;
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	217 #ifndef TrackDrag
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	218 PyMac_PRECHECK(TrackDrag);
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	219 #endif
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	220 if (!PyArg_ParseTuple(_args, "O&O&",
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	221 PyMac_GetEventRecord, &theEvent,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	222 ResObj_Convert, &theRegion))
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	223 return NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	224 _err = TrackDrag(_self->ob_itself,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	225 &theEvent,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	226 theRegion);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	227 if (_err != noErr) return PyMac_Error(_err);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	228 Py_INCREF(Py_None);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	229 _res = Py_None;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	230 return _res;
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	231 }
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	232
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	233 static PyObject DragObj_CountDragItems(DragObjObject _self, PyObject *_args)
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	234 {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	235 PyObject *_res = NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	236 OSErr _err;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	237 UInt16 numItems;
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	238 #ifndef CountDragItems
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	239 PyMac_PRECHECK(CountDragItems);
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	240 #endif
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	241 if (!PyArg_ParseTuple(_args, ""))
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	242 return NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	243 _err = CountDragItems(_self->ob_itself,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	244 &numItems);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	245 if (_err != noErr) return PyMac_Error(_err);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	246 _res = Py_BuildValue("H",
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	247 numItems);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	248 return _res;
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	249 }
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	250
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	251 static PyObject DragObj_GetDragItemReferenceNumber(DragObjObject _self, PyObject *_args)
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	252 {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	253 PyObject *_res = NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	254 OSErr _err;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	255 UInt16 index;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	256 ItemReference theItemRef;
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	257 #ifndef GetDragItemReferenceNumber
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	258 PyMac_PRECHECK(GetDragItemReferenceNumber);
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	259 #endif
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	260 if (!PyArg_ParseTuple(_args, "H",
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	261 &index))
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	262 return NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	263 _err = GetDragItemReferenceNumber(_self->ob_itself,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	264 index,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	265 &theItemRef);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	266 if (_err != noErr) return PyMac_Error(_err);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	267 _res = Py_BuildValue("l",
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	268 theItemRef);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	269 return _res;
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	270 }
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	271
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	272 static PyObject DragObj_CountDragItemFlavors(DragObjObject _self, PyObject *_args)
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	273 {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	274 PyObject *_res = NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	275 OSErr _err;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	276 ItemReference theItemRef;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	277 UInt16 numFlavors;
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	278 #ifndef CountDragItemFlavors
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	279 PyMac_PRECHECK(CountDragItemFlavors);
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	280 #endif
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	281 if (!PyArg_ParseTuple(_args, "l",
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	282 &theItemRef))
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	283 return NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	284 _err = CountDragItemFlavors(_self->ob_itself,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	285 theItemRef,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	286 &numFlavors);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	287 if (_err != noErr) return PyMac_Error(_err);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	288 _res = Py_BuildValue("H",
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	289 numFlavors);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	290 return _res;
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	291 }
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	292
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	293 static PyObject DragObj_GetFlavorType(DragObjObject _self, PyObject *_args)
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	294 {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	295 PyObject *_res = NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	296 OSErr _err;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	297 ItemReference theItemRef;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	298 UInt16 index;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	299 FlavorType theType;
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	300 #ifndef GetFlavorType
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	301 PyMac_PRECHECK(GetFlavorType);
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	302 #endif
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	303 if (!PyArg_ParseTuple(_args, "lH",
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	304 &theItemRef,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	305 &index))
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	306 return NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	307 _err = GetFlavorType(_self->ob_itself,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	308 theItemRef,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	309 index,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	310 &theType);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	311 if (_err != noErr) return PyMac_Error(_err);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	312 _res = Py_BuildValue("O&",
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	313 PyMac_BuildOSType, theType);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	314 return _res;
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	315 }
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	316
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	317 static PyObject DragObj_GetFlavorFlags(DragObjObject _self, PyObject *_args)
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	318 {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	319 PyObject *_res = NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	320 OSErr _err;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	321 ItemReference theItemRef;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	322 FlavorType theType;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	323 FlavorFlags theFlags;
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	324 #ifndef GetFlavorFlags
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	325 PyMac_PRECHECK(GetFlavorFlags);
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	326 #endif
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	327 if (!PyArg_ParseTuple(_args, "lO&",
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	328 &theItemRef,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	329 PyMac_GetOSType, &theType))
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	330 return NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	331 _err = GetFlavorFlags(_self->ob_itself,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	332 theItemRef,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	333 theType,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	334 &theFlags);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	335 if (_err != noErr) return PyMac_Error(_err);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	336 _res = Py_BuildValue("l",
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	337 theFlags);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	338 return _res;
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	339 }
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	340
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	341 static PyObject DragObj_GetFlavorDataSize(DragObjObject _self, PyObject *_args)
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	342 {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	343 PyObject *_res = NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	344 OSErr _err;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	345 ItemReference theItemRef;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	346 FlavorType theType;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	347 Size dataSize;
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	348 #ifndef GetFlavorDataSize
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	349 PyMac_PRECHECK(GetFlavorDataSize);
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	350 #endif
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	351 if (!PyArg_ParseTuple(_args, "lO&",
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	352 &theItemRef,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	353 PyMac_GetOSType, &theType))
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	354 return NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	355 _err = GetFlavorDataSize(_self->ob_itself,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	356 theItemRef,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	357 theType,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	358 &dataSize);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	359 if (_err != noErr) return PyMac_Error(_err);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	360 _res = Py_BuildValue("l",
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	361 dataSize);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	362 return _res;
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	363 }
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	364
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	365 static PyObject DragObj_GetFlavorData(DragObjObject _self, PyObject *_args)
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	366 {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	367 PyObject *_res = NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	368 OSErr _err;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	369 ItemReference theItemRef;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	370 FlavorType theType;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	371 char *dataPtr__out__;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	372 long dataPtr__len__;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	373 int dataPtr__in_len__;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	374 UInt32 dataOffset;
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	375 #ifndef GetFlavorData
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	376 PyMac_PRECHECK(GetFlavorData);
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	377 #endif
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	378 if (!PyArg_ParseTuple(_args, "lO&il",
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	379 &theItemRef,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	380 PyMac_GetOSType, &theType,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	381 &dataPtr__in_len__,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	382 &dataOffset))
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	383 return NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	384 if ((dataPtr__out__ = malloc(dataPtr__in_len__)) == NULL)
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	385 {
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	386 PyErr_NoMemory();
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	387 goto dataPtr__error__;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	388 }
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	389 dataPtr__len__ = dataPtr__in_len__;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	390 _err = GetFlavorData(_self->ob_itself,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	391 theItemRef,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	392 theType,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	393 dataPtr__out__, &dataPtr__len__,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	394 dataOffset);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	395 if (_err != noErr) return PyMac_Error(_err);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	396 _res = Py_BuildValue("s#",
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	397 dataPtr__out__, (int)dataPtr__len__);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	398 free(dataPtr__out__);
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	399 dataPtr__error__: ;
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	400 return _res;
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	401 }
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	402
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	403 static PyObject DragObj_GetDragItemBounds(DragObjObject _self, PyObject *_args)
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	404 {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	405 PyObject *_res = NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	406 OSErr _err;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	407 ItemReference theItemRef;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	408 Rect itemBounds;
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	409 #ifndef GetDragItemBounds
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	410 PyMac_PRECHECK(GetDragItemBounds);
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	411 #endif
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	412 if (!PyArg_ParseTuple(_args, "l",
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	413 &theItemRef))
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	414 return NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	415 _err = GetDragItemBounds(_self->ob_itself,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	416 theItemRef,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	417 &itemBounds);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	418 if (_err != noErr) return PyMac_Error(_err);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	419 _res = Py_BuildValue("O&",
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	420 PyMac_BuildRect, &itemBounds);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	421 return _res;
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	422 }
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	423
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	424 static PyObject DragObj_SetDragItemBounds(DragObjObject _self, PyObject *_args)
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	425 {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	426 PyObject *_res = NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	427 OSErr _err;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	428 ItemReference theItemRef;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	429 Rect itemBounds;
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	430 #ifndef SetDragItemBounds
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	431 PyMac_PRECHECK(SetDragItemBounds);
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	432 #endif
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	433 if (!PyArg_ParseTuple(_args, "lO&",
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	434 &theItemRef,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	435 PyMac_GetRect, &itemBounds))
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	436 return NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	437 _err = SetDragItemBounds(_self->ob_itself,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	438 theItemRef,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	439 &itemBounds);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	440 if (_err != noErr) return PyMac_Error(_err);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	441 Py_INCREF(Py_None);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	442 _res = Py_None;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	443 return _res;
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	444 }
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	445
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	446 static PyObject DragObj_GetDropLocation(DragObjObject _self, PyObject *_args)
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	447 {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	448 PyObject *_res = NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	449 OSErr _err;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	450 AEDesc dropLocation;
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	451 #ifndef GetDropLocation
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	452 PyMac_PRECHECK(GetDropLocation);
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	453 #endif
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	454 if (!PyArg_ParseTuple(_args, ""))
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	455 return NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	456 _err = GetDropLocation(_self->ob_itself,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	457 &dropLocation);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	458 if (_err != noErr) return PyMac_Error(_err);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	459 _res = Py_BuildValue("O&",
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	460 AEDesc_New, &dropLocation);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	461 return _res;
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	462 }
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	463
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	464 static PyObject DragObj_SetDropLocation(DragObjObject _self, PyObject *_args)
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	465 {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	466 PyObject *_res = NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	467 OSErr _err;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	468 AEDesc dropLocation;
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	469 #ifndef SetDropLocation
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	470 PyMac_PRECHECK(SetDropLocation);
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	471 #endif
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	472 if (!PyArg_ParseTuple(_args, "O&",
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	473 AEDesc_Convert, &dropLocation))
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	474 return NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	475 _err = SetDropLocation(_self->ob_itself,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	476 &dropLocation);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	477 if (_err != noErr) return PyMac_Error(_err);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	478 Py_INCREF(Py_None);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	479 _res = Py_None;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	480 return _res;
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	481 }
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	482
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	483 static PyObject DragObj_GetDragAttributes(DragObjObject _self, PyObject *_args)
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	484 {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	485 PyObject *_res = NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	486 OSErr _err;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	487 DragAttributes flags;
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	488 #ifndef GetDragAttributes
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	489 PyMac_PRECHECK(GetDragAttributes);
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	490 #endif
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	491 if (!PyArg_ParseTuple(_args, ""))
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	492 return NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	493 _err = GetDragAttributes(_self->ob_itself,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	494 &flags);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	495 if (_err != noErr) return PyMac_Error(_err);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	496 _res = Py_BuildValue("l",
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	497 flags);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	498 return _res;
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	499 }
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	500
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	501 static PyObject DragObj_GetDragMouse(DragObjObject _self, PyObject *_args)
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	502 {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	503 PyObject *_res = NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	504 OSErr _err;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	505 Point mouse;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	506 Point globalPinnedMouse;
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	507 #ifndef GetDragMouse
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	508 PyMac_PRECHECK(GetDragMouse);
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	509 #endif
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	510 if (!PyArg_ParseTuple(_args, ""))
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	511 return NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	512 _err = GetDragMouse(_self->ob_itself,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	513 &mouse,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	514 &globalPinnedMouse);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	515 if (_err != noErr) return PyMac_Error(_err);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	516 _res = Py_BuildValue("O&O&",
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	517 PyMac_BuildPoint, mouse,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	518 PyMac_BuildPoint, globalPinnedMouse);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	519 return _res;
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	520 }
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	521
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	522 static PyObject DragObj_SetDragMouse(DragObjObject _self, PyObject *_args)
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	523 {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	524 PyObject *_res = NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	525 OSErr _err;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	526 Point globalPinnedMouse;
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	527 #ifndef SetDragMouse
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	528 PyMac_PRECHECK(SetDragMouse);
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	529 #endif
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	530 if (!PyArg_ParseTuple(_args, "O&",
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	531 PyMac_GetPoint, &globalPinnedMouse))
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	532 return NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	533 _err = SetDragMouse(_self->ob_itself,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	534 globalPinnedMouse);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	535 if (_err != noErr) return PyMac_Error(_err);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	536 Py_INCREF(Py_None);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	537 _res = Py_None;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	538 return _res;
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	539 }
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	540
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	541 static PyObject DragObj_GetDragOrigin(DragObjObject _self, PyObject *_args)
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	542 {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	543 PyObject *_res = NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	544 OSErr _err;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	545 Point globalInitialMouse;
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	546 #ifndef GetDragOrigin
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	547 PyMac_PRECHECK(GetDragOrigin);
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	548 #endif
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	549 if (!PyArg_ParseTuple(_args, ""))
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	550 return NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	551 _err = GetDragOrigin(_self->ob_itself,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	552 &globalInitialMouse);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	553 if (_err != noErr) return PyMac_Error(_err);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	554 _res = Py_BuildValue("O&",
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	555 PyMac_BuildPoint, globalInitialMouse);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	556 return _res;
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	557 }
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	558
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	559 static PyObject DragObj_GetDragModifiers(DragObjObject _self, PyObject *_args)
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	560 {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	561 PyObject *_res = NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	562 OSErr _err;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	563 SInt16 modifiers;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	564 SInt16 mouseDownModifiers;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	565 SInt16 mouseUpModifiers;
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	566 #ifndef GetDragModifiers
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	567 PyMac_PRECHECK(GetDragModifiers);
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	568 #endif
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	569 if (!PyArg_ParseTuple(_args, ""))
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	570 return NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	571 _err = GetDragModifiers(_self->ob_itself,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	572 &modifiers,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	573 &mouseDownModifiers,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	574 &mouseUpModifiers);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	575 if (_err != noErr) return PyMac_Error(_err);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	576 _res = Py_BuildValue("hhh",
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	577 modifiers,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	578 mouseDownModifiers,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	579 mouseUpModifiers);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	580 return _res;
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	581 }
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	582
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	583 static PyObject DragObj_ShowDragHilite(DragObjObject _self, PyObject *_args)
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	584 {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	585 PyObject *_res = NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	586 OSErr _err;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	587 RgnHandle hiliteFrame;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	588 Boolean inside;
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	589 #ifndef ShowDragHilite
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	590 PyMac_PRECHECK(ShowDragHilite);
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	591 #endif
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	592 if (!PyArg_ParseTuple(_args, "O&b",
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	593 ResObj_Convert, &hiliteFrame,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	594 &inside))
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	595 return NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	596 _err = ShowDragHilite(_self->ob_itself,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	597 hiliteFrame,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	598 inside);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	599 if (_err != noErr) return PyMac_Error(_err);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	600 Py_INCREF(Py_None);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	601 _res = Py_None;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	602 return _res;
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	603 }
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	604
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	605 static PyObject DragObj_HideDragHilite(DragObjObject _self, PyObject *_args)
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	606 {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	607 PyObject *_res = NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	608 OSErr _err;
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	609 #ifndef HideDragHilite
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	610 PyMac_PRECHECK(HideDragHilite);
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	611 #endif
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	612 if (!PyArg_ParseTuple(_args, ""))
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	613 return NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	614 _err = HideDragHilite(_self->ob_itself);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	615 if (_err != noErr) return PyMac_Error(_err);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	616 Py_INCREF(Py_None);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	617 _res = Py_None;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	618 return _res;
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	619 }
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	620
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	621 static PyObject DragObj_DragPreScroll(DragObjObject _self, PyObject *_args)
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	622 {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	623 PyObject *_res = NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	624 OSErr _err;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	625 SInt16 dH;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	626 SInt16 dV;
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	627 #ifndef DragPreScroll
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	628 PyMac_PRECHECK(DragPreScroll);
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	629 #endif
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	630 if (!PyArg_ParseTuple(_args, "hh",
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	631 &dH,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	632 &dV))
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	633 return NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	634 _err = DragPreScroll(_self->ob_itself,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	635 dH,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	636 dV);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	637 if (_err != noErr) return PyMac_Error(_err);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	638 Py_INCREF(Py_None);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	639 _res = Py_None;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	640 return _res;
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	641 }
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	642
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	643 static PyObject DragObj_DragPostScroll(DragObjObject _self, PyObject *_args)
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	644 {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	645 PyObject *_res = NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	646 OSErr _err;
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	647 #ifndef DragPostScroll
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	648 PyMac_PRECHECK(DragPostScroll);
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	649 #endif
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	650 if (!PyArg_ParseTuple(_args, ""))
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	651 return NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	652 _err = DragPostScroll(_self->ob_itself);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	653 if (_err != noErr) return PyMac_Error(_err);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	654 Py_INCREF(Py_None);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	655 _res = Py_None;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	656 return _res;
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	657 }
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	658
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	659 static PyObject DragObj_UpdateDragHilite(DragObjObject _self, PyObject *_args)
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	660 {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	661 PyObject *_res = NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	662 OSErr _err;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	663 RgnHandle updateRgn;
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	664 #ifndef UpdateDragHilite
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	665 PyMac_PRECHECK(UpdateDragHilite);
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	666 #endif
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	667 if (!PyArg_ParseTuple(_args, "O&",
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	668 ResObj_Convert, &updateRgn))
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	669 return NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	670 _err = UpdateDragHilite(_self->ob_itself,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	671 updateRgn);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	672 if (_err != noErr) return PyMac_Error(_err);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	673 Py_INCREF(Py_None);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	674 _res = Py_None;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	675 return _res;
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	676 }
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	677
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	678 static PyMethodDef DragObj_methods[] = {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	679 {"DisposeDrag", (PyCFunction)DragObj_DisposeDrag, 1,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	680 PyDoc_STR("() -> None")},
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	681 {"AddDragItemFlavor", (PyCFunction)DragObj_AddDragItemFlavor, 1,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	682 PyDoc_STR("(ItemReference theItemRef, FlavorType theType, Buffer dataPtr, FlavorFlags theFlags) -> None")},
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	683 {"SetDragItemFlavorData", (PyCFunction)DragObj_SetDragItemFlavorData, 1,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	684 PyDoc_STR("(ItemReference theItemRef, FlavorType theType, Buffer dataPtr, UInt32 dataOffset) -> None")},
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	685 {"SetDragImage", (PyCFunction)DragObj_SetDragImage, 1,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	686 PyDoc_STR("(PixMapHandle imagePixMap, RgnHandle imageRgn, Point imageOffsetPt, DragImageFlags theImageFlags) -> None")},
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	687 {"ChangeDragBehaviors", (PyCFunction)DragObj_ChangeDragBehaviors, 1,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	688 PyDoc_STR("(DragBehaviors inBehaviorsToSet, DragBehaviors inBehaviorsToClear) -> None")},
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	689 {"TrackDrag", (PyCFunction)DragObj_TrackDrag, 1,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	690 PyDoc_STR("(EventRecord theEvent, RgnHandle theRegion) -> None")},
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	691 {"CountDragItems", (PyCFunction)DragObj_CountDragItems, 1,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	692 PyDoc_STR("() -> (UInt16 numItems)")},
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	693 {"GetDragItemReferenceNumber", (PyCFunction)DragObj_GetDragItemReferenceNumber, 1,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	694 PyDoc_STR("(UInt16 index) -> (ItemReference theItemRef)")},
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	695 {"CountDragItemFlavors", (PyCFunction)DragObj_CountDragItemFlavors, 1,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	696 PyDoc_STR("(ItemReference theItemRef) -> (UInt16 numFlavors)")},
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	697 {"GetFlavorType", (PyCFunction)DragObj_GetFlavorType, 1,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	698 PyDoc_STR("(ItemReference theItemRef, UInt16 index) -> (FlavorType theType)")},
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	699 {"GetFlavorFlags", (PyCFunction)DragObj_GetFlavorFlags, 1,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	700 PyDoc_STR("(ItemReference theItemRef, FlavorType theType) -> (FlavorFlags theFlags)")},
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	701 {"GetFlavorDataSize", (PyCFunction)DragObj_GetFlavorDataSize, 1,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	702 PyDoc_STR("(ItemReference theItemRef, FlavorType theType) -> (Size dataSize)")},
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	703 {"GetFlavorData", (PyCFunction)DragObj_GetFlavorData, 1,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	704 PyDoc_STR("(ItemReference theItemRef, FlavorType theType, Buffer dataPtr, UInt32 dataOffset) -> (Buffer dataPtr)")},
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	705 {"GetDragItemBounds", (PyCFunction)DragObj_GetDragItemBounds, 1,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	706 PyDoc_STR("(ItemReference theItemRef) -> (Rect itemBounds)")},
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	707 {"SetDragItemBounds", (PyCFunction)DragObj_SetDragItemBounds, 1,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	708 PyDoc_STR("(ItemReference theItemRef, Rect itemBounds) -> None")},
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	709 {"GetDropLocation", (PyCFunction)DragObj_GetDropLocation, 1,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	710 PyDoc_STR("() -> (AEDesc dropLocation)")},
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	711 {"SetDropLocation", (PyCFunction)DragObj_SetDropLocation, 1,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	712 PyDoc_STR("(AEDesc dropLocation) -> None")},
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	713 {"GetDragAttributes", (PyCFunction)DragObj_GetDragAttributes, 1,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	714 PyDoc_STR("() -> (DragAttributes flags)")},
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	715 {"GetDragMouse", (PyCFunction)DragObj_GetDragMouse, 1,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	716 PyDoc_STR("() -> (Point mouse, Point globalPinnedMouse)")},
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	717 {"SetDragMouse", (PyCFunction)DragObj_SetDragMouse, 1,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	718 PyDoc_STR("(Point globalPinnedMouse) -> None")},
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	719 {"GetDragOrigin", (PyCFunction)DragObj_GetDragOrigin, 1,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	720 PyDoc_STR("() -> (Point globalInitialMouse)")},
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	721 {"GetDragModifiers", (PyCFunction)DragObj_GetDragModifiers, 1,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	722 PyDoc_STR("() -> (SInt16 modifiers, SInt16 mouseDownModifiers, SInt16 mouseUpModifiers)")},
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	723 {"ShowDragHilite", (PyCFunction)DragObj_ShowDragHilite, 1,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	724 PyDoc_STR("(RgnHandle hiliteFrame, Boolean inside) -> None")},
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	725 {"HideDragHilite", (PyCFunction)DragObj_HideDragHilite, 1,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	726 PyDoc_STR("() -> None")},
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	727 {"DragPreScroll", (PyCFunction)DragObj_DragPreScroll, 1,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	728 PyDoc_STR("(SInt16 dH, SInt16 dV) -> None")},
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	729 {"DragPostScroll", (PyCFunction)DragObj_DragPostScroll, 1,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	730 PyDoc_STR("() -> None")},
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	731 {"UpdateDragHilite", (PyCFunction)DragObj_UpdateDragHilite, 1,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	732 PyDoc_STR("(RgnHandle updateRgn) -> None")},
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	733 {NULL, NULL, 0}
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	734 };
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	735
26464 14fc187334c5 Converted the Carbon modules to use PEP252-style objects, with Jack Jansen <jack.jansen@cwi.nl> parents: 24865 diff changeset	736 #define DragObj_getsetlist NULL
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	737
26524 7aba859cee54 Added PEP253 support to most Carbon modules. This isn't complete yet: Jack Jansen <jack.jansen@cwi.nl> parents: 26464 diff changeset	738
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	739 #define DragObj_compare NULL
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	740
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	741 #define DragObj_repr NULL
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	742
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	743 #define DragObj_hash NULL
26524 7aba859cee54 Added PEP253 support to most Carbon modules. This isn't complete yet: Jack Jansen <jack.jansen@cwi.nl> parents: 26464 diff changeset	744 #define DragObj_tp_init 0
7aba859cee54 Added PEP253 support to most Carbon modules. This isn't complete yet: Jack Jansen <jack.jansen@cwi.nl> parents: 26464 diff changeset	745
7aba859cee54 Added PEP253 support to most Carbon modules. This isn't complete yet: Jack Jansen <jack.jansen@cwi.nl> parents: 26464 diff changeset	746 #define DragObj_tp_alloc PyType_GenericAlloc
7aba859cee54 Added PEP253 support to most Carbon modules. This isn't complete yet: Jack Jansen <jack.jansen@cwi.nl> parents: 26464 diff changeset	747
35200 5df1c692bb41 Updated (and regenerated) for name change in tp_init method arguments: Jack Jansen <jack.jansen@cwi.nl> parents: 30982 diff changeset	748 static PyObject DragObj_tp_new(PyTypeObject type, PyObject _args, PyObject _kwds)
26524 7aba859cee54 Added PEP253 support to most Carbon modules. This isn't complete yet: Jack Jansen <jack.jansen@cwi.nl> parents: 26464 diff changeset	749 {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	750 PyObject *_self;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	751 DragRef itself;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	752 char *kw[] = {"itself", 0};
26524 7aba859cee54 Added PEP253 support to most Carbon modules. This isn't complete yet: Jack Jansen <jack.jansen@cwi.nl> parents: 26464 diff changeset	753
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	754 if (!PyArg_ParseTupleAndKeywords(_args, _kwds, "O&", kw, DragObj_Convert, &itself)) return NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	755 if ((_self = type->tp_alloc(type, 0)) == NULL) return NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	756 ((DragObjObject *)_self)->ob_itself = itself;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	757 return _self;
26524 7aba859cee54 Added PEP253 support to most Carbon modules. This isn't complete yet: Jack Jansen <jack.jansen@cwi.nl> parents: 26464 diff changeset	758 }
7aba859cee54 Added PEP253 support to most Carbon modules. This isn't complete yet: Jack Jansen <jack.jansen@cwi.nl> parents: 26464 diff changeset	759
7aba859cee54 Added PEP253 support to most Carbon modules. This isn't complete yet: Jack Jansen <jack.jansen@cwi.nl> parents: 26464 diff changeset	760 #define DragObj_tp_free PyObject_Del
7aba859cee54 Added PEP253 support to most Carbon modules. This isn't complete yet: Jack Jansen <jack.jansen@cwi.nl> parents: 26464 diff changeset	761
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	762
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	763 PyTypeObject DragObj_Type = {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	764 PyObject_HEAD_INIT(NULL)
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	765 0, /ob_size/
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	766 "_Drag.DragObj", /tp_name/
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	767 sizeof(DragObjObject), /tp_basicsize/
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	768 0, /tp_itemsize/
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	769 /* methods */
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	770 (destructor) DragObj_dealloc, /tp_dealloc/
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	771 0, /tp_print/
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	772 (getattrfunc)0, /tp_getattr/
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	773 (setattrfunc)0, /tp_setattr/
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	774 (cmpfunc) DragObj_compare, /tp_compare/
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	775 (reprfunc) DragObj_repr, /tp_repr/
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	776 (PyNumberMethods )0, / tp_as_number */
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	777 (PySequenceMethods )0, / tp_as_sequence */
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	778 (PyMappingMethods )0, / tp_as_mapping */
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	779 (hashfunc) DragObj_hash, /tp_hash/
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	780 0, /tp_call/
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	781 0, /tp_str/
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	782 PyObject_GenericGetAttr, /tp_getattro/
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	783 PyObject_GenericSetAttr, /tp_setattro /
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	784 0, /tp_as_buffer/
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	785 Py_TPFLAGS_DEFAULT\|Py_TPFLAGS_BASETYPE, /* tp_flags */
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	786 0, /tp_doc/
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	787 0, /tp_traverse/
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	788 0, /tp_clear/
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	789 0, /tp_richcompare/
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	790 0, /tp_weaklistoffset/
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	791 0, /tp_iter/
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	792 0, /tp_iternext/
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	793 DragObj_methods, /* tp_methods */
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	794 0, /tp_members/
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	795 DragObj_getsetlist, /tp_getset/
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	796 0, /tp_base/
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	797 0, /tp_dict/
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	798 0, /tp_descr_get/
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	799 0, /tp_descr_set/
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	800 0, /tp_dictoffset/
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	801 DragObj_tp_init, /* tp_init */
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	802 DragObj_tp_alloc, /* tp_alloc */
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	803 DragObj_tp_new, /* tp_new */
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	804 DragObj_tp_free, /* tp_free */
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	805 };
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	806
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	807 /* -------------------- End object type DragObj --------------------- */
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	808
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	809
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	810 static PyObject Drag_NewDrag(PyObject _self, PyObject *_args)
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	811 {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	812 PyObject *_res = NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	813 OSErr _err;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	814 DragRef theDrag;
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	815 #ifndef NewDrag
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	816 PyMac_PRECHECK(NewDrag);
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	817 #endif
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	818 if (!PyArg_ParseTuple(_args, ""))
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	819 return NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	820 _err = NewDrag(&theDrag);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	821 if (_err != noErr) return PyMac_Error(_err);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	822 _res = Py_BuildValue("O&",
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	823 DragObj_New, theDrag);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	824 return _res;
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	825 }
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	826
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	827 static PyObject Drag_GetDragHiliteColor(PyObject _self, PyObject *_args)
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	828 {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	829 PyObject *_res = NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	830 OSErr _err;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	831 WindowPtr window;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	832 RGBColor color;
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	833 #ifndef GetDragHiliteColor
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	834 PyMac_PRECHECK(GetDragHiliteColor);
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	835 #endif
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	836 if (!PyArg_ParseTuple(_args, "O&",
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	837 WinObj_Convert, &window))
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	838 return NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	839 _err = GetDragHiliteColor(window,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	840 &color);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	841 if (_err != noErr) return PyMac_Error(_err);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	842 _res = Py_BuildValue("O&",
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	843 QdRGB_New, &color);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	844 return _res;
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	845 }
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	846
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	847 static PyObject Drag_WaitMouseMoved(PyObject _self, PyObject *_args)
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	848 {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	849 PyObject *_res = NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	850 Boolean _rv;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	851 Point initialMouse;
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	852 #ifndef WaitMouseMoved
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	853 PyMac_PRECHECK(WaitMouseMoved);
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	854 #endif
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	855 if (!PyArg_ParseTuple(_args, "O&",
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	856 PyMac_GetPoint, &initialMouse))
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	857 return NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	858 _rv = WaitMouseMoved(initialMouse);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	859 _res = Py_BuildValue("b",
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	860 _rv);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	861 return _res;
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	862 }
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	863
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	864 static PyObject Drag_ZoomRects(PyObject _self, PyObject *_args)
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	865 {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	866 PyObject *_res = NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	867 OSErr _err;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	868 Rect fromRect;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	869 Rect toRect;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	870 SInt16 zoomSteps;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	871 ZoomAcceleration acceleration;
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	872 #ifndef ZoomRects
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	873 PyMac_PRECHECK(ZoomRects);
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	874 #endif
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	875 if (!PyArg_ParseTuple(_args, "O&O&hh",
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	876 PyMac_GetRect, &fromRect,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	877 PyMac_GetRect, &toRect,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	878 &zoomSteps,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	879 &acceleration))
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	880 return NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	881 _err = ZoomRects(&fromRect,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	882 &toRect,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	883 zoomSteps,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	884 acceleration);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	885 if (_err != noErr) return PyMac_Error(_err);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	886 Py_INCREF(Py_None);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	887 _res = Py_None;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	888 return _res;
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	889 }
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	890
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	891 static PyObject Drag_ZoomRegion(PyObject _self, PyObject *_args)
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	892 {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	893 PyObject *_res = NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	894 OSErr _err;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	895 RgnHandle region;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	896 Point zoomDistance;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	897 SInt16 zoomSteps;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	898 ZoomAcceleration acceleration;
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	899 #ifndef ZoomRegion
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	900 PyMac_PRECHECK(ZoomRegion);
22522 8bfc91849242 Backport of _Dragmodule.c 1.8, dragsupport.py 1.10: Jack Jansen <jack.jansen@cwi.nl> parents: 21631 diff changeset	901 #endif
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	902 if (!PyArg_ParseTuple(_args, "O&O&hh",
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	903 ResObj_Convert, &region,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	904 PyMac_GetPoint, &zoomDistance,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	905 &zoomSteps,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	906 &acceleration))
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	907 return NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	908 _err = ZoomRegion(region,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	909 zoomDistance,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	910 zoomSteps,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	911 acceleration);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	912 if (_err != noErr) return PyMac_Error(_err);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	913 Py_INCREF(Py_None);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	914 _res = Py_None;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	915 return _res;
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	916 }
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	917
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	918 static PyObject Drag_InstallTrackingHandler(PyObject _self, PyObject *_args)
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	919 {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	920 PyObject *_res = NULL;
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	921
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	922 PyObject *callback;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	923 WindowPtr theWindow = NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	924 OSErr _err;
35200 5df1c692bb41 Updated (and regenerated) for name change in tp_init method arguments: Jack Jansen <jack.jansen@cwi.nl> parents: 30982 diff changeset	925
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	926 if ( !PyArg_ParseTuple(_args, "O\|O&", &callback, WinObj_Convert, &theWindow) )
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	927 return NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	928 Py_INCREF(callback); /* Cannot decref later, too bad */
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	929 _err = InstallTrackingHandler(dragglue_TrackingHandlerUPP, theWindow, (void *)callback);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	930 if (_err != noErr) return PyMac_Error(_err);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	931 Py_INCREF(Py_None);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	932 _res = Py_None;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	933 return _res;
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	934
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	935 }
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	936
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	937 static PyObject Drag_InstallReceiveHandler(PyObject _self, PyObject *_args)
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	938 {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	939 PyObject *_res = NULL;
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	940
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	941 PyObject *callback;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	942 WindowPtr theWindow = NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	943 OSErr _err;
35200 5df1c692bb41 Updated (and regenerated) for name change in tp_init method arguments: Jack Jansen <jack.jansen@cwi.nl> parents: 30982 diff changeset	944
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	945 if ( !PyArg_ParseTuple(_args, "O\|O&", &callback, WinObj_Convert, &theWindow) )
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	946 return NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	947 Py_INCREF(callback); /* Cannot decref later, too bad */
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	948 _err = InstallReceiveHandler(dragglue_ReceiveHandlerUPP, theWindow, (void *)callback);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	949 if (_err != noErr) return PyMac_Error(_err);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	950 Py_INCREF(Py_None);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	951 _res = Py_None;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	952 return _res;
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	953
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	954 }
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	955
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	956 static PyObject Drag_RemoveTrackingHandler(PyObject _self, PyObject *_args)
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	957 {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	958 PyObject *_res = NULL;
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	959
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	960 WindowPtr theWindow = NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	961 OSErr _err;
35200 5df1c692bb41 Updated (and regenerated) for name change in tp_init method arguments: Jack Jansen <jack.jansen@cwi.nl> parents: 30982 diff changeset	962
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	963 if ( !PyArg_ParseTuple(_args, "\|O&", WinObj_Convert, &theWindow) )
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	964 return NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	965 _err = RemoveTrackingHandler(dragglue_TrackingHandlerUPP, theWindow);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	966 if (_err != noErr) return PyMac_Error(_err);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	967 Py_INCREF(Py_None);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	968 _res = Py_None;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	969 return _res;
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	970
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	971 }
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	972
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	973 static PyObject Drag_RemoveReceiveHandler(PyObject _self, PyObject *_args)
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	974 {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	975 PyObject *_res = NULL;
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	976
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	977 WindowPtr theWindow = NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	978 OSErr _err;
35200 5df1c692bb41 Updated (and regenerated) for name change in tp_init method arguments: Jack Jansen <jack.jansen@cwi.nl> parents: 30982 diff changeset	979
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	980 if ( !PyArg_ParseTuple(_args, "\|O&", WinObj_Convert, &theWindow) )
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	981 return NULL;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	982 _err = RemoveReceiveHandler(dragglue_ReceiveHandlerUPP, theWindow);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	983 if (_err != noErr) return PyMac_Error(_err);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	984 Py_INCREF(Py_None);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	985 _res = Py_None;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	986 return _res;
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	987
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	988 }
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	989
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	990 static PyMethodDef Drag_methods[] = {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	991 {"NewDrag", (PyCFunction)Drag_NewDrag, 1,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	992 PyDoc_STR("() -> (DragRef theDrag)")},
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	993 {"GetDragHiliteColor", (PyCFunction)Drag_GetDragHiliteColor, 1,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	994 PyDoc_STR("(WindowPtr window) -> (RGBColor color)")},
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	995 {"WaitMouseMoved", (PyCFunction)Drag_WaitMouseMoved, 1,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	996 PyDoc_STR("(Point initialMouse) -> (Boolean _rv)")},
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	997 {"ZoomRects", (PyCFunction)Drag_ZoomRects, 1,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	998 PyDoc_STR("(Rect fromRect, Rect toRect, SInt16 zoomSteps, ZoomAcceleration acceleration) -> None")},
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	999 {"ZoomRegion", (PyCFunction)Drag_ZoomRegion, 1,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1000 PyDoc_STR("(RgnHandle region, Point zoomDistance, SInt16 zoomSteps, ZoomAcceleration acceleration) -> None")},
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1001 {"InstallTrackingHandler", (PyCFunction)Drag_InstallTrackingHandler, 1,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1002 PyDoc_STR(NULL)},
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1003 {"InstallReceiveHandler", (PyCFunction)Drag_InstallReceiveHandler, 1,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1004 PyDoc_STR(NULL)},
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1005 {"RemoveTrackingHandler", (PyCFunction)Drag_RemoveTrackingHandler, 1,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1006 PyDoc_STR(NULL)},
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1007 {"RemoveReceiveHandler", (PyCFunction)Drag_RemoveReceiveHandler, 1,
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1008 PyDoc_STR(NULL)},
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1009 {NULL, NULL, 0}
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1010 };
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1011
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1012
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1013
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1014 static pascal OSErr
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1015 dragglue_TrackingHandler(DragTrackingMessage theMessage, WindowPtr theWindow,
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1016 void *handlerRefCon, DragReference theDrag)
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1017 {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1018 PyObject args, rv;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1019 int i;
35200 5df1c692bb41 Updated (and regenerated) for name change in tp_init method arguments: Jack Jansen <jack.jansen@cwi.nl> parents: 30982 diff changeset	1020
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1021 args = Py_BuildValue("hO&O&", theMessage, DragObj_New, theDrag, WinObj_WhichWindow, theWindow);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1022 if ( args == NULL )
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1023 return -1;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1024 rv = PyEval_CallObject((PyObject *)handlerRefCon, args);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1025 Py_DECREF(args);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1026 if ( rv == NULL ) {
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1027 PySys_WriteStderr("Drag: Exception in TrackingHandler\n");
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1028 PyErr_Print();
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1029 return -1;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1030 }
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1031 i = -1;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1032 if ( rv == Py_None )
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1033 i = 0;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1034 else
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1035 PyArg_Parse(rv, "l", &i);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1036 Py_DECREF(rv);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1037 return i;
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1038 }
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1039
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1040 static pascal OSErr
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1041 dragglue_ReceiveHandler(WindowPtr theWindow, void *handlerRefCon,
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1042 DragReference theDrag)
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1043 {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1044 PyObject args, rv;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1045 int i;
35200 5df1c692bb41 Updated (and regenerated) for name change in tp_init method arguments: Jack Jansen <jack.jansen@cwi.nl> parents: 30982 diff changeset	1046
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1047 args = Py_BuildValue("O&O&", DragObj_New, theDrag, WinObj_WhichWindow, theWindow);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1048 if ( args == NULL )
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1049 return -1;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1050 rv = PyEval_CallObject((PyObject *)handlerRefCon, args);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1051 Py_DECREF(args);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1052 if ( rv == NULL ) {
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1053 PySys_WriteStderr("Drag: Exception in ReceiveHandler\n");
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1054 PyErr_Print();
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1055 return -1;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1056 }
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1057 i = -1;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1058 if ( rv == Py_None )
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1059 i = 0;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1060 else
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1061 PyArg_Parse(rv, "l", &i);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1062 Py_DECREF(rv);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1063 return i;
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1064 }
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1065
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1066 static pascal OSErr
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1067 dragglue_SendData(FlavorType theType, void *dragSendRefCon,
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1068 ItemReference theItem, DragReference theDrag)
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1069 {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1070 DragObjObject self = (DragObjObject )dragSendRefCon;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1071 PyObject args, rv;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1072 int i;
35200 5df1c692bb41 Updated (and regenerated) for name change in tp_init method arguments: Jack Jansen <jack.jansen@cwi.nl> parents: 30982 diff changeset	1073
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1074 if ( self->sendproc == NULL )
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1075 return -1;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1076 args = Py_BuildValue("O&l", PyMac_BuildOSType, theType, theItem);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1077 if ( args == NULL )
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1078 return -1;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1079 rv = PyEval_CallObject(self->sendproc, args);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1080 Py_DECREF(args);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1081 if ( rv == NULL ) {
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1082 PySys_WriteStderr("Drag: Exception in SendDataHandler\n");
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1083 PyErr_Print();
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1084 return -1;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1085 }
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1086 i = -1;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1087 if ( rv == Py_None )
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1088 i = 0;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1089 else
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1090 PyArg_Parse(rv, "l", &i);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1091 Py_DECREF(rv);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1092 return i;
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1093 }
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1094
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1095 #if 0
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1096 static pascal OSErr
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1097 dragglue_Input(Point mouse, short modifiers,
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1098 void *dragSendRefCon, DragReference theDrag)
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1099 {
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1100 return 0;
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1101 }
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1102
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1103 static pascal OSErr
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1104 dragglue_Drawing(xxxx
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1105 void *dragSendRefCon, DragReference theDrag)
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1106 {
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1107 return 0;
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1108 }
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1109 #endif
47473 c34e34057714 MacOS X: Enable 4-way universal builds Ronald Oussoren <ronaldoussoren@mac.com> parents: 35200 diff changeset	1110 #else /* __LP64__ */
c34e34057714 MacOS X: Enable 4-way universal builds Ronald Oussoren <ronaldoussoren@mac.com> parents: 35200 diff changeset	1111 static PyMethodDef Drag_methods[] = {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1112 {NULL, NULL, 0}
47473 c34e34057714 MacOS X: Enable 4-way universal builds Ronald Oussoren <ronaldoussoren@mac.com> parents: 35200 diff changeset	1113 };
c34e34057714 MacOS X: Enable 4-way universal builds Ronald Oussoren <ronaldoussoren@mac.com> parents: 35200 diff changeset	1114 #endif /* __LP64__ */
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1115
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1116
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1117 void init_Drag(void)
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1118 {
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1119 PyObject *m;
47473 c34e34057714 MacOS X: Enable 4-way universal builds Ronald Oussoren <ronaldoussoren@mac.com> parents: 35200 diff changeset	1120 #ifndef __LP64__
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1121 PyObject *d;
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1122
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1123
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1124
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1125 PyMac_INIT_TOOLBOX_OBJECT_NEW(DragRef, DragObj_New);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1126 PyMac_INIT_TOOLBOX_OBJECT_CONVERT(DragRef, DragObj_Convert);
47473 c34e34057714 MacOS X: Enable 4-way universal builds Ronald Oussoren <ronaldoussoren@mac.com> parents: 35200 diff changeset	1127 #endif /* !__LP64__ */
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1128
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1129
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1130 m = Py_InitModule("_Drag", Drag_methods);
47473 c34e34057714 MacOS X: Enable 4-way universal builds Ronald Oussoren <ronaldoussoren@mac.com> parents: 35200 diff changeset	1131 #ifndef __LP64__
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1132 d = PyModule_GetDict(m);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1133 Drag_Error = PyMac_GetOSErrException();
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1134 if (Drag_Error == NULL \|\|
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1135 PyDict_SetItemString(d, "Error", Drag_Error) != 0)
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1136 return;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1137 DragObj_Type.ob_type = &PyType_Type;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1138 if (PyType_Ready(&DragObj_Type) < 0) return;
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1139 Py_INCREF(&DragObj_Type);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1140 PyModule_AddObject(m, "DragObj", (PyObject *)&DragObj_Type);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1141 /* Backward-compatible name */
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1142 Py_INCREF(&DragObj_Type);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1143 PyModule_AddObject(m, "DragObjType", (PyObject *)&DragObj_Type);
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1144
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1145 dragglue_TrackingHandlerUPP = NewDragTrackingHandlerUPP(dragglue_TrackingHandler);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1146 dragglue_ReceiveHandlerUPP = NewDragReceiveHandlerUPP(dragglue_ReceiveHandler);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1147 dragglue_SendDataUPP = NewDragSendDataUPP(dragglue_SendData);
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1148 #if 0
61463 fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1149 dragglue_InputUPP = NewDragInputUPP(dragglue_Input);
fd25030223b0 Untabify C files. Will watch buildbots. Antoine Pitrou <solipsis@pitrou.net> parents: 47473 diff changeset	1150 dragglue_DrawingUPP = NewDragDrawingUPP(dragglue_Drawing);
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1151 #endif
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1152
47473 c34e34057714 MacOS X: Enable 4-way universal builds Ronald Oussoren <ronaldoussoren@mac.com> parents: 35200 diff changeset	1153 #endif /* !__LP64__ */
19443 0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1154
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1155 }
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1156
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1157 /* ======================== End module _Drag ======================== */
0922d609acd1 Renamed the Mac toolbox modules to have an initial _ in their name. Jack Jansen <jack.jansen@cwi.nl> parents: diff changeset	1158

Mercurial > cpython-lru_cache-weakref

annotate Mac/Modules/drag/_Dragmodule.c @ 79675:c0a2294de787 2.7