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
  75 static Widget
  76 xlw_create_menubar (instance)
  77      widget_instance* instance;
  78 {
  79   Widget widget;
  80   Arg al[5];
  81   int ac = 0;
  82
  83   XtSetArg (al[ac], XtNmenu, instance->info->val); ac++;
  84 #ifdef emacs
  85   XtSetArg (al[ac], XtNshowGrip, 0); ac++;
  86   XtSetArg (al[ac], XtNresizeToPreferred, 1); ac++;
  87   XtSetArg (al[ac], XtNallowResize, 1); ac++;
  88 #endif
  89
  90   /* This used to use XtVaCreateWidget, but an old Xt version
  91      has a bug in XtVaCreateWidget that frees instance->info->name.  */
  92   widget
  93     = XtCreateWidget (instance->info->name, xlwMenuWidgetClass,
  94                       instance->parent, al, ac);
  95
  96   XtAddCallback (widget, XtNopen, pre_hook, (XtPointer)instance);
  97   XtAddCallback (widget, XtNselect, pick_hook, (XtPointer)instance);
  98   return widget;
  99 }
 100
 101 static Widget
 102 xlw_create_popup_menu (instance)
 103      widget_instance* instance;
 104 {
 105   Widget popup_shell
 106     = XtCreatePopupShell (instance->info->name, overrideShellWidgetClass,
 107                           instance->parent, NULL, 0);
 108
 109   Widget widget;
 110   Arg al[2];
 111   int ac = 0;
 112
 113   XtSetArg (al[ac], XtNmenu, instance->info->val); ac++;
 114   XtSetArg (al[ac], XtNhorizontal, False); ac++;
 115
 116   /* This used to use XtVaManagedCreateWidget, but an old Xt version
 117      has a bug in XtVaManagedCreateWidget that frees instance->info->name.  */
 118   widget
 119     = XtCreateManagedWidget ("popup", xlwMenuWidgetClass,
 120                              popup_shell, al, ac);
 121
 122   XtAddCallback (widget, XtNselect, pick_hook, (XtPointer)instance);
 123
 124   return popup_shell;
 125 }
 126
 127 widget_creation_entry
 128 xlw_creation_table [] =
 129 {
 130   {"menubar", xlw_create_menubar},
 131   {"popup", xlw_create_popup_menu},
 132   {NULL, NULL}
 133 };
 134
 135 Boolean
 136 lw_lucid_widget_p (widget)
 137      Widget widget;
 138 {
 139   WidgetClass the_class = XtClass (widget);
 140
 141   if (the_class == xlwMenuWidgetClass)
 142     return True;
 143   if (the_class == overrideShellWidgetClass)
 144     return (XtClass (((CompositeWidget)widget)->composite.children [0])
 145             == xlwMenuWidgetClass);
 146   return False;
 147 }
 148
 149 void
 150 xlw_update_one_widget (instance, widget, val, deep_p)
 151      widget_instance* instance;
 152      Widget widget;
 153      widget_value* val;
 154      Boolean deep_p;
 155 {
 156   XlwMenuWidget mw;
 157   Arg al[1];
 158
 159   if (XtIsShell (widget))
 160     mw = (XlwMenuWidget)((CompositeWidget)widget)->composite.children [0];
 161   else
 162     mw = (XlwMenuWidget)widget;
 163
 164   /* This used to use XtVaSetValues, but some old Xt versions
 165      that have a bug in XtVaCreateWidget might have it here too.  */
 166   XtSetArg (al[0], XtNmenu, instance->info->val);
 167
 168   XtSetValues (widget, al, 1);
 169 }
 170
 171 void
 172 xlw_update_one_value (instance, widget, val)
 173      widget_instance* instance;
 174      Widget widget;
 175      widget_value* val;
 176 {
 177   return;
 178 }
 179
 180 void
 181 xlw_pop_instance (instance, up)
 182      widget_instance* instance;
 183      Boolean up;
 184 {
 185 }
 186
 187 void
 188 xlw_popup_menu (widget)
 189      Widget widget;
 190 {
 191   XButtonPressedEvent dummy;
 192   XlwMenuWidget mw;
 193
 194   if (!XtIsShell (widget))
 195     return;
 196
 197   mw = (XlwMenuWidget)((CompositeWidget)widget)->composite.children [0];
 198
 199   dummy.type = ButtonPress;
 200   dummy.serial = 0;
 201   dummy.send_event = 0;
 202   dummy.display = XtDisplay (widget);
 203   dummy.window = XtWindow (XtParent (widget));
 204   dummy.time = CurrentTime;
 205   dummy.button = 0;
 206   XQueryPointer (dummy.display, dummy.window, &dummy.root,
 207                  &dummy.subwindow, &dummy.x_root, &dummy.y_root,
 208                  &dummy.x, &dummy.y, &dummy.state);
 209
 210   pop_up_menu (mw, &dummy);
 211 }
 212
 213 \f/* Destruction of instances */
 214 void
 215 xlw_destroy_instance (instance)
 216      widget_instance* instance;
 217 {
 218   if (instance->widget)
 219     XtDestroyWidget (instance->widget);
 220 }
 221