#include "diawxgtk.h"

class ERROR_FORM: public MAINFORM{
	/*~PROTOBEG~ ERROR_FORM */
public:
	ERROR_FORM (const char *tb[]);
	/*~PROTOEND~ ERROR_FORM */
};


class ERROR_BUTTON: public wxButton{
public:
	ERROR_BUTTON(MFORM *_parent, const char *_title)
		: wxButton(_parent,-1,_title)
	{
	}
	void func(wxEvent &);
	DECLARE_EVENT_TABLE()
};

void ERROR_BUTTON::func (wxEvent &)
{
	MFORM *p = (MFORM*)GetParent();
	p->gettop()->dispose();
}

#ifndef PROTO_SKIP

BEGIN_EVENT_TABLE(ERROR_BUTTON,wxButton)
	EVT_LEFT_DOWN(ERROR_BUTTON::func)
END_EVENT_TABLE()

#endif

PUBLIC ERROR_FORM::ERROR_FORM (
	const char *tb[])
	: MAINFORM ("error")
{
	for (int i=0; tb[i] != NULL; i++){
		New_label (tb[i]);
		Newline();
	}
	MFORM *f = New_form("button");
	f->Fill();
	MFORM_C *m = f->alloc_mf();
	m->c = new ERROR_BUTTON(f,"Dismiss");
	m->type = T_BUTTON;
	f->Fill();
}


wxFrame *error (const char *tb[])
{
	ERROR_FORM *ef = new ERROR_FORM (tb);
	ef->Popup();
	return ef->getframe();
}