#include <Xm/FileSB.h>
#include <Xm/Label.h>
#include <Xm/List.h>
+#include <Xm/MainW.h>
#include <Xm/MenuShell.h>
#include <Xm/MessageB.h>
+#include <Xm/PanedW.h>
#include <Xm/PushB.h>
#include <Xm/PushBG.h>
#include <Xm/ArrowB.h>
#include <Xm/DialogS.h>
#include <Xm/Form.h>
-static void xm_pull_down_callback (Widget, XtPointer, XtPointer);
-static void xm_internal_update_other_instances (Widget, XtPointer,
- XtPointer);
-static void xm_generic_callback (Widget, XtPointer, XtPointer);
-static void xm_nosel_callback (Widget, XtPointer, XtPointer);
-static void xm_pop_down_callback (Widget, XtPointer, XtPointer);
+static void xm_pull_down_callback (/* Widget, XtPointer, XtPointer */);
+static void xm_internal_update_other_instances (/* Widget, XtPointer,
+ XtPointer */);
+static void xm_generic_callback (/* Widget, XtPointer, XtPointer */);
+static void xm_nosel_callback (/* Widget, XtPointer, XtPointer */);
+static void xm_pop_down_callback (/* Widget, XtPointer, XtPointer */);
+
+static void xm_update_menu (/* widget_instance*, Widget, widget_value*,
+ Boolean) */);
-static void
-xm_update_menu (widget_instance* instance, Widget widget, widget_value* val,
- Boolean deep_p);
\f/* Structures to keep destroyed instances */
typedef struct _destroyed_instance
all_destroyed_instances = NULL;
static destroyed_instance*
-make_destroyed_instance (char* name, char* type, Widget widget, Widget parent,
- Boolean pop_up_p)
+make_destroyed_instance (name, type, widget, parent, pop_up_p)
+ char* name;
+ char* type;
+ Widget widget;
+ Widget parent;
+ Boolean pop_up_p;
{
destroyed_instance* instance =
(destroyed_instance*)malloc (sizeof (destroyed_instance));
- instance->name = strdup (name);
- instance->type = strdup (type);
+ instance->name = safe_strdup (name);
+ instance->type = safe_strdup (type);
instance->widget = widget;
instance->parent = parent;
instance->pop_up_p = pop_up_p;
}
static void
-free_destroyed_instance (destroyed_instance* instance)
+free_destroyed_instance (instance)
+ destroyed_instance* instance;
{
free (instance->name);
free (instance->type);
\f/* motif utility functions */
Widget
-first_child (Widget widget)
+first_child (widget)
+ Widget widget;
{
return ((CompositeWidget)widget)->composite.children [0];
}
Boolean
-lw_motif_widget_p (Widget widget)
+lw_motif_widget_p (widget)
+ Widget widget;
{
return
XtClass (widget) == xmDialogShellWidgetClass
}
static XmString
-resource_motif_string (Widget widget, char* name)
+resource_motif_string (widget, name)
+ Widget widget;
+ char* name;
{
XtResource resource;
XmString result = 0;
}
static void
-destroy_all_children (Widget widget)
+destroy_all_children (widget)
+ Widget widget;
{
Widget* children;
unsigned int number;
\f/* update the label of anything subclass of a label */
static void
-xm_update_label (widget_instance* instance, Widget widget, widget_value* val)
+xm_update_label (instance, widget, val)
+ widget_instance* instance;
+ Widget widget;
+ widget_value* val;
{
XmString res_string = 0;
XmString built_string = 0;
\f/* update of list */
static void
-xm_update_list (widget_instance* instance, Widget widget, widget_value* val)
+xm_update_list (instance, widget, val)
+ widget_instance* instance;
+ Widget widget;
+ widget_value* val;
{
widget_value* cur;
int i;
\f/* update of buttons */
static void
-xm_update_pushbutton (widget_instance* instance, Widget widget,
- widget_value* val)
+xm_update_pushbutton (instance, widget, val)
+ widget_instance* instance;
+ Widget widget;
+ widget_value* val;
{
XtVaSetValues (widget, XmNalignment, XmALIGNMENT_CENTER, 0);
XtRemoveAllCallbacks (widget, XmNactivateCallback);
}
static void
-xm_update_cascadebutton (widget_instance* instance, Widget widget,
- widget_value* val)
+xm_update_cascadebutton (instance, widget, val)
+ widget_instance* instance;
+ Widget widget;
+ widget_value* val;
{
/* Should also rebuild the menu by calling ...update_menu... */
XtRemoveAllCallbacks (widget, XmNcascadingCallback);
\f/* update toggle and radiobox */
static void
-xm_update_toggle (widget_instance* instance, Widget widget, widget_value* val)
+xm_update_toggle (instance, widget, val)
+ widget_instance* instance;
+ Widget widget;
+ widget_value* val;
{
XtRemoveAllCallbacks (widget, XmNvalueChangedCallback);
XtAddCallback (widget, XmNvalueChangedCallback,
}
static void
-xm_update_radiobox (widget_instance* instance, Widget widget,
- widget_value* val)
+xm_update_radiobox (instance, widget, val)
+ widget_instance* instance;
+ Widget widget;
+ widget_value* val;
+
{
Widget toggle;
widget_value* cur;
\f/* update a popup menu, pulldown menu or a menubar */
static Boolean
-all_dashes_p (char* s)
+all_dashes_p (s)
+ char* s;
{
char* t;
for (t = s; *t; t++)
}
static void
-make_menu_in_widget (widget_instance* instance, Widget widget,
- widget_value* val)
+make_menu_in_widget (instance, widget, val)
+ widget_instance* instance;
+ Widget widget;
+ widget_value* val;
{
Widget* children = 0;
int num_children;
XtSetArg (al [ac], XmNalignment, XmALIGNMENT_BEGINNING); ac++;
XtSetArg (al [ac], XmNuserData, cur->call_data); ac++;
- if (all_dashes_p (cur->name))
+ if (instance->pop_up_p && !cur->contents && !cur->call_data
+ && !all_dashes_p (cur->name))
+ {
+ ac = 0;
+ XtSetArg (al[ac], XmNalignment, XmALIGNMENT_CENTER); ac++;
+ button = XmCreateLabel (widget, cur->name, al, ac);
+ }
+ else if (all_dashes_p (cur->name))
{
button = XmCreateSeparator (widget, cur->name, NULL, 0);
}
}
else
{
- menu = XmCreatePulldownMenu (widget, "pulldown", NULL, 0);
+ menu = XmCreatePulldownMenu (widget, cur->name, NULL, 0);
make_menu_in_widget (instance, menu, cur->contents);
XtSetArg (al [ac], XmNsubMenuId, menu); ac++;
button = XmCreateCascadeButton (widget, cur->name, al, ac);
}
static void
-update_one_menu_entry (widget_instance* instance, Widget widget,
- widget_value* val, Boolean deep_p)
+update_one_menu_entry (instance, widget, val, deep_p)
+ widget_instance* instance;
+ Widget widget;
+ widget_value* val;
+ Boolean deep_p;
{
Arg al [256];
int ac;
{
if (contents)
{
- menu = XmCreatePulldownMenu (widget, "pulldown", NULL, 0);
+ menu = XmCreatePulldownMenu (XtParent (widget), XtName (widget), NULL, 0);
make_menu_in_widget (instance, menu, contents);
ac = 0;
XtSetArg (al [ac], XmNsubMenuId, menu); ac++;
}
static void
-xm_update_menu (widget_instance* instance, Widget widget, widget_value* val,
- Boolean deep_p)
+xm_update_menu (instance, widget, val, deep_p)
+ widget_instance* instance;
+ Widget widget;
+ widget_value* val;
+ Boolean deep_p;
{
/* Widget is a RowColumn widget whose contents have to be updated
* to reflect the list of items in val->contents */
/* update text widgets */
static void
-xm_update_text (widget_instance* instance, Widget widget, widget_value* val)
+xm_update_text (instance, widget, val)
+ widget_instance* instance;
+ Widget widget;
+ widget_value* val;
{
XmTextSetString (widget, val->value ? val->value : "");
XtRemoveAllCallbacks (widget, XmNactivateCallback);
}
static void
-xm_update_text_field (widget_instance* instance, Widget widget,
- widget_value* val)
+xm_update_text_field (instance, widget, val)
+ widget_instance* instance;
+ Widget widget;
+ widget_value* val;
{
XmTextFieldSetString (widget, val->value ? val->value : "");
XtRemoveAllCallbacks (widget, XmNactivateCallback);
/* update a motif widget */
void
-xm_update_one_widget (widget_instance* instance, Widget widget,
- widget_value* val, Boolean deep_p)
+xm_update_one_widget (instance, widget, val, deep_p)
+ widget_instance* instance;
+ Widget widget;
+ widget_value* val;
+ Boolean deep_p;
{
WidgetClass class;
\f/* getting the value back */
void
-xm_update_one_value (widget_instance* instance, Widget widget,
- widget_value* val)
+xm_update_one_value (instance, widget, val)
+ widget_instance* instance;
+ Widget widget;
+ widget_value* val;
{
WidgetClass class = XtClass (widget);
widget_value *old_wv;
{
if (val->value)
free (val->value);
- val->value = strdup (XtName (toggle));
+ val->value = safe_strdup (XtName (toggle));
}
}
val->edited = True;
if (pos_list [j] == i)
{
cur->selected = True;
- val->value = strdup (cur->name);
+ val->value = safe_strdup (cur->name);
}
}
val->edited = 1;
I could not find a way to do that with accelerators.
*/
static void
-activate_button (Widget widget, XtPointer closure, XtPointer call_data)
+activate_button (widget, closure, call_data)
+ Widget widget;
+ XtPointer closure;
+ XtPointer call_data;
{
Widget button = (Widget)closure;
XtCallCallbacks (button, XmNactivateCallback, NULL);
/* dialogs */
static Widget
-make_dialog (char* name, Widget parent, Boolean pop_up_p,
- char* shell_title, char* icon_name, Boolean text_input_slot,
- Boolean radio_box, Boolean list,
- int left_buttons, int right_buttons)
+make_dialog (name, parent, pop_up_p, shell_title, icon_name, text_input_slot,
+ radio_box, list, left_buttons, right_buttons)
+ char* name;
+ Widget parent;
+ Boolean pop_up_p;
+ char* shell_title;
+ char* icon_name;
+ Boolean text_input_slot;
+ Boolean radio_box;
+ Boolean list;
+ int left_buttons;
+ int right_buttons;
{
Widget result;
Widget form;
result = form;
}
+ n_children = left_buttons + right_buttons + 1;
ac = 0;
- XtSetArg(al[ac], XmNpacking, XmPACK_COLUMN); ac++;
- XtSetArg(al[ac], XmNorientation, XmVERTICAL); ac++;
+ XtSetArg(al[ac], XmNpacking, n_children == 3?
+ XmPACK_COLUMN: XmPACK_TIGHT); ac++;
+ XtSetArg(al[ac], XmNorientation, n_children == 3?
+ XmVERTICAL: XmHORIZONTAL); ac++;
XtSetArg(al[ac], XmNnumColumns, left_buttons + right_buttons + 1); ac++;
XtSetArg(al[ac], XmNmarginWidth, 0); ac++;
XtSetArg(al[ac], XmNmarginHeight, 0); ac++;
XtSetArg(al[ac], XmNhighlightThickness, 1); ac++;
XtSetArg(al[ac], XmNshowAsDefault, TRUE); ac++;
}
+ XtSetArg(al[ac], XmNmarginWidth, 10); ac++;
XtSetArg(al[ac], XmNnavigationType, XmTAB_GROUP); ac++;
children [n_children] = XmCreatePushButton (row, button_name, al, ac);
char button_name [16];
sprintf (button_name, "button%d", left_buttons + i + 1);
ac = 0;
+ XtSetArg(al[ac], XmNmarginWidth, 10); ac++;
XtSetArg(al[ac], XmNnavigationType, XmTAB_GROUP); ac++;
children [n_children] = XmCreatePushButton (row, button_name, al, ac);
if (! button) button = children [n_children];
}
static destroyed_instance*
-find_matching_instance (widget_instance* instance)
+find_matching_instance (instance)
+ widget_instance* instance;
{
destroyed_instance* cur;
destroyed_instance* prev;
}
static void
-mark_dead_instance_destroyed (Widget widget, XtPointer closure,
- XtPointer call_data)
+mark_dead_instance_destroyed (widget, closure, call_data)
+ Widget widget;
+ XtPointer closure;
+ XtPointer call_data;
{
destroyed_instance* instance = (destroyed_instance*)closure;
instance->widget = NULL;
}
static void
-recenter_widget (Widget widget)
+recenter_widget (widget)
+ Widget widget;
{
Widget parent = XtParent (widget);
Screen* screen = XtScreen (widget);
}
static Widget
-recycle_instance (destroyed_instance* instance)
+recycle_instance (instance)
+ destroyed_instance* instance;
{
Widget widget = instance->widget;
}
Widget
-xm_create_dialog (widget_instance* instance)
+xm_create_dialog (instance)
+ widget_instance* instance;
{
char* name = instance->info->type;
Widget parent = instance->parent;
}
static Widget
-make_menubar (widget_instance* instance)
+make_menubar (instance)
+ widget_instance* instance;
{
return XmCreateMenuBar (instance->parent, instance->info->name, NULL, 0);
}
static void
-remove_grabs (Widget shell, XtPointer closure, XtPointer call_data)
+remove_grabs (shell, closure, call_data)
+ Widget shell;
+ XtPointer closure;
+ XtPointer call_data;
{
- XmRowColumnWidget menu = (XmRowColumnWidget) closure;
- XmRemoveFromPostFromList (menu, XtParent (XtParent ((Widget) menu)));
+ Widget menu = (Widget) closure;
+ XmRemoveFromPostFromList (menu, XtParent (XtParent (menu)));
}
static Widget
-make_popup_menu (widget_instance* instance)
+make_popup_menu (instance)
+ widget_instance* instance;
{
Widget parent = instance->parent;
Window parent_window = parent->core.window;
parent->core.window = parent_window;
return result;
}
+static Widget
+make_main (instance)
+ widget_instance* instance;
+{
+ Widget parent = instance->parent;
+ Widget result;
+ Arg al[2];
+ int ac;
+
+ ac = 0;
+ XtSetArg (al[ac], XtNborderWidth, 0); ac++;
+ XtSetArg (al[ac], XmNspacing, 0); ac++;
+ result = XmCreateMainWindow (parent, instance->info->name, al, ac);
+ return result;
+}
\f/* Table of functions to create widgets */
{
{"menubar", make_menubar},
{"popup", make_popup_menu},
+ {"main", make_main},
#ifdef ENERGIZE
{"project_p_sheet", make_project_p_sheet},
{"debugger_p_sheet", make_debugger_p_sheet},
\f/* Destruction of instances */
void
-xm_destroy_instance (widget_instance* instance)
+xm_destroy_instance (instance)
+ widget_instance* instance;
{
Widget widget = instance->widget;
/* recycle the dialog boxes */
\f/* popup utility */
void
-xm_popup_menu (Widget widget)
+xm_popup_menu (widget, event)
+ Widget widget;
+ XEvent *event;
{
XButtonPressedEvent dummy;
- XEvent* event;
-
- dummy.type = ButtonPress;
- dummy.serial = 0;
- dummy.send_event = 0;
- dummy.display = XtDisplay (widget);
- dummy.window = XtWindow (XtParent (widget));
- dummy.time = 0;
- dummy.button = 0;
- XQueryPointer (dummy.display, dummy.window, &dummy.root,
- &dummy.subwindow, &dummy.x_root, &dummy.y_root,
- &dummy.x, &dummy.y, &dummy.state);
- event = (XEvent *) &dummy;
+
+ if (event == 0)
+ {
+ dummy.type = ButtonPress;
+ dummy.serial = 0;
+ dummy.send_event = 0;
+ dummy.display = XtDisplay (widget);
+ dummy.window = XtWindow (XtParent (widget));
+ dummy.time = 0;
+ dummy.button = 0;
+ XQueryPointer (dummy.display, dummy.window, &dummy.root,
+ &dummy.subwindow, &dummy.x_root, &dummy.y_root,
+ &dummy.x, &dummy.y, &dummy.state);
+ event = (XEvent *) &dummy;
+ }
if (event->type == ButtonPress || event->type == ButtonRelease)
{
}
static void
-set_min_dialog_size (Widget w)
+set_min_dialog_size (w)
+ Widget w;
{
short width;
short height;
}
void
-xm_pop_instance (widget_instance* instance, Boolean up)
+xm_pop_instance (instance, up)
+ widget_instance* instance;
+ Boolean up;
{
Widget widget = instance->widget;
enum do_call_type { pre_activate, selection, no_selection, post_activate };
static void
-do_call (Widget widget, XtPointer closure, enum do_call_type type)
+do_call (widget, closure, type)
+ Widget widget;
+ XtPointer closure;
+ enum do_call_type type;
{
Arg al [256];
int ac;
if the widget was ``destroyed'' by caching it in the all_destroyed_instances
list */
static void
-xm_internal_update_other_instances (Widget widget, XtPointer closure,
- XtPointer call_data)
+xm_internal_update_other_instances (widget, closure, call_data)
+ Widget widget;
+ XtPointer closure;
+ XtPointer call_data;
{
Widget parent;
for (parent = widget; parent; parent = XtParent (parent))
}
static void
-xm_generic_callback (Widget widget, XtPointer closure, XtPointer call_data)
+xm_generic_callback (widget, closure, call_data)
+ Widget widget;
+ XtPointer closure;
+ XtPointer call_data;
{
lw_internal_update_other_instances (widget, closure, call_data);
do_call (widget, closure, selection);
}
static void
-xm_nosel_callback (Widget widget, XtPointer closure, XtPointer call_data)
+xm_nosel_callback (widget, closure, call_data)
+ Widget widget;
+ XtPointer closure;
+ XtPointer call_data;
{
/* This callback is only called when a dialog box is dismissed with the wm's
destroy button (WM_DELETE_WINDOW.) We want the dialog box to be destroyed
}
static void
-xm_pull_down_callback (Widget widget, XtPointer closure, XtPointer call_data)
+xm_pull_down_callback (widget, closure, call_data)
+ Widget widget;
+ XtPointer closure;
+ XtPointer call_data;
{
do_call (widget, closure, pre_activate);
}
static void
-xm_pop_down_callback (Widget widget, XtPointer closure, XtPointer call_data)
+xm_pop_down_callback (widget, closure, call_data)
+ Widget widget;
+ XtPointer closure;
+ XtPointer call_data;
{
- do_call (widget, closure, post_activate);
+ widget_instance *instance = (widget_instance *) closure;
+
+ if ((!instance->pop_up_p && (XtParent (widget) == instance->widget))
+ || (XtParent (widget) == instance->parent))
+ do_call (widget, closure, post_activate);
}
\f
/* set the keyboard focus */
void
-xm_set_keyboard_focus (Widget parent, Widget w)
+xm_set_keyboard_focus (parent, w)
+ Widget parent;
+ Widget w;
{
XmProcessTraversal (w, 0);
XtSetKeyboardFocus (parent, w);
}
+
+/* Motif hack to set the main window areas. */
+void
+xm_set_main_areas (parent, menubar, work_area)
+ Widget parent;
+ Widget menubar;
+ Widget work_area;
+{
+ XmMainWindowSetAreas (parent,
+ menubar, /* menubar (maybe 0) */
+ 0, /* command area (psheets) */
+ 0, /* horizontal scroll */
+ 0, /* vertical scroll */
+ work_area); /* work area */
+}
+
+/* Motif hack to control resizing on the menubar. */
+void
+xm_manage_resizing (w, flag)
+ Widget w;
+ Boolean flag;
+{
+ if (flag)
+ {
+ /* Enable the edit widget for resizing. */
+ Arg al[1];
+
+ XtSetArg (al[0], XtNallowShellResize, 0);
+ XtSetValues (w, al, 1);
+ }
+ else
+ {
+ /* Disable the edit widget from resizing. */
+ Arg al[1];
+
+ XtSetArg (al[0], XtNallowShellResize, 0);
+ XtSetValues (w, al, 1);
+ }
+}