falso
/
cdesktopenv
mirror of https://git.code.sf.net/p/cdesktopenv/code
1
0
Fork 0
Code Issues Releases Wiki Activity
cdesktopenv/cde/programs/dtappbuilder/src/libABobjXm/objxm_inst.c

1871 lines
52 KiB
C
Raw Blame History

/*
* 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: objxm_inst.c /main/8 1996/10/02 15:26:06 drk $
*
* @(#)objxm_inst.c 1.114 19 May 1995
*
* RESTRICTED CONFIDENTIAL INFORMATION:
*
* The information in this document is subject to special
* restrictions in a confidential disclosure agreement between
* HP, IBM, Sun, USL, SCO and Univel. Do not distribute this
* document outside HP, IBM, Sun, USL, SCO, or Univel without
* Sun's specific written approval. This document and all copies
* and derivative works thereof must be returned or destroyed at
* Sun's request.
*
* Copyright 1993 Sun Microsystems, Inc. All rights reserved.
*
*/
/*
***********************************************************************
* objxm_inst.c - instantiates AB objects into motif widgets
*
*
***********************************************************************
*/
#include <stdio.h>
#include <ab_private/XmAll.h>
#include <Dt/TermPrim.h>
#include <Dt/Term.h>
#include <Dt/MenuButton.h>
#include <Dt/SpinBox.h>
#include <Dt/ComboBox.h>
#include <ab_private/trav.h>
#include "objxmP.h"
#define MAX_FORMS 24
char * const _applicationShell = "applicationShellWidgetClass";
char * const _dtComboBox = "dtComboBoxWidgetClass";
char * const _dtMenuButton = "dtMenuButtonWidgetClass";
char * const _dtSpinBox = "dtSpinBoxWidgetClass";
char * const _dtTerm = "dtTermWidgetClass";
char * const _group = "groupWidgetClass";
char * const _topLevelShell = "topLevelShellWidgetClass";
char * const _xmArrowButton = "xmArrowButtonWidgetClass";
char * const _xmBulletinBoard = "xmBulletinBoardWidgetClass";
char * const _xmCascadeButton = "xmCascadeButtonWidgetClass";
char * const _xmCommand = "xmCommandWidgetClass";
char * const _xmDialogShell = "xmDialogShellWidgetClass";
char * const _xmDrawingArea = "xmDrawingAreaWidgetClass";
char * const _xmDrawnButton = "xmDrawnButtonWidgetClass";
char * const _xmFileSelectionBox = "xmFileSelectionBoxWidgetClass";
/* This is a psuedo widget class */
char * const _xmFileSelectionDialog = "xmFileSelectionDialogWidgetClass";
char * const _xmForm = "xmFormWidgetClass";
char * const _xmFrame = "xmFrameWidgetClass";
char * const _xmLabel = "xmLabelWidgetClass";
char * const _xmLabelGadget = "xmLabelGadgetWidgetClass";
char * const _xmList = "xmListWidgetClass";
char * const _xmMainWindow = "xmMainWindowWidgetClass";
char * const _xmManager = "xmManagerWidgetClass";
char * const _xmMenuShell = "xmMenuShellWidgetClass";
char * const _xmMessageBox = "xmMessageBoxWidgetClass";
/* This is a psuedo widget class */
char * const _xmMessageDialog = "xmMessageDialogWidgetClass";
char * const _xmPanedWindow = "xmPanedWindowWidgetClass";
/* xmPopupMenuWidgetClass is a pseudo class name but is supported by UIL */
char * const _xmPopupMenu = "xmPopupMenuWidgetClass";
char * const _xmPrimitive = "xmPrimitiveWidgetClass";
/* xmPulldownMenuWidgetClass is a pseudo class name but is supported by UIL */
char * const _xmPulldownMenu = "xmPulldownMenuWidgetClass";
char * const _xmPushButton = "xmPushButtonWidgetClass";
char * const _xmRowColumn = "xmRowColumnWidgetClass";
char * const _xmScale = "xmScaleWidgetClass";
char * const _xmScrollBar = "xmScrollBarWidgetClass";
/* xmScrolledListWidgetClass is a pseudo class name but is supported by UIL */
char * const _xmScrolledList = "xmScrolledListWidgetClass";
char * const _xmScrolledWindow ="xmScrolledWindowWidgetClass";
char * const _xmSelectionBox = "xmSelectionBoxWidgetClass";
char * const _xmSeparator = "xmSeparatorWidgetClass";
char * const _xmSeparatorGadget="xmSeparatorGadgetWidgetClass";
char * const _xmText = "xmTextWidgetClass";
char * const _xmTextField = "xmTextFieldWidgetClass";
char * const _xmToggleButton = "xmToggleButtonWidgetClass";
char * const _xmToggleButtonGadget = "xmToggleButtonGadgetWidgetClass";
/*************************************************************************
** **
** Private Function Declarations **
** **
**************************************************************************/
static int xm_instantiate_tree(
ABObj root,
BOOL manage
);
static int xm_instantiate_obj(
ABObj obj,
BOOL manage
);
static int post_instantiate_tree(
ABObj root
);
static int post_instantiate_obj(
ABObj obj
);
static int xm_manage_tree(
ABObj obj
);
static Widget instantiate_menu(
ABObj obj,
ABObj menu_ref,
Widget owner,
Widget parent
);
static Widget instantiate_widget(
ABObj obj,
Widget parent,
BOOL manage
);
static int xm_map_obj(
ABObj obj
);
static int xm_unmap_obj(
ABObj obj
);
static WidgetClass
xm_get_class(
ISTRING class_name
);
static int formlist_append(
Widget newform
);
static int formlist_force_resize(
);
/*
* Event Handlers
*/
static void xm_popup_menu(
Widget w,
XtPointer client_data,
XEvent *ev,
Boolean *cont
);
/*
* Actions
*/
static void popup_menu(
Widget widget,
XEvent *event,
String *params,
int num_params
);
/*************************************************************************
** **
** Global Data **
** **
**************************************************************************/
static Widget form_list[MAX_FORMS];
static int form_list_count = 0;
static XtTranslations popup_menu_trans = NULL;
static XtActionsRec menu_actions[] = {
{"PopupMenu", (XtActionProc)popup_menu }
};
static String menu_trans =
"<Btn3Down>: PopupMenu()";
/*************************************************************************
** **
** Function Definitions **
** **
**************************************************************************/
/*
* Instantiate (Create widgets) for all objects in a tree
* starting at root
*/
int
objxm_tree_instantiate(
ABObj root,
BOOL manage_last
)
{
/* Create all widgets
*/
xm_instantiate_tree(root, manage_last? FALSE : TRUE);
/* Set resources that must be set AFTER all widgets
* are created.
*/
post_instantiate_tree(root);
/* Now that ALL resources have been set (attachments)
* manage the widgets
*/
if (manage_last)
xm_manage_tree(root);
/* WORKAROUND for Motif XmForm bug (it ignores child resize request
* if x,y have not also changed). So, we have to force it.
*/
formlist_force_resize();
return OK;
}
/*
* Map/Unmap (display/undisplay on Screen) all objects in a tree
* starting at root
*/
int
objxm_tree_map(
ABObj root,
BOOL map
)
{
AB_TRAVERSAL trav;
ABObj child = NULL;
if (root == NULL)
return -1;
if (map)
xm_map_obj(root);
else
xm_unmap_obj(root);
for (trav_open(&trav, root, AB_TRAV_CHILDREN);
(child = trav_next(&trav)) != NULL; )
objxm_tree_map(child, map);
trav_close(&trav);
return 0;
}
static int
xm_map_obj(
ABObj obj
)
{
Widget widget;
if (!obj_is_ui(obj) && !obj_is_module(obj))
return 0;
if (!obj_has_flag(obj, MappedFlag))
{
if (obj_is_module(obj) || obj_is_project(obj))
{
util_dprintf(2,"MAPPING %s: %s\n",
obj_is_project(obj)?"project":"module",
util_strsafe(obj_get_name(obj)));
}
else if ((widget = (Widget)obj->ui_handle) != NULL)
{
util_dprintf(2,"MAPPING widget: %s\n", util_strsafe(obj_get_name(obj)));
if (XtIsSubclass(widget, applicationShellWidgetClass) ||
XtIsSubclass(widget, topLevelShellWidgetClass))
XtPopup(widget, XtGrabNone);
else if (XtIsSubclass(widget, xmDialogShellWidgetClass))
{
XtManageChild(objxm_get_widget(obj_get_child(obj, 0)));
XtPopup(widget, XtGrabNone);
}
}
obj_set_flag(obj, MappedFlag);
}
return 0;
}
static int
xm_unmap_obj(
ABObj obj
)
{
Widget widget;
if (!obj_is_ui(obj) && !obj_is_module(obj))
return 0;
if (obj_has_flag(obj, MappedFlag))
{
if (obj_is_module(obj) || obj_is_project(obj))
{
util_dprintf(2,"UN-MAPPING %s: %s\n",
obj_is_project(obj)?"project":"module",
util_strsafe(obj_get_name(obj)));
}
else if ((widget = (Widget)obj->ui_handle) != NULL)
{
util_dprintf(2,"UN-MAPPING widget: %s\n",
util_strsafe(obj_get_name(obj)));
if (XtIsSubclass(widget, applicationShellWidgetClass) ||
XtIsSubclass(widget, topLevelShellWidgetClass) ||
XtIsSubclass(widget, xmDialogShellWidgetClass))
XtPopdown(widget);
}
obj_clear_flag(obj, MappedFlag);
}
return 0;
}
static int
xm_instantiate_tree(
ABObj root,
BOOL manage
)
{
AB_TRAVERSAL trav;
ABObj child;
if (root == NULL)
return -1;
/* Top-down traversal is crucial */
xm_instantiate_obj(root, manage);
for (trav_open(&trav, root, AB_TRAV_CHILDREN);
(child = trav_next(&trav)) != NULL; )
{
xm_instantiate_tree(child, manage);
}
trav_close(&trav);
return 0;
}
static int
post_instantiate_tree(
ABObj root
)
{
AB_TRAVERSAL trav;
ABObj child;
if (root == NULL)
return -1;
post_instantiate_obj(root);
/* Bottom-up traversal is crucial*/
for (trav_open(&trav, root, AB_TRAV_CHILDREN);
(child = trav_next(&trav)) != NULL; )
if (obj_is_ui(child))
post_instantiate_tree(child);
trav_close(&trav);
return 0;
}
static int
xm_manage_tree(
ABObj root
)
{
AB_TRAVERSAL trav;
static ABObj manage_root = NULL;
ABObj child;
ABObj childobj;
Widget widget;
WidgetList wchildren;
int num_children;
int num_wchildren = 0;
int i;
if (root == NULL)
return -1;
if (manage_root == NULL)
manage_root = root;
/* Bottom-up traversal is crucial*/
for (trav_open(&trav, root, AB_TRAV_CHILDREN);
(child = trav_next(&trav)) != NULL; )
{
xm_manage_tree(child);
}
trav_close(&trav);
widget = (Widget)root->ui_handle;
/* If this widget has children, manage them all at once.
*/
if (widget != NULL && XtIsSubclass(widget, compositeWidgetClass))
{
/* Build list of valid widget children */
num_children = obj_get_num_children(root);
wchildren = (WidgetList)util_malloc(num_children*sizeof(Widget));
for (i=0; i < num_children; i++)
{
childobj = obj_get_child(root, i);
if (childobj->ui_handle != NULL &&
!objxm_is_menu_widget(objxm_get_widget(childobj)))
wchildren[num_wchildren++] = (Widget)childobj->ui_handle;
}
if (num_wchildren > 0 && !XtIsSubclass(widget, xmDialogShellWidgetClass))
{
XtManageChildren(wchildren, num_wchildren);
if (util_get_verbosity() > 3)
{
Dimension w,h;
fprintf(stderr,"MANAGING Children:");
for (i=0; i < num_wchildren ; i++)
{
XtVaGetValues(wchildren[i], XmNwidth, &w, XmNheight, &h, NULL);
fprintf(stderr,"%s(%dx%d) ", XtName(wchildren[i]),w,h);
}
fprintf(stderr,".\n");
}
}
util_free(wchildren);
}
/* We are back at the Top of the tree being managed:
* MUST manage the top one by hand since this function
* was not called on its parent...
*/
if (manage_root == root)
{
if (widget != NULL && !XtIsSubclass(widget, shellWidgetClass) &&
!XtIsSubclass(XtParent(widget), xmDialogShellWidgetClass))
{
XtManageChild(widget);
if (util_get_verbosity() > 3)
{
Dimension w,h;
XtVaGetValues(widget, XmNwidth, &w, XmNheight, &h, NULL);
fprintf(stderr,"MANAGING root: %s(%dx%d)\n",
util_strsafe(obj_get_name(root)),w,h);
}
}
manage_root = NULL;
}
return 0;
}
static int
xm_instantiate_obj(
ABObj obj,
BOOL manage
)
{
ABObj parentobj, temp_parent;
Widget widget;
Widget parent;
if (!obj_has_flag(obj, XmConfiguredFlag) ||
obj_has_flag(obj, InstantiatedFlag) ||
obj_has_flag(obj, BeingDestroyedFlag))
return OK; /* not considered an error */
if (obj_is_virtual(obj) || obj_is_menu_ref(obj))
{
objxm_obj_remove_all_ui_args(obj, OBJXM_CONFIG_BUILD);
obj_clear_flag(obj, CreateAttrsFlag);
obj_set_flag(obj, InstantiatedFlag);
obj_clear_flag(obj, AttrChangedFlag);
return OK;
}
/* List,ComboBox & SpinBox Items are not separate widgets */
if (obj_is_combo_box_item(obj) ||
obj_is_list_item(obj) ||
obj_is_spin_box_item(obj))
{
AB_ITEM_TYPE itype;
XmString xmitem;
char *obj_name;
if ((parent = objxm_get_widget(obj_get_parent(obj))) == NULL)
{
obj_name = util_strsafe(obj_get_name(obj));
util_dprintf(1, "Instantiation ERROR: %s: widget-ID for parent is NULL\n", obj_name);
return ERROR;
}
itype = obj_get_item_type(obj);
xmitem = XmStringCreateLocalized(obj_get_label(obj));
switch(itype)
{
case AB_ITEM_FOR_LIST:
XmListAddItem(parent, xmitem, 0);
obj_set_flag(obj, InstantiatedFlag);
break;
case AB_ITEM_FOR_COMBO_BOX:
DtComboBoxAddItem(parent, xmitem, 0, False);
obj_set_flag(obj, InstantiatedFlag);
break;
case AB_ITEM_FOR_SPIN_BOX:
DtSpinBoxAddItem(parent, xmitem, 0);
obj_set_flag(obj, InstantiatedFlag);
break;
default:
return ERROR;
}
XmStringFree(xmitem);
if (obj_has_flag(obj, InstantiatedFlag))
return OK;
}
/* Determine parent.. */
/* If obj is a window, parent it off the AB toplevel during
* build-mode to ensure it's independence during UI editing
*/
if (obj_is_window(obj))
parent = ObjxmP_toplevel;
else
{
parentobj = obj_get_parent(obj);
while (parentobj != NULL && obj_is_virtual(parentobj))
{
temp_parent = obj_get_parent(parentobj);
if (temp_parent == NULL)
break;
parentobj = temp_parent;
}
parent = (Widget)parentobj->ui_handle;
}
widget = instantiate_widget(obj, parent, manage);
if (widget != NULL)
{
/* If we have an OptionMenu menupane, we need to hook it
* up to the XmOptionMenu (XmRowColumn) in time for the
* XmOptionMenu's instantiation...ugly, but haven't found
* a better place to do this yet...
*/
if (objxm_is_menu_widget(widget) &&
XtIsSubclass(widget, xmRowColumnWidgetClass))
{
ABObj robj = obj_get_root(obj);
if (obj_is_choice(robj))
{
ABObj o_obj = objxm_comp_get_subobj(robj, AB_CFG_OBJECT_OBJ);
objxm_obj_set_ui_arg(o_obj, AB_ARG_WIDGET, XmNsubMenuId, widget);
}
}
/* if widget is being replaced, destroy old one */
if (obj->ui_handle != NULL)
objxm_tree_uninstantiate(obj, TRUE);
/* Store widget-id in the obj */
obj->ui_handle = (void*)widget;
/* Store the ABObj & the original translations in the widget's
* userData
*/
objxm_store_obj_and_actions(widget, obj);
objxm_obj_remove_all_ui_args(obj, OBJXM_CONFIG_BUILD);
obj_clear_flag(obj, CreateAttrsFlag);
obj_set_flag(obj, InstantiatedFlag);
obj_clear_flag(obj, AttrChangedFlag);
return OK;
}
return ERROR;
}
static Widget
instantiate_widget(
ABObj obj,
Widget parent,
BOOL manage
)
{
Widget widget = NULL;
WidgetClass xmclass;
XmCreateFunc xmcreate_func;
STRING classname;
String name;
int num_args;
ArgList all_args = NULL;
name = (String)obj_get_name(obj);
if (name == NULL)
{
util_dprintf(1, "Instantiation ERROR: Object must have a valid name\n");
return NULL;
}
if (parent == NULL)
{
char *obj_name = util_strsafe(obj_get_name(obj));
util_dprintf(1, "Instantiation ERROR: %s: widget-ID for parent is NULL\n", obj_name);
return NULL;
}
if ((classname = obj_get_class_name(obj)) == NULL)
{
classname = objxm_obj_get_default_motif_class(obj);
obj_set_class_name(obj, classname);
}
if (!obj_has_flag(obj, CreateAttrsFlag)) /* Make sure Resources are set */
objxm_comp_set_ui_args(obj_get_root(obj), OBJXM_CONFIG_BUILD, TRUE);
/* Instantiate Widget using class & arglist
*/
if (util_streq(obj_get_class_name(obj), _applicationShell))
{
all_args = (ArgList)obj->ui_args;
num_args = objxm_get_num_args(all_args);
if (util_get_verbosity() > 3)
{
util_dprintf(2,"INSTANTIATING(Shell): %s part_of(%s), parent=%s, class=%s.\n",
name, obj->part_of? util_strsafe(obj_get_name(obj->part_of)) : name,
XtName(parent), obj_get_class_name(obj));
objxm_dump_arglist(obj, all_args, num_args);
}
widget = XtCreatePopupShell(name,
topLevelShellWidgetClass,
parent,
all_args,
num_args);
XtVaSetValues(widget, XtNwindowGroup, XtWindow(ObjxmP_toplevel), NULL);
}
else /* Non TopLevel */
{
all_args = (ArgList)obj->ui_args;
num_args = objxm_get_num_args(all_args);
if (util_streq(obj_get_class_name(obj), _xmFrame) ||
XtIsSubclass(parent, xmFrameWidgetClass))
{
xmclass = objxm_get_class_ptr(obj_get_class_name(obj));
widget = XtCreateManagedWidget(name, xmclass, parent, all_args, num_args);
}
else
{
xmcreate_func = objxm_obj_get_xmcreate_func(obj);
if (xmcreate_func != NULL)
widget = (*xmcreate_func)(parent, name, all_args, num_args);
else
{
xmclass = objxm_get_class_ptr(obj_get_class_name(obj));
if (xmclass != NULL)
widget = XtCreateWidget(name, xmclass, parent, all_args, num_args);
else
{
char *obj_name = util_strsafe(obj_get_name(obj));
util_dprintf(1, "Instantiation ERROR: %s: Object must have widget class\n", obj_name);
return NULL;
}
}
}
if (util_get_verbosity() > 3)
{
fprintf(stderr,"INSTANTIATING: %s=%p part_of(%s), parent=%s, class=%s.\n",
name, widget, obj->part_of? util_strsafe(obj_get_name(obj->part_of)) : name,
XtName(parent), obj_get_class_name(obj));
objxm_dump_arglist(obj, all_args, num_args);
}
if (manage && !objxm_is_menu_widget(widget))
{
XtManageChild(widget);
if (util_get_verbosity() > 3)
{
Dimension w,h;
XtVaGetValues(widget, XmNwidth, &w, XmNheight, &h, NULL);
fprintf(stderr,"MANAGING: %s(%dx%d)\n", XtName(widget), w,h);
}
}
}
return widget;
}
static int
post_instantiate_obj(
ABObj obj
)
{
Widget widget;
ABObj parent_obj;
ArgList args;
int num_args;
widget = (Widget)obj->ui_handle;
if (ObjxmP_post_instantiate_cb != NULL)
ObjxmP_post_instantiate_cb(obj);
objxm_obj_set_post_inst_args(obj, OBJXM_CONFIG_BUILD);
/* If there is no widget associated with obj, then we are done */
if (widget == NULL)
return 0;
if (!obj_is_window(obj))
{
parent_obj = obj_get_parent(obj);
/* This is a workaround for an extremely strange problem where [sometimes]
* Control Panes do not resize large enough to display all of their children.
*/
if (XtIsSubclass(objxm_get_widget(parent_obj), xmFormWidgetClass))
formlist_append(objxm_get_widget(parent_obj));
}
if (obj_has_flag(obj,AttrChangedFlag))
{
args = (ArgList)obj->ui_args;
num_args = objxm_get_num_args(args);
if (util_get_verbosity() > 3)
{
fprintf(stderr,"POST-INSTANTIATE SetValues: %s\n", util_strsafe(obj_get_name(obj)));
objxm_dump_arglist(obj, args, num_args);
}
/*
if (!XtIsManaged(widget))
XtManageChild(widget);
*/
XtSetValues(widget, args, num_args);
obj_clear_flag(obj, AttrChangedFlag);
objxm_obj_remove_all_ui_args(obj, OBJXM_CONFIG_BUILD);
}
return 0;
}
/*
* OBJ-callback: called when an object is destroyed so
* we can destroy the widget associated with it
*/
int
objxmP_destroy(
ObjEvDestroyInfo info
)
{
ABObj obj = info->obj;
Widget widget = (Widget)info->obj->ui_handle;
if (widget != NULL)
{
objxm_free_obj_and_actions(widget);
/*
* WORKAROUND UNTIL XtDestroyWidget(combobox) bug
* is fixed. Isa 2/22/94
*
* WORKAROUND Also for XmMainWindow bug - destroying
* the messageWindow widget causes it to corecump. aim 7/14/94
*/
if (obj_is_combo_box(obj) ||
(obj_is_control_panel(obj) && obj_get_subtype(obj) == AB_CONT_FOOTER))
{
XtUnrealizeWidget(widget);
}
else
{
util_dprintf(2,"WIDGET DESTROY(CB): %s=%p part_of(%s)\n",
util_strsafe(obj_get_name(obj)), widget,
obj->part_of? util_strsafe(obj_get_name(obj->part_of)) :
util_strsafe(obj_get_name(obj)));
XtDestroyWidget(widget);
}
obj->ui_handle = NULL;
}
/* Free the arglist if it exists */
if (obj->ui_args != NULL)
{
util_dprintf(2, "FREEING ARGLIST: %s\n", obj_get_name(obj));
util_free(obj->ui_args);
}
return 0;
}
/*
* Destroy Widgets AND objects in a tree starting at root
*/
int
objxm_tree_destroy(
ABObj root
)
{
if (root == NULL)
return -1;
/* Destroy any existing widgets */
objxm_tree_uninstantiate(root, TRUE);
/* Destroy ABObj tree */
obj_destroy(root);
return 0;
}
/*
* Destroy Widgets in a tree starting at root
* (sets ui_handle to NULL)
*/
int
objxm_tree_uninstantiate(
ABObj root,
BOOL topmost
)
{
Widget widget;
AB_TRAVERSAL trav;
ABObj child;
/*
* Fix for Bug Ids 1189359 and 1200072
*
* Clear the flags first because list, combo box, and spin box items
* don't actually have a ui_handle associated with them.
*/
obj_clear_flag(root, BuildActionsFlag);
obj_clear_flag(root, InstantiatedFlag);
obj_clear_flag(root, MappedFlag);
widget = (Widget)root->ui_handle;
if (widget == NULL)
return -1;
for (trav_open(&trav, root, AB_TRAV_CHILDREN);
(child = trav_next(&trav)) != NULL; )
{
objxm_tree_uninstantiate(child, FALSE);
}
objxm_free_obj_and_actions(widget);
/*
* WORKAROUND UNTIL XtDestroyWidget(combobox) bug
* is fixed. Isa 2/22/94
* WORKAROUND Also for XmMainWindow bug - destroying
* the messageWindow widget causes it to corecump. aim 7/14/94
*/
if (obj_is_combo_box(root) ||
(obj_is_control_panel(root) && obj_get_subtype(root) == AB_CONT_FOOTER))
{
XtUnrealizeWidget(widget);
}
else
{
util_dprintf(2,"WIDGET DESTROY: %s=%p part_of(%s)\n",
util_strsafe(obj_get_name(root)), widget,
root->part_of? util_strsafe(obj_get_name(root->part_of)) :
util_strsafe(obj_get_name(root)));
XtDestroyWidget(widget);
}
root->ui_handle = NULL;
trav_close(&trav);
return OK;
}
/*
* Instantiate any changes made to an object tree
* starting at root
*/
int
objxm_tree_instantiate_changes(
ABObj root,
BOOL *new_widgets
)
{
static ABObj chg_root = NULL;
AB_TRAVERSAL trav;
ABObj child;
static BOOL new_w = FALSE;
if (root == NULL)
return -1;
if (chg_root == NULL)
chg_root = root;
/* Instantiate changes TOP-DOWN */
objxm_comp_instantiate_changes(root, new_widgets);
if (*new_widgets == TRUE)
new_w = TRUE;
for (trav_open(&trav, root, AB_TRAV_SALIENT_CHILDREN);
(child = trav_next(&trav)) != NULL; )
{
objxm_tree_instantiate_changes(child, new_widgets);
}
trav_close(&trav);
if (chg_root == root) /* We are done */
{
chg_root = NULL;
*new_widgets = new_w;
new_w = FALSE;
}
return 0;
}
/*
* For a Composite Object, Instantiate any changes made
* to it's tree using recursion.
*/
int
objxm_comp_instantiate_changes(
ABObj obj,
BOOL *new_widgets /* return if new widgets created */
)
{
static ABObj comp_root = NULL; /* Composite RootObj */
static BOOL args_set = FALSE;
static BOOL w_created = FALSE;
AB_TRAVERSAL trav;
ABObj sub_obj;
ArgList args;
int num_args;
Widget widget;
BOOL new_w;
if (comp_root == NULL) /* Keep track of the Root */
comp_root = obj;
widget = (Widget)obj->ui_handle;
/* Re-instantiate obj (if it's not being-destroyed)
*/
if (!obj_has_flag(obj, InstantiatedFlag) &&
!obj_has_flag(obj, BeingDestroyedFlag))
{
if (!args_set) /* Set Args ONCE */
{
objxm_comp_set_ui_args(obj_get_root(obj),
OBJXM_CONFIG_BUILD, TRUE);
args_set = TRUE;
}
if (widget != NULL) /* object being re-instantiated */
XtUnmanageChild(widget);
objxm_tree_instantiate(obj, /*False*/True);
w_created = TRUE;
}
/* Change obj's resources (if it's not being destroyed)
*/
else if (widget != NULL &&
obj_has_flag(obj, AttrChangedFlag) &&
!obj_has_flag(obj, BeingDestroyedFlag))
{
args = (ArgList)obj->ui_args;
num_args = objxm_get_num_args(args);
if (util_get_verbosity() > 3)
{
fprintf(stderr,"CHANGE-ATTRS SetValues: %s\n",
util_strsafe(obj_get_name(obj)));
objxm_dump_arglist(obj, args, num_args);
}
XtSetValues(widget, args, num_args);
/*
if (XtIsSubclass(XtParent(widget), xmFormWidgetClass))
formlist_append(XtParent(widget));
*/
/* If XmNbackground is being set, we must call the Motif
* routine which re-calculates/sets all other colors in
* widget (shadow, etc).
*/
/*
REMIND: aim,2/8/94 - revisit why this prevents foreground from being
changed later...
for (i = 0; i < num_args; i++)
{
if (args[i].name == XmNbackground)
XmChangeColor(widget, args[i].value);
}
*/
obj_clear_flag(obj, AttrChangedFlag);
objxm_obj_remove_all_ui_args(obj, OBJXM_CONFIG_BUILD);
}
if (obj_has_flag(obj, BeingDestroyedFlag))
objxm_tree_destroy(obj);
else
{
/* Use recursion to Instantiate changes for any
* SubObjs or Items of this obj
* (except for Menu-reference SubObjs)
*/
for (trav_open(&trav, obj, AB_TRAV_CHILDREN);
(sub_obj = trav_next(&trav)) != NULL; )
{
if (sub_obj->part_of == comp_root &&
!obj_is_menu_ref(sub_obj))
objxm_comp_instantiate_changes(sub_obj, &new_w);
}
trav_close(&trav);
}
if (obj == comp_root) /* Recursed back up to Root */
{
/* Ensure any Non-widget/OptionMenu type items get "selected" if necessary */
if (obj_is_item(obj))
objxm_comp_set_item_selection(obj);
formlist_force_resize();
*new_widgets = w_created;
comp_root = NULL;
args_set = FALSE;
w_created = FALSE;
}
return 0;
}
/*
* Makes a non-widget type item (List, ComboBox, SpinBox) selected/unselected
* and makes an OptionMenu item the "selected" item
*/
int
objxm_comp_set_item_selection(
ABObj obj
)
{
ABObj pobj;
Widget parent;
XmString xmitem;
AB_ITEM_TYPE itype;
BOOL selected;
pobj = obj_get_parent(obj);
parent = objxm_get_widget(pobj);
if (!obj_is_item(obj) || parent == NULL)
return -1;
selected = obj_is_initially_selected(obj);
itype = obj_get_item_type(obj);
if (itype == AB_ITEM_FOR_CHOICE && selected &&
(obj_get_choice_type(obj_get_root(pobj)) == AB_CHOICE_OPTION_MENU))
{
Widget optionbox =
objxm_get_widget(objxm_comp_get_subobj(obj_get_root(pobj), AB_CFG_OBJECT_OBJ));
Widget item_w = objxm_get_widget(obj);
if (optionbox && item_w) /* Make OptionMenu item selected */
XtVaSetValues(optionbox, XmNmenuHistory, item_w, NULL);
}
else if (itype == AB_ITEM_FOR_LIST ||
itype == AB_ITEM_FOR_COMBO_BOX ||
itype == AB_ITEM_FOR_SPIN_BOX)
{
Widget combobox;
int pos = obj_get_child_num(obj);
xmitem = XmStringCreateLocalized(obj_get_label(obj));
switch(itype)
{
case AB_ITEM_FOR_COMBO_BOX:
if (selected)
DtComboBoxSetItem(parent, xmitem);
combobox = parent;
parent = XtNameToWidget(combobox, "*List");
/* fall through...*/
case AB_ITEM_FOR_LIST:
if (selected)
XmListSelectPos(parent, ++pos, True);
else
XmListDeselectPos(parent, ++pos);
break;
case AB_ITEM_FOR_SPIN_BOX:
if (selected)
DtSpinBoxSetItem(parent, xmitem);
break;
default:
break;
}
XmStringFree(xmitem);
}
return 0;
}
/*
* Store the corresponding ABObj & widget Translations in the
* userData for the widget
*/
int
objxm_store_obj_and_actions(
Widget w,
ABObj obj
)
{
XtTranslations trans;
ObjxmWidgetInfo *winfo = NULL;
if (w == NULL || obj == NULL)
return -1;
winfo = (ObjxmWidgetInfo*)util_malloc(sizeof(ObjxmWidgetInfo));
/* Store ABObj & Widget translations in userData of widget
*/
winfo->obj = obj;
XtVaGetValues(w, XtNtranslations, &trans, NULL);
winfo->translations = trans;
XtVaSetValues(w, XmNuserData, winfo, NULL);
return 0;
}
/*
* Free the data structure used to store the ABObj &
* original translations for a widget
*/
int
objxm_free_obj_and_actions(
Widget w
)
{
ObjxmWidgetInfo *winfo = NULL;
if (w == NULL)
return -1;
XtVaGetValues(w, XmNuserData, &winfo, NULL);
util_free(winfo);
return 0;
}
/*
* Retrieve the ABObj corresponding to a widget
*/
ABObj
objxm_get_obj_from_widget(
Widget w
)
{
ObjxmWidgetInfo *winfo = NULL;
if (w == NULL)
return NULL;
XtVaGetValues(w, XmNuserData, &winfo, NULL);
if (winfo != NULL)
return(winfo->obj);
return NULL;
}
/*
* Retrieve the original translations corresponding to a widget
*/
XtTranslations
objxm_get_actions_from_widget(
Widget w
)
{
ObjxmWidgetInfo *winfo = NULL;
if (w == NULL)
return NULL;
XtVaGetValues(w, XmNuserData, &winfo, NULL);
if (winfo != NULL)
return(winfo->translations);
return NULL;
}
WidgetClass
objxm_get_class_ptr(
STRING class_name
)
{
ISTRING class_istr = istr_create(class_name);
WidgetClass xmclass;
xmclass = xm_get_class(class_istr);
istr_destroy(class_istr);
return xmclass;
}
static WidgetClass
xm_get_class(
ISTRING class_name
)
{
WidgetClass wclass;
if (istr_equal(class_name, istr_const(_applicationShell)))
wclass = applicationShellWidgetClass;
else if (istr_equal(class_name, istr_const(_topLevelShell)))
wclass = topLevelShellWidgetClass;
else if (istr_equal(class_name, istr_const(_dtTerm)))
wclass = dtTermWidgetClass;
else if (istr_equal(class_name, istr_const(_xmArrowButton)))
wclass = xmArrowButtonWidgetClass;
else if (istr_equal(class_name, istr_const(_xmBulletinBoard)))
wclass = xmBulletinBoardWidgetClass;
else if (istr_equal(class_name, istr_const(_xmCascadeButton)))
wclass = xmCascadeButtonWidgetClass;
else if (istr_equal(class_name, istr_const(_dtComboBox)))
wclass = dtComboBoxWidgetClass;
else if (istr_equal(class_name, istr_const(_xmCommand)))
wclass = xmCommandWidgetClass;
else if (istr_equal(class_name, istr_const(_xmDialogShell)))
wclass = xmDialogShellWidgetClass;
else if (istr_equal(class_name, istr_const(_xmDrawingArea)))
wclass = xmDrawingAreaWidgetClass;
else if (istr_equal(class_name, istr_const(_xmDrawnButton)))
wclass = xmDrawnButtonWidgetClass;
else if (istr_equal(class_name, istr_const(_xmFileSelectionBox)))
wclass = xmFileSelectionBoxWidgetClass;
else if (istr_equal(class_name, istr_const(_xmForm)))
wclass = xmFormWidgetClass;
else if (istr_equal(class_name, istr_const(_xmFrame)))
wclass = xmFrameWidgetClass;
else if (istr_equal(class_name, istr_const(_xmLabel)))
wclass = xmLabelWidgetClass;
else if (istr_equal(class_name, istr_const(_xmLabelGadget)))
wclass = xmLabelGadgetClass;
else if (istr_equal(class_name, istr_const(_xmList)))
wclass = xmListWidgetClass;
else if (istr_equal(class_name, istr_const(_xmMainWindow)))
wclass = xmMainWindowWidgetClass;
else if (istr_equal(class_name, istr_const(_xmManager)))
wclass = xmManagerWidgetClass;
else if (istr_equal(class_name, istr_const(_dtMenuButton)))
wclass = dtMenuButtonWidgetClass;
else if (istr_equal(class_name, istr_const(_xmMenuShell)))
wclass = xmMenuShellWidgetClass;
else if (istr_equal(class_name, istr_const(_xmMessageBox)))
wclass = xmMessageBoxWidgetClass;
else if (istr_equal(class_name, istr_const(_xmPanedWindow)))
wclass = xmPanedWindowWidgetClass;
else if (istr_equal(class_name, istr_const(_xmPrimitive)))
wclass = xmPrimitiveWidgetClass;
else if (istr_equal(class_name, istr_const(_xmPushButton)))
wclass = xmPushButtonWidgetClass;
else if (istr_equal(class_name, istr_const(_xmRowColumn)))
wclass = xmRowColumnWidgetClass;
else if (istr_equal(class_name, istr_const(_xmScale)))
wclass = xmScaleWidgetClass;
else if (istr_equal(class_name, istr_const(_xmScrollBar)))
wclass = xmScrollBarWidgetClass;
else if (istr_equal(class_name, istr_const(_xmScrolledWindow)))
wclass = xmScrolledWindowWidgetClass;
else if (istr_equal(class_name, istr_const(_xmSelectionBox)))
wclass = xmSelectionBoxWidgetClass;
else if (istr_equal(class_name, istr_const(_xmSeparator)))
wclass = xmSeparatorWidgetClass;
else if (istr_equal(class_name, istr_const(_xmSeparatorGadget)))
wclass = xmSeparatorGadgetClass;
else if (istr_equal(class_name, istr_const(_dtSpinBox)))
wclass = dtSpinBoxWidgetClass;
else if (istr_equal(class_name, istr_const(_xmText)))
wclass = xmTextWidgetClass;
else if (istr_equal(class_name, istr_const(_xmTextField)))
wclass = xmTextFieldWidgetClass;
else if (istr_equal(class_name, istr_const(_xmToggleButton)))
wclass = xmToggleButtonWidgetClass;
else if (istr_equal(class_name, istr_const(_xmToggleButtonGadget)))
wclass = xmToggleButtonGadgetClass;
else /* Unknown Widget class */
wclass = NULL;
return(wclass);
}
XmCreateFunc
objxm_obj_get_xmcreate_func(
ABObj obj
)
{
ABObj robj = obj_get_root(obj);
ISTRING class_name = istr_create(obj_get_class_name(obj));
XmCreateFunc xmcreate_func;
if (class_name == NULL)
return NULL;
if (istr_equal(class_name, istr_const(_xmArrowButton)))
xmcreate_func = XmCreateArrowButton;
else if (istr_equal(class_name, istr_const(_xmBulletinBoard)))
xmcreate_func = XmCreateBulletinBoard;
else if (istr_equal(class_name, istr_const(_xmCascadeButton)))
xmcreate_func = XmCreateCascadeButton;
else if (istr_equal(class_name, istr_const(_xmCommand)))
xmcreate_func = XmCreateCommand;
else if (istr_equal(class_name, istr_const(_xmDialogShell)))
xmcreate_func = XmCreateDialogShell;
else if (istr_equal(class_name, istr_const(_xmDrawingArea)))
xmcreate_func = XmCreateDrawingArea;
else if (istr_equal(class_name, istr_const(_xmDrawnButton)))
xmcreate_func = XmCreateDrawnButton;
else if (istr_equal(class_name, istr_const(_xmFileSelectionDialog)))
xmcreate_func = XmCreateFileSelectionDialog;
else if (istr_equal(class_name, istr_const(_xmForm)))
xmcreate_func = XmCreateForm;
else if (istr_equal(class_name, istr_const(_xmFrame)))
xmcreate_func = XmCreateFrame;
else if (istr_equal(class_name, istr_const(_xmLabel)))
xmcreate_func = XmCreateLabel;
else if (istr_equal(class_name, istr_const(_xmLabelGadget)))
xmcreate_func = XmCreateLabelGadget;
else if (istr_equal(class_name, istr_const(_xmList)))
xmcreate_func = XmCreateList;
else if (istr_equal(class_name, istr_const(_xmMainWindow)))
xmcreate_func = XmCreateMainWindow;
else if (istr_equal(class_name, istr_const(_dtMenuButton)))
xmcreate_func = DtCreateMenuButton;
else if (istr_equal(class_name, istr_const(_xmMenuShell)))
xmcreate_func = XmCreateMenuShell;
else if (istr_equal(class_name, istr_const(_xmPanedWindow)))
xmcreate_func = XmCreatePanedWindow;
else if (istr_equal(class_name, istr_const(_xmPopupMenu)))
xmcreate_func = XmCreatePopupMenu;
else if (istr_equal(class_name, istr_const(_xmPulldownMenu)))
xmcreate_func = XmCreatePulldownMenu;
else if (istr_equal(class_name, istr_const(_xmPushButton)))
xmcreate_func = XmCreatePushButton;
else if (istr_equal(class_name, istr_const(_xmRowColumn)))
{
if (obj_is_menubar(obj))
xmcreate_func = XmCreateMenuBar;
else if (obj_is_choice(obj))
{
AB_CHOICE_INFO *info = (AB_CHOICE_INFO *)&(robj->info.choice);
if (objxm_comp_get_subobj(robj, AB_CFG_OBJECT_OBJ) == obj)
{
switch(info->type)
{
case AB_CHOICE_EXCLUSIVE:
xmcreate_func = XmCreateRadioBox;
break;
case AB_CHOICE_NONEXCLUSIVE:
xmcreate_func = XmCreateSimpleCheckBox;
break;
case AB_CHOICE_OPTION_MENU:
xmcreate_func = XmCreateOptionMenu;
break;
default:
xmcreate_func = XmCreateRowColumn;
}
}
else
xmcreate_func = XmCreateRowColumn;
}
else
xmcreate_func = XmCreateRowColumn;
}
else if (istr_equal(class_name, istr_const(_xmScale)))
xmcreate_func = XmCreateScale;
else if (istr_equal(class_name, istr_const(_xmScrollBar)))
xmcreate_func = XmCreateScrollBar;
else if (istr_equal(class_name, istr_const(_xmScrolledList)))
xmcreate_func = XmCreateScrolledList;
else if (istr_equal(class_name, istr_const(_xmScrolledWindow)))
xmcreate_func = XmCreateScrolledWindow;
else if (istr_equal(class_name, istr_const(_xmSelectionBox)))
xmcreate_func = XmCreateSelectionBox;
else if (istr_equal(class_name, istr_const(_xmSeparator)))
xmcreate_func = XmCreateSeparator;
else if (istr_equal(class_name, istr_const(_xmSeparatorGadget)))
xmcreate_func = XmCreateSeparatorGadget;
else if (istr_equal(class_name, istr_const(_xmText)))
xmcreate_func = XmCreateText;
else if (istr_equal(class_name, istr_const(_xmTextField)))
xmcreate_func = XmCreateTextField;
else if (istr_equal(class_name, istr_const(_xmToggleButton)))
xmcreate_func = XmCreateToggleButton;
else if (istr_equal(class_name, istr_const(_xmToggleButtonGadget)))
xmcreate_func = XmCreateToggleButtonGadget;
else /* Unknown Widget class */
xmcreate_func = NULL;
istr_destroy(class_name);
return(xmcreate_func);
}
/*
* Store widget-id of XmForm widget which contains children
* which have changed size
*/
static int
formlist_append(
Widget newform
)
{
int iRet = 0;
int i;
/* If form is already on list, return */
for (i=0; i < form_list_count; i++)
if (form_list[i] == newform)
return iRet;
if (form_list_count < MAX_FORMS)
form_list[form_list_count++] = newform;
else
{
util_dprintf(3,"formlist_append: form_list FULL\n");
iRet = -1;
}
return iRet;
}
/*
* For each XmForm on the form_list, force it to grant it's
* children's resize requests by 'faking' a geometry change
* on the XmForm itself.
*
* Yes, this is ugly, but is currently the only workaround
* for the Motif bug where the XmForm refuses childrens'
* resize requests after they've been already managed.
*/
static int
formlist_force_resize(void)
{
Dimension f_width, f_height;
int i;
Widget phantom;
Pixel bgpixel;
XmString xmlabel;
util_dprintf(2,"formlist_force_resize: ");
for (i= form_list_count-1; i >= 0; i--)
{
/* This is an unfortunate workaround for a strange problem where
* the XmForm widget does not expand to a size large enough to
* display all its children.
*
* Creating a temporary, invisible widget seems to wake up the
* Form's geometry manager into resizing itself to the correct
* geometry.
*
* (I agree, this makes little sense, but trust me, it works).
*/
XtVaGetValues(form_list[i],
XmNbackground, &bgpixel,
NULL);
xmlabel = XmStringCreateLocalized(" ");
util_dprintf(2,"\n Creating phantom child of %s.\n", XtName(form_list[i]));
phantom = XtVaCreateManagedWidget("phantom", xmLabelWidgetClass,
form_list[i],
XmNlabelString, xmlabel,
XmNbackground, bgpixel,
NULL);
XmStringFree(xmlabel);
XtDestroyWidget(phantom);
form_list[i] = NULL;
}
form_list_count = 0;
util_dprintf(2, "\n");
return 0;
}
int
objxm_create_popup_menu_title(
ABObj menu_ref,
OBJXM_CONFIG_TYPE ctype,
STRING title
)
{
ABObj tobj;
ABObj menu;
if (menu_ref == NULL || !obj_is_menu_ref(menu_ref))
return -1;
menu = obj_get_actual_obj(menu_ref);
if (menu == NULL)
return -1;
tobj = obj_create(AB_TYPE_LABEL, NULL);
obj_insert_child(menu_ref, tobj, 0);
obj_set_unique_name(tobj,
ab_ident_from_name_and_label(obj_get_name(menu), "title"));
obj_set_label(tobj, title);
objxm_obj_configure(tobj, ctype, True);
if (ctype == OBJXM_CONFIG_BUILD)
tobj->ui_handle = instantiate_widget(tobj,
objxm_get_widget(menu_ref), True);
tobj = obj_create(AB_TYPE_SEPARATOR, NULL);
obj_insert_child(menu_ref, tobj, 1);
obj_set_unique_name(tobj,
ab_ident_from_name_and_label(obj_get_name(menu),
"title_sep"));
obj_set_line_style(tobj, AB_LINE_DOUBLE_LINE);
objxm_obj_configure(tobj, ctype, True);
if (ctype == OBJXM_CONFIG_BUILD)
tobj->ui_handle = instantiate_widget(tobj,
objxm_get_widget(menu_ref), True);
return 0;
}
/*
* Instantiate (create Widgets) for all Menus connected to
* objects inside a tree starting at root.
*/
int
objxm_instantiate_menus(
ABObj root
)
{
AB_TRAVERSAL trav;
ABObj obj;
ABObj m_parent;
ABObj menu_ref;
if (root == NULL)
return -1;
for (trav_open(&trav, root, AB_TRAV_UI);
(obj = trav_next(&trav)) != NULL; )
/* Instantiate a menu for the object if one exists.
* NOTE: SubMenus (menus off of other menu-items) are
* actually instantiated using recursion in instantiate_menu(),
* thus we do not call instantiate_menu() for them directly.
*/
if (obj_is_salient(obj) &&
obj_get_menu_name(obj) != NULL && !obj_is_menu_item(obj))
{
m_parent = objxm_comp_get_subobj(obj, AB_CFG_MENU_PARENT_OBJ);
menu_ref = objxm_comp_get_subobj(obj, AB_CFG_MENU_OBJ);
instantiate_menu(obj, menu_ref, (Widget)obj->ui_handle,
(Widget)m_parent->ui_handle);
}
trav_close(&trav);
return 0;
}
/*
* Since we support the concept of virtual "Sharable" menus (the same Menu
* object can be attached to multiple objects) and Motif does NOT, we must
* use special handling when instantiating menus. Although the virtual or
* "shared" Menu obj is used to determine the structure of the menu, the actual
* widget ID of the menu is stored in the Menu-Reference obj attached directly
* to the object which "owns" a copy of the menu. Also, in order to store
* the widget-IDs of all menu-items & sub-menus, the menu obj hierarchy is
* temporarily created underneath the Menu-ref obj (this hierarchy is destroyed
* when the the menus are destroyed).
*
* Both "owner" & "parent" are required because for casacdes, Motif requires a
* menu to be parented off the *parent* of the cascade...
*
*/
static Widget
instantiate_menu(
ABObj obj,
ABObj menu_ref,
Widget owner,
Widget parent
)
{
AB_TRAVERSAL trav;
AB_MENU_TYPE m_type;
ABObj sub_menu_ref;
ABObj menu_p;
ABObj menu;
ABObj item;
ABObj tmp_itemobj;
ABObj tmp_menuref;
Widget menu_w = NULL;
Widget submenu_w = NULL;
Widget item_w;
if (menu_ref != NULL)
{
/* Get Virtual Menu & object to parent menu off of */
menu = obj_get_actual_obj(menu_ref);
if (menu != NULL && parent != NULL)
{
if (obj_is_button(obj) && obj_get_subtype(obj) == AB_BUT_MENU)
{
/* MenuButtons already have their Menu created */
XtVaGetValues((Widget)obj->ui_handle, XmNsubMenuId, &menu_w, NULL);
menu_ref->ui_handle = (void*)menu_w;
}
else
{
/* Set Pseudo-class for Menu based on the type
* of object that owns it
*/
if (obj_is_menu_item(obj) || obj_is_menubar_item(obj))
{
m_type = AB_MENU_PULLDOWN;
obj_set_class_name(menu, _xmPulldownMenu);
}
else
{
m_type = AB_MENU_POPUP;
obj_set_class_name(menu, _xmPopupMenu);
}
menu_w = instantiate_widget(menu, parent, TRUE);
menu_ref->ui_handle = (void*)menu_w;
if (m_type == AB_MENU_PULLDOWN)
XtVaSetValues(owner, XmNsubMenuId, menu_w, NULL);
else /* PopupMenu */
{
STRING title;
XtInsertEventHandler(parent, ButtonPressMask, False, xm_popup_menu,
(XtPointer)obj, XtListHead);
/*
REMIND: aim, 10/7/94 - In trying to migrate to using translations, it
messed up the event handling when we returned to BUILD mode.
For now, going back to event-handling.
ABObj tobj;
if (popup_menu_trans == NULL)
{
XtAppAddActions(XtWidgetToApplicationContext(parent),
menu_actions, XtNumber(menu_actions));
popup_menu_trans = XtParseTranslationTable(menu_trans);
}
menu_p = objxm_get_obj_from_widget(parent);
objxm_store_obj_and_actions(parent, menu_p);
XtOverrideTranslations(parent, popup_menu_trans);
*/
if (!util_strempty((title = obj_get_menu_title(obj))))
objxm_create_popup_menu_title(menu_ref, OBJXM_CONFIG_BUILD,
title);
}
}
/* Instantiate Menu Items */
for (trav_open(&trav, menu, AB_TRAV_CHILDREN);
(item = trav_next(&trav)) != NULL; )
{
/* Create TEMP copy of Item obj under Menu-ref */
tmp_itemobj = obj_dup(item);
obj_append_child(menu_ref, tmp_itemobj);
item_w = instantiate_widget(item, menu_w, TRUE);
tmp_itemobj->ui_handle = (void*)item_w;
/* If SubMenu exists, instantiate it */
if ((sub_menu_ref = objxm_comp_get_subobj(item, AB_CFG_MENU_OBJ)) != NULL)
{
/* Create TEMP copy of submenu(Menu-ref) under temp Item obj */
tmp_menuref =
obj_create_ref(obj_get_actual_obj(sub_menu_ref));
tmp_menuref->part_of = tmp_itemobj;
obj_append_child(tmp_itemobj, tmp_menuref);
submenu_w = instantiate_menu(
item, tmp_menuref, item_w, menu_w);
}
}
trav_close(&trav);
}
else
{
char *obj_name = util_strsafe(obj_get_name(obj));
util_dprintf(1, "Instantiation ERROR: %s: could not instantiate menu\n", obj_name);
return NULL;
}
}
return menu_w;
}
/*
* Destroy widgets for all Menus connected to
* objects inside a tree starting at root.
*/
int
objxm_destroy_menus(
ABObj root
)
{
AB_TRAVERSAL trav;
ABObj obj;
ABObj menu;
AB_MENU_TYPE m_type;
ABObj menu_ref;
ABObj menu_p;
ABObj *item_array;
int num_items;
int i;
if (root == NULL)
return -1;
for (trav_open(&trav, root, AB_TRAV_UI);
(obj = trav_next(&trav)) != NULL; )
if (obj_is_salient(obj) && !obj_is_menu_item(obj) &&
(menu_ref = objxm_comp_get_subobj(obj, AB_CFG_MENU_OBJ)) != NULL)
{
if (menu_ref->ui_handle != NULL)
{
menu = obj_get_actual_obj(menu_ref);
/* Destroy Temporary Item objs created ONLY for Test-mode */
num_items = obj_get_num_children(menu_ref);
item_array = (ABObj*)util_malloc(num_items*sizeof(ABObj));
for (i=0; i < num_items; i++)
item_array[i] = obj_get_child(menu_ref, i);
for (i=0; i < num_items; i++)
obj_destroy(item_array[i]);
util_free(item_array);
/* Unless the obj is a MenuButton, disconnect & Destroy the Menu
*/
if (!(obj_is_button(obj) && obj_get_subtype(obj) == AB_BUT_MENU))
{
if (obj_is_item(obj) &&
(obj->info.item.type == AB_ITEM_FOR_MENU ||
obj->info.item.type == AB_ITEM_FOR_MENUBAR))
m_type = AB_MENU_PULLDOWN;
else
m_type = AB_MENU_POPUP;
if (m_type == AB_MENU_POPUP) /* Remove EventHandler that pops up menu */
{
Widget parent;
XtTranslations orig_trans;
menu_p = objxm_comp_get_subobj(obj, AB_CFG_MENU_PARENT_OBJ);
XtRemoveEventHandler((Widget)menu_p->ui_handle, ButtonPressMask,
False, xm_popup_menu, (XtPointer)obj);
/*
REMIND: aim, 10/7/94 - In trying to migrate to using translations, it
messed up the event handling when we returned to BUILD mode.
For now, going back to event-handling.
parent = objxm_get_widget(menu_p);
orig_trans = objxm_get_actions_from_widget(parent);
XtVaSetValues(parent, XtNtranslations, orig_trans, NULL);
*/
}
XtDestroyWidget((Widget)menu_ref->ui_handle);
}
menu_ref->ui_handle = (void*)NULL;
}
}
trav_close(&trav);
return 0;
}
static void
xm_popup_menu(
Widget widget,
XtPointer client_data,
XEvent *event,
Boolean *cont
)
{
XButtonEvent *bevent = (XButtonEvent*)event;
ABObj obj = (ABObj)client_data;
ABObj menu_ref;
Widget menu;
if (bevent->button == 3)
{
menu_ref = objxm_comp_get_subobj(obj, AB_CFG_MENU_OBJ);
if (menu_ref != NULL && (menu = (Widget)menu_ref->ui_handle) != NULL)
{
XmMenuPosition(menu, (XButtonPressedEvent*)bevent);
XtManageChild(menu);
}
}
}
static void
popup_menu(
Widget widget,
XEvent *event,
String *params,
int num_params
)
{
XButtonEvent *bevent;
ABObj obj, menu_ref;
Widget menu;
if (event->type == ButtonPress)
{
bevent = (XButtonEvent*)event;
obj = objxm_get_obj_from_widget(widget);
menu_ref = objxm_comp_get_subobj(obj, AB_CFG_MENU_OBJ);
if (menu_ref != NULL && (menu = (Widget)menu_ref->ui_handle) != NULL)
{
XmMenuPosition(menu, (XButtonPressedEvent*)bevent);
XtManageChild(menu);
}
}
}
Reference in New Issue View Git Blame Copy Permalink