Initial import of the CDE 2.1.30 sources from the Open Group.
This commit is contained in:
Peter Howkins
926
cde/lib/DtWidget/DialogBox.c
Normal file
926
cde/lib/DtWidget/DialogBox.c
Normal file
@@ -0,0 +1,926 @@
|
||||
/* $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 */
|
||||
NULL, /* 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 request = (DtDialogBoxWidget) request_w,
|
||||
new = (DtDialogBoxWidget) new_w;
|
||||
Widget sep;
|
||||
|
||||
Arg al[20]; /* arg list */
|
||||
register int ac; /* arg count */
|
||||
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 )
|
||||
{
|
||||
DtDialogBoxWidget current = (DtDialogBoxWidget) current_w,
|
||||
request = (DtDialogBoxWidget) request_w,
|
||||
new = (DtDialogBoxWidget) 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 */
|
||||
register 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);
|
||||
register int button_count = M_ButtonCount (mgr),
|
||||
i;
|
||||
Boolean min_btns = M_MinimizeButtons (mgr);
|
||||
Dimension sep_h = 0,
|
||||
b_h, 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 */
|
||||
register 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\0", M_Name (new), i+1);
|
||||
btn = XmCreatePushButtonGadget ((Widget)new, button_name, al, ac);
|
||||
XtManageChild (btn);
|
||||
XtAddCallback (btn, XmNactivateCallback,
|
||||
(XtCallbackProc)ButtonCallback,
|
||||
(XtPointer)(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) 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);
|
||||
}
|
||||
|
||||
|
||||
Reference in New Issue
Block a user