/* -*- Mode: C; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 2 -*-
 *
 * The contents of this file are subject to the Netscape Public
 * License Version 1.1 (the "License"); you may not use this file
 * except in compliance with the License. You may obtain a copy of
 * the License at http://www.mozilla.org/NPL/
 *
 * Software distributed under the License is distributed on an "AS
 * IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
 * implied. See the License for the specific language governing
 * rights and limitations under the License.
 *
 * The Original Code is mozilla.org code.
 *
 * The Initial Developer of the Original Code is Netscape
 * Communications Corporation.  Portions created by Netscape are
 * Copyright (C) 1998 Netscape Communications Corporation. All
 * Rights Reserved.
 *
 * Contributor(s): 
 */

/*----------------------------------------------------------------------*/
/*																		*/
/* Name:		<Xfe/Primitive.c>										*/
/* Description:	XfePrimitive widget source.								*/
/* Author:		Ramiro Estrugo <ramiro@netscape.com>					*/
/*																		*/
/*----------------------------------------------------------------------*/

#include <stdio.h>

#include <Xfe/PrimitiveP.h>

/*----------------------------------------------------------------------*/
/*																		*/
/* Warnings and messages												*/
/*																		*/
/*----------------------------------------------------------------------*/
#define MESSAGE0 "XfePrimitive is an abstract class and cannot be instanciated."
#define MESSAGE1 "Widget is not XfePrimitive."
#define MESSAGE2 "XmNpreferredHeight is a read-only resource."
#define MESSAGE3 "XmNpreferredWidth is a read-only resource."
#define MESSAGE4 "XmNpointerInside is a read-only resource."
#define MESSAGE5 "XmNnumPopupChildren is a read-only resource."
#define MESSAGE6 "XmNpopupChildren is a read-only resource."
#define MESSAGE7 "Cannot change XmNbufferType after initialization."
#define MESSAGE8 "Widget's width must be greater than 0."
#define MESSAGE9 "Widget's height must be greater than 0."

/*----------------------------------------------------------------------*/
/*																		*/
/* Core Class Methods													*/
/*																		*/
/*----------------------------------------------------------------------*/
static void				ClassInitialize	();
static void				ClassPartInit	(WidgetClass);
static void				Initialize		(Widget,Widget,ArgList,Cardinal *);
static void				Destroy			(Widget);
static void				Redisplay		(Widget,XEvent *,Region);
static void				Realize			(Widget,XtValueMask *,
										 XSetWindowAttributes *);
static void				Resize			(Widget);
static Boolean			SetValues		(Widget,Widget,Widget,ArgList,
										 Cardinal *);
static XtGeometryResult	QueryGeometry	(Widget,XtWidgetGeometry *,
										 XtWidgetGeometry *);

/*----------------------------------------------------------------------*/
/*																		*/
/* XmPrimitive Extension Methods										*/
/*																		*/
/*----------------------------------------------------------------------*/
static Boolean		WidgetDisplayRect	(Widget,XRectangle  *);

/*----------------------------------------------------------------------*/
/*																		*/
/* XfePrimitive Class Methods											*/
/*																		*/
/*----------------------------------------------------------------------*/
static void			InitializePostHook	(Widget,Widget);
static Boolean		SetValuesPostHook	(Widget,Widget,Widget);
static void			PreferredGeometry	(Widget,Dimension *,Dimension *);
static void			UpdateBoundary		(Widget);
static void			DrawShadow			(Widget,XEvent *,Region,XRectangle *);

/*----------------------------------------------------------------------*/
/*																		*/
/* XfePrimitive Buffer Pixmap functions									*/
/*																		*/
/*----------------------------------------------------------------------*/
static void 	BufferAllocate			(Widget);
static void 	BufferFree				(Widget);
static void 	BufferUpdate			(Widget);

/*----------------------------------------------------------------------*/
/*																		*/
/* Misc XfePrimitive functions											*/
/*																		*/
/*----------------------------------------------------------------------*/
static Dimension		GetWidth		(Widget);
static Dimension		GetHeight		(Widget);

/*----------------------------------------------------------------------*/
/*																		*/
/* Rep type registration functions										*/
/*																		*/
/*----------------------------------------------------------------------*/
static void	PrimitiveRegisterRepTypes	(void);

/*----------------------------------------------------------------------*/
/*																		*/
/* XfePrimitive Resources												*/
/*																		*/
/*----------------------------------------------------------------------*/
static XtResource resources[] = 
{
	/* Callback resources */
	{ 
		XmNenterCallback,
		XmCCallback,
		XmRCallback,
		sizeof(XtCallbackList),
		XtOffsetOf(XfePrimitiveRec , xfe_primitive . enter_callback),
		XmRImmediate, 
		(XtPointer) NULL,
	},
	{ 
		XmNfocusCallback,
		XmCCallback,
		XmRCallback,
		sizeof(XtCallbackList),
		XtOffsetOf(XfePrimitiveRec , xfe_primitive . focus_callback),
		XmRImmediate, 
		(XtPointer) NULL,
	},
	{ 
		XmNleaveCallback,
		XmCCallback,
		XmRCallback,
		sizeof(XtCallbackList),
		XtOffsetOf(XfePrimitiveRec , xfe_primitive . leave_callback),
		XmRImmediate, 
		(XtPointer) NULL,
	},
	{ 
		XmNrealizeCallback,
		XmCCallback,
		XmRCallback,
		sizeof(XtCallbackList),
		XtOffsetOf(XfePrimitiveRec , xfe_primitive . realize_callback),
		XmRImmediate, 
		(XtPointer) NULL,
	},
	{ 
		XmNresizeCallback,
		XmCCallback,
		XmRCallback,
		sizeof(XtCallbackList),
		XtOffsetOf(XfePrimitiveRec , xfe_primitive . resize_callback),
		XmRImmediate, 
		(XtPointer) NULL,
	},

	/* Cursor resources */
	{ 
		XmNcursor,
		XmCCursor,
		XmRCursor,
		sizeof(Cursor),
		XtOffsetOf(XfePrimitiveRec , xfe_primitive . cursor),
		XmRImmediate, 
		(XtPointer) None
	},

	/* Appearance resources */
	{ 
		XmNshadowType,
		XmCShadowType,
		XmRShadowType,
		sizeof(unsigned char),
		XtOffsetOf(XfePrimitiveRec , xfe_primitive . shadow_type),
		XmRImmediate, 
		(XtPointer) XmSHADOW_OUT
	},
	{ 
		XmNbufferType,
		XmCBufferType,
		XmRBufferType,
		sizeof(unsigned char),
		XtOffsetOf(XfePrimitiveRec , xfe_primitive . buffer_type),
		XmRImmediate, 
		(XtPointer) XmBUFFER_NONE
	},
    /*
     * I just realized this resource is misnamed.  It should be 
     * XmNpretendInsensitive and default to False.
     */
	{ 
		XmNpretendSensitive,
		XmCPretendSensitive,
		XmRBoolean,
		sizeof(Boolean),
		XtOffsetOf(XfePrimitiveRec , xfe_primitive . pretend_sensitive),
		XmRImmediate, 
		(XtPointer) True
	},

	/* Geometry resources */
	{
		XmNusePreferredHeight,
		XmCUsePreferredHeight,
		XmRBoolean,
		sizeof(Boolean),
		XtOffsetOf(XfePrimitiveRec , xfe_primitive . use_preferred_height),
		XmRImmediate, 
		(XtPointer) True
	},
	{
		XmNusePreferredWidth,
		XmCUsePreferredWidth,
		XmRBoolean,
		sizeof(Boolean),
		XtOffsetOf(XfePrimitiveRec , xfe_primitive . use_preferred_width),
		XmRImmediate, 
		(XtPointer) True
	},
	{ 
		XmNmarginBottom,
		XmCMarginBottom,
		XmRVerticalDimension,
		sizeof(Dimension),
		XtOffsetOf(XfePrimitiveRec , xfe_primitive . margin_bottom),
		XmRImmediate, 
		(XtPointer) 2
	},
	{ 
		XmNmarginLeft,
		XmCMarginLeft,
		XmRHorizontalDimension,
		sizeof(Dimension),
		XtOffsetOf(XfePrimitiveRec , xfe_primitive . margin_left),
		XmRImmediate, 
		(XtPointer) 2
	},
	{ 
		XmNmarginRight,
		XmCMarginRight,
		XmRHorizontalDimension,
		sizeof(Dimension),
		XtOffsetOf(XfePrimitiveRec , xfe_primitive . margin_right),
		XmRImmediate, 
		(XtPointer) 2
	},
	{ 
		XmNmarginTop,
		XmCMarginTop,
		XmRVerticalDimension,
		sizeof(Dimension),
		XtOffsetOf(XfePrimitiveRec , xfe_primitive . margin_top),
		XmRImmediate, 
		(XtPointer) 2
	},

	/* For c++ usage */
	{ 
		XmNinstancePointer,
		XmCInstancePointer,
		XmRPointer,
		sizeof(XtPointer),
		XtOffsetOf(XfePrimitiveRec , xfe_primitive . instance_pointer),
		XmRImmediate, 
		(XtPointer) NULL
	},


	/* Read-only resources */
	{ 
		XmNpointerInside,
		XmCReadOnly,
		XmRBoolean,
		sizeof(Boolean),
		XtOffsetOf(XfePrimitiveRec , xfe_primitive . pointer_inside),
		XmRImmediate, 
		(XtPointer) False
	},
	{ 
		XmNpreferredHeight,
		XmCReadOnly,
		XmRVerticalDimension,
		sizeof(Dimension),
		XtOffsetOf(XfePrimitiveRec , xfe_primitive . preferred_height),
		XmRImmediate, 
		(XtPointer) True
	},
	{ 
		XmNpreferredWidth,
		XmCReadOnly,
		XmRHorizontalDimension,
		sizeof(Dimension),
		XtOffsetOf(XfePrimitiveRec , xfe_primitive . preferred_width),
		XmRImmediate, 
		(XtPointer) True
	},

#ifdef DEBUG
	/* Debug resources */
	{
		"debugTrace",
		"DebugTrace",
		XmRBoolean,
		sizeof(Boolean),
		XtOffsetOf(XfePrimitiveRec , xfe_primitive . debug_trace),
		XmRImmediate, 
		(XtPointer) False
	},
#endif

	/* Core popup resources */
	{ 
		XmNnumPopupChildren,
		XmCReadOnly,
		XmRCardinal,
		sizeof(Cardinal),
		XtOffsetOf(XfePrimitiveRec , core . num_popups),
		XmRImmediate,
		(XtPointer) 0,
	},
	{ 
		XmNpopupChildren,
		XmCReadOnly,
		XmRWidgetList,
		sizeof(WidgetList),
		XtOffsetOf(XfePrimitiveRec , core . popup_list),
		XmRImmediate,
		(XtPointer) NULL,
	},

	/* Force a default shadow thickness */
	{ 
		XmNshadowThickness,
		XmCShadowThickness,
		XmRHorizontalDimension,
		sizeof(Dimension),
		XtOffsetOf(XfePrimitiveRec , primitive . shadow_thickness),
		XmRImmediate, 
		(XtPointer) 1
	},

	/* Force the width and height to the preffered values */
	{ 
		XmNwidth,
		XmCWidth,
		XmRHorizontalDimension,
		sizeof(Dimension),
		XtOffsetOf(XfePrimitiveRec , core . width),
		XmRImmediate, 
		(XtPointer) XfeDEFAULT_PREFERRED_WIDTH
	},
	{ 
		XmNheight,
		XmCHeight,
		XmRVerticalDimension,
		sizeof(Dimension),
		XtOffsetOf(XfePrimitiveRec , core . height),
		XmRImmediate, 
		(XtPointer) XfeDEFAULT_PREFERRED_HEIGHT
	},
};   

/*----------------------------------------------------------------------*/
/*																		*/
/* XfePrimitive Synthetic Resources										*/
/*																		*/
/*----------------------------------------------------------------------*/
static XmSyntheticResource syn_resources[] =
{
	{ 
		XmNmarginBottom,
		sizeof(Dimension),
		XtOffsetOf(XfePrimitiveRec , xfe_primitive . margin_bottom),
		_XmFromVerticalPixels,
		_XmToVerticalPixels 
	},
	{
		XmNmarginLeft,
		sizeof(Dimension),
		XtOffsetOf(XfePrimitiveRec , xfe_primitive . margin_left),
		_XmFromHorizontalPixels,
		_XmToHorizontalPixels 
	},
	{ 
		XmNmarginRight,
		sizeof(Dimension),
		XtOffsetOf(XfePrimitiveRec , xfe_primitive . margin_right),
		_XmFromHorizontalPixels,
		_XmToHorizontalPixels 
	},
	{ 
		XmNmarginTop,
		sizeof(Dimension),
		XtOffsetOf(XfePrimitiveRec , xfe_primitive . margin_top),
		_XmFromVerticalPixels,
		_XmToVerticalPixels 
	},
};

/*----------------------------------------------------------------------*/
/*																		*/
/* XfePrimitive Actions													*/
/*																		*/
/*----------------------------------------------------------------------*/
static XtActionsRec actions[] = 
{
	{ "Focus",		_XfePrimitiveFocus	},
	{ "Enter",		_XfePrimitiveEnter	},
	{ "Leave",		_XfePrimitiveLeave	},
};

/*----------------------------------------------------------------------*/
/*																		*/
/* XmPrimitive extension record initialization							*/
/*																		*/
/*----------------------------------------------------------------------*/
static XmPrimitiveClassExtRec primClassExtRec = 
{
	NULL,									/* next_extension			*/
	NULLQUARK,								/* record_type				*/
	XmPrimitiveClassExtVersion,				/* version					*/
	sizeof(XmPrimitiveClassExtRec),			/* record_size				*/
	NULL,									/* widget_baseline			*/
	WidgetDisplayRect,						/* widget_display_rect		*/
	NULL,									/* widget_margins			*/
};

/*----------------------------------------------------------------------*/
/*																		*/
/* XfePrimitive translations											*/
/*																		*/
/*----------------------------------------------------------------------*/
static char default_translations[] ="\
c<Btn1Down>:				Focus()\n\
:<Key>osfHelp:				Help()\n\
<Enter>:					Enter()\n\
<Leave>:					Leave()";

/*----------------------------------------------------------------------*/
/*																		*/
/* XfePrimitive widget class record initialization						*/
/*																		*/
/*----------------------------------------------------------------------*/
_XFE_WIDGET_CLASS_RECORD(primitive,Primitive) =
{
    {
		/* Core Part */
		(WidgetClass) &xmPrimitiveClassRec,	/* superclass				*/
		"XfePrimitive",						/* class_name				*/
		sizeof(XfePrimitiveRec),			/* widget_size				*/
		ClassInitialize,					/* class_initialize			*/
		ClassPartInit,						/* class_part_initiali		*/
		FALSE,								/* class_inited				*/
		Initialize,							/* initialize				*/
		NULL,								/* initialize_hook			*/
		Realize,							/* realize					*/
		actions,							/* actions					*/
		XtNumber(actions),					/* num_actions				*/
		(XtResource *)resources,			/* resources				*/
		XtNumber(resources),				/* num_resources			*/
		NULLQUARK,							/* xrm_class				*/
		TRUE,								/* compress_motion			*/
		XtExposeCompressMaximal,			/* compress_exposure		*/
		TRUE,								/* compress_enterleave		*/
		FALSE,								/* visible_interest			*/
		Destroy,							/* destroy					*/
		Resize,								/* resize					*/
		Redisplay,							/* expose					*/
		SetValues,							/* set_values				*/
		NULL,								/* set_values_hook			*/
		XtInheritSetValuesAlmost,			/* set_values_almost		*/
		NULL,								/* get_values_hook			*/
		NULL,								/* accept_focus				*/
		XtVersion,							/* version					*/
		NULL,								/* callback_private			*/
		default_translations,				/* tm_table					*/
		QueryGeometry,						/* query_geometry			*/
		XtInheritDisplayAccelerator,		/* display accel			*/
		NULL,								/* extension				*/
    },

    /* XmPrimitive Part */
    {
		XmInheritBorderHighlight,			/* border_highlight			*/
		XmInheritBorderUnhighlight,			/* border_unhighlight		*/
		XtInheritTranslations,				/* translations				*/
		NULL,								/* arm_and_activate			*/
		(XmSyntheticResource *)syn_resources, /* syn resources			*/
		XtNumber(syn_resources),			/* num syn_resources		*/
		(XtPointer) &primClassExtRec,		/* extension				*/
    },

    /* XfePrimitive Part */
    {
		ForgetGravity,						/* bit_gravity				*/
		PreferredGeometry,					/* preferred_geometry		*/
		UpdateBoundary,						/* update_boundary			*/
		NULL,								/* prepare_components		*/
		NULL,								/* layout_components		*/
		NULL,								/* draw_background			*/
		DrawShadow,							/* draw_shadow				*/
		NULL,								/* draw_components			*/
		NULL								/* extension				*/
    }
};

/*----------------------------------------------------------------------*/
/*																		*/
/* xfePrimitiveWidgetClass declaration.									*/
/*																		*/
/*----------------------------------------------------------------------*/
_XFE_WIDGET_CLASS(primitive,Primitive);

/*----------------------------------------------------------------------*/
/*																		*/
/* Rep type registration functions										*/
/*																		*/
/*----------------------------------------------------------------------*/
static void
PrimitiveRegisterRepTypes(void)
{
    static String buffer_names[] = 
    { 
		"buffer_shared",
		"buffer_none",
		"buffer_private",
		NULL
    };
    
    XfeRepTypeRegister(XmRBufferType,buffer_names);
}
/*----------------------------------------------------------------------*/

/*----------------------------------------------------------------------*/
/*																		*/
/* Core Class Methods													*/
/*																		*/
/*----------------------------------------------------------------------*/
static void
ClassInitialize()
{
	/* Register Xfe Converters */
	XfeRegisterConverters();
	
	/* Register XfePrimitive Types */
	PrimitiveRegisterRepTypes();
}
/*----------------------------------------------------------------------*/
static void
ClassPartInit(WidgetClass wc)
{
	XfePrimitiveWidgetClass cc = (XfePrimitiveWidgetClass) wc;
	XfePrimitiveWidgetClass sc = (XfePrimitiveWidgetClass) wc->core_class.superclass;

	/* Resolve inheritance of all XfePrimitive class methods */
	_XfeResolve(cc,sc,xfe_primitive_class,bit_gravity,
				XfeInheritBitGravity);
   
	_XfeResolve(cc,sc,xfe_primitive_class,preferred_geometry,
				XfeInheritPreferredGeometry);

	_XfeResolve(cc,sc,xfe_primitive_class,update_boundary,
				XfeInheritUpdateBoundary);

	_XfeResolve(cc,sc,xfe_primitive_class,layout_components,
				XfeInheritLayoutComponents);
   
	_XfeResolve(cc,sc,xfe_primitive_class,draw_background,
				XfeInheritDrawBackground);
   
	_XfeResolve(cc,sc,xfe_primitive_class,draw_shadow,
				XfeInheritDrawShadow);
   
	_XfeResolve(cc,sc,xfe_primitive_class,draw_components,
				XfeInheritDrawComponents);
}
/*----------------------------------------------------------------------*/
static void
Initialize(Widget rw,Widget nw,ArgList args,Cardinal *nargs)
{
    /* Make sure the shadow is ok */
    XfeRepTypeCheck(nw,XmRShadowType,&_XfeShadowType(nw),XmSHADOW_OUT);
    
    /* Make sure the buffer is ok */
    XfeRepTypeCheck(nw,XmRBufferType,&_XfeBufferType(nw),XmBUFFER_NONE);

    /* Initialize private members */
    _XfeBufferPixmap(nw) = XmUNSPECIFIED_PIXMAP;
    _XfeBackgroundGC(nw) = NULL;

    /* Allocate the background gc if needed */
    if (_XfeBufferType(nw) != XmBUFFER_NONE)
    {
		_XfePrimitiveAllocateBackgroundGC(nw);
    }

	/* Finish initialization */
	_XfePrimitiveChainInitialize(rw,nw,xfePrimitiveWidgetClass);
}
/*----------------------------------------------------------------------*/
static void
Destroy(Widget w)
{
    /* Remove all CallBacks */
    /* XtRemoveAllCallbacks(w,XmNenterCallback); */
    /* XtRemoveAllCallbacks(w,XmNfocusCallback); */
    /* XtRemoveAllCallbacks(w,XmNleaveCallback); */
    /* XtRemoveAllCallbacks(w,XmNresizeCallback); */
	
    /* Free or release a possible buffer */
    BufferFree(w);

    /* Free background gc if needed */
    if (_XfeBackgroundGC(w))
    {
		_XfePrimitiveReleaseBackgroundGC(w);
    }
}
/*----------------------------------------------------------------------*/
static void
Redisplay(Widget w,XEvent *event,Region region)
{
	/* Make sure the widget is realized before drawing ! */
	if (!XtIsRealized(w))
	{
		return;
	}
	
	switch(_XfeBufferType(w))
	{
		/* No buffer: simply re-draw everything */
	case XmBUFFER_NONE:
		_XfePrimitiveDrawEverything(w,event,region);
		break;
		
		/* Single buffer: draw the buffer only */
	case XmBUFFER_PRIVATE:
		_XfePrimitiveDrawBuffer(w,event,region);
		break;
		
		/* Multiple buffer: update the buffer and draw it */
	case XmBUFFER_SHARED:
		_XfePrimitiveDrawEverything(w,event,region);
		_XfePrimitiveDrawBuffer(w,event,region);
		break;
	}
}
/*----------------------------------------------------------------------*/
static void
Realize(Widget w,XtValueMask * mask,XSetWindowAttributes* wa)
{
    XSetWindowAttributes attr;

    /* Make sure only subclasses of XfePrimitive get instanciated */
    if ((XtClass(w) == xfePrimitiveWidgetClass))
    {
		_XfeWarning(w,MESSAGE0);

		return;
    }

    /* Let XmPrimitive create the window */
    (*xmPrimitiveWidgetClass->core_class.realize)(w,mask,wa);
    
    /* Set the Bit Gravity */
    attr.bit_gravity = _XfePrimitiveAccessBitGravity(w);
    
    XChangeWindowAttributes(XtDisplay(w),_XfeWindow(w),CWBitGravity,&attr);

    /* Define the cursor if needed */
    if (_XfeCursorGood(_XfeCursor(w)) && _XfePointerInside(w))
	{
		XfeCursorDefine(w,_XfeCursor(w));
    }

    /* invoke realize callbacks */
    _XfeInvokeCallbacks(w,_XfeRealizeCallbacks(w),XmCR_REALIZE,NULL,True);
}
/*----------------------------------------------------------------------*/
static void
Resize(Widget w)
{
	/*printf("%s: Resize to (%d,%d)\n",XtName(w),_XfeWidth(w),_XfeHeight(w));*/

    /* Obtain the Prefered Geometry */
    _XfePrimitivePreferredGeometry(w,
								   &_XfePreferredWidth(w),
								   &_XfePreferredHeight(w));
    
    /* Force the preferred dimensions if required */
    if (_XfeUsePreferredWidth(w))
    {
		_XfeWidth(w) = _XfePreferredWidth(w);
    }
    
    if (_XfeUsePreferredHeight(w))
    {
		_XfeHeight(w) = _XfePreferredHeight(w);
    }
    
    /* Update the widget boundary */
    _XfePrimitiveUpdateBoundary(w);
    
    /* Layout the components */
    _XfePrimitiveLayoutComponents(w);
    
    switch(_XfeBufferType(w))
    {
		/* No buffer: nothing */
    case XmBUFFER_NONE:
		break;
	
		/* Single buffer: update the buffer size and contents */
    case XmBUFFER_PRIVATE:
		BufferUpdate(w);
		_XfePrimitiveDrawEverything(w,NULL,NULL);
		break;
	
	/* Multiple buffer: update the buffer size only */
    case XmBUFFER_SHARED:
		BufferUpdate(w);
		break;
    }
    
    /* Invoke Resize Callbacks */
    _XfeInvokeCallbacks(w,_XfeResizeCallbacks(w),XmCR_RESIZE,NULL,True);
}
/*----------------------------------------------------------------------*/
static XtGeometryResult
QueryGeometry(Widget w,XtWidgetGeometry	*req,XtWidgetGeometry *reply)
{
	assert( req != NULL );
	assert( reply != NULL );

	reply->request_mode	= CWWidth | CWHeight;

	/* Set the reply dimensions */
	reply->width  = GetWidth(w);

	reply->height = GetHeight(w);

	/* XtGeometryYes: Request matches Prefered Geometry. */
	if (((req->request_mode & CWWidth) && (req->width == reply->width)) &&
		((req->request_mode & CWHeight) && (req->height == reply->height)))
	{
		return XtGeometryYes;
	}
   
	/* XtGeometryNo: Reply matches current Geometry. */
	if ((reply->width == _XfeWidth(w)) && (reply->height == _XfeHeight(w)))
	{
		return XtGeometryNo; 
	}
   
	/* XtGeometryAlmost: One of reply fields doesn't match cur/req Geometry. */
	return XtGeometryAlmost; 
}
/*----------------------------------------------------------------------*/
static Boolean
SetValues(Widget ow,Widget rw,Widget nw,ArgList args,Cardinal *nargs)
{
    /* Reset the configuration Flags */
    _XfeConfigFlags(nw) = XfeConfigNone;
    
    /* Reset the preparation Flags */
    _XfePrepareFlags(nw) = XfePrepareNone;
    
    /* buffer_type */
    if (_XfeBufferType(nw) != _XfeBufferType(ow))
    {
		_XfeBufferType(nw) = _XfeBufferType(ow);
	
		_XfeWarning(nw,MESSAGE7);
    }
    
    /* preferred_height */
    if (_XfePreferredHeight(nw) != _XfePreferredHeight(ow))
    {
		_XfePreferredHeight(nw) = _XfePreferredHeight(ow);
	
		_XfeWarning(nw,MESSAGE2);
    }
    
    /* preferred_width */
    if (_XfePreferredWidth(nw) != _XfePreferredWidth(ow))
    {
		_XfePreferredWidth(nw) = _XfePreferredWidth(ow);
	
		_XfeWarning(nw,MESSAGE3);
    }
    
    /* pointer_inside */
    if (_XfePointerInside(nw) != _XfePointerInside(ow))
    {
		_XfePointerInside(nw) = _XfePointerInside(ow);
	
		_XfeWarning(nw,MESSAGE4);
    }
    
    /* num_popups */
    if (_XfeNumPopups(nw) != _XfeNumPopups(ow))
    {
		_XfeNumPopups(nw) = _XfeNumPopups(ow);
	
		_XfeWarning(nw,MESSAGE5);
    }
    
    /* popup_list */
    if (_XfePopupList(nw) != _XfePopupList(ow))
    {
		_XfePopupList(nw) = _XfePopupList(ow);
	
		_XfeWarning(nw,MESSAGE6);
    }

    /* resize_width */
    if (_XfeUsePreferredWidth(nw) != _XfeUsePreferredWidth(ow))
    {
		if(_XfeUsePreferredWidth(nw))
		{
			_XfeConfigFlags(nw) |= XfeConfigGLE;
		}
    }

    /* resize_height */
    if (_XfeUsePreferredHeight(nw) != _XfeUsePreferredHeight(ow))
    {
		if(_XfeUsePreferredHeight(nw))
		{
			_XfeConfigFlags(nw) |= XfeConfigGLE;
		}
    }
    
    /* height */
    if (_XfeHeight(nw) != _XfeHeight(ow))
    {
		/* if resize_heigh is True, we dont allow width changes */
		if (_XfeUsePreferredHeight(nw)) 
		{
			_XfeHeight(nw) = _XfeHeight(ow);
		}
		else
		{
			_XfeConfigFlags(nw) |= XfeConfigLE;
		}
    }
    
    /* width */
    if (_XfeWidth(nw) != _XfeWidth(ow))
    {
		/* if resize_width is True, we dont allow width changes */
		if (_XfeUsePreferredWidth(nw)) 
		{
			_XfeWidth(nw) = _XfeWidth(ow);
		}
		else
		{
			_XfeConfigFlags(nw) |= XfeConfigLE;
		}
    }
    
    /* cursor */
    if (_XfeCursor(nw) != _XfeCursor(ow))
    {
		/* If the new cursor is good, define it */
		if (_XfeCursorGood(_XfeCursor(nw)))
		{
			XfeCursorDefine(nw,_XfeCursor(nw));
		}
		else
		{
			XfeCursorUndefine(nw);
		}
    }
    
    /* Changes that affect the layout and geometry */
    if ((_XfeHighlightThickness(nw)	!= _XfeHighlightThickness(ow)) ||
		(_XfeMarginTop(nw)		!= _XfeMarginTop(ow)) ||
		(_XfeMarginBottom(nw)		!= _XfeMarginBottom(ow)) ||
		(_XfeMarginLeft(nw)		!= _XfeMarginLeft(ow)) ||
		(_XfeMarginRight(nw)		!= _XfeMarginRight(ow)) ||       
		(_XfeShadowThickness(nw)		!= _XfeShadowThickness(ow)) ||
		(_XfeUnitType(nw)			!= _XfeUnitType(ow)))
    {
		_XfeConfigFlags(nw) |= XfeConfigGLE; 
    }
    
    /* shadow_type */
    if (_XfeShadowType(nw) != _XfeShadowType(ow))
    {
		/* Make sure the new shadow type is ok */
		XfeRepTypeCheck(nw,XmRShadowType,&_XfeShadowType(nw),XmSHADOW_OUT);
	
		_XfeConfigFlags(nw) |= XfeConfigExpose;
    }
    
    /* sensitive */
    if (_XfeSensitive(nw) != _XfeSensitive(ow))
    {
		_XfeConfigFlags(nw) |= XfeConfigExpose;
    }

    /* pretend_sensitive */
    if (_XfePretendSensitive(nw) != _XfePretendSensitive(ow))
    {
		_XfeConfigFlags(nw) |= XfeConfigExpose;
    }
    
    /* background_pixel or background_pixmap */
    if (_XfeBackgroundPixel(nw) != _XfeBackgroundPixel(ow) ||
		_XfeBackgroundPixmap(nw) != _XfeBackgroundPixmap(ow))
	{
		/* Update the old background GC if needed */
		if (_XfeBufferType(nw) != XmBUFFER_NONE)
		{
			_XfePrimitiveUpdateBackgroundGC(nw);
		}
	}
	
    return _XfePrimitiveChainSetValues(ow,rw,nw,xfePrimitiveWidgetClass);
}
/*----------------------------------------------------------------------*/

/*----------------------------------------------------------------------*/
/*																		*/
/* XmPrimitive Extension Methods										*/
/*																		*/
/*----------------------------------------------------------------------*/
static Boolean
WidgetDisplayRect(Widget w,XRectangle *rect)
{
	rect->x	= _XfeBoundaryX(w);
	rect->y	= _XfeBoundaryY(w);
	rect->height = _XfeBoundaryHeight(w);
	rect->width	= _XfeBoundaryWidth(w);

	return (rect->width && rect->height);
}
/*----------------------------------------------------------------------*/

/*----------------------------------------------------------------------*/
/*																		*/
/* XfePrimitive Class Methods											*/
/*																		*/
/*----------------------------------------------------------------------*/
static void
InitializePostHook(Widget rw,Widget nw)
{
    /* Set preparation flag so that all components get prepared */
    _XfePrepareFlags(nw) = XfePrepareAll;
    
    /* Prepare the Widget */
    _XfePrimitivePrepareComponents(nw,_XfePrepareFlags(nw));

    /* Obtain the preferred dimensions for the first time. */
    _XfePrimitivePreferredGeometry(nw,
								   &_XfePreferredWidth(nw),
								   &_XfePreferredHeight(nw));

	/* Set the new dimensions */
	_XfeWidth(nw)  = GetWidth(nw);

	_XfeHeight(nw) = GetHeight(nw);

    /* Update the widget boundary */
    _XfePrimitiveUpdateBoundary(nw);
    
    /* Layout the Widget */
    _XfePrimitiveLayoutComponents(nw);
    
    switch(_XfeBufferType(nw))
    {
		/* No buffer: nothing */
    case XmBUFFER_NONE:
		break;
	
		/* Single buffer: update the buffer size and contents */
    case XmBUFFER_PRIVATE:
		BufferUpdate(nw);
		_XfePrimitiveDrawEverything(nw,NULL,NULL);
		break;
	
	/* Multiple buffer: update the buffer size only */
    case XmBUFFER_SHARED:
		BufferUpdate(nw);
		break;
    }
    
    /* Dont need to prepare components any more */
    _XfePrepareFlags(nw) = XfePrepareNone;
}
/*----------------------------------------------------------------------*/
static Boolean
SetValuesPostHook(Widget ow,Widget rw,Widget nw)
{
    Boolean result = False;

    /* Prepare the widget components if needed */
    if (_XfePrepareFlags(nw))
    {
		_XfePrimitivePrepareComponents(nw,_XfePrepareFlags(nw));
    }
    
    /* Update the widget's geometry if needed */
    if (_XfeConfigFlags(nw) & XfeConfigGeometry)
    {
		/* Obtain the preferred dimensions */
		_XfePrimitivePreferredGeometry(nw,
									   &_XfePreferredWidth(nw),
									   &_XfePreferredHeight(nw));

		/* Set the new dimensions */
		_XfeWidth(nw)  = GetWidth(nw);

		_XfeHeight(nw) = GetHeight(nw);
    }
    
    /* Update the widget boundary */
    _XfePrimitiveUpdateBoundary(nw);
    
    /* Layout the Widget if needed */
    if (_XfeConfigFlags(nw) & XfeConfigLayout)
    {
		_XfePrimitiveLayoutComponents(nw);

		switch(_XfeBufferType(nw))
		{
			/* No buffer: nothing */
		case XmBUFFER_NONE:
			break;
	    
			/* Single buffer: update the buffer size and contents */
		case XmBUFFER_PRIVATE:
			BufferUpdate(nw);
			_XfePrimitiveDrawEverything(nw,NULL,NULL);
			break;
	    
			/* Multiple buffer: update the buffer size only */
		case XmBUFFER_SHARED:
			BufferUpdate(nw);
			break;
		}
    }
    
    /* Draw everything (into the buffer) */
	if (_XfeBufferType(nw) != XmBUFFER_NONE)
    {
		if ((_XfeConfigFlags(nw) & XfeConfigLayout) || 
			(_XfeConfigFlags(nw) & XfeConfigExpose))
		{
			/* Redraw the buffer */
			_XfePrimitiveDrawEverything(nw,NULL,NULL);
	    
			/* Draw the buffer onto the window */
 			XfeExpose(nw,NULL,NULL);
		}
    }
    else
    {
		result = (_XfeConfigFlags(nw) & XfeConfigExpose);
    }

	return result;
}
/*----------------------------------------------------------------------*/
static void
PreferredGeometry(Widget w,Dimension *width,Dimension *height)
{
	*width  = _XfeOffsetLeft(w) + _XfeOffsetRight(w);
	*height = _XfeOffsetTop(w)  + _XfeOffsetBottom(w);
}
/*----------------------------------------------------------------------*/
static void
DrawShadow(Widget w,XEvent * event,Region region,XRectangle * clip_rect)
{
    /* Draw the shadow */
    _XmDrawShadows(XtDisplay(w),
				   _XfePrimitiveDrawable(w),
				   _XfeTopShadowGC(w),_XfeBottomShadowGC(w),
				   _XfeHighlightThickness(w),
				   _XfeHighlightThickness(w),
				   _XfeWidth(w) - 2 * _XfeHighlightThickness(w),
				   _XfeHeight(w) - 2 * _XfeHighlightThickness(w),
				   _XfeShadowThickness(w),
				   _XfeShadowType(w));
}
/*----------------------------------------------------------------------*/
static void
UpdateBoundary(Widget w)
{
	/* Assign the rect coordinates */
	XfeRectSet(&_XfeBoundary(w),
			   
			   _XfeOffsetLeft(w),
			   
			   _XfeOffsetTop(w),
			   
			   _XfeWidth(w) - _XfeOffsetLeft(w) - _XfeOffsetRight(w),
			   
			   _XfeHeight(w) - _XfeOffsetTop(w) - _XfeOffsetBottom(w));
}
/*----------------------------------------------------------------------*/

/*----------------------------------------------------------------------*/
/*																		*/
/* XfePrimitive Buffer Pixmap functions									*/
/*																		*/
/*----------------------------------------------------------------------*/
static void
BufferAllocate(Widget w)
{
    assert( _XfeBufferType(w) != XmBUFFER_NONE );

    switch(_XfeBufferType(w))
    {
		/* Single buffer: allocate a buffer big enough for widget */
    case XmBUFFER_PRIVATE:

		_XfeBufferPixmap(w) = XCreatePixmap(XtDisplay(w),
											DefaultRootWindow(XtDisplay(w)),
											_XfeWidth(w),
											_XfeHeight(w),
											_XfeDepth(w));


#if 0
		printf("%s: Allocating a private buffer at (%d,%d)\n",
			   XtName(w),
			   _XfeWidth(w),_XfeHeight(w));
#endif

		break;

		/* Multiple buffer: ask the buffer manager for a buffer */
    case XmBUFFER_SHARED:

#if 0
		printf("%s: Allocating a shared buffer at (%d,%d)\n",
			   XtName(w),
			   _XfeWidth(w),_XfeHeight(w));
#endif

		_XfeBufferPixmap(w) = _XfePixmapBufferAllocate(w);

		break;
    }

}
/*----------------------------------------------------------------------*/
static void
BufferFree(Widget w)
{
    /*if (_XfeBufferType(w) != XmBUFFER_NONE );*/

    switch(_XfeBufferType(w))
    {
		/* Single buffer: Free the buffer pixmap only if needed */
    case XmBUFFER_PRIVATE:

		if (_XfePixmapGood(_XfeBufferPixmap(w)))
		{
			XFreePixmap(XtDisplay(w),_XfeBufferPixmap(w));
		}

		break;

		/* Multiple buffer: release the shared buffer */
    case XmBUFFER_SHARED:

		/*_XfePixmapBufferRelease(w,_XfeBufferPixmap(w));*/

		break;

		/* Nothing */
    case XmBUFFER_NONE:
		break;
    }
}
/*----------------------------------------------------------------------*/
static void
BufferUpdate(Widget w)
{
    assert( _XfeBufferType(w) != XmBUFFER_NONE );

    BufferFree(w);
    BufferAllocate(w);
}
/*----------------------------------------------------------------------*/

/*----------------------------------------------------------------------*/
/*																		*/
/* Misc XfePrimitive functions											*/
/*																		*/
/*----------------------------------------------------------------------*/

/*
 * The preferred width is computed as follows.  The criteria is listed in
 * order of precedence.
 *
 *  min_width		:= (2 * shadow + 2 * highlight) -	this is the min
 *														width set by the
 *														XmPrimitive class'
 *														Initialize()
 *
 *  default_width	:= XfeDEFAULT_PREFERRED_WIDTH -		Defined to 0 (zero)
 *
 *
 * 1.	If (XmNusePreferredWidth == true) then force the preferred width
 *
 * 2.	If (XmNusePreferredWidth == false) and 
 *		(width == XfeDEFAULT_PREFERRED_WIDTH) or (width <= min_width)
 *		then force the preferred width.
 *
 * 3.	If (XmNusePreferredWidth == false) and (width > min_width) then
 *		use the dimension given by w->core.width;
 *
 * The same logic applies to the height.  This assumes the preferred 
 * width is something reasonable; but that is up to the subclasses.
 *
 */

static Dimension
GetWidth(Widget w)
{
	Dimension	min_width;
	Dimension	width;

	/* Compute the min possible width */
	min_width = 2 * _XfeHighlightThickness(w) + 2 * _XfeShadowThickness(w);

	/* A reasonable preferred width is needed */
	assert( _XfePreferredWidth(w) > 0 );
	assert( _XfePreferredWidth(w) >= min_width );

    /* Force the preferred width if needed */
    if (_XfeUsePreferredWidth(w) || 
		(_XfeWidth(w) == XfeDEFAULT_PREFERRED_WIDTH) ||
		(_XfeWidth(w) <= min_width))
	{
		width = _XfePreferredWidth(w);
	}
	else
	{
		width = _XfeWidth(w);
	}

	return width;
}
/*----------------------------------------------------------------------*/
static Dimension
GetHeight(Widget w)
{
	Dimension	min_height;
	Dimension	height;

	/* Compute the min possible height */
	min_height = 2 * _XfeHighlightThickness(w) + 2 * _XfeShadowThickness(w);

	/* A reasonable preferred height is needed */
	assert( _XfePreferredHeight(w) > 0 );
	assert( _XfePreferredHeight(w) >= min_height );

    /* Force the preferred height if needed */
    if (_XfeUsePreferredHeight(w) || 
		(_XfeHeight(w) == XfeDEFAULT_PREFERRED_HEIGHT) ||
		(_XfeHeight(w) <= min_height))
	{
		height = _XfePreferredHeight(w);
	}
	else
	{
		height = _XfeHeight(w);
	}

	return height;
}
/*----------------------------------------------------------------------*/

/*----------------------------------------------------------------------*/
/*																		*/
/* XfePrimitive Method invocation functions								*/
/*																		*/
/*----------------------------------------------------------------------*/
/* extern */ void
_XfePrimitivePreferredGeometry(Widget w,Dimension *width,Dimension *height)
{
	XfePrimitiveWidgetClass pc = (XfePrimitiveWidgetClass) XtClass(w);

	if (pc->xfe_primitive_class.preferred_geometry)
	{
		(*pc->xfe_primitive_class.preferred_geometry)(w,width,height);
	}

	/* Make sure preferred width is greater than zero */
	if (*width == 0)
	{
		*width = XfePRIMITIVE_DEFAULT_WIDTH;
	}

	/* Make sure preferred height is greater than zero */
	if (*height == 0)
	{
		*height = XfePRIMITIVE_DEFAULT_HEIGHT;
	}
}
/*----------------------------------------------------------------------*/
/* extern */ void
_XfePrimitivePrepareComponents(Widget w,int flags)
{
	WidgetClass					cc;
	XfePrimitiveWidgetClass		pc;
	Cardinal					i;
	Cardinal					count;

	/* Someone has to be nuts to have more than 32 subclasses... */
	static XfePrepareProc		proc_table[32];

	/* Traverse all classes until we find XmPrimitive */
	for (cc = XtClass(w),count = 0; 
		 cc != xmPrimitiveWidgetClass; 
		 cc = cc->core_class.superclass)
	{
		pc = (XfePrimitiveWidgetClass) cc;

		/* Add the method to the table as long as it is not NULL */
		if (pc->xfe_primitive_class.prepare_components)
		{
			proc_table[count++] = pc->xfe_primitive_class.prepare_components;
		}
	}

	/* Invoke the methods in reverse order */
	for (i = count; i; i--)
	{
		XfePrepareProc proc = proc_table[i - 1];

		/* Invoke the prepare components method for this class */
		(*proc)(w,flags);
	}
}
/*----------------------------------------------------------------------*/
/* extern */ void
_XfePrimitiveUpdateBoundary(Widget w)
{
	XfePrimitiveWidgetClass pc = (XfePrimitiveWidgetClass) XtClass(w);

	if (pc->xfe_primitive_class.update_boundary)
	{
		(*pc->xfe_primitive_class.update_boundary)(w);
	}
}
/*----------------------------------------------------------------------*/
/* extern */ void
_XfePrimitiveLayoutComponents(Widget w)
{
	XfePrimitiveWidgetClass pc = (XfePrimitiveWidgetClass) XtClass(w);

	if (pc->xfe_primitive_class.layout_components)
	{
		(*pc->xfe_primitive_class.layout_components)(w);
	}
}
/*----------------------------------------------------------------------*/
/* extern */ void
_XfePrimitiveDrawBackground(Widget	w,
							XEvent *	event,
							Region	region,
							XRectangle *	clip_rect)
{
	XfePrimitiveWidgetClass	pc = (XfePrimitiveWidgetClass) XtClass(w);

	if (pc->xfe_primitive_class.draw_background)
	{
		(*pc->xfe_primitive_class.draw_background)(w,event,region,clip_rect);
	}
}
/*----------------------------------------------------------------------*/
/* extern */ void
_XfePrimitiveDrawComponents(Widget	w,
							XEvent *	event,
							Region	region,
							XRectangle *	clip_rect)
{
	XfePrimitiveWidgetClass	pc = (XfePrimitiveWidgetClass) XtClass(w);

	if (pc->xfe_primitive_class.draw_components)
	{
		(*pc->xfe_primitive_class.draw_components)(w,event,region,clip_rect);
	}
}
/*----------------------------------------------------------------------*/
/* extern */ void
_XfePrimitiveDrawShadow(Widget		w,
						XEvent *		event,
						Region		region,
						XRectangle *	rect)
{
	XfePrimitiveWidgetClass pc = (XfePrimitiveWidgetClass) XtClass(w);

	if (pc->xfe_primitive_class.draw_shadow)
	{
		(*pc->xfe_primitive_class.draw_shadow)(w,event,region,rect);
	}
}
/*----------------------------------------------------------------------*/
/* extern */ void
_XfePrimitiveBorderHighlight(Widget w)
{
	XmPrimitiveWidgetClass pc = (XmPrimitiveWidgetClass) XtClass(w);

	if (pc->primitive_class.border_highlight)
	{
		(*pc->primitive_class.border_highlight)(w);
	}
}
/*----------------------------------------------------------------------*/
/* extern */ void
_XfePrimitiveBorderUnhighlight(Widget w)
{
	XmPrimitiveWidgetClass pc = (XmPrimitiveWidgetClass) XtClass(w);

	if (pc->primitive_class.border_unhighlight)
	{
		(*pc->primitive_class.border_unhighlight)(w);
	}
}
/*----------------------------------------------------------------------*/


/*----------------------------------------------------------------------*/
/*																		*/
/* Private XfePrimitive functions										*/
/*																		*/
/*----------------------------------------------------------------------*/
/* extern */ void
_XfePrimitiveChainInitialize(Widget rw,Widget nw,WidgetClass wc)
{
	assert( nw != NULL );

	if (XtClass(nw) == wc)
	{
		InitializePostHook(rw,nw);
	}
}
/*----------------------------------------------------------------------*/
/* extern */ Boolean
_XfePrimitiveChainSetValues(Widget ow,Widget rw,Widget nw,WidgetClass wc)
{
	assert( nw != NULL );

	if (XtClass(nw) == wc)
	{
		return SetValuesPostHook(ow,rw,nw);
	}

	return False;
}
/*----------------------------------------------------------------------*/
/* extern */ Drawable
_XfePrimitiveDrawable(Widget w)
{
    Drawable d = None;

    switch(_XfeBufferType(w))
    {
    case XmBUFFER_NONE:
		d = _XfeWindow(w);
		break;

    case XmBUFFER_PRIVATE:
		d = _XfeBufferPixmap(w);
		break;

    case XmBUFFER_SHARED:
		d = _XfePixmapBufferAccess();
		break;
    }

    return d;
}
/*----------------------------------------------------------------------*/
/* extern */ void
_XfePrimitiveDrawEverything(Widget w,XEvent * event,Region region)
{
    static XRectangle rect;

    /* Clear the buffer background if needed */
    if (_XfeBufferType(w) != XmBUFFER_NONE)
    {
		_XfePrimitiveClearBackground(w);
    }

    /* Draw Background */ 
    XfeRectSet(&rect,
			   _XfeBoundaryX(w) - _XfeMarginLeft(w),
			   _XfeBoundaryY(w) - _XfeMarginTop(w),
			   _XfeBoundaryWidth(w) + _XfeMarginLeft(w) + _XfeMarginRight(w),
			   _XfeBoundaryHeight(w) + _XfeMarginTop(w) + _XfeMarginBottom(w));
    
    _XfePrimitiveDrawBackground(w,event,region,&rect);
    
    /* Draw -or Erase the Widget's highlight if needed */
    if (_XfeHighlighted(w) && _XfeHighlightThickness(w))
    {
		_XfePrimitiveBorderHighlight(w);
    }
    else
    {
		_XfePrimitiveBorderUnhighlight(w);
    }
    
    /* Draw Shadow */ 
    _XfePrimitiveDrawShadow(w,event,region,&_XfeBoundary(w));
    
    /* Draw Components */ 
    _XfePrimitiveDrawComponents(w,event,region,&_XfeBoundary(w));
}
/*----------------------------------------------------------------------*/
/* extern */ void
_XfePrimitiveClearBackground(Widget w)
{
    /* Clear the widget background including margins */
    if (_XfeBufferType(w) == XmBUFFER_NONE)
    {
		XClearArea(XtDisplay(w),_XfeWindow(w),
				   _XfeHighlightThickness(w),_XfeHighlightThickness(w),
				   _XfeWidth(w) - 2 * _XfeHighlightThickness(w),
				   _XfeHeight(w) - 2 * _XfeHighlightThickness(w),
				   False);

		/*XClearWindow(XtDisplay(w),_XfeWindow(w));*/
    }
    else
    {
		XFillRectangle(XtDisplay(w),
					   _XfePrimitiveDrawable(w),
					   _XfeBackgroundGC(w),
					   0,0,
					   _XfeWidth(w),_XfeHeight(w));
    }
}
/*----------------------------------------------------------------------*/
/* extern */ void
_XfePrimitiveAllocateBackgroundGC(Widget w)
{
#if 0
	/* Make sure the background gc gets allocated only once */
	if (_XfeBackgroundGC(w))
	{
		return;
	}
#endif

	assert( _XfeBackgroundGC(w) == NULL );

	if (_XfePixmapGood(_XfeBackgroundPixmap(w)))
	{
		_XfeBackgroundGC(w) = XfeAllocateTileGc(w,_XfeBackgroundPixmap(w));
	}
	else
	{
		_XfeBackgroundGC(w) = XfeAllocateColorGc(w,_XfeBackgroundPixel(w),
												 None,True);
	}
}
/*----------------------------------------------------------------------*/
/* extern */ void
_XfePrimitiveReleaseBackgroundGC(Widget w)
{
#if 0
	/* Make sure the gc has been allocated */
	if (!_XfeBackgroundGC(w))
	{
		return;
	}
#endif

	assert( _XfeBackgroundGC(w) != NULL );

    /* Free the background gc */
    XtReleaseGC(w,_XfeBackgroundGC(w));

	_XfeBackgroundGC(w) = NULL;
}
/*----------------------------------------------------------------------*/
/* extern */ void
_XfePrimitiveUpdateBackgroundGC(Widget w)
{
	_XfePrimitiveReleaseBackgroundGC(w);
	_XfePrimitiveAllocateBackgroundGC(w);
}
/*----------------------------------------------------------------------*/
/* extern */ void
_XfePrimitiveDrawBuffer(Widget w,XEvent * event,Region region)
{
    XCopyArea(XtDisplay(w),
			  _XfePrimitiveDrawable(w),
			  _XfeWindow(w),
			  _XfeBackgroundGC(w),
			  _XfeHighlightThickness(w),_XfeHighlightThickness(w),
			  _XfeWidth(w) - 2 * _XfeHighlightThickness(w),
			  _XfeHeight(w) - 2 * _XfeHighlightThickness(w),
			  _XfeHighlightThickness(w),_XfeHighlightThickness(w));
}
/*----------------------------------------------------------------------*/

/*----------------------------------------------------------------------*/
/*																		*/
/* XfePrimitive Action Procedures										*/
/*																		*/
/*----------------------------------------------------------------------*/
/* extern */ void
_XfePrimitiveEnter(Widget w,XEvent * event,char ** params,Cardinal * nparams)
{
	_XfePointerInside(w) = True;

	/* Make sure we are not pretending to be insensitive */
	if (!_XfeIsSensitive(w))
	{
		return;
	}

	/* Call the XmPrimitive Enter() action */
    _XmPrimitiveEnter(w,event,params,nparams);

	/* Define the cursor if needed */
	if (_XfeCursorGood(_XfeCursor(w)))
	{
		XfeCursorDefine(w,_XfeCursor(w));
	}

	/* Call enter callbacks */
	_XfeInvokeCallbacks(w,_XfeEnterCallbacks(w),XmCR_ENTER,event,False);
}
/*----------------------------------------------------------------------*/
/* extern */ void
_XfePrimitiveLeave(Widget w,XEvent * event,char ** params,Cardinal * nparams)
{
	/* Make sure the pointer is indeed inside for this action */
	if (!_XfePointerInside(w))
	{
		return;
	}
	
	_XfePointerInside(w) = False;

	/* Make sure we are not pretending to be insensitive */
	if (!_XfeIsSensitive(w))
	{
		return;
	}

	/* Call the XmPrimitive Leave() action */
    _XmPrimitiveLeave(w,event,params,nparams);

	/* Undefine the cursor if needed */
	if (_XfeCursorGood(_XfeCursor(w)))
	{
		XfeCursorUndefine(w);
	}

	/* Call leave callbacks */
	_XfeInvokeCallbacks(w,_XfeLeaveCallbacks(w),XmCR_LEAVE,event,False);
}
/*----------------------------------------------------------------------*/
/* extern */ void
_XfePrimitiveFocus(Widget w,XEvent * event,char ** params,Cardinal * nparams)
{
	/* Make sure we are not pretending to be insensitive */
	if (!_XfeIsSensitive(w))
	{
		return;
	}

	XmProcessTraversal(w,XmTRAVERSE_CURRENT);

	/* Invoke Focus Callbacks */
	_XfeInvokeCallbacks(w,_XfeFocusCallbacks(w),XmCR_FOCUS,event,False);
}
/*----------------------------------------------------------------------*/

/*----------------------------------------------------------------------*/
/*																		*/
/* Public pretend sensitive methods										*/
/*																		*/
/*----------------------------------------------------------------------*/
/* extern */ void
XfeSetPretendSensitive(Widget w,Boolean state)
{
	assert( _XfeIsAlive(w) );
	assert( XfeIsPrimitive(w) );

	if (!_XfeIsAlive(w))
	{
		return;
	}

	/* Make sure the state is different */
	if (_XfePretendSensitive(w) == state)
	{
		return;
	}

    XfeSetValue(w,XmNpretendSensitive,state);
}
/*----------------------------------------------------------------------*/
/* extern */ Boolean
XfeIsPretendSensitive(Widget w)
{
	assert( XfeIsPrimitive(w) );

	if (!_XfeIsAlive(w))
	{
		return False;
	}

	return _XfePretendSensitive(w);
}
/*----------------------------------------------------------------------*/
/* extern */ Boolean
XfeIsSensitive(Widget w)
{
	if (!_XfeIsAlive(w))
	{
		return False;
	}

	if (XfeIsPrimitive(w))
	{
		return _XfeIsSensitive(w);
	}

	return _XfeSensitive(w);
}
/*----------------------------------------------------------------------*/