/* The lwlib interface to Motif widgets.
+ Copyright (C) 1994, 1995, 1996, 1997, 1999, 2000, 2001, 2002, 2003,
+ 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
Copyright (C) 1992 Lucid, Inc.
This file is part of the Lucid Widget Library.
You should have received a copy of the GNU General Public License
along with GNU Emacs; see the file COPYING. If not, write to
-the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-Boston, MA 02111-1307, USA. */
+the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+Boston, MA 02110-1301, USA. */
#ifdef HAVE_CONFIG_H
#include <config.h>
else
{
built_string =
- XmStringCreateLtoR (val->value, XmSTRING_DEFAULT_CHARSET);
+ XmStringCreateLocalized (val->value);
XtSetArg (al [ac], XmNlabelString, built_string); ac++;
}
if (val->key)
{
- key_string = XmStringCreateLtoR (val->key, XmSTRING_DEFAULT_CHARSET);
+ key_string = XmStringCreateLocalized (val->key);
XtSetArg (al [ac], XmNacceleratorText, key_string); ac++;
}
for (cur = val->contents, i = 0; cur; cur = cur->next)
if (cur->value)
{
- XmString xmstr = XmStringCreate (cur->value, XmSTRING_DEFAULT_CHARSET);
+ XmString xmstr = XmStringCreateLocalized (cur->value);
i += 1;
XmListAddItem (widget, xmstr, 0);
if (cur->selected)
Widget* old_children;
unsigned int old_num_children;
+ /* Disable drag and drop for labels in menu bar. */
+ static char overrideTrans[] = "<Btn2Down>: Noop()";
+ XtTranslations override = XtParseTranslationTable (overrideTrans);
+
old_children = XtCompositeChildren (widget, &old_num_children);
/* Allocate the children array */
XtAddCallback (button, XmNcascadingCallback, xm_pull_down_callback,
(XtPointer)instance);
+ XtOverrideTranslations (button, override);
+
}
children[child_index] = button;
}
else if (class == xmTextWidgetClass)
{
- if (val->value)
- free (val->value);
+ free (val->value);
val->value = XmTextGetString (widget);
val->edited = True;
}
else if (class == xmTextFieldWidgetClass)
{
- if (val->value)
- free (val->value);
+ free (val->value);
val->value = XmTextFieldGetString (widget);
val->edited = True;
}
XtVaGetValues (toggle, XmNset, &set, NULL);
if (set)
{
- if (val->value)
- free (val->value);
+ free (val->value);
val->value = safe_strdup (XtName (toggle));
}
}