projects
/
chise
/
xemacs-chise.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(U+8C6A): Apply new conventions for glyph granularity.
[chise/xemacs-chise.git-]
/
lwlib
/
lwlib-Xm.c
diff --git
a/lwlib/lwlib-Xm.c
b/lwlib/lwlib-Xm.c
index
097700e
..
254691d
100644
(file)
--- a/
lwlib/lwlib-Xm.c
+++ b/
lwlib/lwlib-Xm.c
@@
-301,6
+301,14
@@
xm_update_label (widget_instance* instance, Widget widget, widget_value* val)
XmStringFree (val_string);
}
XmStringFree (val_string);
}
+static void
+xm_safe_update_label (widget_instance* instance, Widget widget, widget_value* val)
+{
+ /* Don't clobber non-labels. */
+ if (XtIsSubclass (widget, xmLabelWidgetClass))
+ xm_update_label (instance, widget, val);
+}
+
#endif /* defined (LWLIB_DIALOGS_MOTIF) || defined (LWLIB_MENUBARS_MOTIF) */
\f
/* update of list */
#endif /* defined (LWLIB_DIALOGS_MOTIF) || defined (LWLIB_MENUBARS_MOTIF) */
\f
/* update of list */
@@
-336,6
+344,7
@@
xm_update_pushbutton (widget_instance* instance, Widget widget,
XtAddCallback (widget, XmNactivateCallback, xm_generic_callback, instance);
}
XtAddCallback (widget, XmNactivateCallback, xm_generic_callback, instance);
}
+#ifdef LWLIB_WIDGETS_MOTIF
static void
xm_update_progress (widget_instance* instance, Widget scale,
widget_value* val)
static void
xm_update_progress (widget_instance* instance, Widget scale,
widget_value* val)
@@
-365,6
+374,7
@@
xm_update_progress (widget_instance* instance, Widget scale,
XtSetValues (scale, al, 1);
}
XtSetValues (scale, al, 1);
}
+#endif /* LWLIB_WIDGETS_MOTIF */
#ifdef LWLIB_MENUBARS_MOTIF
#ifdef LWLIB_MENUBARS_MOTIF
@@
-540,7
+550,7
@@
make_menu_in_widget (widget_instance* instance, Widget widget,
XtSetArg (al [ac], XmNsubMenuId, menu); ac++;
button = XmCreateCascadeButton (widget, cur->name, al, ac);
XtSetArg (al [ac], XmNsubMenuId, menu); ac++;
button = XmCreateCascadeButton (widget, cur->name, al, ac);
- xm_update_label (instance, button, cur);
+ xm_safe_update_label (instance, button, cur);
XtAddCallback (button, XmNcascadingCallback, xm_pull_down_callback,
(XtPointer)instance);
XtAddCallback (button, XmNcascadingCallback, xm_pull_down_callback,
(XtPointer)instance);
@@
-561,7
+571,7
@@
make_menu_in_widget (widget_instance* instance, Widget widget,
else
button = XmCreatePushButtonGadget (widget, cur->name, al, ac);
else
button = XmCreatePushButtonGadget (widget, cur->name, al, ac);
- xm_update_label (instance, button, cur);
+ xm_safe_update_label (instance, button, cur);
/* don't add a callback to a simple label */
if (cur->type == TOGGLE_TYPE || cur->type == RADIO_TYPE)
/* don't add a callback to a simple label */
if (cur->type == TOGGLE_TYPE || cur->type == RADIO_TYPE)
@@
-615,7
+625,8
@@
update_one_menu_entry (widget_instance* instance, Widget widget,
/* update the menu button as a label. */
if (val->change >= VISIBLE_CHANGE)
{
/* update the menu button as a label. */
if (val->change >= VISIBLE_CHANGE)
{
- xm_update_label (instance, widget, val);
+ xm_safe_update_label (instance, widget, val);
+
if (XtClass (widget) == xmToggleButtonWidgetClass
|| XtClass (widget) == xmToggleButtonGadgetClass)
{
if (XtClass (widget) == xmToggleButtonWidgetClass
|| XtClass (widget) == xmToggleButtonGadgetClass)
{
@@
-829,8
+840,7
@@
xm_update_one_widget (widget_instance* instance, Widget widget,
#if defined (LWLIB_DIALOGS_MOTIF) || defined (LWLIB_MENUBARS_MOTIF) || defined (LWLIB_WIDGETS_MOTIF)
/* Common to all label like widgets */
#if defined (LWLIB_DIALOGS_MOTIF) || defined (LWLIB_MENUBARS_MOTIF) || defined (LWLIB_WIDGETS_MOTIF)
/* Common to all label like widgets */
- if (XtIsSubclass (widget, xmLabelWidgetClass))
- xm_update_label (instance, widget, val);
+ xm_safe_update_label (instance, widget, val);
#endif
class = XtClass (widget);
/* Class specific things */
#endif
class = XtClass (widget);
/* Class specific things */
@@
-888,10
+898,12
@@
xm_update_one_widget (widget_instance* instance, Widget widget,
xm_update_scrollbar (instance, widget, val);
}
#endif
xm_update_scrollbar (instance, widget, val);
}
#endif
+#ifdef LWLIB_WIDGETS_MOTIF
else if (class == xmScaleWidgetClass)
{
xm_update_progress (instance, widget, val);
}
else if (class == xmScaleWidgetClass)
{
xm_update_progress (instance, widget, val);
}
+#endif
/* Lastly update our global arg values. */
if (val->args && val->args->nargs)
XtSetValues (widget, val->args->args, val->args->nargs);
/* Lastly update our global arg values. */
if (val->args && val->args->nargs)
XtSetValues (widget, val->args->args, val->args->nargs);
@@
-1298,6
+1310,7
@@
make_dialog (char* name, Widget parent, Boolean pop_up_p,
list activate the default button */
XtAddCallback (value, XmNdefaultActionCallback, activate_button, button);
}
list activate the default button */
XtAddCallback (value, XmNdefaultActionCallback, activate_button, button);
}
+ /* else add nothing; it's a separator */
ac = 0;
XtSetArg(al[ac], XmNalignment, XmALIGNMENT_BEGINNING); ac++;
ac = 0;
XtSetArg(al[ac], XmNalignment, XmALIGNMENT_BEGINNING); ac++;
@@
-1335,11
+1348,12
@@
make_dialog (char* name, Widget parent, Boolean pop_up_p,
XtInstallAccelerators (value, button);
XmProcessTraversal(value, XmTRAVERSE_CURRENT);
}
XtInstallAccelerators (value, button);
XmProcessTraversal(value, XmTRAVERSE_CURRENT);
}
- else
+ else if (radio_box)
{
XtInstallAccelerators (form, button);
XmProcessTraversal(value, XmTRAVERSE_CURRENT);
}
{
XtInstallAccelerators (form, button);
XmProcessTraversal(value, XmTRAVERSE_CURRENT);
}
+ /* else we don' need no STEENKIN' assellerators. */
#ifdef DND_KLUDGE
XtFree ((char *) dnd_override);
#ifdef DND_KLUDGE
XtFree ((char *) dnd_override);