/*

 * Motif

 *

 * Copyright (c) 1987-2012, The Open Group. All rights reserved.

 *

 * These libraries and programs are free software; you can

 * redistribute them and/or modify them under the terms of the GNU

 * Lesser General Public License as published by the Free Software

 * Foundation; either version 2 of the License, or (at your option)

 * any later version.

 *

 * These libraries and programs are distributed in the hope that

 * they will be useful, but WITHOUT ANY WARRANTY; without even the

 * implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR

 * PURPOSE. See the GNU Lesser General Public License for more

 * details.

 *

 * You should have received a copy of the GNU Lesser General Public

 * License along with these librararies and programs; if not, write

 * to the Free Software Foundation, Inc., 51 Franklin Street, Fifth

 * Floor, Boston, MA 02110-1301 USA

*/

#ifdef HAVE_CONFIG_H

#include <config.h>

#endif

#include "XmI.h"

#include "SlideCP.h"

#include <Xm/XmP.h>

/*

   Widget methods, forward declarations

 */

static void class_initialize(void);

static void class_part_initialize(WidgetClass widget_class);

static void initialize(Widget request, Widget new_w, ArgList args, Cardinal *num_args);

static void destroy(Widget w);

static Boolean set_values(Widget old, Widget request, Widget new_w, ArgList args, Cardinal *num_args);

static void get_values_hook(Widget w, ArgList args, Cardinal *num_args);

static void _XmSlideProc(Widget w);

static void targetDestroy(Widget target, XtPointer client_data, XtPointer call_data);

/*

   Widget default resources

 */

#define Offset(field) XtOffsetOf(XmSlideContextRec, slide.field)

static XtResource resources[] =

{

    {

	XmNslideFinishCallback, XtCCallback, XtRCallback,

	sizeof(XtCallbackList), Offset(slideFinishCallback),

	XtRCallback, NULL

    },

    {

	XmNslideMotionCallback, XtCCallback, XtRCallback,

	sizeof(XtCallbackList), Offset(slideMotionCallback),

	XtRCallback, NULL

    },

    {

	XmNslideWidget, XmCSlideWidget, XtRWidget,

	sizeof(Widget), Offset(slide_widget),

	XtRImmediate, NULL

    },

    {

	XmNslideInterval, XmCSlideInterval, XtRInt,

	sizeof(int), Offset(interval),

	XtRImmediate, (XtPointer)5

    },

    {

	XmNslideDestWidth, XmCSlideDestWidth, XtRDimension,

	sizeof(Dimension), Offset(dest_width),

	XtRImmediate, (XtPointer)XmUNSPECIFIED

    },

    {

	XmNslideDestHeight, XmCSlideDestHeight, XtRDimension,

	sizeof(Dimension), Offset(dest_height),

	XtRImmediate, (XtPointer)XmUNSPECIFIED

    },

    {

	XmNslideDestX, XmCSlideDestX, XtRPosition,

	sizeof(Position), Offset(dest_x),

	XtRImmediate, (XtPointer)XmUNSPECIFIED_POSITION

    },

    {

	XmNslideDestY, XmCSlideDestY, XtRPosition,

	sizeof(Position), Offset(dest_y),

	XtRImmediate, (XtPointer)XmUNSPECIFIED_POSITION

    },

};

#undef Offset

/*

   Widget class record

 */

/* *INDENT-OFF* */

XmSlideContextClassRec xmSlideContextClassRec = {

	/* Object Class Part */

	{

/* pointer to superclass ClassRec   WidgetClass       */ (WidgetClass) &objectClassRec,

/* widget resource class name       String            */ "XmSlideContext",

/* size in bytes of widget record   Cardinal          */ sizeof(XmSlideContextRec),

/* class initialization proc        XtProc            */ class_initialize,

/* dynamic initialization           XtWidgetClassProc */ class_part_initialize,

/* has class been initialized?      XtEnum            */ False,

/* initialize subclass fields       XtInitProc        */ initialize,

/* notify that initialize called    XtArgsProc        */ NULL,

/* NULL                             XtProc            */ NULL,

/* NULL                             XtPointer         */ NULL,

/* NULL                             Cardinal          */ (Cardinal)NULL,

/* resources for subclass fields    XtResourceList    */ resources,

/* number of entries in resources   Cardinal          */ XtNumber(resources),

/* resource class quarkified        XrmClass          */ NULLQUARK,

/* NULL                             Boolean           */ (Boolean)NULL,

/* NULL                             XtEnum            */ (XtEnum)NULL,

/* NULL				    Boolean           */ (Boolean)NULL,

/* NULL                             Boolean           */ (Boolean)NULL,

/* free data for subclass pointers  XtWidgetProc      */ destroy,

/* NULL                             XtProc            */ NULL,

/* NULL			            XtProc            */ NULL,

/* set subclass resource values     XtSetValuesFunc   */ set_values,

/* notify that set_values called    XtArgsFunc        */ NULL,

/* NULL                             XtProc            */ NULL,

/* notify that get_values called    XtArgsProc        */ get_values_hook,

/* NULL                             XtProc            */ NULL,

/* version of intrinsics used       XtVersionType     */ XtVersion,

/* list of callback offsets         XtPointer         */ NULL,

/* NULL                             String            */ NULL,

/* NULL                             XtProc            */ NULL,

/* NULL                             XtProc            */ NULL,

/* pointer to extension record      XtPointer         */ NULL

	},

	/* SlideContext Class Part */

	{

		NULL

	}

};

/* *INDENT-ON* */

WidgetClass xmSlideContextWidgetClass = (WidgetClass)&xmSlideContextClassRec;

static void 

class_initialize(void)

{

}

static void 

class_part_initialize(WidgetClass widget_class)

{

}

static void 

initialize(Widget request, Widget new_w, ArgList args, Cardinal *num_args)

{

    /*

    printf("%s:%s(%d) - %s %li\n", __FILE__, __FUNCTION__, __LINE__,

    	XtName(new_w),

    	Slide_Interval(new_w));

    	*/

    if (Slide_Widget(new_w) == NULL)

    {

	_XmWarningMsg(new_w, 

	    "Invalid parameter",

	    XmNslideWidget " must be specified during creation",

	    NULL, 0);

    }

    else

    {

	if (Slide_DestWidth(new_w) == (Dimension)XmUNSPECIFIED)

	{

	    Slide_DestWidth(new_w) = XtWidth(Slide_Widget(new_w));

	}

	if (Slide_DestHeight(new_w) == (Dimension)XmUNSPECIFIED)

	{

	    Slide_DestHeight(new_w) = XtHeight(Slide_Widget(new_w));

	}

	if (Slide_DestX(new_w) == XmUNSPECIFIED_POSITION)

	{

	    Slide_DestX(new_w) = XtX(Slide_Widget(new_w));

	}

	if (Slide_DestY(new_w) == XmUNSPECIFIED_POSITION)

	{

	    Slide_DestY(new_w) = XtY(Slide_Widget(new_w));

	}

	Slide_Id(new_w) = XtAppAddTimeOut(XtWidgetToApplicationContext(new_w),

		Slide_Interval(new_w),

		(XtTimerCallbackProc)_XmSlideProc,

		new_w);

	XtAddCallback(Slide_Widget(new_w), XmNdestroyCallback, (XtCallbackProc)targetDestroy, new_w);

    }

}

static void 

destroy(Widget w)

{

    if (Slide_Id(w) != (XtIntervalId)NULL)

    {

    	XtRemoveTimeOut(Slide_Id(w));

	Slide_Id(w) = (XtIntervalId)NULL;

    }

    XtRemoveCallback(Slide_Widget(w), XmNdestroyCallback, (XtCallbackProc)targetDestroy, w);

}

static Boolean 

set_values(Widget old, Widget request, Widget new_w, ArgList args, Cardinal *num_args)

{

    if (Slide_Widget(old) != Slide_Widget(new_w))

    {

	XtRemoveCallback(Slide_Widget(old), XmNdestroyCallback, (XtCallbackProc)targetDestroy, old);

	XtAddCallback(Slide_Widget(new_w), XmNdestroyCallback, (XtCallbackProc)targetDestroy, new_w);

    }

    return(False);

}

static void 

get_values_hook(Widget w, ArgList args, Cardinal *num_args)

{

}

static void

targetDestroy(Widget target, XtPointer client_data, XtPointer call_data)

{

Widget w = (Widget)client_data;

    XtDestroyWidget(w);

}

static void

_XmSlideProc(Widget w)

{

Dimension width, height;

Position x, y;

    /*

    printf("%s:%s(%d) - %s %li\n", __FILE__, __FUNCTION__, __LINE__,

    	XtName(w),

    	Slide_Interval(w));

    	*/

    if (Slide_Interval(w) == 0)

    {

	width = Slide_DestWidth(w);

	height = Slide_DestHeight(w);

	x = Slide_DestX(w);

	y = Slide_DestY(w);

    }

    else

    {

	width = XtWidth(Slide_Widget(w));

	height = XtHeight(Slide_Widget(w));

	x = XtX(Slide_Widget(w));

	y = XtY(Slide_Widget(w));

	{

	    height = height - (((height - Slide_DestHeight(w)) * 10) / 100);

	    if (height < Slide_DestHeight(w))

	    {

		height++;

	    }

	    if (height > Slide_DestHeight(w))

	    {

		height--;

	    }

	    width = width - (((width - Slide_DestWidth(w)) * 10) / 100);

	    if (width < Slide_DestWidth(w))

	    {

		width++;

	    }

	    if (width > Slide_DestWidth(w))

	    {

		width--;

	    }

	}

	{

	    y = y - ((((y - Slide_DestY(w)) * 10) / 100) + 0);

	    if (y < Slide_DestY(w))

	    {

		y++;

	    }

	    if (y > Slide_DestY(w))

	    {

		y--;

	    }

	    x = x - ((((x - Slide_DestX(w)) * 10) / 100) + 0);

	    if (x < Slide_DestX(w))

	    {

		x++;

	    }

	    if (x > Slide_DestX(w))

	    {

		x--;

	    }

	}

    }

    /*

    XtCallCallbackList(w, Slide_MotionCallback(w), NULL);

    */

    XtVaSetValues(Slide_Widget(w),

    	XmNx, x,

    	XmNy, y,

    	XmNwidth, width,

    	XmNheight, height,

    	NULL);

    if (Slide_DestX(w) == XtX(Slide_Widget(w)) &&

        Slide_DestY(w) == XtY(Slide_Widget(w)) &&

        Slide_DestWidth(w) == XtWidth(Slide_Widget(w)) &&

        Slide_DestHeight(w) == XtHeight(Slide_Widget(w)))

    {

    	XtCallCallbackList(w, Slide_FinishCallback(w), NULL);

	XtRemoveCallback(Slide_Widget(w), XmNdestroyCallback, (XtCallbackProc)targetDestroy, w);

    	XtDestroyWidget(w);

    }

    else

    {

    	Slide_Id(w) = XtAppAddTimeOut(XtWidgetToApplicationContext(w),

    		Slide_Interval(w),

    		(XtTimerCallbackProc)_XmSlideProc,

    		w);

    }

}