/*
**	       File: areaclass.c
**	Description: BOOPSI (BGUI) area gadget class.
**	  Copyright: (C) Copyright 1994-1995 Jaba Development.
**		     (C) Copyright 1994-1995 Jan van den Baard.
**		     All Rights Reserved.
**/

#include <exec/types.h>
#include <intuition/intuition.h>
#include <libraries/bgui.h>

#include <clib/alib_protos.h>

#include <proto/exec.h>
#include <proto/intuition.h>
#include <proto/bgui.h>
#include <proto/utility.h>

#include <string.h>
#include <stdlib.h>

#include "areaclass.h"

/*
**	Compiler stuff.
**/
#ifdef _DCC
#define SAVEDS __geta4
#define ASM
#define REG(x) __ ## x
#else
#define SAVEDS __saveds
#define ASM __asm
#define REG(x) register __ ## x
#endif

/*
**	AreaClass object instance data.
**/
typedef struct {
	UWORD		MinWidth;	/* Minimum width of area.  */
	UWORD		MinHeight;	/* Minimum height of area. */
	struct IBox	AreaBox;	/* Current area bounds.    */
} AOD;

/*
**	Some cast macros.
*/
#define OPSET(x)	((struct opSet *)x)
#define OPGET(x)	((struct opGet *)x)
#define GPRENDER(x)	((struct gpRender *)x)
#define GADGET(x)	((struct Gadget *)x)
#define GDIM(x)         ((struct grmDimensions *)x)

/*
**	Send a notification method.
**/
ULONG Notify( Object *obj, struct GadgetInfo *gi, ULONG flags, Tag tag1, ... )
{
	return( DoMethod( obj, OM_NOTIFY, ( struct TagItem * )&tag1, gi, flags ));
}

/*
**	Class dispatcher.
**
**	SAS Users: You should either compile this module with
**		   stack checking turned off (NOSTACKCHECK) or
**		   you must use the "__interrupt" qualifier in
**		   this routine.
**/
SAVEDS ASM ULONG AreaDispatch( REG(a0) Class *cl, REG(a2) Object *obj, REG(a1) Msg msg )
{
	AOD			*data;
	struct TagItem		*tag, *tstate;
	ULONG			 rc = 0L;

	switch ( msg->MethodID ) {

		case	OM_NEW:
			/*
			**	Let the superclass create the object.
			**/
			if ( rc = DoSuperMethodA( cl, obj, msg )) {
				/*
				**	Get instance data.
				**/
				data = ( AOD * )INST_DATA( cl, rc );
				/*
				**	Clear data (dunno if the system
				**	does this ????)
				**/
				bzero(( char * )data, sizeof( AOD ));
				/*
				**	Read attributes.
				**/
				tstate = OPSET( msg )->ops_AttrList;
				while ( tag = NextTagItem( &tstate )) {
					switch ( tag->ti_Tag ) {
						case	AREA_MinWidth:
							data->MinWidth = tag->ti_Data;
							break;
						case	AREA_MinHeight:
							data->MinHeight = tag->ti_Data;
							break;
					}
				}
				/*
				**	Minimal width and height required!
				**/
				if ( data->MinWidth && data->MinHeight )
					return( rc );
				/*
				**	Fail :(
				**/
				CoerceMethod( cl, ( Object * )rc, OM_DISPOSE );
				rc = 0L;
			}
			break;

		case	OM_GET:
			/*
			**	Do we know the requested
			**	attribute?
			**/
			if( OPGET( msg )->opg_AttrID == AREA_AreaBox ) {
				/*
				**	Simply return a pointer to the
				**	area which is computed at rendering
				**	time.
				**/
				data = ( AOD * )INST_DATA( cl, obj );
				*( OPGET( msg )->opg_Storage ) = ( ULONG )&data->AreaBox;
				rc = 1L;
			} else
				rc = DoSuperMethodA( cl, obj, msg );
			break;

		case	GM_RENDER:

			struct IBox	*hitbox;
			Object		*frame = NULL;
			ULONG		 fwidth, fheight;

			/*
			**	See if rendering is allowed.
			**/
			if ( rc = DoSuperMethodA( cl, obj, msg )) {
				/*
				**	Get instance data.
				**/
				data = ( AOD * )INST_DATA( cl, obj );
				/*
				**	Obtain the hitbox position and
				**	size of the object.
				**/
				DoSuperMethod( cl, obj, OM_GET, BT_HitBox, &hitbox );
				/*
				**	Copy this data to our private
				**	buffer.
				**/
				*( &data->AreaBox ) = *hitbox;
				/*
				**	Do we have a frame?
				**/
				DoSuperMethod( cl, obj, OM_GET, BT_FrameObject, &frame );
				if ( frame ) {
					/*
					**	Get frame width and height and
					**	adjust accoordingly.
					**/
					DoMethod( frame, OM_GET, FRM_FrameWidth,  &fwidth );
					DoMethod( frame, OM_GET, FRM_FrameHeight, &fheight );

					data->AreaBox.Left   += fwidth;
					data->AreaBox.Top    += fheight;
					data->AreaBox.Width  -= fwidth	<< 1;
					data->AreaBox.Height -= fheight << 1;
					/*
					**	Notify the main program.
					**/
					Notify( obj, GPRENDER( msg )->gpr_GInfo, 0L, GA_ID, GADGET( obj )->GadgetID, TAG_END );
				}
			}
			break;

		case	GRM_DIMENSIONS:
			/*
			**    First the superclass.
			**/
			DoSuperMethodA( cl, obj, msg );
			/*
			**    We simply add the specified minimum
			**    width and height which are passed
			**    to us at create time.
			**/
			data = ( AOD * )INST_DATA( cl, obj );
			*( GDIM( msg )->grmd_MinSize.Width  ) += data->MinWidth;
			*( GDIM( msg )->grmd_MinSize.Height ) += data->MinHeight;
			rc = 1L;
			break;

		case	GM_HITTEST:
			/*
			**	I intercept this method here to prevent
			**	gadget clicks from being reported.
			**/
			break;

		default:
			/*
			**    All the rest goes to the
			**    superclass.
			**/
			rc = DoSuperMethodA( cl, obj, msg );
			break;
	}
	return( rc );
}

/*
**	Initialize the class.
**/
Class *InitAreaClass( void )
{
	Class			*super, *cl = NULL;

	/*
	**	Obtain the BaseClass pointer which
	**	will be our superclass.
	**/
	if ( super = BGUI_GetClassPtr( BGUI_BASE_GADGET )) {
		/*
		**	Create the class.
		**/
		if ( cl = MakeClass( NULL, NULL, super, sizeof( AOD ), 0L ))
			/*
			**	Setup dispatcher.
			**/
			cl->cl_Dispatcher.h_Entry = ( HOOKFUNC )AreaDispatch;
	}
	return( cl );
}

/*
**	Kill the class.
**/
BOOL FreeAreaClass( Class *cl )
{
	return( FreeClass( cl ));
}