#undef __STRICT_BSD__ /* ick */
#endif
-#include <stdlib.h>
-#include <unistd.h>
#include <sys/types.h>
-#include <string.h>
#include <stdio.h>
-#include <X11/StringDefs.h>
-#include "lwlib-internal.h"
+#include <ctype.h>
+#include "lwlib-int.h"
#include "lwlib-utils.h"
+#include <X11/StringDefs.h>
-#if defined(__GNUC__) && !defined(alloca)
-#define alloca __builtin_alloca
-#endif
-
-#if ((!__GNUC__) && !defined(__hpux)) && !defined(AIXV3)
-#include <alloca.h>
-#endif
-
-#if defined(AIXV3)
-#pragma alloca
+#ifdef __osf__
+#include <string.h>
+#include <stdlib.h>
+extern long *xmalloc();
#endif
#if defined (USE_LUCID)
#endif
#if defined (USE_MOTIF)
#include "lwlib-Xm.h"
+#else /* not USE_MOTIF */
+#if defined (USE_LUCID)
+#define USE_XAW
+#endif /* not USE_MOTIF && USE_LUCID */
#endif
#if defined (USE_OLIT)
#include "lwlib-Xol.h"
#endif
+#if defined (USE_XAW)
+#include "lwlib-Xaw.h"
+#endif
#if !defined (USE_LUCID) && !defined (USE_MOTIF) && !defined (USE_OLIT)
ERROR! At least one of USE_LUCID, USE_MOTIF or USE_OLIT must be defined.
ERROR! no more than one of USE_MOTIF and USE_OLIT may be defined.
#endif
+#ifndef max
+#define max(x, y) ((x) > (y) ? (x) : (y))
+#endif
+
/* List of all widgets managed by the library. */
static widget_info*
all_widget_info = NULL;
+#ifdef USE_MOTIF
+char *lwlib_toolkit_type = "motif";
+#else
+char *lwlib_toolkit_type = "lucid";
+#endif
\f/* Forward declarations */
static void
-instanciate_widget_instance (widget_instance* instance);
+instanciate_widget_instance (/* widget_instance* instance */);
+
+lwlib_memset (address, value, length)
+ char *address;
+ int value;
+ int length;
+{
+ int i;
+
+ for (i = 0; i < length; i++)
+ address[i] = value;
+}
+
+lwlib_bcopy (from, to, length)
+ char *from;
+ char *to;
+ int length;
+{
+ int i;
+ for (i = 0; i < length; i++)
+ to[i] = from[i];
+}
\f/* utility functions for widget_instance and widget_info */
-static char *
-safe_strdup (char* s)
+char *
+safe_strdup (s)
+ char *s;
{
char *result;
if (! s) return 0;
return result;
}
+/* Like strcmp but ignore differences in case. */
+
+static int
+my_strcasecmp (s1, s2)
+ char *s1, *s2;
+{
+ while (1)
+ {
+ int c1 = *s1++;
+ int c2 = *s2++;
+ if (isupper (c1))
+ c1 = tolower (c1);
+ if (isupper (c2))
+ c2 = tolower (c2);
+ if (c1 != c2)
+ return (c1 > c2 ? 1 : -1);
+ if (c1 == 0)
+ return 0;
+ }
+}
+
static void
-safe_free_str (char* s)
+safe_free_str (s)
+ char *s;
{
if (s) free (s);
}
static widget_value *widget_value_free_list = 0;
+static int malloc_cpt = 0;
widget_value *
malloc_widget_value ()
else
{
wv = (widget_value *) malloc (sizeof (widget_value));
+ malloc_cpt++;
}
- memset (wv, 0, sizeof (widget_value));
+ lwlib_memset (wv, 0, sizeof (widget_value));
return wv;
}
{
if (wv->free_list)
abort ();
- wv->free_list = widget_value_free_list;
- widget_value_free_list = wv;
+
+ if (malloc_cpt > 25)
+ {
+ /* When the number of already allocated cells is too big,
+ We free it. */
+ free (wv);
+ malloc_cpt--;
+ }
+ else
+ {
+ wv->free_list = widget_value_free_list;
+ widget_value_free_list = wv;
+ }
}
static void
-free_widget_value_tree (widget_value* wv)
+free_widget_value_tree (wv)
+ widget_value *wv;
{
if (!wv)
return;
}
static widget_value *
-copy_widget_value_tree (widget_value* val, change_type change)
+copy_widget_value_tree (val, change)
+ widget_value* val;
+ change_type change;
{
widget_value* copy;
}
static widget_info *
-allocate_widget_info (char* type, char* name, LWLIB_ID id, widget_value* val,
- lw_callback pre_activate_cb, lw_callback selection_cb,
- lw_callback post_activate_cb)
+allocate_widget_info (type, name, id, val, pre_activate_cb, selection_cb, post_activate_cb)
+ char* type;
+ char* name;
+ LWLIB_ID id;
+ widget_value* val;
+ lw_callback pre_activate_cb;
+ lw_callback selection_cb;
+ lw_callback post_activate_cb;
{
widget_info* info = (widget_info*)malloc (sizeof (widget_info));
info->type = safe_strdup (type);
}
static void
-free_widget_info (widget_info* info)
+free_widget_info (info)
+ widget_info* info;
{
safe_free_str (info->type);
safe_free_str (info->name);
free_widget_value_tree (info->val);
- memset ((void*)info, 0xDEADBEEF, sizeof (widget_info));
+ lwlib_memset ((void*)info, 0xDEADBEEF, sizeof (widget_info));
free (info);
}
static void
-mark_widget_destroyed (Widget widget, XtPointer closure, XtPointer call_data)
+mark_widget_destroyed (widget, closure, call_data)
+ Widget widget;
+ XtPointer closure;
+ XtPointer call_data;
{
widget_instance* instance = (widget_instance*)closure;
}
static widget_instance *
-allocate_widget_instance (widget_info* info, Widget parent, Boolean pop_up_p)
+allocate_widget_instance (info, parent, pop_up_p)
+ widget_info* info;
+ Widget parent;
+ Boolean pop_up_p;
{
widget_instance* instance =
(widget_instance*)malloc (sizeof (widget_instance));
}
static void
-free_widget_instance (widget_instance* instance)
+free_widget_instance (instance)
+ widget_instance* instance;
{
- memset ((void*)instance, 0xDEADBEEF, sizeof (widget_instance));
+ lwlib_memset ((void*)instance, 0xDEADBEEF, sizeof (widget_instance));
free (instance);
}
static widget_info *
-get_widget_info (LWLIB_ID id, Boolean remove_p)
+get_widget_info (id, remove_p)
+ LWLIB_ID id;
+ Boolean remove_p;
{
widget_info* info;
widget_info* prev;
return NULL;
}
+/* Internal function used by the library dependent implementation to get the
+ widget_value for a given widget in an instance */
+widget_info *
+lw_get_widget_info (id)
+ LWLIB_ID id;
+{
+ return get_widget_info (id, 0);
+}
+
static widget_instance *
-get_widget_instance (Widget widget, Boolean remove_p)
+get_widget_instance (widget, remove_p)
+ Widget widget;
+ Boolean remove_p;
{
widget_info* info;
widget_instance* instance;
}
static widget_instance*
-find_instance (LWLIB_ID id, Widget parent, Boolean pop_up_p)
+find_instance (id, parent, pop_up_p)
+ LWLIB_ID id;
+ Widget parent;
+ Boolean pop_up_p;
{
widget_info* info = get_widget_info (id, False);
widget_instance* instance;
\f
/* utility function for widget_value */
static Boolean
-safe_strcmp (char* s1, char* s2)
+safe_strcmp (s1, s2)
+ char* s1;
+ char* s2;
{
if (!!s1 ^ !!s2) return True;
return (s1 && s2) ? strcmp (s1, s2) : s1 ? False : !!s2;
}
-static int
-max (int i1, int i2)
-{
- return i1 > i2 ? i1 : i2;
-}
-
#if 0
# define EXPLAIN(name, oc, nc, desc, a1, a2) \
static widget_value *
-merge_widget_value (widget_value* val1, widget_value* val2, int level)
+merge_widget_value (val1, val2, level)
+ widget_value* val1;
+ widget_value* val2;
+ int level;
{
change_type change;
widget_value* merged_next;
\f
/* modifying the widgets */
static Widget
-name_to_widget (widget_instance* instance, char* name)
+name_to_widget (instance, name)
+ widget_instance* instance;
+ char* name;
{
Widget widget = NULL;
else
{
int length = strlen (name) + 2;
- char* real_name = (char *) alloca (length);
+ char* real_name = (char *) xmalloc (length);
real_name [0] = '*';
strcpy (real_name + 1, name);
widget = XtNameToWidget (instance->widget, real_name);
+
+ free (real_name);
}
return widget;
}
static void
-set_one_value (widget_instance* instance, widget_value* val, Boolean deep_p)
+set_one_value (instance, val, deep_p)
+ widget_instance* instance;
+ widget_value* val;
+ Boolean deep_p;
{
Widget widget = name_to_widget (instance, val->name);
#if defined (USE_OLIT)
if (lw_olit_widget_p (instance->widget))
xol_update_one_widget (instance, widget, val, deep_p);
+#endif
+#if defined (USE_XAW)
+ if (lw_xaw_widget_p (instance->widget))
+ xaw_update_one_widget (instance, widget, val, deep_p);
#endif
}
}
static void
-update_one_widget_instance (widget_instance* instance, Boolean deep_p)
+update_one_widget_instance (instance, deep_p)
+ widget_instance* instance;
+ Boolean deep_p;
{
widget_value *val;
}
static void
-update_all_widget_values (widget_info* info, Boolean deep_p)
+update_all_widget_values (info, deep_p)
+ widget_info* info;
+ Boolean deep_p;
{
widget_instance* instance;
widget_value* val;
}
void
-lw_modify_all_widgets (LWLIB_ID id, widget_value* val, Boolean deep_p)
+lw_modify_all_widgets (id, val, deep_p)
+ LWLIB_ID id;
+ widget_value* val;
+ Boolean deep_p;
{
widget_info* info = get_widget_info (id, False);
widget_value* new_val;
/* creating the widgets */
static void
-initialize_widget_instance (widget_instance* instance)
+initialize_widget_instance (instance)
+ widget_instance* instance;
{
widget_value* val;
static widget_creation_function
-find_in_table (char* type, widget_creation_entry* table)
+find_in_table (type, table)
+ char* type;
+ widget_creation_entry* table;
{
widget_creation_entry* cur;
for (cur = table; cur->type; cur++)
- if (!strcasecmp (type, cur->type))
+ if (!my_strcasecmp (type, cur->type))
return cur->function;
return NULL;
}
static Boolean
-dialog_spec_p (char* name)
+dialog_spec_p (name)
+ char* name;
{
/* return True if name matches [EILPQeilpq][1-9][Bb] or
[EILPQeilpq][1-9][Bb][Rr][1-9] */
}
static void
-instanciate_widget_instance (widget_instance* instance)
+instanciate_widget_instance (instance)
+ widget_instance* instance;
{
widget_creation_function function = NULL;
if (!function)
function = find_in_table (instance->info->type, xol_creation_table);
#endif
+#if defined (USE_XAW)
+ if (!function)
+ function = find_in_table (instance->info->type, xaw_creation_table);
+#endif
if (!function)
{
if (!function)
function = xm_create_dialog;
#endif
+#if defined (USE_XAW)
+ if (!function)
+ function = xaw_create_dialog;
+#endif
#if defined (USE_OLIT)
/* not yet */
#endif
}
void
-lw_register_widget (char* type, char* name, LWLIB_ID id, widget_value* val,
- lw_callback pre_activate_cb, lw_callback selection_cb,
- lw_callback post_activate_cb)
+lw_register_widget (type, name, id, val, pre_activate_cb, selection_cb, post_activate_cb)
+ char* type;
+ char* name;
+ LWLIB_ID id;
+ widget_value* val;
+ lw_callback pre_activate_cb;
+ lw_callback selection_cb;
+ lw_callback post_activate_cb;
{
if (!get_widget_info (id, False))
allocate_widget_info (type, name, id, val, pre_activate_cb, selection_cb,
}
Widget
-lw_get_widget (LWLIB_ID id, Widget parent, Boolean pop_up_p)
+lw_get_widget (id, parent, pop_up_p)
+ LWLIB_ID id;
+ Widget parent;
+ Boolean pop_up_p;
{
widget_instance* instance;
}
Widget
-lw_make_widget (LWLIB_ID id, Widget parent, Boolean pop_up_p)
+lw_make_widget (id, parent, pop_up_p)
+ LWLIB_ID id;
+ Widget parent;
+ Boolean pop_up_p;
{
widget_instance* instance;
widget_info* info;
}
Widget
-lw_create_widget (char* type, char* name, LWLIB_ID id, widget_value* val,
- Widget parent, Boolean pop_up_p, lw_callback pre_activate_cb,
- lw_callback selection_cb, lw_callback post_activate_cb)
+lw_create_widget (type, name, id, val, parent, pop_up_p, pre_activate_cb, selection_cb, post_activate_cb)
+ char* type;
+ char* name;
+ LWLIB_ID id;
+ widget_value* val;
+ Widget parent;
+ Boolean pop_up_p;
+ lw_callback pre_activate_cb;
+ lw_callback selection_cb;
+ lw_callback post_activate_cb;
{
lw_register_widget (type, name, id, val, pre_activate_cb, selection_cb,
post_activate_cb);
\f
/* destroying the widgets */
static void
-destroy_one_instance (widget_instance* instance)
+destroy_one_instance (instance)
+ widget_instance* instance;
{
/* Remove the destroy callback on the widget; that callback will try to
dereference the instance object (to set its widget slot to 0, since the
if (lw_olit_widget_p (instance->widget))
xol_destroy_instance (instance);
else
+#endif
+#if defined (USE_XAW)
+ if (lw_xaw_widget_p (instance->widget))
+ xaw_destroy_instance (instance);
+ else
#endif
/* do not remove the empty statement */
;
}
void
-lw_destroy_widget (Widget w)
+lw_destroy_widget (w)
+ Widget w;
{
widget_instance* instance = get_widget_instance (w, True);
}
void
-lw_destroy_all_widgets (LWLIB_ID id)
+lw_destroy_all_widgets (id)
+ LWLIB_ID id;
{
widget_info* info = get_widget_info (id, True);
widget_instance* instance;
}
#ifdef USE_MOTIF
-extern Widget first_child (Widget); /* garbage */
+extern Widget first_child (/* Widget */); /* garbage */
#endif
Widget
}
static void
-lw_pop_all_widgets (LWLIB_ID id, Boolean up)
+lw_pop_all_widgets (id, up)
+ LWLIB_ID id;
+ Boolean up;
{
widget_info* info = get_widget_info (id, False);
widget_instance* instance;
for (instance = info->instances; instance; instance = instance->next)
if (instance->pop_up_p && instance->widget)
{
- if (!XtIsRealized (instance->widget))
- XtRealizeWidget (instance->widget);
#if defined (USE_LUCID)
if (lw_lucid_widget_p (instance->widget))
- xlw_pop_instance (instance, up);
+ {
+ XtRealizeWidget (instance->widget);
+ xlw_pop_instance (instance, up);
+ }
#endif
#if defined (USE_MOTIF)
if (lw_motif_widget_p (instance->widget))
- xm_pop_instance (instance, up);
+ {
+ XtRealizeWidget (instance->widget);
+ xm_pop_instance (instance, up);
+ }
#endif
#if defined (USE_OLIT)
if (lw_olit_widget_p (instance->widget))
- xol_pop_instance (instance, up);
+ {
+ XtRealizeWidget (instance->widget);
+ xol_pop_instance (instance, up);
+ }
+#endif
+#if defined (USE_XAW)
+ if (lw_xaw_widget_p (instance->widget))
+ {
+ XtRealizeWidget (XtParent (instance->widget));
+ XtRealizeWidget (instance->widget);
+ xaw_pop_instance (instance, up);
+ }
#endif
}
}
void
-lw_pop_up_all_widgets (LWLIB_ID id)
+lw_pop_up_all_widgets (id)
+ LWLIB_ID id;
{
lw_pop_all_widgets (id, True);
}
void
-lw_pop_down_all_widgets (LWLIB_ID id)
+lw_pop_down_all_widgets (id)
+ LWLIB_ID id;
{
lw_pop_all_widgets (id, False);
}
void
-lw_popup_menu (Widget widget)
+lw_popup_menu (widget, event)
+ Widget widget;
+ XEvent *event;
{
#if defined (USE_LUCID)
if (lw_lucid_widget_p (widget))
- xlw_popup_menu (widget);
+ xlw_popup_menu (widget, event);
#endif
#if defined (USE_MOTIF)
if (lw_motif_widget_p (widget))
- xm_popup_menu (widget);
+ xm_popup_menu (widget, event);
#endif
#if defined (USE_OLIT)
if (lw_olit_widget_p (widget))
- xol_popup_menu (widget);
+ xol_popup_menu (widget, event);
+#endif
+#if defined (USE_XAW)
+ if (lw_xaw_widget_p (widget))
+ xaw_popup_menu (widget, event);
#endif
}
\f/* get the values back */
static Boolean
-get_one_value (widget_instance* instance, widget_value* val)
+get_one_value (instance, val)
+ widget_instance* instance;
+ widget_value* val;
{
Widget widget = name_to_widget (instance, val->name);
#if defined (USE_OLIT)
if (lw_olit_widget_p (instance->widget))
xol_update_one_value (instance, widget, val);
+#endif
+#if defined (USE_XAW)
+ if (lw_xaw_widget_p (instance->widget))
+ xaw_update_one_value (instance, widget, val);
#endif
return True;
}
}
Boolean
-lw_get_some_values (LWLIB_ID id, widget_value* val_out)
+lw_get_some_values (id, val_out)
+ LWLIB_ID id;
+ widget_value* val_out;
{
widget_info* info = get_widget_info (id, False);
widget_instance* instance;
}
widget_value*
-lw_get_all_values (LWLIB_ID id)
+lw_get_all_values (id)
+ LWLIB_ID id;
{
widget_info* info = get_widget_info (id, False);
widget_value* val = info->val;
/* internal function used by the library dependent implementation to get the
widget_value for a given widget in an instance */
widget_value*
-lw_get_widget_value_for_widget (widget_instance* instance, Widget w)
+lw_get_widget_value_for_widget (instance, w)
+ widget_instance* instance;
+ Widget w;
{
char* name = XtName (w);
widget_value* cur;
modified to update other instances of the widgets. Closure should be the
widget_instance. */
void
-lw_internal_update_other_instances (Widget widget, XtPointer closure,
- XtPointer call_data)
+lw_internal_update_other_instances (widget, closure, call_data)
+ Widget widget;
+ XtPointer closure;
+ XtPointer call_data;
{
/* To forbid recursive calls */
static Boolean updating;
\f/* get the id */
LWLIB_ID
-lw_get_widget_id (Widget w)
+lw_get_widget_id (w)
+ Widget w;
{
widget_instance* instance = get_widget_instance (w, False);
\f/* set the keyboard focus */
void
-lw_set_keyboard_focus (Widget parent, Widget w)
+lw_set_keyboard_focus (parent, w)
+ Widget parent;
+ Widget w;
{
#if defined (USE_MOTIF)
xm_set_keyboard_focus (parent, w);
\f/* Show busy */
static void
-show_one_widget_busy (Widget w, Boolean flag)
+show_one_widget_busy (w, flag)
+ Widget w;
+ Boolean flag;
{
Pixel foreground = 0;
Pixel background = 1;
}
void
-lw_show_busy (Widget w, Boolean busy)
+lw_show_busy (w, busy)
+ Widget w;
+ Boolean busy;
{
widget_instance* instance = get_widget_instance (w, False);
widget_info* info;
}
}
}
+
+/* This hack exists because Lucid/Athena need to execute the strange
+ function below to support geometry management. */
+void
+lw_refigure_widget (w, doit)
+ Widget w;
+ Boolean doit;
+{
+#if defined (USE_XAW)
+ XawPanedSetRefigureMode (w, doit);
+#endif
+#if defined (USE_MOTIF)
+ if (doit)
+ XtManageChild (w);
+ else
+ XtUnmanageChild (w);
+#endif
+}
+
+/* Toolkit independent way of determining if an event window is in the
+ menubar. */
+Boolean
+lw_window_is_in_menubar (win, menubar_widget)
+ Window win;
+ Widget menubar_widget;
+{
+ return menubar_widget
+#if defined (USE_LUCID)
+ && XtWindow (menubar_widget) == win;
+#endif
+#if defined (USE_MOTIF)
+ && XtWindowToWidget (XtDisplay (menubar_widget), win)
+ && (XtParent (XtWindowToWidget (XtDisplay (menubar_widget), win))
+ == menubar_widget);
+#endif
+}
+
+/* Motif hack to set the main window areas. */
+void
+lw_set_main_areas (parent, menubar, work_area)
+ Widget parent;
+ Widget menubar;
+ Widget work_area;
+{
+#if defined (USE_MOTIF)
+ xm_set_main_areas (parent, menubar, work_area);
+#endif
+}
+
+/* Manage resizing for Motif. This disables resizing when the menubar
+ is about to be modified. */
+void
+lw_allow_resizing (w, flag)
+ Widget w;
+ Boolean flag;
+{
+#if defined (USE_MOTIF)
+ xm_manage_resizing (w, flag);
+#endif
+}