/* ========================== Module _Dlg =========================== */

#include "Python.h"

#ifndef __LP64__

#include "pymactoolbox.h"

/* Macro to test whether a weak-loaded CFM function exists */

#define PyMac_PRECHECK(rtn) do { if ( &rtn == NULL )  {\

        PyErr_SetString(PyExc_NotImplementedError, \

        "Not available in this shared library/OS version"); \

        return NULL; \

    }} while(0)

#include <Carbon/Carbon.h>

#ifdef USE_TOOLBOX_OBJECT_GLUE

extern PyObject *_DlgObj_New(DialogRef);

extern PyObject *_DlgObj_WhichDialog(DialogRef);

extern int _DlgObj_Convert(PyObject *, DialogRef *);

#define DlgObj_New _DlgObj_New

#define DlgObj_WhichDialog _DlgObj_WhichDialog

#define DlgObj_Convert _DlgObj_Convert

#endif

/* XXX Shouldn't this be a stack? */

static PyObject *Dlg_FilterProc_callback = NULL;

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&", DlgObj_WhichDialog, dialog, PyMac_BuildEventRecord, event);

        if (args == NULL)

                res = NULL;

        else {

                res = PyEval_CallObject(callback, args);

                Py_DECREF(args);

        }

        if (res == NULL) {

                PySys_WriteStderr("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 ModalFilterUPP

Dlg_PassFilterProc(PyObject *callback)

{

        PyObject *tmp = Dlg_FilterProc_callback;

        static ModalFilterUPP UnivFilterUpp = NULL;

        Dlg_FilterProc_callback = NULL;

        if (callback == Py_None) {

                Py_XDECREF(tmp);

                return NULL;

        }

        Py_INCREF(callback);

        Dlg_FilterProc_callback = callback;

        Py_XDECREF(tmp);

        if ( UnivFilterUpp == NULL )

                UnivFilterUpp = NewModalFilterUPP(&Dlg_UnivFilterProc);

        return UnivFilterUpp;

}

static PyObject *Dlg_UserItemProc_callback = NULL;

static pascal void Dlg_UnivUserItemProc(DialogPtr dialog,

                                         short item)

{

        PyObject *args, *res;

        if (Dlg_UserItemProc_callback == NULL)

                return; /* Default behavior */

        Dlg_FilterProc_callback = NULL; /* We'll restore it when call successful */

        args = Py_BuildValue("O&h", DlgObj_WhichDialog, dialog, item);

        if (args == NULL)

                res = NULL;

        else {

                res = PyEval_CallObject(Dlg_UserItemProc_callback, args);

                Py_DECREF(args);

        }

        if (res == NULL) {

                PySys_WriteStderr("Exception in Dialog UserItem proc\n");

                PyErr_Print();

        }

        Py_XDECREF(res);

        return;

}

#if 0

/*

** Treating DialogObjects as WindowObjects is (I think) illegal under Carbon.

** However, as they are still identical under MacOS9 Carbon this is a problem, even

** if we neatly call GetDialogWindow() at the right places: there's one refcon field

** and it points to the DialogObject, so WinObj_WhichWindow will smartly return the

** dialog object, and therefore we still don't have a WindowObject.

** I'll leave the chaining code in place for now, with this comment to warn the

** unsuspecting victims (i.e. me, probably, in a few weeks:-)

*/

extern PyMethodChain WinObj_chain;

#endif

static PyObject *Dlg_Error;

/* ----------------------- Object type Dialog ----------------------- */

PyTypeObject Dialog_Type;

#define DlgObj_Check(x) ((x)->ob_type == &Dialog_Type || PyObject_TypeCheck((x), &Dialog_Type))

typedef struct DialogObject {

	PyObject_HEAD

	DialogPtr ob_itself;

} DialogObject;

PyObject *DlgObj_New(DialogPtr itself)

{

	DialogObject *it;

	if (itself == NULL) { Py_INCREF(Py_None); return Py_None; }

	it = PyObject_NEW(DialogObject, &Dialog_Type);

	if (it == NULL) return NULL;

	it->ob_itself = itself;

	SetWRefCon(GetDialogWindow(itself), (long)it);

	return (PyObject *)it;

}

int DlgObj_Convert(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(DialogObject *self)

{

	DisposeDialog(self->ob_itself);

	self->ob_type->tp_free((PyObject *)self);

}

static PyObject *DlgObj_DrawDialog(DialogObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

#ifndef DrawDialog

	PyMac_PRECHECK(DrawDialog);

#endif

	if (!PyArg_ParseTuple(_args, ""))

		return NULL;

	DrawDialog(_self->ob_itself);

	Py_INCREF(Py_None);

	_res = Py_None;

	return _res;

}

static PyObject *DlgObj_UpdateDialog(DialogObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	RgnHandle updateRgn;

#ifndef UpdateDialog

	PyMac_PRECHECK(UpdateDialog);

#endif

	if (!PyArg_ParseTuple(_args, "O&",

	                      ResObj_Convert, &updateRgn))

		return NULL;

	UpdateDialog(_self->ob_itself,

	             updateRgn);

	Py_INCREF(Py_None);

	_res = Py_None;

	return _res;

}

static PyObject *DlgObj_HideDialogItem(DialogObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	DialogItemIndex itemNo;

#ifndef HideDialogItem

	PyMac_PRECHECK(HideDialogItem);

#endif

	if (!PyArg_ParseTuple(_args, "h",

	                      &itemNo))

		return NULL;

	HideDialogItem(_self->ob_itself,

	               itemNo);

	Py_INCREF(Py_None);

	_res = Py_None;

	return _res;

}

static PyObject *DlgObj_ShowDialogItem(DialogObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	DialogItemIndex itemNo;

#ifndef ShowDialogItem

	PyMac_PRECHECK(ShowDialogItem);

#endif

	if (!PyArg_ParseTuple(_args, "h",

	                      &itemNo))

		return NULL;

	ShowDialogItem(_self->ob_itself,

	               itemNo);

	Py_INCREF(Py_None);

	_res = Py_None;

	return _res;

}

static PyObject *DlgObj_FindDialogItem(DialogObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	DialogItemIndexZeroBased _rv;

	Point thePt;

#ifndef FindDialogItem

	PyMac_PRECHECK(FindDialogItem);

#endif

	if (!PyArg_ParseTuple(_args, "O&",

	                      PyMac_GetPoint, &thePt))

		return NULL;

	_rv = FindDialogItem(_self->ob_itself,

	                     thePt);

	_res = Py_BuildValue("h",

	                     _rv);

	return _res;

}

static PyObject *DlgObj_DialogCut(DialogObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

#ifndef DialogCut

	PyMac_PRECHECK(DialogCut);

#endif

	if (!PyArg_ParseTuple(_args, ""))

		return NULL;

	DialogCut(_self->ob_itself);

	Py_INCREF(Py_None);

	_res = Py_None;

	return _res;

}

static PyObject *DlgObj_DialogPaste(DialogObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

#ifndef DialogPaste

	PyMac_PRECHECK(DialogPaste);

#endif

	if (!PyArg_ParseTuple(_args, ""))

		return NULL;

	DialogPaste(_self->ob_itself);

	Py_INCREF(Py_None);

	_res = Py_None;

	return _res;

}

static PyObject *DlgObj_DialogCopy(DialogObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

#ifndef DialogCopy

	PyMac_PRECHECK(DialogCopy);

#endif

	if (!PyArg_ParseTuple(_args, ""))

		return NULL;

	DialogCopy(_self->ob_itself);

	Py_INCREF(Py_None);

	_res = Py_None;

	return _res;

}

static PyObject *DlgObj_DialogDelete(DialogObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

#ifndef DialogDelete

	PyMac_PRECHECK(DialogDelete);

#endif

	if (!PyArg_ParseTuple(_args, ""))

		return NULL;

	DialogDelete(_self->ob_itself);

	Py_INCREF(Py_None);

	_res = Py_None;

	return _res;

}

static PyObject *DlgObj_GetDialogItem(DialogObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	DialogItemIndex itemNo;

	DialogItemType itemType;

	Handle item;

	Rect box;

#ifndef GetDialogItem

	PyMac_PRECHECK(GetDialogItem);

#endif

	if (!PyArg_ParseTuple(_args, "h",

	                      &itemNo))

		return NULL;

	GetDialogItem(_self->ob_itself,

	              itemNo,

	              &itemType,

	              &item,

	              &box);

	_res = Py_BuildValue("hO&O&",

	                     itemType,

	                     OptResObj_New, item,

	                     PyMac_BuildRect, &box);

	return _res;

}

static PyObject *DlgObj_SetDialogItem(DialogObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	DialogItemIndex itemNo;

	DialogItemType itemType;

	Handle item;

	Rect box;

#ifndef SetDialogItem

	PyMac_PRECHECK(SetDialogItem);

#endif

	if (!PyArg_ParseTuple(_args, "hhO&O&",

	                      &itemNo,

	                      &itemType,

	                      ResObj_Convert, &item,

	                      PyMac_GetRect, &box))

		return NULL;

	SetDialogItem(_self->ob_itself,

	              itemNo,

	              itemType,

	              item,

	              &box);

	Py_INCREF(Py_None);

	_res = Py_None;

	return _res;

}

static PyObject *DlgObj_SelectDialogItemText(DialogObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	DialogItemIndex itemNo;

	SInt16 strtSel;

	SInt16 endSel;

#ifndef SelectDialogItemText

	PyMac_PRECHECK(SelectDialogItemText);

#endif

	if (!PyArg_ParseTuple(_args, "hhh",

	                      &itemNo,

	                      &strtSel,

	                      &endSel))

		return NULL;

	SelectDialogItemText(_self->ob_itself,

	                     itemNo,

	                     strtSel,

	                     endSel);

	Py_INCREF(Py_None);

	_res = Py_None;

	return _res;

}

static PyObject *DlgObj_AppendDITL(DialogObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	Handle theHandle;

	DITLMethod method;

#ifndef AppendDITL

	PyMac_PRECHECK(AppendDITL);

#endif

	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(DialogObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	DialogItemIndex _rv;

#ifndef CountDITL

	PyMac_PRECHECK(CountDITL);

#endif

	if (!PyArg_ParseTuple(_args, ""))

		return NULL;

	_rv = CountDITL(_self->ob_itself);

	_res = Py_BuildValue("h",

	                     _rv);

	return _res;

}

static PyObject *DlgObj_ShortenDITL(DialogObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	DialogItemIndex numberItems;

#ifndef ShortenDITL

	PyMac_PRECHECK(ShortenDITL);

#endif

	if (!PyArg_ParseTuple(_args, "h",

	                      &numberItems))

		return NULL;

	ShortenDITL(_self->ob_itself,

	            numberItems);

	Py_INCREF(Py_None);

	_res = Py_None;

	return _res;

}

static PyObject *DlgObj_InsertDialogItem(DialogObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	OSStatus _err;

	DialogItemIndex afterItem;

	DialogItemType itemType;

	Handle itemHandle;

	Rect box;

#ifndef InsertDialogItem

	PyMac_PRECHECK(InsertDialogItem);

#endif

	if (!PyArg_ParseTuple(_args, "hhO&O&",

	                      &afterItem,

	                      &itemType,

	                      ResObj_Convert, &itemHandle,

	                      PyMac_GetRect, &box))

		return NULL;

	_err = InsertDialogItem(_self->ob_itself,

	                        afterItem,

	                        itemType,

	                        itemHandle,

	                        &box);

	if (_err != noErr) return PyMac_Error(_err);

	Py_INCREF(Py_None);

	_res = Py_None;

	return _res;

}

static PyObject *DlgObj_RemoveDialogItems(DialogObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	OSStatus _err;

	DialogItemIndex itemNo;

	DialogItemIndex amountToRemove;

	Boolean disposeItemData;

#ifndef RemoveDialogItems

	PyMac_PRECHECK(RemoveDialogItems);

#endif

	if (!PyArg_ParseTuple(_args, "hhb",

	                      &itemNo,

	                      &amountToRemove,

	                      &disposeItemData))

		return NULL;

	_err = RemoveDialogItems(_self->ob_itself,

	                         itemNo,

	                         amountToRemove,

	                         disposeItemData);

	if (_err != noErr) return PyMac_Error(_err);

	Py_INCREF(Py_None);

	_res = Py_None;

	return _res;

}

static PyObject *DlgObj_StdFilterProc(DialogObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	Boolean _rv;

	EventRecord event;

	DialogItemIndex itemHit;

#ifndef StdFilterProc

	PyMac_PRECHECK(StdFilterProc);

#endif

	if (!PyArg_ParseTuple(_args, "O&h",

	                      PyMac_GetEventRecord, &event,

	                      &itemHit))

		return NULL;

	_rv = StdFilterProc(_self->ob_itself,

	                    &event,

	                    &itemHit);

	_res = Py_BuildValue("bO&h",

	                     _rv,

	                     PyMac_BuildEventRecord, &event,

	                     itemHit);

	return _res;

}

static PyObject *DlgObj_SetDialogDefaultItem(DialogObject *_self, PyObject *_args)

{

	PyObject *_res = NULL;

	OSErr _err;

	DialogItemIndex newItem;

#ifndef SetDialogDefaultItem

	PyMac_PRECHECK(SetDialogDefaultItem);

#endif

	if (!PyArg_ParseTuple(_args, "h",

	                      &newItem))

		return NULL;

	_err = SetDialogDefaultItem(_self->ob_itself,

	                            newItem);

	if (_err != noErr) return PyMac_Error(_err);

	Py_INCREF(Py_None);

	_res = Py_None;

	return _res;