/* ========================== Module Drag =========================== */ #include "Python.h" #define SystemSevenOrLater 1 #include "macglue.h" #include #include #include #include extern PyObject *ResObj_New(Handle); extern int ResObj_Convert(PyObject *, Handle *); extern PyObject *OptResObj_New(Handle); extern int OptResObj_Convert(PyObject *, Handle *); extern PyObject *WinObj_New(WindowPtr); extern int WinObj_Convert(PyObject *, WindowPtr *); extern PyTypeObject Window_Type; #define WinObj_Check(x) ((x)->ob_type == &Window_Type) extern PyObject *DlgObj_New(DialogPtr); extern int DlgObj_Convert(PyObject *, DialogPtr *); extern PyTypeObject Dialog_Type; #define DlgObj_Check(x) ((x)->ob_type == &Dialog_Type) extern PyObject *MenuObj_New(MenuHandle); extern int MenuObj_Convert(PyObject *, MenuHandle *); extern PyObject *CtlObj_New(ControlHandle); extern int CtlObj_Convert(PyObject *, ControlHandle *); extern PyObject *GrafObj_New(GrafPtr); extern int GrafObj_Convert(PyObject *, GrafPtr *); extern PyObject *BMObj_New(BitMapPtr); extern int BMObj_Convert(PyObject *, BitMapPtr *); extern PyObject *WinObj_WhichWindow(WindowPtr); #include #define resNotFound -192 /* Can't include because of Python's "errors.h" */ /* Exported by Qdmodule.c: */ extern PyObject *QdRGB_New(RGBColor *); extern int QdRGB_Convert(PyObject *, RGBColor *); /* Exported by AEModule.c: */ extern PyObject *AEDesc_New(AppleEvent *); extern int AEDesc_Convert(PyObject *, AppleEvent *); /* Callback glue routines */ DragTrackingHandlerUPP dragglue_TrackingHandlerUPP; DragReceiveHandlerUPP dragglue_ReceiveHandlerUPP; DragSendDataUPP dragglue_SendDataUPP; #if 0 DragInputUPP dragglue_InputUPP; DragDrawingUPP dragglue_DrawingUPP; #endif static PyObject *Drag_Error; /* ---------------------- Object type DragObj ----------------------- */ PyTypeObject DragObj_Type; #define DragObj_Check(x) ((x)->ob_type == &DragObj_Type) typedef struct DragObjObject { PyObject_HEAD DragReference ob_itself; PyObject *sendproc; } DragObjObject; PyObject *DragObj_New(itself) DragReference itself; { DragObjObject *it; if (itself == NULL) { PyErr_SetString(Drag_Error,"Cannot create null Drag"); return NULL; } it = PyObject_NEW(DragObjObject, &DragObj_Type); if (it == NULL) return NULL; it->ob_itself = itself; it->sendproc = NULL; return (PyObject *)it; } DragObj_Convert(v, p_itself) PyObject *v; DragReference *p_itself; { if (!DragObj_Check(v)) { PyErr_SetString(PyExc_TypeError, "DragObj required"); return 0; } *p_itself = ((DragObjObject *)v)->ob_itself; return 1; } static void DragObj_dealloc(self) DragObjObject *self; { Py_XDECREF(self->sendproc); PyMem_DEL(self); } static PyObject *DragObj_DisposeDrag(_self, _args) DragObjObject *_self; PyObject *_args; { PyObject *_res = NULL; OSErr _err; if (!PyArg_ParseTuple(_args, "")) return NULL; _err = DisposeDrag(_self->ob_itself); if (_err != noErr) return PyMac_Error(_err); Py_INCREF(Py_None); _res = Py_None; return _res; } static PyObject *DragObj_AddDragItemFlavor(_self, _args) DragObjObject *_self; PyObject *_args; { PyObject *_res = NULL; OSErr _err; ItemReference theItemRef; FlavorType theType; char *dataPtr__in__; long dataPtr__len__; int dataPtr__in_len__; FlavorFlags theFlags; if (!PyArg_ParseTuple(_args, "lO&z#l", &theItemRef, PyMac_GetOSType, &theType, &dataPtr__in__, &dataPtr__in_len__, &theFlags)) return NULL; dataPtr__len__ = dataPtr__in_len__; _err = AddDragItemFlavor(_self->ob_itself, theItemRef, theType, dataPtr__in__, dataPtr__len__, theFlags); if (_err != noErr) return PyMac_Error(_err); Py_INCREF(Py_None); _res = Py_None; dataPtr__error__: ; return _res; } static PyObject *DragObj_SetDragItemFlavorData(_self, _args) DragObjObject *_self; PyObject *_args; { PyObject *_res = NULL; OSErr _err; ItemReference theItemRef; FlavorType theType; char *dataPtr__in__; long dataPtr__len__; int dataPtr__in_len__; UInt32 dataOffset; if (!PyArg_ParseTuple(_args, "lO&z#l", &theItemRef, PyMac_GetOSType, &theType, &dataPtr__in__, &dataPtr__in_len__, &dataOffset)) return NULL; dataPtr__len__ = dataPtr__in_len__; _err = SetDragItemFlavorData(_self->ob_itself, theItemRef, theType, dataPtr__in__, dataPtr__len__, dataOffset); if (_err != noErr) return PyMac_Error(_err); Py_INCREF(Py_None); _res = Py_None; dataPtr__error__: ; return _res; } static PyObject *DragObj_SetDragImage(_self, _args) DragObjObject *_self; PyObject *_args; { PyObject *_res = NULL; OSErr _err; PixMapHandle imagePixMap; RgnHandle imageRgn; Point imageOffsetPt; DragImageFlags theImageFlags; if (!PyArg_ParseTuple(_args, "O&O&O&l", ResObj_Convert, &imagePixMap, ResObj_Convert, &imageRgn, PyMac_GetPoint, &imageOffsetPt, &theImageFlags)) return NULL; _err = SetDragImage(_self->ob_itself, imagePixMap, imageRgn, imageOffsetPt, theImageFlags); if (_err != noErr) return PyMac_Error(_err); Py_INCREF(Py_None); _res = Py_None; return _res; } static PyObject *DragObj_TrackDrag(_self, _args) DragObjObject *_self; PyObject *_args; { PyObject *_res = NULL; OSErr _err; EventRecord theEvent; RgnHandle theRegion; if (!PyArg_ParseTuple(_args, "O&O&", PyMac_GetEventRecord, &theEvent, ResObj_Convert, &theRegion)) return NULL; _err = TrackDrag(_self->ob_itself, &theEvent, theRegion); if (_err != noErr) return PyMac_Error(_err); Py_INCREF(Py_None); _res = Py_None; return _res; } static PyObject *DragObj_CountDragItems(_self, _args) DragObjObject *_self; PyObject *_args; { PyObject *_res = NULL; OSErr _err; UInt16 numItems; if (!PyArg_ParseTuple(_args, "")) return NULL; _err = CountDragItems(_self->ob_itself, &numItems); if (_err != noErr) return PyMac_Error(_err); _res = Py_BuildValue("h", numItems); return _res; } static PyObject *DragObj_GetDragItemReferenceNumber(_self, _args) DragObjObject *_self; PyObject *_args; { PyObject *_res = NULL; OSErr _err; UInt16 index; ItemReference theItemRef; if (!PyArg_ParseTuple(_args, "h", &index)) return NULL; _err = GetDragItemReferenceNumber(_self->ob_itself, index, &theItemRef); if (_err != noErr) return PyMac_Error(_err); _res = Py_BuildValue("l", theItemRef); return _res; } static PyObject *DragObj_CountDragItemFlavors(_self, _args) DragObjObject *_self; PyObject *_args; { PyObject *_res = NULL; OSErr _err; ItemReference theItemRef; UInt16 numFlavors; if (!PyArg_ParseTuple(_args, "l", &theItemRef)) return NULL; _err = CountDragItemFlavors(_self->ob_itself, theItemRef, &numFlavors); if (_err != noErr) return PyMac_Error(_err); _res = Py_BuildValue("h", numFlavors); return _res; } static PyObject *DragObj_GetFlavorType(_self, _args) DragObjObject *_self; PyObject *_args; { PyObject *_res = NULL; OSErr _err; ItemReference theItemRef; UInt16 index; FlavorType theType; if (!PyArg_ParseTuple(_args, "lh", &theItemRef, &index)) return NULL; _err = GetFlavorType(_self->ob_itself, theItemRef, index, &theType); if (_err != noErr) return PyMac_Error(_err); _res = Py_BuildValue("O&", PyMac_BuildOSType, theType); return _res; } static PyObject *DragObj_GetFlavorFlags(_self, _args) DragObjObject *_self; PyObject *_args; { PyObject *_res = NULL; OSErr _err; ItemReference theItemRef; FlavorType theType; FlavorFlags theFlags; if (!PyArg_ParseTuple(_args, "lO&", &theItemRef, PyMac_GetOSType, &theType)) return NULL; _err = GetFlavorFlags(_self->ob_itself, theItemRef, theType, &theFlags); if (_err != noErr) return PyMac_Error(_err); _res = Py_BuildValue("l", theFlags); return _res; } static PyObject *DragObj_GetFlavorDataSize(_self, _args) DragObjObject *_self; PyObject *_args; { PyObject *_res = NULL; OSErr _err; ItemReference theItemRef; FlavorType theType; Size dataSize; if (!PyArg_ParseTuple(_args, "lO&", &theItemRef, PyMac_GetOSType, &theType)) return NULL; _err = GetFlavorDataSize(_self->ob_itself, theItemRef, theType, &dataSize); if (_err != noErr) return PyMac_Error(_err); _res = Py_BuildValue("l", dataSize); return _res; } static PyObject *DragObj_GetFlavorData(_self, _args) DragObjObject *_self; PyObject *_args; { PyObject *_res = NULL; OSErr _err; ItemReference theItemRef; FlavorType theType; char *dataPtr__out__; long dataPtr__len__; int dataPtr__in_len__; UInt32 dataOffset; if (!PyArg_ParseTuple(_args, "lO&il", &theItemRef, PyMac_GetOSType, &theType, &dataPtr__in_len__, &dataOffset)) return NULL; if ((dataPtr__out__ = malloc(dataPtr__in_len__)) == NULL) { PyErr_NoMemory(); goto dataPtr__error__; } dataPtr__len__ = dataPtr__in_len__; _err = GetFlavorData(_self->ob_itself, theItemRef, theType, dataPtr__out__, &dataPtr__len__, dataOffset); if (_err != noErr) return PyMac_Error(_err); _res = Py_BuildValue("s#", dataPtr__out__, (int)dataPtr__len__); free(dataPtr__out__); dataPtr__error__: ; return _res; } static PyObject *DragObj_GetDragItemBounds(_self, _args) DragObjObject *_self; PyObject *_args; { PyObject *_res = NULL; OSErr _err; ItemReference theItemRef; Rect itemBounds; if (!PyArg_ParseTuple(_args, "l", &theItemRef)) return NULL; _err = GetDragItemBounds(_self->ob_itself, theItemRef, &itemBounds); if (_err != noErr) return PyMac_Error(_err); _res = Py_BuildValue("O&", PyMac_BuildRect, &itemBounds); return _res; } static PyObject *DragObj_SetDragItemBounds(_self, _args) DragObjObject *_self; PyObject *_args; { PyObject *_res = NULL; OSErr _err; ItemReference theItemRef; Rect itemBounds; if (!PyArg_ParseTuple(_args, "lO&", &theItemRef, PyMac_GetRect, &itemBounds)) return NULL; _err = SetDragItemBounds(_self->ob_itself, theItemRef, &itemBounds); if (_err != noErr) return PyMac_Error(_err); Py_INCREF(Py_None); _res = Py_None; return _res; } static PyObject *DragObj_GetDropLocation(_self, _args) DragObjObject *_self; PyObject *_args; { PyObject *_res = NULL; OSErr _err; AEDesc dropLocation; if (!PyArg_ParseTuple(_args, "")) return NULL; _err = GetDropLocation(_self->ob_itself, &dropLocation); if (_err != noErr) return PyMac_Error(_err); _res = Py_BuildValue("O&", AEDesc_New, &dropLocation); return _res; } static PyObject *DragObj_SetDropLocation(_self, _args) DragObjObject *_self; PyObject *_args; { PyObject *_res = NULL; OSErr _err; AEDesc dropLocation; if (!PyArg_ParseTuple(_args, "O&", AEDesc_Convert, &dropLocation)) return NULL; _err = SetDropLocation(_self->ob_itself, &dropLocation); if (_err != noErr) return PyMac_Error(_err); Py_INCREF(Py_None); _res = Py_None; return _res; } static PyObject *DragObj_GetDragAttributes(_self, _args) DragObjObject *_self; PyObject *_args; { PyObject *_res = NULL; OSErr _err; DragAttributes flags; if (!PyArg_ParseTuple(_args, "")) return NULL; _err = GetDragAttributes(_self->ob_itself, &flags); if (_err != noErr) return PyMac_Error(_err); _res = Py_BuildValue("l", flags); return _res; } static PyObject *DragObj_GetDragMouse(_self, _args) DragObjObject *_self; PyObject *_args; { PyObject *_res = NULL; OSErr _err; Point mouse; Point globalPinnedMouse; if (!PyArg_ParseTuple(_args, "")) return NULL; _err = GetDragMouse(_self->ob_itself, &mouse, &globalPinnedMouse); if (_err != noErr) return PyMac_Error(_err); _res = Py_BuildValue("O&O&", PyMac_BuildPoint, mouse, PyMac_BuildPoint, globalPinnedMouse); return _res; } static PyObject *DragObj_SetDragMouse(_self, _args) DragObjObject *_self; PyObject *_args; { PyObject *_res = NULL; OSErr _err; Point globalPinnedMouse; if (!PyArg_ParseTuple(_args, "O&", PyMac_GetPoint, &globalPinnedMouse)) return NULL; _err = SetDragMouse(_self->ob_itself, globalPinnedMouse); if (_err != noErr) return PyMac_Error(_err); Py_INCREF(Py_None); _res = Py_None; return _res; } static PyObject *DragObj_GetDragOrigin(_self, _args) DragObjObject *_self; PyObject *_args; { PyObject *_res = NULL; OSErr _err; Point globalInitialMouse; if (!PyArg_ParseTuple(_args, "")) return NULL; _err = GetDragOrigin(_self->ob_itself, &globalInitialMouse); if (_err != noErr) return PyMac_Error(_err); _res = Py_BuildValue("O&", PyMac_BuildPoint, globalInitialMouse); return _res; } static PyObject *DragObj_GetDragModifiers(_self, _args) DragObjObject *_self; PyObject *_args; { PyObject *_res = NULL; OSErr _err; SInt16 modifiers; SInt16 mouseDownModifiers; SInt16 mouseUpModifiers; if (!PyArg_ParseTuple(_args, "")) return NULL; _err = GetDragModifiers(_self->ob_itself, &modifiers, &mouseDownModifiers, &mouseUpModifiers); if (_err != noErr) return PyMac_Error(_err); _res = Py_BuildValue("hhh", modifiers, mouseDownModifiers, mouseUpModifiers); return _res; } static PyObject *DragObj_ShowDragHilite(_self, _args) DragObjObject *_self; PyObject *_args; { PyObject *_res = NULL; OSErr _err; RgnHandle hiliteFrame; Boolean inside; if (!PyArg_ParseTuple(_args, "O&b", ResObj_Convert, &hiliteFrame, &inside)) return NULL; _err = ShowDragHilite(_self->ob_itself, hiliteFrame, inside); if (_err != noErr) return PyMac_Error(_err); Py_INCREF(Py_None); _res = Py_None; return _res; } static PyObject *DragObj_HideDragHilite(_self, _args) DragObjObject *_self; PyObject *_args; { PyObject *_res = NULL; OSErr _err; if (!PyArg_ParseTuple(_args, "")) return NULL; _err = HideDragHilite(_self->ob_itself); if (_err != noErr) return PyMac_Error(_err); Py_INCREF(Py_None); _res = Py_None; return _res; } static PyObject *DragObj_DragPreScroll(_self, _args) DragObjObject *_self; PyObject *_args; { PyObject *_res = NULL; OSErr _err; SInt16 dH; SInt16 dV; if (!PyArg_ParseTuple(_args, "hh", &dH, &dV)) return NULL; _err = DragPreScroll(_self->ob_itself, dH, dV); if (_err != noErr) return PyMac_Error(_err); Py_INCREF(Py_None); _res = Py_None; return _res; } static PyObject *DragObj_DragPostScroll(_self, _args) DragObjObject *_self; PyObject *_args; { PyObject *_res = NULL; OSErr _err; if (!PyArg_ParseTuple(_args, "")) return NULL; _err = DragPostScroll(_self->ob_itself); if (_err != noErr) return PyMac_Error(_err); Py_INCREF(Py_None); _res = Py_None; return _res; } static PyObject *DragObj_UpdateDragHilite(_self, _args) DragObjObject *_self; PyObject *_args; { PyObject *_res = NULL; OSErr _err; RgnHandle updateRgn; if (!PyArg_ParseTuple(_args, "O&", ResObj_Convert, &updateRgn)) return NULL; _err = UpdateDragHilite(_self->ob_itself, updateRgn); if (_err != noErr) return PyMac_Error(_err); Py_INCREF(Py_None); _res = Py_None; return _res; } static PyMethodDef DragObj_methods[] = { {"DisposeDrag", (PyCFunction)DragObj_DisposeDrag, 1, "() -> None"}, {"AddDragItemFlavor", (PyCFunction)DragObj_AddDragItemFlavor, 1, "(ItemReference theItemRef, FlavorType theType, Buffer dataPtr, FlavorFlags theFlags) -> None"}, {"SetDragItemFlavorData", (PyCFunction)DragObj_SetDragItemFlavorData, 1, "(ItemReference theItemRef, FlavorType theType, Buffer dataPtr, UInt32 dataOffset) -> None"}, {"SetDragImage", (PyCFunction)DragObj_SetDragImage, 1, "(PixMapHandle imagePixMap, RgnHandle imageRgn, Point imageOffsetPt, DragImageFlags theImageFlags) -> None"}, {"TrackDrag", (PyCFunction)DragObj_TrackDrag, 1, "(EventRecord theEvent, RgnHandle theRegion) -> None"}, {"CountDragItems", (PyCFunction)DragObj_CountDragItems, 1, "() -> (UInt16 numItems)"}, {"GetDragItemReferenceNumber", (PyCFunction)DragObj_GetDragItemReferenceNumber, 1, "(UInt16 index) -> (ItemReference theItemRef)"}, {"CountDragItemFlavors", (PyCFunction)DragObj_CountDragItemFlavors, 1, "(ItemReference theItemRef) -> (UInt16 numFlavors)"}, {"GetFlavorType", (PyCFunction)DragObj_GetFlavorType, 1, "(ItemReference theItemRef, UInt16 index) -> (FlavorType theType)"}, {"GetFlavorFlags", (PyCFunction)DragObj_GetFlavorFlags, 1, "(ItemReference theItemRef, FlavorType theType) -> (FlavorFlags theFlags)"}, {"GetFlavorDataSize", (PyCFunction)DragObj_GetFlavorDataSize, 1, "(ItemReference theItemRef, FlavorType theType) -> (Size dataSize)"}, {"GetFlavorData", (PyCFunction)DragObj_GetFlavorData, 1, "(ItemReference theItemRef, FlavorType theType, Buffer dataPtr, UInt32 dataOffset) -> (Buffer dataPtr)"}, {"GetDragItemBounds", (PyCFunction)DragObj_GetDragItemBounds, 1, "(ItemReference theItemRef) -> (Rect itemBounds)"}, {"SetDragItemBounds", (PyCFunction)DragObj_SetDragItemBounds, 1, "(ItemReference theItemRef, Rect itemBounds) -> None"}, {"GetDropLocation", (PyCFunction)DragObj_GetDropLocation, 1, "() -> (AEDesc dropLocation)"}, {"SetDropLocation", (PyCFunction)DragObj_SetDropLocation, 1, "(AEDesc dropLocation) -> None"}, {"GetDragAttributes", (PyCFunction)DragObj_GetDragAttributes, 1, "() -> (DragAttributes flags)"}, {"GetDragMouse", (PyCFunction)DragObj_GetDragMouse, 1, "() -> (Point mouse, Point globalPinnedMouse)"}, {"SetDragMouse", (PyCFunction)DragObj_SetDragMouse, 1, "(Point globalPinnedMouse) -> None"}, {"GetDragOrigin", (PyCFunction)DragObj_GetDragOrigin, 1, "() -> (Point globalInitialMouse)"}, {"GetDragModifiers", (PyCFunction)DragObj_GetDragModifiers, 1, "() -> (SInt16 modifiers, SInt16 mouseDownModifiers, SInt16 mouseUpModifiers)"}, {"ShowDragHilite", (PyCFunction)DragObj_ShowDragHilite, 1, "(RgnHandle hiliteFrame, Boolean inside) -> None"}, {"HideDragHilite", (PyCFunction)DragObj_HideDragHilite, 1, "() -> None"}, {"DragPreScroll", (PyCFunction)DragObj_DragPreScroll, 1, "(SInt16 dH, SInt16 dV) -> None"}, {"DragPostScroll", (PyCFunction)DragObj_DragPostScroll, 1, "() -> None"}, {"UpdateDragHilite", (PyCFunction)DragObj_UpdateDragHilite, 1, "(RgnHandle updateRgn) -> None"}, {NULL, NULL, 0} }; PyMethodChain DragObj_chain = { DragObj_methods, NULL }; static PyObject *DragObj_getattr(self, name) DragObjObject *self; char *name; { return Py_FindMethodInChain(&DragObj_chain, (PyObject *)self, name); } #define DragObj_setattr NULL #define DragObj_compare NULL #define DragObj_repr NULL #define DragObj_hash NULL PyTypeObject DragObj_Type = { PyObject_HEAD_INIT(&PyType_Type) 0, /*ob_size*/ "DragObj", /*tp_name*/ sizeof(DragObjObject), /*tp_basicsize*/ 0, /*tp_itemsize*/ /* methods */ (destructor) DragObj_dealloc, /*tp_dealloc*/ 0, /*tp_print*/ (getattrfunc) DragObj_getattr, /*tp_getattr*/ (setattrfunc) DragObj_setattr, /*tp_setattr*/ (cmpfunc) DragObj_compare, /*tp_compare*/ (reprfunc) DragObj_repr, /*tp_repr*/ (PyNumberMethods *)0, /* tp_as_number */ (PySequenceMethods *)0, /* tp_as_sequence */ (PyMappingMethods *)0, /* tp_as_mapping */ (hashfunc) DragObj_hash, /*tp_hash*/ }; /* -------------------- End object type DragObj --------------------- */ static PyObject *Drag_NewDrag(_self, _args) PyObject *_self; PyObject *_args; { PyObject *_res = NULL; OSErr _err; DragReference theDrag; if (!PyArg_ParseTuple(_args, "")) return NULL; _err = NewDrag(&theDrag); if (_err != noErr) return PyMac_Error(_err); _res = Py_BuildValue("O&", DragObj_New, theDrag); return _res; } static PyObject *Drag_GetDragHiliteColor(_self, _args) PyObject *_self; PyObject *_args; { PyObject *_res = NULL; OSErr _err; WindowPtr window; RGBColor color; if (!PyArg_ParseTuple(_args, "O&", WinObj_Convert, &window)) return NULL; _err = GetDragHiliteColor(window, &color); if (_err != noErr) return PyMac_Error(_err); _res = Py_BuildValue("O&", QdRGB_New, &color); return _res; } static PyObject *Drag_WaitMouseMoved(_self, _args) PyObject *_self; PyObject *_args; { PyObject *_res = NULL; Boolean _rv; Point initialMouse; if (!PyArg_ParseTuple(_args, "O&", PyMac_GetPoint, &initialMouse)) return NULL; _rv = WaitMouseMoved(initialMouse); _res = Py_BuildValue("b", _rv); return _res; } static PyObject *Drag_ZoomRects(_self, _args) PyObject *_self; PyObject *_args; { PyObject *_res = NULL; OSErr _err; Rect fromRect; Rect toRect; SInt16 zoomSteps; ZoomAcceleration acceleration; if (!PyArg_ParseTuple(_args, "O&O&hh", PyMac_GetRect, &fromRect, PyMac_GetRect, &toRect, &zoomSteps, &acceleration)) return NULL; _err = ZoomRects(&fromRect, &toRect, zoomSteps, acceleration); if (_err != noErr) return PyMac_Error(_err); Py_INCREF(Py_None); _res = Py_None; return _res; } static PyObject *Drag_ZoomRegion(_self, _args) PyObject *_self; PyObject *_args; { PyObject *_res = NULL; OSErr _err; RgnHandle region; Point zoomDistance; SInt16 zoomSteps; ZoomAcceleration acceleration; if (!PyArg_ParseTuple(_args, "O&O&hh", ResObj_Convert, ®ion, PyMac_GetPoint, &zoomDistance, &zoomSteps, &acceleration)) return NULL; _err = ZoomRegion(region, zoomDistance, zoomSteps, acceleration); if (_err != noErr) return PyMac_Error(_err); Py_INCREF(Py_None); _res = Py_None; return _res; } static PyObject *Drag_InstallTrackingHandler(_self, _args) PyObject *_self; PyObject *_args; { PyObject *_res = NULL; PyObject *callback; WindowPtr theWindow = NULL; OSErr _err; if ( !PyArg_ParseTuple(_args, "O|O&", &callback, WinObj_Convert, &theWindow) ) return NULL; Py_INCREF(callback); /* Cannot decref later, too bad */ _err = InstallTrackingHandler(dragglue_TrackingHandlerUPP, theWindow, (void *)callback); if (_err != noErr) return PyMac_Error(_err); Py_INCREF(Py_None); return Py_None; } static PyObject *Drag_InstallReceiveHandler(_self, _args) PyObject *_self; PyObject *_args; { PyObject *_res = NULL; PyObject *callback; WindowPtr theWindow = NULL; OSErr _err; if ( !PyArg_ParseTuple(_args, "O|O&", &callback, WinObj_Convert, &theWindow) ) return NULL; Py_INCREF(callback); /* Cannot decref later, too bad */ _err = InstallReceiveHandler(dragglue_ReceiveHandlerUPP, theWindow, (void *)callback); if (_err != noErr) return PyMac_Error(_err); Py_INCREF(Py_None); return Py_None; } static PyObject *Drag_RemoveTrackingHandler(_self, _args) PyObject *_self; PyObject *_args; { PyObject *_res = NULL; WindowPtr theWindow = NULL; OSErr _err; if ( !PyArg_ParseTuple(_args, "|O&", WinObj_Convert, &theWindow) ) return NULL; _err = RemoveTrackingHandler(dragglue_TrackingHandlerUPP, theWindow); if (_err != noErr) return PyMac_Error(_err); Py_INCREF(Py_None); return Py_None; } static PyObject *Drag_RemoveReceiveHandler(_self, _args) PyObject *_self; PyObject *_args; { PyObject *_res = NULL; WindowPtr theWindow = NULL; OSErr _err; if ( !PyArg_ParseTuple(_args, "|O&", WinObj_Convert, &theWindow) ) return NULL; _err = RemoveReceiveHandler(dragglue_ReceiveHandlerUPP, theWindow); if (_err != noErr) return PyMac_Error(_err); Py_INCREF(Py_None); return Py_None; } static PyMethodDef Drag_methods[] = { {"NewDrag", (PyCFunction)Drag_NewDrag, 1, "() -> (DragReference theDrag)"}, {"GetDragHiliteColor", (PyCFunction)Drag_GetDragHiliteColor, 1, "(WindowPtr window) -> (RGBColor color)"}, {"WaitMouseMoved", (PyCFunction)Drag_WaitMouseMoved, 1, "(Point initialMouse) -> (Boolean _rv)"}, {"ZoomRects", (PyCFunction)Drag_ZoomRects, 1, "(Rect fromRect, Rect toRect, SInt16 zoomSteps, ZoomAcceleration acceleration) -> None"}, {"ZoomRegion", (PyCFunction)Drag_ZoomRegion, 1, "(RgnHandle region, Point zoomDistance, SInt16 zoomSteps, ZoomAcceleration acceleration) -> None"}, {"InstallTrackingHandler", (PyCFunction)Drag_InstallTrackingHandler, 1, NULL}, {"InstallReceiveHandler", (PyCFunction)Drag_InstallReceiveHandler, 1, NULL}, {"RemoveTrackingHandler", (PyCFunction)Drag_RemoveTrackingHandler, 1, NULL}, {"RemoveReceiveHandler", (PyCFunction)Drag_RemoveReceiveHandler, 1, NULL}, {NULL, NULL, 0} }; static pascal OSErr dragglue_TrackingHandler(DragTrackingMessage theMessage, WindowPtr theWindow, void *handlerRefCon, DragReference theDrag) { PyObject *args, *rv; int i; args = Py_BuildValue("hO&O&", theMessage, DragObj_New, theDrag, WinObj_WhichWindow, theWindow); if ( args == NULL ) return -1; rv = PyEval_CallObject((PyObject *)handlerRefCon, args); Py_DECREF(args); if ( rv == NULL ) return -1; i = -1; if ( rv == Py_None ) i = 0; else PyArg_Parse(rv, "l", &i); Py_DECREF(rv); return i; } static pascal OSErr dragglue_ReceiveHandler(WindowPtr theWindow, void *handlerRefCon, DragReference theDrag) { PyObject *args, *rv; int i; args = Py_BuildValue("O&O&", DragObj_New, theDrag, WinObj_WhichWindow, theWindow); if ( args == NULL ) return -1; rv = PyEval_CallObject((PyObject *)handlerRefCon, args); Py_DECREF(args); if ( rv == NULL ) return -1; i = -1; if ( rv == Py_None ) i = 0; else PyArg_Parse(rv, "l", &i); Py_DECREF(rv); return i; } static pascal OSErr dragglue_SendData(FlavorType theType, void *dragSendRefCon, ItemReference theItem, DragReference theDrag) { DragObjObject *self = (DragObjObject *)dragSendRefCon; PyObject *args, *rv; int i; if ( self->sendproc == NULL ) return -1; args = Py_BuildValue("O&l", PyMac_BuildOSType, theType, theItem); if ( args == NULL ) return -1; rv = PyEval_CallObject(self->sendproc, args); Py_DECREF(args); if ( rv == NULL ) return -1; i = -1; if ( rv == Py_None ) i = 0; else PyArg_Parse(rv, "l", &i); Py_DECREF(rv); return i; } #if 0 static pascal OSErr dragglue_Input(Point *mouse, short *modifiers, void *dragSendRefCon, DragReference theDrag) { return 0; } static pascal OSErr dragglue_Drawing(xxxx void *dragSendRefCon, DragReference theDrag) { return 0; } #endif void initDrag() { PyObject *m; PyObject *d; m = Py_InitModule("Drag", Drag_methods); d = PyModule_GetDict(m); Drag_Error = PyMac_GetOSErrException(); if (Drag_Error == NULL || PyDict_SetItemString(d, "Error", Drag_Error) != 0) Py_FatalError("can't initialize Drag.Error"); DragObj_Type.ob_type = &PyType_Type; Py_INCREF(&DragObj_Type); if (PyDict_SetItemString(d, "DragObjType", (PyObject *)&DragObj_Type) != 0) Py_FatalError("can't initialize DragObjType"); dragglue_TrackingHandlerUPP = NewDragTrackingHandlerProc(dragglue_TrackingHandler); dragglue_ReceiveHandlerUPP = NewDragReceiveHandlerProc(dragglue_ReceiveHandler); dragglue_SendDataUPP = NewDragSendDataProc(dragglue_SendData); #if 0 dragglue_InputUPP = NewDragInputProc(dragglue_Input); dragglue_DrawingUPP = NewDragDrawingProc(dragglue_Drawing); #endif } /* ======================== End module Drag ========================= */