/*
** About Window
*/

#include "include/config.h"

#include "include/mui.h"

#include "include/gui.h"
#include "include/about.h"
#include "include/url.h"
#include "pix/biglogo.h"
#include "amster_Cat.h"
#include "include/protos.h"

ULONG about_new(struct IClass *cl, Object *obj, struct opSet *msg);


MUIF about_dispatch(REG(a0) struct IClass *cl,REG(a2) Object *obj,REG(a1) Msg msg)
{
	if(msg->MethodID==OM_NEW) return(about_new(cl,obj,(APTR)msg));
	return(DoSuperMethodA(cl,obj,msg));
}


ULONG about_new(struct IClass *cl, Object *obj, struct opSet *msg)
{
	u_long *okbut;

	if (obj = (Object *)DoSuperNew(cl,obj,
		MUIA_Window_Title, MSG_ABOUT_TITLE,
		MUIA_Window_ID, MAKE_ID('A','B','O','U'),
		MUIA_Window_UseBottomBorderScroller, FALSE,
		WindowContents, VGroup,
			MUIA_Background, MUII_RequesterBack,
			Child, ScrollgroupObject,
				MUIA_Background, MUII_ListBack,
				MUIA_Scrollgroup_FreeHoriz, FALSE,
				MUIA_Scrollgroup_Contents, VirtgroupObject, VirtualFrame,
					Child, VSpace(5),
					Child, HGroup,
						Child, HSpace(0),
						Child, BodychunkObject,
							MUIA_FixWidth, BIGLOGO_WIDTH,
							MUIA_FixHeight, BIGLOGO_HEIGHT,
							MUIA_Bitmap_Width, BIGLOGO_WIDTH,
							MUIA_Bitmap_Height, BIGLOGO_HEIGHT,
							MUIA_Bodychunk_Depth, BIGLOGO_DEPTH,
							MUIA_Bodychunk_Body, (ULONG *)biglogo_body,
							MUIA_Bodychunk_Compression, BIGLOGO_COMPRESSION,
							MUIA_Bodychunk_Masking, BIGLOGO_MASKING,
							MUIA_Bitmap_SourceColors, (ULONG *)biglogo_colors,
						End,
						Child, HSpace(0),
					End,
					Child, TextObject,
						MUIA_Font, MUIV_Font_Big,
						MUIA_Text_Contents, "\33c\33bVersion "AMSTER_VERSION" ("AMSTER_DATE")",
					End,
					Child, VSpace(5),
					Child, TextObject,
						MUIA_Text_Contents, MSG_ABOUT_LICENSE_TMP,
					End,
					Child, RectangleObject,
						MUIA_FixHeight, 8,
						MUIA_Rectangle_HBar, TRUE,
					End,
					Child, NewObject(gui->url_mcc->mcc_Class, NULL,
						URL_NAME, MSG_ABOUT_HOMEPAGE_TMP,
						URL_HREF, "http://home.worldonline.dk/~jlaur/amiga/amster/",
					End,
					Child, NewObject(gui->url_mcc->mcc_Class, NULL,
						URL_NAME, MSG_ABOUT_MAILLIST_TMP,
						URL_HREF, "http://www.egroups.com/group/amster",
					End,
					Child, NewObject(gui->url_mcc->mcc_Class, NULL,
						URL_NAME, MSG_ABOUT_FAQPAGE,
						URL_HREF, "http://napster.cjb.net",
					End,
					Child, RectangleObject,
						MUIA_FixHeight, 8,
						MUIA_Rectangle_HBar, TRUE,
					End,
					Child, TextObject,
						MUIA_InnerLeft, 20,
						MUIA_InnerRight, 20,
						MUIA_Text_Contents, MSG_ABOUT_TEAM_TMP,
					End,
					Child, RectangleObject,
						MUIA_FixHeight, 8,
						MUIA_Rectangle_HBar, TRUE,
					End,
					Child, TextObject,
						MUIA_InnerLeft, 20,
						MUIA_InnerRight, 20,
						MUIA_Text_Contents, MSG_ABOUT_GREETS,
					End,
					Child, VSpace(5),
				End,
			End,
			Child, HGroup,
				Child, HSpace(0),
				Child, HSpace(0),
				Child, okbut = SimpleButton(MSG_OK_GAD),
			End,
		End,
		TAG_MORE, msg->ops_AttrList))
	{

		DoMethod(okbut, MUIM_Notify, MUIA_Pressed, FALSE, obj, 3, MUIM_Set, MUIA_Window_Open, FALSE);
		DoMethod(obj, MUIM_Notify, MUIA_Window_CloseRequest, TRUE, obj, 3, MUIM_Set, MUIA_Window_Open, FALSE);

		return((ULONG)obj);
	}

	return(0);
}