code.delx.au - gnu-emacs/blob - lwlib/lwlib-Xlw.c

   1 /* The lwlib interface to "xlwmenu" menus.
   2    Copyright (C) 1992 Lucid, Inc.
   3
   4 This file is part of the Lucid Widget Library.
   5
   6 The Lucid Widget Library is free software; you can redistribute it and/or
   7 modify it under the terms of the GNU General Public License as published by
   8 the Free Software Foundation; either version 1, or (at your option)
   9 any later version.
  10
  11 The Lucid Widget Library is distributed in the hope that it will be useful,
  12 but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 GNU General Public License for more details.
  15
  16 You should have received a copy of the GNU General Public License
  17 along with GNU Emacs; see the file COPYING.  If not, write to
  18 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  19
  20 #include "lwlib-Xlw.h"
  21 #include <X11/StringDefs.h>
  22 #include <X11/IntrinsicP.h>
  23 #include <X11/ObjectP.h>
  24 #include <X11/CompositeP.h>
  25 #include <X11/Shell.h>
  26 #include "xlwmenu.h"
  27
  28 \f/* Menu callbacks */
  29 static void
  30 pre_hook (w, client_data, call_data)
  31      Widget w;
  32      XtPointer client_data;
  33      XtPointer call_data;
  34 {
  35   widget_instance* instance = (widget_instance*)client_data;
  36   widget_value* val;
  37
  38   if (w->core.being_destroyed)
  39     return;
  40
  41   val = lw_get_widget_value_for_widget (instance, w);
  42   if (instance->info->pre_activate_cb)
  43     instance->info->pre_activate_cb (w, instance->info->id,
  44                                      val ? val->call_data : NULL);
  45 }
  46
  47 static void
  48 pick_hook (w, client_data, call_data)
  49      Widget w;
  50      XtPointer client_data;
  51      XtPointer call_data;
  52 {
  53   widget_instance* instance = (widget_instance*)client_data;
  54   widget_value* contents_val = (widget_value*)call_data;
  55   widget_value* widget_val;
  56   XtPointer widget_arg;
  57
  58   if (w->core.being_destroyed)
  59     return;
  60
  61   if (instance->info->selection_cb && contents_val && contents_val->enabled
  62       && !contents_val->contents)
  63     instance->info->selection_cb (w, instance->info->id,
  64                                   contents_val->call_data);
  65
  66   widget_val = lw_get_widget_value_for_widget (instance, w);
  67   widget_arg = widget_val ? widget_val->call_data : NULL;
  68   if (instance->info->post_activate_cb)
  69     instance->info->post_activate_cb (w, instance->info->id, widget_arg);
  70
  71 }
  72
  73 \f/* creation functions */
  74 static Widget
  75 xlw_create_menubar (instance)
  76      widget_instance* instance;
  77 {
  78   Widget widget;
  79
  80   widget_value *tem = (widget_value *) XtMalloc (sizeof (widget_value));
  81
  82   /* _XtCreate is freeing the object we passed,
  83      so make a copy that we free later.  */
  84   bcopy (instance->info->val, tem, sizeof (widget_value));
  85
  86   widget =
  87     XtVaCreateWidget (instance->info->name, xlwMenuWidgetClass,
  88                       instance->parent,
  89                       XtNmenu, tem,
  90                       0);
  91
  92   XtFree (tem);
  93
  94   XtAddCallback (widget, XtNopen, pre_hook, (XtPointer)instance);
  95   XtAddCallback (widget, XtNselect, pick_hook, (XtPointer)instance);
  96   return widget;
  97 }
  98
  99 static Widget
 100 xlw_create_popup_menu (instance)
 101      widget_instance* instance;
 102 {
 103   Widget popup_shell =
 104     XtCreatePopupShell (instance->info->name, overrideShellWidgetClass,
 105                         instance->parent, NULL, 0);
 106
 107   Widget widget;
 108
 109   widget_value *tem = (widget_value *) XtMalloc (sizeof (widget_value));
 110
 111   /* _XtCreate is freeing the object we passed,
 112      so make a copy that we free later.  */
 113   bcopy (instance->info->val, tem, sizeof (widget_value));
 114
 115   widget =
 116     XtVaCreateManagedWidget ("popup", xlwMenuWidgetClass,
 117                              popup_shell,
 118                              XtNmenu, tem,
 119                              XtNhorizontal, False,
 120                              0);
 121
 122   XtFree (tem);
 123
 124   XtAddCallback (widget, XtNselect, pick_hook, (XtPointer)instance);
 125
 126   return popup_shell;
 127 }
 128
 129 widget_creation_entry
 130 xlw_creation_table [] =
 131 {
 132   {"menubar", xlw_create_menubar},
 133   {"popup", xlw_create_popup_menu},
 134   {NULL, NULL}
 135 };
 136
 137 Boolean
 138 lw_lucid_widget_p (widget)
 139      Widget widget;
 140 {
 141   WidgetClass the_class = XtClass (widget);
 142   if (the_class == xlwMenuWidgetClass)
 143     return True;
 144   if (the_class == overrideShellWidgetClass)
 145     return
 146       XtClass (((CompositeWidget)widget)->composite.children [0])
 147         == xlwMenuWidgetClass;
 148   return False;
 149 }
 150
 151 void
 152 xlw_update_one_widget (instance, widget, val, deep_p)
 153      widget_instance* instance;
 154      Widget widget;
 155      widget_value* val;
 156      Boolean deep_p;
 157 {
 158   XlwMenuWidget mw;
 159
 160   if (XtIsShell (widget))
 161     mw = (XlwMenuWidget)((CompositeWidget)widget)->composite.children [0];
 162   else
 163     mw = (XlwMenuWidget)widget;
 164   XtVaSetValues (widget, XtNmenu, val, 0);
 165 }
 166
 167 void
 168 xlw_update_one_value (instance, widget, val)
 169      widget_instance* instance;
 170      Widget widget;
 171      widget_value* val;
 172 {
 173   return;
 174 }
 175
 176 void
 177 xlw_pop_instance (instance, up)
 178      widget_instance* instance;
 179      Boolean up;
 180 {
 181 }
 182
 183 void
 184 xlw_popup_menu (widget)
 185      Widget widget;
 186 {
 187   XButtonPressedEvent dummy;
 188   XlwMenuWidget mw;
 189
 190   if (!XtIsShell (widget))
 191     return;
 192
 193   mw = (XlwMenuWidget)((CompositeWidget)widget)->composite.children [0];
 194
 195   dummy.type = ButtonPress;
 196   dummy.serial = 0;
 197   dummy.send_event = 0;
 198   dummy.display = XtDisplay (widget);
 199   dummy.window = XtWindow (XtParent (widget));
 200   dummy.time = CurrentTime;
 201   dummy.button = 0;
 202   XQueryPointer (dummy.display, dummy.window, &dummy.root,
 203                  &dummy.subwindow, &dummy.x_root, &dummy.y_root,
 204                  &dummy.x, &dummy.y, &dummy.state);
 205
 206   pop_up_menu (mw, &dummy);
 207 }
 208
 209 \f/* Destruction of instances */
 210 void
 211 xlw_destroy_instance (instance)
 212      widget_instance* instance;
 213 {
 214   if (instance->widget)
 215     XtDestroyWidget (instance->widget);
 216 }
 217