CDE/cde/lib/DtWidget/DialogBox.c

/*
 * CDE - Common Desktop Environment
 *
 * Copyright (c) 1993-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 libraries and programs; if not, write
 * to the Free Software Foundation, Inc., 51 Franklin Street, Fifth
 * Floor, Boston, MA 02110-1301 USA
 */
/* $XConsortium: DialogBox.c /main/9 1996/05/14 15:26:42 drk $
 *
 * (c) Copyright 1996 Digital Equipment Corporation.
 * (c) Copyright 1990,1996 Hewlett-Packard Company.
 * (c) Copyright 1996 International Business Machines Corp.
 * (c) Copyright 1996 Sun Microsystems, Inc.
 * (c) Copyright 1996 Novell, Inc. 
 * (c) Copyright 1996 FUJITSU LIMITED.
 * (c) Copyright 1996 Hitachi.
 */

/**---------------------------------------------------------------------
***	
***	file:		DialogBox.c
***
***	project:	Motif Widgets
***
***	description:	Source code for DtDialogBox class.
***
***-------------------------------------------------------------------*/


/*-------------------------------------------------------------
**	Include Files
*/

#include <stdio.h>
#include <Xm/DialogS.h>
#include <Xm/PushBG.h>
#include <Xm/SeparatoG.h>
#include <Dt/DialogBoxP.h>
#include <Dt/MacrosP.h>
#include <Dt/DtMsgsP.h>
#include "DtWidgetI.h"

/*
 * Private functions borrowed from Motif.
 */
extern void _XmSetThickness(Widget widget, int offset, XrmValue *value);

/*-------------------------------------------------------------
**	Public Interface
**-------------------------------------------------------------
*/

extern Widget _DtCreateDialogBox( 
                        Widget parent,
                        char *name,
                        ArgList arglist,
                        Cardinal argcount) ;
extern Widget __DtCreateDialogBoxDialog( 
                        Widget ds_p,
                        String name,
                        ArgList db_args,
                        Cardinal db_n) ;
extern Widget _DtDialogBoxGetButton( 
                        Widget w,
                        Cardinal pos) ;
extern Widget _DtDialogBoxGetWorkArea( 
                        Widget w) ;

#define Max(x, y)    (((x) > (y)) ? (x) : (y))

/********    Static Function Declarations    ********/

static void ClassInitialize( void ) ;
static void ClassPartInitialize( 
                        WidgetClass wc) ;
static void Initialize( 
                        Widget request_w,
                        Widget new_w) ;
static void Destroy( 
                        Widget w) ;
static Boolean SetValues( 
                        Widget current_w,
                        Widget request_w,
                        Widget new_w) ;
static void ChangeManaged( 
                        Widget manager) ;
static void InsertChild( 
                        Widget child) ;
static void DeleteChild( 
                        Widget child) ;
static void ConstraintInitialize( 
                        Widget request,
                        Widget new) ;
static void GetSize( 
                        Widget manager,
                        Dimension wa_w,
                        Dimension wa_h,
                        Dimension bp_w,
                        Dimension bp_h,
                        Dimension *w,
                        Dimension *h) ;
static void CreateChildren( 
                        DtDialogBoxWidget new,
                        Widget top_widget,
                        Widget bottom_widget) ;
static void ButtonCallback( 
                        Widget g,
                        XtPointer client_data,
                        XtPointer call_data) ;

/********    End Static Function Declarations    ********/


/*-------------------------------------------------------------
**	Forward Declarations
*/

#define OFFSET		6
#define CENTER_POS	50
#define LEFT_POS	50

#define WARN_CHILD_TYPE		_DtMsgDialogBox_0000
#define WARN_BUTTON_CHILD	_DtMsgDialogBox_0001

extern void 	_DtRegisterNewConverters ();


/*-------------------------------------------------------------
**	Translations and Actions
*/



/*-------------------------------------------------------------
**	Resource List
*/

/*	Define offset macros.
*/
#define DB_Offset(field) \
	XtOffset (DtDialogBoxWidget, dialog_box.field)
#define DBC_Offset(field) \
	XtOffset (DtDialogBoxConstraintPtr, dialog_box_constraint.field)

/*	Core Resources.
*/
static XtResource resources[] = 
{
	{
		XmNminimizeButtons,
		XmCMinimizeButtons, XmRBoolean, sizeof (Boolean),
		DB_Offset (minimize_buttons), XmRImmediate, (XtPointer) False
	},
	{
		XmNbuttonCount,
		XmCButtonCount, XmRCardinal, sizeof (Cardinal),
		DB_Offset (button_count), XmRImmediate, (XtPointer) 4
	},
	{
		XmNbuttonLabelStrings,
		XmCButtonLabelStrings, XmRXmStringTable, sizeof (XtPointer),
		DB_Offset (button_label_strings), XmRStringTable, NULL
	},
	{
		XmNcallback,
		XmCCallback, XmRCallback, sizeof (XtCallbackList),
		DB_Offset (callback), XmRImmediate, (XtPointer) NULL
	},
        {
		XmNshadowThickness,
	        XmCShadowThickness, XmRHorizontalDimension, sizeof(Dimension),
	        XtOffsetOf (struct _XmManagerRec, manager.shadow_thickness),
	        XmRCallProc, (XtPointer) _XmSetThickness
        }
};

/*	Constraint Resources
*/
static XtResource constraints[] =
{
	{
		XmNchildType,
		XmCChildType, XmRChildType, sizeof (unsigned char),
		DBC_Offset (child_type), XmRImmediate, (XtPointer) XmWORK_AREA
	}
};

#undef	DB_Offset
#undef	DBC_Offset



/*-------------------------------------------------------------
**	Class Record
*/
DtDialogBoxClassRec dtDialogBoxClassRec =
{
/*	Core Part
*/
	{	
		(WidgetClass) &xmFormClassRec,	/* superclass	*/
		"DtDialogBox",			/* class_name		*/
		sizeof (DtDialogBoxRec),	/* widget_size		*/
		ClassInitialize,		/* class_initialize	*/
		ClassPartInitialize,		/* class_part_initialize*/
		False,				/* class_inited		*/
		(XtInitProc) Initialize,	/* initialize		*/
		NULL,				/* initialize_hook	*/
		XtInheritRealize,		/* realize		*/
		NULL,				/* actions		*/
		0,				/* num_actions		*/
		resources,			/* resources		*/
		XtNumber (resources),		/* num_resources	*/
		NULLQUARK,			/* xrm_class		*/
		True,				/* compress_motion	*/
		False,				/* compress_exposure	*/
		True,				/* compress_enterleave	*/
		False,				/* visible_interest	*/	
		Destroy,		 	/* destroy		*/	
		XtInheritResize,		/* resize		*/
		XtInheritExpose,		/* expose		*/	
		(XtSetValuesFunc) SetValues,	/* set_values		*/	
		NULL,				/* set_values_hook	*/
		XtInheritSetValuesAlmost,	/* set_values_almost	*/
		NULL,				/* get_values_hook	*/
		NULL,				/* accept_focus		*/	
		XtVersion,			/* version		*/
		NULL,				/* callback private	*/
		XtInheritTranslations,		/* tm_table		*/
		XtInheritQueryGeometry,		/* query_geometry	*/
		NULL,				/* display_accelerator	*/
		NULL,				/* extension		*/
	},

/*	Composite Part
*/
	{
		XtInheritGeometryManager,	/* geometry_manager	*/
		XtInheritChangeManaged,		/* change_managed	*/
		InsertChild,			/* insert_child		*/
		DeleteChild,			/* delete_child		*/
		NULL,				/* extension		*/
	},

/*	Constraint Part
*/
	{
		constraints,			/* constraint_resources	*/
		XtNumber (constraints),		/* num_constraint_resources */
		sizeof (DtDialogBoxConstraintRec),/* constraint_record	*/
		(XtInitProc) ConstraintInitialize,/* constraint_initialize */
		NULL,				/* constraint_destroy	*/
		NULL,				/* constraint_set_values */
		NULL,				/* extension		*/
	},

/*	XmManager Part
*/
	{
		XtInheritTranslations,		/* default_translations	*/
		NULL,				/* get_resources	*/
		0,				/* num_get_resources	*/
		NULL,				/* get_cont_resources	*/
		0,				/* num_get_cont_resources */
		XmInheritParentProcess,		/* parent_process	*/
		NULL,				/* extension		*/
	},

/*	XmBulletinBoard Part
*/
	{
		True,				/* always_install_accelerators*/
		NULL,				/* geo_matrix_create	*/
		XmInheritFocusMovedProc,	/* focus_moved_proc	*/
		NULL,				/* extension		*/
	},

/*	XmForm Part
*/
	{
		NULL,				/* extension		*/
	},

/*	DtDialogBox Part
*/
	{
(XtWidgetProc)	CreateChildren,			/* create_children	*/
		NULL,				/* configure_children	*/
		GetSize,			/* get_size		*/
		NULL,				/* button_callback	*/
		NULL,				/* extension		*/
	}

};

WidgetClass dtDialogBoxWidgetClass = (WidgetClass) &dtDialogBoxClassRec;



/*-------------------------------------------------------------
**	Private Procs
**-------------------------------------------------------------
*/


/*-------------------------------------------------------------
**	Action Procs
**-------------------------------------------------------------
*/


/*-------------------------------------------------------------
**	Core Procs
**-------------------------------------------------------------
*/

/*-------------------------------------------------------------
**	ClassInitialize
**		Initialize widget class.
*/
static void 
ClassInitialize( void )
{
	_DtRegisterNewConverters ();
}



/*-------------------------------------------------------------
**	ClassPartInitialize
**		Initialize widget class part.
*/
static void
ClassPartInitialize(
        WidgetClass wc )
{
	DtDialogBoxWidgetClass	mc =	(DtDialogBoxWidgetClass) wc;
	DtDialogBoxWidgetClass	super =	(DtDialogBoxWidgetClass)
						C_Superclass (wc);

	mc->bulletin_board_class.always_install_accelerators = True;

/*	Propagate class procs for subclasses.
*/
	if (C_CreateChildren (mc) == (XtWidgetProc) _XtInherit)	
		C_CreateChildren (mc) = C_CreateChildren (super);

	if (C_ConfigureChildren (mc) == (XtWidgetProc) _XtInherit)	
		C_ConfigureChildren (mc) = C_ConfigureChildren (super);

	if (C_GetSize (mc) == (DlgGetSizeProc) _XtInherit)	
		C_GetSize (mc) = C_GetSize (super);

	if (C_ButtonCallback (mc) == (XtCallbackProc) _XtInherit)	
		C_ButtonCallback (mc) = C_ButtonCallback (super);

}



/*-------------------------------------------------------------
**	Initialize
**		Initialize a new widget instance.
*/
static void 
Initialize(
        Widget request_w,
        Widget new_w )
{
	DtDialogBoxWidget	new	= (DtDialogBoxWidget) new_w;
	XtWidgetProc	create_children;

	if (M_ButtonCount (new) > 0)
		M_Button (new) = (Widget *)
			XtMalloc (sizeof (Widget) * M_ButtonCount (new));
	else
		M_Button (new) = NULL;

	M_WorkArea (new) = NULL;
	_DtProcessLock();
	create_children = C_CreateChildren((DtDialogBoxWidgetClass) XtClass(new));
	_DtProcessUnlock();
	(*create_children) ((Widget)new); 

	M_ButtonLabelStrings (new) = NULL;

	M_MarginWidth (new) = M_ShadowThickness (new);
	M_MarginHeight (new) = M_ShadowThickness (new);
}


/*-------------------------------------------------------------
**	Destroy
**		Release resources allocated for widget instance.
*/
static void 
Destroy(
        Widget w )
{
	DtDialogBoxWidget	mgr = (DtDialogBoxWidget) w;

/*	Free button pointers.
*/
	if (M_Button (mgr) != NULL)
		XtFree ((char *)M_Button (mgr));
}



/*-------------------------------------------------------------
**	SetValues
**		Handle changes in resource data.
*/
static Boolean 
SetValues(
        Widget current_w,
        Widget request_w,
        Widget new_w )
{
	Boolean redraw_flag = False;

/*	Superclass does all the work so far; checks for redisplay, etc.
*/

	return (redraw_flag);
}



/*-------------------------------------------------------------
**	Composite Procs
**-------------------------------------------------------------
*/

/*-------------------------------------------------------------
**	ChangeManaged
**		Handle change in set of managed children.
*/
static void 
ChangeManaged(
        Widget manager )
{
	DtDialogBoxWidget	mgr 	= (DtDialogBoxWidget) manager;
	Dimension		w 	= M_Width (mgr),
				h 	= M_Height (mgr);
	DlgGetSizeProc		get_size;
	XtWidgetProc		resize;
/*	Compute desired size.
*/
	_DtProcessLock();
	get_size = C_GetSize((DtDialogBoxWidgetClass) XtClass(mgr));
	resize = XtCoreProc(manager, resize);
	_DtProcessUnlock();
	(*get_size) ((Widget)mgr, 0, 0, 0, 0, &w, &h);

	/* check for resize policy if not first time ?? */

/*	Try to change size to fit children
*/
	if (w != M_Width (mgr) || h != M_Height (mgr))
	{
		switch (XtMakeResizeRequest ((Widget) mgr, w, h, &w, &h))
		{
			case XtGeometryAlmost:
				XtMakeResizeRequest ((Widget) mgr, w, h,
					NULL, NULL);
			case XtGeometryYes:
			case XtGeometryNo:
			default:
				break;
		}
	}
	
/*	Set positions and sizes of children.
*/
	(*resize) (manager);
}



/*-------------------------------------------------------------
**	InsertChild
**		Add a child.
*/
static void 
InsertChild(
        Widget child )
{
	DtDialogBoxConstraint	constraint = (DtDialogBoxConstraint)
					M_DialogBoxConstraint (child);
	DtDialogBoxWidget	w = (DtDialogBoxWidget) XtParent (child);
	XmManagerWidgetClass    mc = (XmManagerWidgetClass)xmManagerWidgetClass;
	Dimension		s_t = M_ShadowThickness (w);
	Arg		al[20];		/*  arg list		*/
	int	ac;		/*  arg count		*/
	XtWidgetProc	insert_child;

	_DtProcessLock();
	insert_child = mc->composite_class.insert_child;
	_DtProcessUnlock();
	(*insert_child) (child);

	if (constraint->child_type == XmWORK_AREA)
	{
		if (! M_WorkArea (w))
		{
			M_WorkArea (w) = child;
			ac = 0;
			XtSetArg (al[ac], XmNtopAttachment, XmATTACH_FORM);  ac++;
			XtSetArg (al[ac], XmNtopOffset, s_t);  ac++;
			XtSetArg (al[ac], XmNleftAttachment, XmATTACH_FORM);  ac++;
			XtSetArg (al[ac], XmNleftOffset, s_t);  ac++;
			XtSetArg (al[ac], XmNrightAttachment, XmATTACH_FORM);  ac++;
			XtSetArg (al[ac], XmNrightOffset, s_t);  ac++;
			XtSetArg (al[ac], XmNbottomAttachment, XmATTACH_WIDGET);  ac++;
			XtSetArg (al[ac], XmNbottomWidget, M_Separator (w));  ac++;
			XtSetArg (al[ac], XmNbottomOffset, 0);  ac++;
			XtSetValues (child, al, ac);
		}
	}
}



/*-------------------------------------------------------------
**	DeleteChild
**		Delete a child.
*/
static void 
DeleteChild(
        Widget child )
{
	DtDialogBoxWidget	w = (DtDialogBoxWidget) XtParent (child);
	XmManagerWidgetClass    mc = (XmManagerWidgetClass)xmManagerWidgetClass;
	XtWidgetProc		delete_child;

	_DtProcessLock();
	delete_child = mc->composite_class.delete_child;
	_DtProcessUnlock();
	(*delete_child) (child);
	
	if (child == M_Separator (w))
		M_Separator (w) = NULL;
	else if (child == M_WorkArea (w))
		M_WorkArea (w) = NULL;

	/* button children ?? */
}


 
/*-------------------------------------------------------------
**	Constraint Procs
**-------------------------------------------------------------
*/
/*-------------------------------------------------------------
**	ConstraintInitialize
**		Add a child.
*/
static void 
ConstraintInitialize(
        Widget request,
        Widget new )
{
	DtDialogBoxWidget	mgr	 = (DtDialogBoxWidget) XtParent (new);
	DtDialogBoxConstraint	constraint	= M_DialogBoxConstraint (new);

/*	Validate child type.
*/
	if (constraint->child_type != XmWORK_AREA &&
	    constraint->child_type != XmSEPARATOR &&
	    constraint->child_type != XmBUTTON)
	{
		XmeWarning (new, WARN_CHILD_TYPE);
		if (! M_WorkArea (mgr))
		{
			constraint->child_type = XmWORK_AREA;
		}
	}
}


/*-------------------------------------------------------------
**	XmManager Procs
**-------------------------------------------------------------
*/

/*	All inherited from superclass.
*/



/*-------------------------------------------------------------
**	DtDialogBox Procs
**-------------------------------------------------------------
*/ 

/*-------------------------------------------------------------------------
**	GetSize
**		Calculate desired size based on children.
*/
static void 
GetSize(
        Widget manager,
        Dimension wa_w,
        Dimension wa_h,
        Dimension bp_w,
        Dimension bp_h,
        Dimension *w,
        Dimension *h )
{
	DtDialogBoxWidget	mgr =		(DtDialogBoxWidget) manager;
	Widget			work_area =	M_WorkArea (mgr),
				separator =	M_Separator (mgr);
	Widget *		button =	M_Button (mgr);
	int		button_count =	M_ButtonCount (mgr),
				i;		      
	Boolean			min_btns =	M_MinimizeButtons (mgr);
	Dimension		sep_h =	0,
				offset = OFFSET, pad,
				max_w = 0, max_h = 0,
				s_t =		M_ShadowThickness (mgr);
	XtWidgetGeometry	request, reply;


/*	Query work area.
*/
	if (work_area && !wa_w && !wa_h)
	{
		request.request_mode = CWWidth | CWHeight;
		XtQueryGeometry (work_area, &request, &reply);
		wa_w = reply.width;
		wa_h = reply.height;
	}

	sep_h = (separator)	? P_Height (separator)	: 0;

/*	Get button panel size.
*/
	s_t = Max (2, s_t);
	if ((bp_w == 0) && (bp_h == 0) && !min_btns)
	{
		request.request_mode = CWWidth | CWHeight;
		for (i = 0;  i < button_count;  i++)
		{
			pad = (i == 0) ? 0 : 4 * s_t;
			XtQueryGeometry (button[i], &request, &reply);
			max_w = Max ((unsigned)max_w, reply.width + pad);
			max_h = Max ((unsigned)max_h, reply.height + pad);
		}

		if (button_count)
		{
			max_w += 4;
			max_h += 1;
		}

		bp_w = (button_count * max_w) + ((button_count + 1) * offset);
		bp_h = sep_h + max_h + (2 * offset);
	}

	else if ((bp_w == 0) && (bp_h == 0) && min_btns)
	{
		request.request_mode = CWWidth | CWHeight;
		for (i = 0;  i < button_count;  i++)
		{
			XtQueryGeometry (button[i], &request, &reply);
			bp_w += reply.width;
			max_h = Max (max_h, reply.height);
		}

		bp_w += (button_count + 1) * offset;
		bp_h = sep_h + max_h + (2 * offset);
	}

/*	Set width and height.
*/
	*w = Max (wa_w, bp_w);
	*h = wa_h + sep_h + bp_h;
}



/*-------------------------------------------------------------
**	CreateChildren
**		Create resource and value labels and text.
*/
static void 
CreateChildren(
        DtDialogBoxWidget new,
        Widget top_widget,
        Widget bottom_widget )
{
	Widget		ref_widget,
			sep, btn;
	Widget *	button = 	M_Button (new);
	int		count =		M_ButtonCount (new),
			i, l_p, r_p, off_p, b_delta, offset = 0;
	XmStringTable	string =	M_ButtonLabelStrings (new);
	Boolean		min_btns =	M_MinimizeButtons (new);
	Dimension	s_t = 		M_ShadowThickness (new);
	char		button_name[100];

	Arg		al[20];		/*  arg list		*/
	int	ac;		/*  arg count		*/

/*	Compute position factors.
*/
	off_p = 2;
	b_delta = (100 - off_p) / count;
	l_p = (100 - (count * b_delta) + off_p) / 2;
	r_p = l_p + b_delta - off_p;
/*	s_t = Max (2, s_t); */

/*	Create buttons.
*/
	for (i = 0; i < count; i++)
	{
		ac = 0;
		XtSetArg (al[ac], XmNdefaultButtonShadowThickness,Max(2U,s_t)/2U);
		ac++;
		XtSetArg (al[ac], XmNshadowThickness, s_t);  ac++;
		XtSetArg (al[ac], XmNhighlightThickness, s_t);  ac++;
		if (!min_btns)
		{
			XtSetArg (al[ac], XmNleftAttachment,
				XmATTACH_POSITION);  ac++;
			XtSetArg (al[ac], XmNleftPosition, l_p);  ac++;
			XtSetArg (al[ac], XmNleftOffset, offset);  ac++;
			XtSetArg (al[ac], XmNrightAttachment,
				XmATTACH_POSITION);  ac++;
			XtSetArg (al[ac], XmNrightPosition, r_p);  ac++;
			XtSetArg (al[ac], XmNrightOffset, offset);  ac++;
		}
		else
		{
			if (i == 0)
			{
				XtSetArg (al[ac], XmNleftAttachment,
					XmATTACH_FORM);  ac++;
				XtSetArg (al[ac], XmNleftOffset, OFFSET);  ac++;
			}
			else if (i == count -1)
			{
				XtSetArg (al[ac], XmNrightAttachment,
					XmATTACH_FORM);  ac++;
				XtSetArg (al[ac], XmNrightOffset, OFFSET);  ac++;
			}
			else
			{
				XtSetArg (al[ac], XmNleftAttachment,
					XmATTACH_WIDGET);  ac++;
				XtSetArg (al[ac], XmNleftWidget, button[i-1]);
				ac++;
				XtSetArg (al[ac], XmNleftOffset, OFFSET);
				ac++;
			}
		}

		XtSetArg (al[ac], XmNbottomAttachment, XmATTACH_FORM);  ac++;
		XtSetArg (al[ac], XmNbottomOffset, OFFSET + offset);  ac++;
		if (string)
		{
			XtSetArg (al[ac], XmNlabelString, string[i]);  ac++;
		}
		XtSetArg (al[ac], XmNchildType, XmBUTTON);  ac++;
		sprintf (button_name, "%s_%d", M_Name (new), i+1);
		btn = XmCreatePushButtonGadget ((Widget)new, button_name, al, ac);
		XtManageChild (btn);
 		XtAddCallback (btn, XmNactivateCallback,
				(XtCallbackProc)ButtonCallback,
				(XtPointer)((long)(i+1)));

		button[i] = btn;
		l_p += b_delta;
		r_p += b_delta;

	}
	ref_widget = button[0];
	new->bulletin_board.default_button = button[0];

/*	Create Separator
*/
	ac = 0;
	XtSetArg (al[ac], XmNleftAttachment, XmATTACH_FORM);  ac++;
	XtSetArg (al[ac], XmNleftOffset, 0);  ac++;
	XtSetArg (al[ac], XmNrightAttachment, XmATTACH_FORM);  ac++;
	XtSetArg (al[ac], XmNrightOffset, 0);  ac++;
	XtSetArg (al[ac], XmNbottomAttachment, XmATTACH_WIDGET);  ac++;
	XtSetArg (al[ac], XmNbottomWidget, ref_widget);  ac++;
	XtSetArg (al[ac], XmNbottomOffset, OFFSET);  ac++;
	XtSetArg (al[ac], XmNhighlightThickness, 0);  ac++;
	XtSetArg (al[ac], XmNchildType, XmSEPARATOR);  ac++;
	sep = XmCreateSeparatorGadget ((Widget)new, "separator", al, ac);
	XtManageChild (sep);
	M_Separator (new) = sep;
}


/*-------------------------------------------------------------
**	ButtonCallback
*/
static void 
ButtonCallback(
        Widget g,
        XtPointer client_data,
        XtPointer call_data )
{
	DtDialogBoxWidget	mgr = 	(DtDialogBoxWidget) XtParent (g);
	XtCallbackList		cb_list =	M_Callback (mgr);
	XmAnyCallbackStruct *	b_cb_data =
				(XmAnyCallbackStruct *) call_data;
	DtDialogBoxCallbackStruct	cb_data;

	if (cb_list != NULL)
	{
		cb_data.reason = XmCR_DIALOG_BUTTON;
		cb_data.event = b_cb_data->event;
		cb_data.button_position = (int) ((long)client_data);
		cb_data.button = g;
		XtCallCallbackList ((Widget) mgr, cb_list, &cb_data);
	}
}



/*-------------------------------------------------------------
**	Public Entry Points
**-------------------------------------------------------------
*/

/*-------------------------------------------------------------
**      _DtCreateDialogBox
**		Create a new DtDialogBox instance.
**-------------------------------------------------------------
*/
Widget 
_DtCreateDialogBox(
        Widget parent,
        char *name,
        ArgList arglist,
        Cardinal argcount )
{
	return (XtCreateWidget (name, dtDialogBoxWidgetClass, 
			parent, arglist, argcount));
}


/*-------------------------------------------------------------
**      __DtCreateDialogBoxDialog
**		Create a DialogShell and a new DialogBox instance;
**		return the DialogBox widget;
**-------------------------------------------------------------
*/
Widget 
__DtCreateDialogBoxDialog(
        Widget ds_p,
        String name,
        ArgList db_args,
        Cardinal db_n )
{
	Widget		ds;		/*  DialogShell		*/
	Arg		ds_args[10];	/*  arglist for shell	*/
	Cardinal	ds_n;		/*  argcount for shell	*/
	Widget		db;		/*  new sb widget	*/


	/*  create DialogShell parent
	*/
	ds_n = 0;
	XtSetArg (ds_args[ds_n], XmNallowShellResize, True);  ds_n++;
	ds = XtCreatePopupShell (name, xmDialogShellWidgetClass, 
		ds_p, ds_args, ds_n);

	/*  create DialogBox, free args, return 
	*/
	db = XtCreateWidget (name, dtDialogBoxWidgetClass, 
		ds, db_args, db_n);

	return (db);
}


/*-------------------------------------------------------------
**      _DtDialogBoxGetButton
**		Return DialogBox button.
**-------------------------------------------------------------
*/
Widget 
_DtDialogBoxGetButton(
        Widget w,
        Cardinal pos )
{
	DtDialogBoxWidget	mgr =	(DtDialogBoxWidget) w;
	int			index =	pos - 1;
	Widget *		button = M_Button (mgr);
	Widget			rtn_w = NULL;


	if (index >= M_ButtonCount (mgr))
		XmeWarning ((Widget)mgr, WARN_BUTTON_CHILD);
	else
		rtn_w = button[index];

	return (rtn_w);
}


/*-------------------------------------------------------------
**      _DtDialogBoxGetWorkArea
**		Return DialogBox work area;
**-------------------------------------------------------------
*/
Widget 
_DtDialogBoxGetWorkArea(
        Widget w )
{
	DtDialogBoxWidget	mgr =	(DtDialogBoxWidget) w;
	Widget			rtn_w =	M_WorkArea (mgr);

	return (rtn_w);
}