940 lines
24 KiB
C
940 lines
24 KiB
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);
|
||
}
|
||
|
||
|