xemacs-beta: lwlib/lwlib-Xlw.c comparison

comparison lwlib/lwlib-Xlw.c @ 424:11054d720c21 r21-2-20

Import from CVS: tag r21-2-20

author	cvs
date	Mon, 13 Aug 2007 11:26:11 +0200
parents	697ef44129c6
children

comparison

equal deleted inserted replaced

-:28d9c139be4c
+:11054d720c21
 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 Boston, MA 02111-1307, USA.  */
 #include <config.h>
 #include <stdlib.h> /* for abort () */
+#include <stdio.h> /* for abort () */
 #include <limits.h>
 #include "lwlib-Xlw.h"
+#include "lwlib-utils.h"
 #include <X11/StringDefs.h>
 #include <X11/IntrinsicP.h>
 #include <X11/ObjectP.h>
 #include <X11/CompositeP.h>
 #include <X11/Shell.h>
+#ifdef HAVE_WIDGETS
+#include "../src/EmacsManager.h"
+#endif
 #ifdef LWLIB_MENUBARS_LUCID
 #include "xlwmenu.h"
 #endif
 #ifdef LWLIB_SCROLLBARS_LUCID
 #include "xlwscrollbar.h"
+#endif
+#ifdef LWLIB_TABS_LUCID
+#ifdef NEED_MOTIF
+#include "lwlib-Xm.h"
+#endif
+#ifdef NEED_ATHENA
+#include "lwlib-Xaw.h"
+#endif
+#include "../src/xmu.h"
+#include "xlwtabs.h"
 #endif
 #ifdef LWLIB_MENUBARS_LUCID
 }
 }
 #endif /* LWLIB_SCROLLBARS_LUCID */
+#ifdef LWLIB_TABS_LUCID
+/* tab control
+lwlib is such an incredible hairy crock. I just cannot believe
+it! There are random dependencies between functions, there is a
+total lack of genericity, even though it initially appears to be
+generic. It should all be junked and begun again. Building tabs are
+an example - in theory we should be able to reuse a lot of the
+general stuff because we want to put labels of whatever toolkit we
+are using in the tab. Instead we have to hack it by hand. */
+static void
+xlw_tab_control_callback (Widget w, XtPointer client_data, XtPointer call_data)
+{
+/* call data is the topmost widget */
+widget_instance* instance = (widget_instance*)client_data;
+Widget top = (Widget)call_data;
+char *name = XtName (top);
+widget_value* widget_val;
+XtPointer widget_arg;
+LWLIB_ID id;
+lw_callback post_activate_cb;
+if (w->core.being_destroyed)
+return;
+/* Grab these values before running any functions, in case running
+the selection_cb causes the widget to be destroyed. */
+id = instance->info->id;
+post_activate_cb = instance->info->post_activate_cb;
+/* search for the widget_val for the selected tab */
+for (widget_val = instance->info->val->contents; widget_val;
+widget_val = widget_val->next)
+{
+if (!strcmp (widget_val->name, name))
+	break;
+}
+widget_arg = widget_val ? widget_val->call_data : NULL;
+if (instance->info->selection_cb &&
+widget_val &&
+widget_val->enabled &&
+!widget_val->contents)
+instance->info->selection_cb (w, id, widget_arg);
+if (post_activate_cb)
+post_activate_cb (w, id, widget_arg);
+}
+static Widget
+xlw_create_tab_control (widget_instance *instance)
+{
+Arg al[20];
+int ac = 0;
+Widget tab = 0;
+widget_value* val = instance->info->val;
+XtSetArg (al [ac], XtNsensitive, val->enabled);		ac++;
+XtSetArg (al [ac], XtNmappedWhenManaged, FALSE);	ac++;
+XtSetArg (al [ac], XtNorientation, XtorientHorizontal);	ac++;
+XtSetArg (al [ac], XtNresizable, False);			ac++;
+/* add any args the user supplied for creation time */
+lw_add_value_args_to_args (val, al, &ac);
+tab = XtCreateManagedWidget (val->name, tabsWidgetClass,
+			       instance->parent, al, ac);
+XtRemoveAllCallbacks (tab, XtNcallback);
+XtAddCallback (tab, XtNcallback, xlw_tab_control_callback, (XtPointer)instance);
+XtManageChild (tab);
+return tab;
+}
+static void build_tabs_in_widget (widget_instance* instance, Widget widget,
+				  widget_value* val)
+{
+widget_value* cur = val;
+for (cur = val; cur; cur = cur->next)
+{
+if (cur->value)
+	{
+#ifdef LWLIB_WIDGETS_MOTIF
+	  xm_create_label (widget, cur);
+#else
+	  xaw_create_label (widget, cur);
+#endif
+	}
+cur->change = NO_CHANGE;
+}
+}
+static void
+xlw_update_tab_control (widget_instance* instance, Widget widget, widget_value* val)
+{
+Widget* children;
+unsigned int num_children;
+int i;
+widget_value *cur = 0;
+XtRemoveAllCallbacks (widget, XtNcallback);
+XtAddCallback (widget, XtNcallback, xlw_tab_control_callback, (XtPointer)instance);
+if (val->change == STRUCTURAL_CHANGE
+||
+(val->contents && val->contents->change == STRUCTURAL_CHANGE))
+{
+destroy_all_children (widget);
+build_tabs_in_widget (instance, widget, val->contents);
+}
+children = XtCompositeChildren (widget, &num_children);
+if (children)
+{
+for (i = 0, cur = val->contents; i < num_children; i++)
+	{
+	  if (!cur)
+	    abort ();
+	  if (children [i]->core.being_destroyed
+	      || strcmp (XtName (children [i]), cur->name))
+	    continue;
+#ifdef NEED_MOTIF
+	  if (lw_motif_widget_p (children [i]))
+	    xm_update_one_widget (instance, children [i], cur, False);
+#endif
+#ifdef NEED_ATHENA
+	  if (lw_xaw_widget_p (children [i]))
+	    xaw_update_one_widget (instance, children [i], cur, False);
+#endif
+	  cur = cur->next;
+	}
+XtFree ((char *) children);
+}
+if (cur)
+abort ();
+}
+#endif /* LWLIB_TABS_LUCID */
+#ifdef HAVE_WIDGETS
+static Widget
+xlw_create_clip_window (widget_instance *instance)
+{
+Arg al[20];
+int ac = 0;
+Widget clip = 0;
+widget_value* val = instance->info->val;
+XtSetArg (al [ac], XtNmappedWhenManaged, FALSE);	ac++;
+XtSetArg (al [ac], XtNsensitive, TRUE);		ac++;
+/* add any args the user supplied for creation time */
+lw_add_value_args_to_args (val, al, &ac);
+/* Create a clip window to contain the subwidget. Incredibly the
+XEmacs manager seems to be the most appropriate widget for
+this. Nothing else is simple enough and yet does what is
+required. */
+clip = XtCreateManagedWidget (val->name,
+				emacsManagerWidgetClass,
+				instance->parent, al, ac);
+return clip;
+}
+#endif
 widget_creation_entry
 xlw_creation_table [] =
 {
 #ifdef LWLIB_MENUBARS_LUCID
 {"menubar", xlw_create_menubar},
 {"popup", xlw_create_popup_menu},
 #endif
 #ifdef LWLIB_SCROLLBARS_LUCID
 {"vertical-scrollbar",	xlw_create_vertical_scrollbar},
 {"horizontal-scrollbar",	xlw_create_horizontal_scrollbar},
+#endif
+#ifdef LWLIB_TABS_LUCID
+{"tab-control",	xlw_create_tab_control},
+#endif
+#ifdef HAVE_WIDGETS
+{"clip-window", xlw_create_clip_window},
 #endif
 {NULL, NULL}
 };
 Boolean
 if (the_class == xlwMenuWidgetClass)
 return True;
 #endif
 #ifdef LWLIB_SCROLLBARS_LUCID
 if (the_class == xlwScrollBarWidgetClass)
+return True;
+#endif
+#ifdef LWLIB_TABS_LUCID
+if (the_class == tabsWidgetClass)
 return True;
 #endif
 #ifdef LWLIB_MENUBARS_LUCID
 if (the_class == overrideShellWidgetClass)
 return
 void
 xlw_update_one_widget (widget_instance* instance, Widget widget,
 		       widget_value* val, Boolean deep_p)
 {
-WidgetClass class;
+WidgetClass class = XtClass (widget);
-class = XtClass (widget);
 if (0)
 ;
 #ifdef LWLIB_MENUBARS_LUCID
 else if (class == xlwMenuWidgetClass)
 else if (class == xlwScrollBarWidgetClass)
 {
 xlw_update_scrollbar (instance, widget, val);
 }
 #endif
+#ifdef LWLIB_TABS_LUCID
+else if (class == tabsWidgetClass)
+{
+xlw_update_tab_control (instance, widget, val);
+}
+#endif
 }
 void
 xlw_update_one_value (widget_instance* instance, Widget widget,
 		      widget_value* val)

Mercurial > hg > xemacs-beta

comparison lwlib/lwlib-Xlw.c @ 424:11054d720c21 r21-2-20