/* =========================== Module Dlg =========================== */ #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 *WinObj_New(WindowPtr); extern int WinObj_Convert(PyObject *, WindowPtr *); 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 *WinObj_WhichWindow(WindowPtr); #include #ifndef HAVE_UNIVERSAL_HEADERS #define NewModalFilterProc(x) (x) #endif #define resNotFound -192 /* Can't include because of Python's "errors.h" */ /* XXX Shouldn't this be a stack? */ static PyObject *Dlg_FilterProc_callback = NULL; static PyObject *DlgObj_New(DialogPtr); /* Forward */ static pascal Boolean Dlg_UnivFilterProc(DialogPtr dialog, EventRecord *event, short *itemHit) { Boolean rv; PyObject *args, *res; PyObject *callback = Dlg_FilterProc_callback; if (callback == NULL) return 0; /* Default behavior */ Dlg_FilterProc_callback = NULL; /* We'll restore it when call successful */ args = Py_BuildValue("O&O&", WinObj_WhichWindow, dialog, PyMac_BuildEventRecord, event); if (args == NULL) res = NULL; else { res = PyEval_CallObject(callback, args); Py_DECREF(args); } if (res == NULL) { fprintf(stderr, "Exception in Dialog Filter\n"); PyErr_Print(); *itemHit = -1; /* Fake return item */ return 1; /* We handled it */ } else { Dlg_FilterProc_callback = callback; if (PyInt_Check(res)) { *itemHit = PyInt_AsLong(res); rv = 1; } else rv = PyObject_IsTrue(res); } Py_DECREF(res); return rv; } static ModalFilterProcPtr Dlg_PassFilterProc(PyObject *callback) { PyObject *tmp = Dlg_FilterProc_callback; Dlg_FilterProc_callback = NULL; if (callback == Py_None) { Py_XDECREF(tmp); return NULL; } Py_INCREF(callback); Dlg_FilterProc_callback = callback; Py_XDECREF(tmp); return &Dlg_UnivFilterProc; } extern PyMethodChain WinObj_chain; static PyObject *Dlg_Error; /* ----------------------- Object type Dialog ----------------------- */ PyTypeObject Dialog_Type; #define DlgObj_Check(x) ((x)->ob_type == &Dialog_Type) typedef struct DialogObject { PyObject_HEAD DialogPtr ob_itself; } DialogObject; PyObject *DlgObj_New(itself) DialogPtr itself; { DialogObject *it; if (itself == NULL) return Py_None; it = PyObject_NEW(DialogObject, &Dialog_Type); if (it == NULL) return NULL; it->ob_itself = itself; SetWRefCon(itself, (long)it); return (PyObject *)it; } DlgObj_Convert(v, p_itself) PyObject *v; DialogPtr *p_itself; { if (v == Py_None) { *p_itself = NULL; return 1; } if (PyInt_Check(v)) { *p_itself = (DialogPtr)PyInt_AsLong(v); return 1; } if (!DlgObj_Check(v)) { PyErr_SetString(PyExc_TypeError, "Dialog required"); return 0; } *p_itself = ((DialogObject *)v)->ob_itself; return 1; } static void DlgObj_dealloc(self) DialogObject *self; { DisposeDialog(self->ob_itself); PyMem_DEL(self); } static PyObject *DlgObj_DrawDialog(_self, _args) DialogObject *_self; PyObject *_args; { PyObject *_res = NULL; if (!PyArg_ParseTuple(_args, "")) return NULL; DrawDialog(_self->ob_itself); Py_INCREF(Py_None); _res = Py_None; return _res; } static PyObject *DlgObj_UpdateDialog(_self, _args) DialogObject *_self; PyObject *_args; { PyObject *_res = NULL; if (!PyArg_ParseTuple(_args, "")) return NULL; UpdateDialog(_self->ob_itself, _self->ob_itself->visRgn); Py_INCREF(Py_None); _res = Py_None; return _res; } static PyObject *DlgObj_GetDItem(_self, _args) DialogObject *_self; PyObject *_args; { PyObject *_res = NULL; short itemNo; short itemType; Handle item; Rect box; if (!PyArg_ParseTuple(_args, "h", &itemNo)) return NULL; GetDItem(_self->ob_itself, itemNo, &itemType, &item, &box); _res = Py_BuildValue("hO&O&", itemType, ResObj_New, item, PyMac_BuildRect, &box); return _res; } static PyObject *DlgObj_SetDItem(_self, _args) DialogObject *_self; PyObject *_args; { PyObject *_res = NULL; short itemNo; short itemType; Handle item; Rect box; if (!PyArg_ParseTuple(_args, "hhO&O&", &itemNo, &itemType, ResObj_Convert, &item, PyMac_GetRect, &box)) return NULL; SetDItem(_self->ob_itself, itemNo, itemType, item, &box); Py_INCREF(Py_None); _res = Py_None; return _res; } static PyObject *DlgObj_HideDItem(_self, _args) DialogObject *_self; PyObject *_args; { PyObject *_res = NULL; short itemNo; if (!PyArg_ParseTuple(_args, "h", &itemNo)) return NULL; HideDItem(_self->ob_itself, itemNo); Py_INCREF(Py_None); _res = Py_None; return _res; } static PyObject *DlgObj_ShowDItem(_self, _args) DialogObject *_self; PyObject *_args; { PyObject *_res = NULL; short itemNo; if (!PyArg_ParseTuple(_args, "h", &itemNo)) return NULL; ShowDItem(_self->ob_itself, itemNo); Py_INCREF(Py_None); _res = Py_None; return _res; } static PyObject *DlgObj_SelIText(_self, _args) DialogObject *_self; PyObject *_args; { PyObject *_res = NULL; short itemNo; short strtSel; short endSel; if (!PyArg_ParseTuple(_args, "hhh", &itemNo, &strtSel, &endSel)) return NULL; SelIText(_self->ob_itself, itemNo, strtSel, endSel); Py_INCREF(Py_None); _res = Py_None; return _res; } static PyObject *DlgObj_FindDItem(_self, _args) DialogObject *_self; PyObject *_args; { PyObject *_res = NULL; short _rv; Point thePt; if (!PyArg_ParseTuple(_args, "O&", PyMac_GetPoint, &thePt)) return NULL; _rv = FindDItem(_self->ob_itself, thePt); _res = Py_BuildValue("h", _rv); return _res; } static PyObject *DlgObj_DlgCut(_self, _args) DialogObject *_self; PyObject *_args; { PyObject *_res = NULL; if (!PyArg_ParseTuple(_args, "")) return NULL; DlgCut(_self->ob_itself); Py_INCREF(Py_None); _res = Py_None; return _res; } static PyObject *DlgObj_DlgPaste(_self, _args) DialogObject *_self; PyObject *_args; { PyObject *_res = NULL; if (!PyArg_ParseTuple(_args, "")) return NULL; DlgPaste(_self->ob_itself); Py_INCREF(Py_None); _res = Py_None; return _res; } static PyObject *DlgObj_DlgCopy(_self, _args) DialogObject *_self; PyObject *_args; { PyObject *_res = NULL; if (!PyArg_ParseTuple(_args, "")) return NULL; DlgCopy(_self->ob_itself); Py_INCREF(Py_None); _res = Py_None; return _res; } static PyObject *DlgObj_DlgDelete(_self, _args) DialogObject *_self; PyObject *_args; { PyObject *_res = NULL; if (!PyArg_ParseTuple(_args, "")) return NULL; DlgDelete(_self->ob_itself); Py_INCREF(Py_None); _res = Py_None; return _res; } static PyObject *DlgObj_AppendDITL(_self, _args) DialogObject *_self; PyObject *_args; { PyObject *_res = NULL; Handle theHandle; DITLMethod method; if (!PyArg_ParseTuple(_args, "O&h", ResObj_Convert, &theHandle, &method)) return NULL; AppendDITL(_self->ob_itself, theHandle, method); Py_INCREF(Py_None); _res = Py_None; return _res; } static PyObject *DlgObj_CountDITL(_self, _args) DialogObject *_self; PyObject *_args; { PyObject *_res = NULL; short _rv; if (!PyArg_ParseTuple(_args, "")) return NULL; _rv = CountDITL(_self->ob_itself); _res = Py_BuildValue("h", _rv); return _res; } static PyObject *DlgObj_ShortenDITL(_self, _args) DialogObject *_self; PyObject *_args; { PyObject *_res = NULL; short numberItems; if (!PyArg_ParseTuple(_args, "h", &numberItems)) return NULL; ShortenDITL(_self->ob_itself, numberItems); Py_INCREF(Py_None); _res = Py_None; return _res; } static PyMethodDef DlgObj_methods[] = { {"DrawDialog", (PyCFunction)DlgObj_DrawDialog, 1, "() -> None"}, {"UpdateDialog", (PyCFunction)DlgObj_UpdateDialog, 1, "() -> None"}, {"GetDItem", (PyCFunction)DlgObj_GetDItem, 1, "(short itemNo) -> (short itemType, Handle item, Rect box)"}, {"SetDItem", (PyCFunction)DlgObj_SetDItem, 1, "(short itemNo, short itemType, Handle item, Rect box) -> None"}, {"HideDItem", (PyCFunction)DlgObj_HideDItem, 1, "(short itemNo) -> None"}, {"ShowDItem", (PyCFunction)DlgObj_ShowDItem, 1, "(short itemNo) -> None"}, {"SelIText", (PyCFunction)DlgObj_SelIText, 1, "(short itemNo, short strtSel, short endSel) -> None"}, {"FindDItem", (PyCFunction)DlgObj_FindDItem, 1, "(Point thePt) -> (short _rv)"}, {"DlgCut", (PyCFunction)DlgObj_DlgCut, 1, "() -> None"}, {"DlgPaste", (PyCFunction)DlgObj_DlgPaste, 1, "() -> None"}, {"DlgCopy", (PyCFunction)DlgObj_DlgCopy, 1, "() -> None"}, {"DlgDelete", (PyCFunction)DlgObj_DlgDelete, 1, "() -> None"}, {"AppendDITL", (PyCFunction)DlgObj_AppendDITL, 1, "(Handle theHandle, DITLMethod method) -> None"}, {"CountDITL", (PyCFunction)DlgObj_CountDITL, 1, "() -> (short _rv)"}, {"ShortenDITL", (PyCFunction)DlgObj_ShortenDITL, 1, "(short numberItems) -> None"}, {NULL, NULL, 0} }; PyMethodChain DlgObj_chain = { DlgObj_methods, &WinObj_chain }; static PyObject *DlgObj_getattr(self, name) DialogObject *self; char *name; { return Py_FindMethodInChain(&DlgObj_chain, (PyObject *)self, name); } #define DlgObj_setattr NULL PyTypeObject Dialog_Type = { PyObject_HEAD_INIT(&PyType_Type) 0, /*ob_size*/ "Dialog", /*tp_name*/ sizeof(DialogObject), /*tp_basicsize*/ 0, /*tp_itemsize*/ /* methods */ (destructor) DlgObj_dealloc, /*tp_dealloc*/ 0, /*tp_print*/ (getattrfunc) DlgObj_getattr, /*tp_getattr*/ (setattrfunc) DlgObj_setattr, /*tp_setattr*/ }; /* --------------------- End object type Dialog --------------------- */ static PyObject *Dlg_NewDialog(_self, _args) PyObject *_self; PyObject *_args; { PyObject *_res = NULL; DialogPtr _rv; Rect boundsRect; Str255 title; Boolean visible; short procID; WindowPtr behind; Boolean goAwayFlag; long refCon; Handle itmLstHndl; if (!PyArg_ParseTuple(_args, "O&O&bhO&blO&", PyMac_GetRect, &boundsRect, PyMac_GetStr255, title, &visible, &procID, WinObj_Convert, &behind, &goAwayFlag, &refCon, ResObj_Convert, &itmLstHndl)) return NULL; _rv = NewDialog((void *)0, &boundsRect, title, visible, procID, behind, goAwayFlag, refCon, itmLstHndl); _res = Py_BuildValue("O&", DlgObj_New, _rv); return _res; } static PyObject *Dlg_GetNewDialog(_self, _args) PyObject *_self; PyObject *_args; { PyObject *_res = NULL; DialogPtr _rv; short dialogID; WindowPtr behind; if (!PyArg_ParseTuple(_args, "hO&", &dialogID, WinObj_Convert, &behind)) return NULL; _rv = GetNewDialog(dialogID, (void *)0, behind); _res = Py_BuildValue("O&", DlgObj_New, _rv); return _res; } static PyObject *Dlg_ParamText(_self, _args) PyObject *_self; PyObject *_args; { PyObject *_res = NULL; Str255 param0; Str255 param1; Str255 param2; Str255 param3; if (!PyArg_ParseTuple(_args, "O&O&O&O&", PyMac_GetStr255, param0, PyMac_GetStr255, param1, PyMac_GetStr255, param2, PyMac_GetStr255, param3)) return NULL; ParamText(param0, param1, param2, param3); Py_INCREF(Py_None); _res = Py_None; return _res; } static PyObject *Dlg_ModalDialog(_self, _args) PyObject *_self; PyObject *_args; { PyObject *_res = NULL; PyObject* filterProc; short itemHit; if (!PyArg_ParseTuple(_args, "O", &filterProc)) return NULL; ModalDialog(NewModalFilterProc(Dlg_PassFilterProc(filterProc)), &itemHit); _res = Py_BuildValue("h", itemHit); return _res; } static PyObject *Dlg_IsDialogEvent(_self, _args) PyObject *_self; PyObject *_args; { PyObject *_res = NULL; Boolean _rv; EventRecord theEvent; if (!PyArg_ParseTuple(_args, "O&", PyMac_GetEventRecord, &theEvent)) return NULL; _rv = IsDialogEvent(&theEvent); _res = Py_BuildValue("b", _rv); return _res; } static PyObject *Dlg_DialogSelect(_self, _args) PyObject *_self; PyObject *_args; { PyObject *_res = NULL; Boolean _rv; EventRecord theEvent; DialogPtr theDialog; short itemHit; if (!PyArg_ParseTuple(_args, "O&", PyMac_GetEventRecord, &theEvent)) return NULL; _rv = DialogSelect(&theEvent, &theDialog, &itemHit); _res = Py_BuildValue("bO&h", _rv, WinObj_WhichWindow, theDialog, itemHit); return _res; } static PyObject *Dlg_Alert(_self, _args) PyObject *_self; PyObject *_args; { PyObject *_res = NULL; short _rv; short alertID; PyObject* filterProc; if (!PyArg_ParseTuple(_args, "hO", &alertID, &filterProc)) return NULL; _rv = Alert(alertID, NewModalFilterProc(Dlg_PassFilterProc(filterProc))); _res = Py_BuildValue("h", _rv); return _res; } static PyObject *Dlg_StopAlert(_self, _args) PyObject *_self; PyObject *_args; { PyObject *_res = NULL; short _rv; short alertID; PyObject* filterProc; if (!PyArg_ParseTuple(_args, "hO", &alertID, &filterProc)) return NULL; _rv = StopAlert(alertID, NewModalFilterProc(Dlg_PassFilterProc(filterProc))); _res = Py_BuildValue("h", _rv); return _res; } static PyObject *Dlg_NoteAlert(_self, _args) PyObject *_self; PyObject *_args; { PyObject *_res = NULL; short _rv; short alertID; PyObject* filterProc; if (!PyArg_ParseTuple(_args, "hO", &alertID, &filterProc)) return NULL; _rv = NoteAlert(alertID, NewModalFilterProc(Dlg_PassFilterProc(filterProc))); _res = Py_BuildValue("h", _rv); return _res; } static PyObject *Dlg_CautionAlert(_self, _args) PyObject *_self; PyObject *_args; { PyObject *_res = NULL; short _rv; short alertID; PyObject* filterProc; if (!PyArg_ParseTuple(_args, "hO", &alertID, &filterProc)) return NULL; _rv = CautionAlert(alertID, NewModalFilterProc(Dlg_PassFilterProc(filterProc))); _res = Py_BuildValue("h", _rv); return _res; } static PyObject *Dlg_GetIText(_self, _args) PyObject *_self; PyObject *_args; { PyObject *_res = NULL; Handle item; Str255 text; if (!PyArg_ParseTuple(_args, "O&", ResObj_Convert, &item)) return NULL; GetIText(item, text); _res = Py_BuildValue("O&", PyMac_BuildStr255, text); return _res; } static PyObject *Dlg_SetIText(_self, _args) PyObject *_self; PyObject *_args; { PyObject *_res = NULL; Handle item; Str255 text; if (!PyArg_ParseTuple(_args, "O&O&", ResObj_Convert, &item, PyMac_GetStr255, text)) return NULL; SetIText(item, text); Py_INCREF(Py_None); _res = Py_None; return _res; } static PyObject *Dlg_NewCDialog(_self, _args) PyObject *_self; PyObject *_args; { PyObject *_res = NULL; DialogPtr _rv; Rect boundsRect; Str255 title; Boolean visible; short procID; WindowPtr behind; Boolean goAwayFlag; long refCon; Handle items; if (!PyArg_ParseTuple(_args, "O&O&bhO&blO&", PyMac_GetRect, &boundsRect, PyMac_GetStr255, title, &visible, &procID, WinObj_Convert, &behind, &goAwayFlag, &refCon, ResObj_Convert, &items)) return NULL; _rv = NewCDialog((void *)0, &boundsRect, title, visible, procID, behind, goAwayFlag, refCon, items); _res = Py_BuildValue("O&", DlgObj_New, _rv); return _res; } static PyObject *Dlg_ResetAlrtStage(_self, _args) PyObject *_self; PyObject *_args; { PyObject *_res = NULL; if (!PyArg_ParseTuple(_args, "")) return NULL; ResetAlrtStage(); Py_INCREF(Py_None); _res = Py_None; return _res; } static PyObject *Dlg_SetDAFont(_self, _args) PyObject *_self; PyObject *_args; { PyObject *_res = NULL; short fontNum; if (!PyArg_ParseTuple(_args, "h", &fontNum)) return NULL; SetDAFont(fontNum); Py_INCREF(Py_None); _res = Py_None; return _res; } static PyMethodDef Dlg_methods[] = { {"NewDialog", (PyCFunction)Dlg_NewDialog, 1, "(Rect boundsRect, Str255 title, Boolean visible, short procID, WindowPtr behind, Boolean goAwayFlag, long refCon, Handle itmLstHndl) -> (DialogPtr _rv)"}, {"GetNewDialog", (PyCFunction)Dlg_GetNewDialog, 1, "(short dialogID, WindowPtr behind) -> (DialogPtr _rv)"}, {"ParamText", (PyCFunction)Dlg_ParamText, 1, "(Str255 param0, Str255 param1, Str255 param2, Str255 param3) -> None"}, {"ModalDialog", (PyCFunction)Dlg_ModalDialog, 1, "(PyObject* filterProc) -> (short itemHit)"}, {"IsDialogEvent", (PyCFunction)Dlg_IsDialogEvent, 1, "(EventRecord theEvent) -> (Boolean _rv)"}, {"DialogSelect", (PyCFunction)Dlg_DialogSelect, 1, "(EventRecord theEvent) -> (Boolean _rv, DialogPtr theDialog, short itemHit)"}, {"Alert", (PyCFunction)Dlg_Alert, 1, "(short alertID, PyObject* filterProc) -> (short _rv)"}, {"StopAlert", (PyCFunction)Dlg_StopAlert, 1, "(short alertID, PyObject* filterProc) -> (short _rv)"}, {"NoteAlert", (PyCFunction)Dlg_NoteAlert, 1, "(short alertID, PyObject* filterProc) -> (short _rv)"}, {"CautionAlert", (PyCFunction)Dlg_CautionAlert, 1, "(short alertID, PyObject* filterProc) -> (short _rv)"}, {"GetIText", (PyCFunction)Dlg_GetIText, 1, "(Handle item) -> (Str255 text)"}, {"SetIText", (PyCFunction)Dlg_SetIText, 1, "(Handle item, Str255 text) -> None"}, {"NewCDialog", (PyCFunction)Dlg_NewCDialog, 1, "(Rect boundsRect, Str255 title, Boolean visible, short procID, WindowPtr behind, Boolean goAwayFlag, long refCon, Handle items) -> (DialogPtr _rv)"}, {"ResetAlrtStage", (PyCFunction)Dlg_ResetAlrtStage, 1, "() -> None"}, {"SetDAFont", (PyCFunction)Dlg_SetDAFont, 1, "(short fontNum) -> None"}, {NULL, NULL, 0} }; void initDlg() { PyObject *m; PyObject *d; m = Py_InitModule("Dlg", Dlg_methods); d = PyModule_GetDict(m); Dlg_Error = PyMac_GetOSErrException(); if (Dlg_Error == NULL || PyDict_SetItemString(d, "Error", Dlg_Error) != 0) Py_FatalError("can't initialize Dlg.Error"); } /* ========================= End module Dlg ========================= */