components/x11/libXaw4/src/Xaw3_1MenuButton.c

   1 #ifndef lint
   2 static char Xrcsid[] = "$XConsortium: MenuButton.c,v 1.13 89/12/11 14:57:40 kit Exp $";
   3 #endif /* lint */
   4
   5 /*
   6  * Copyright 1989 Massachusetts Institute of Technology
   7  *
   8  * Permission to use, copy, modify, distribute, and sell this software and its
   9  * documentation for any purpose is hereby granted without fee, provided that
  10  * the above copyright notice appear in all copies and that both that
  11  * copyright notice and this permission notice appear in supporting
  12  * documentation, and that the name of M.I.T. not be used in advertising or
  13  * publicity pertaining to distribution of the software without specific,
  14  * written prior permission.  M.I.T. makes no representations about the
  15  * suitability of this software for any purpose.  It is provided "as is"
  16  * without express or implied warranty.
  17  *
  18  * M.I.T. DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL
  19  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL M.I.T.
  20  * BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
  21  * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION
  22  * OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN
  23  * CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  24  *
  25  */
  26
  27
  28 /***********************************************************************
  29  *
  30  * MenuButton Widget
  31  *
  32  ***********************************************************************/
  33
  34 /*
  35  * MenuButton.c - Source code for MenuButton widget.
  36  *
  37  * This is the source code for the Athena MenuButton widget.
  38  * It is intended to provide an easy method of activating pulldown menus.
  39  *
  40  * Date:    May 2, 1989
  41  *
  42  * By:      Chris D. Peterson
  43  *          MIT X Consortium
  44  *          kit@expo.lcs.mit.edu
  45  */
  46
  47 #include <stdio.h>
  48 #include <X11/IntrinsicP.h>
  49 #include <X11/StringDefs.h>
  50
  51 #include <./Xaw3_1XawInit.h>
  52 #include <./Xaw3_1MenuButtoP.h>
  53
  54 static void Realize();
  55 static void PopupMenu();
  56
  57 #define superclass ((CommandWidgetClass)&commandClassRec)
  58
  59 static char defaultTranslations[] =
  60     "<EnterWindow>:     highlight()             \n\
  61      <LeaveWindow>:     reset()                 \n\
  62      <BtnDown>:         reset() PopupMenu()     ";
  63
  64 /****************************************************************
  65  *
  66  * Full class record constant
  67  *
  68  ****************************************************************/
  69
  70 /* Private Data */
  71
  72 #define offset(field) XtOffset(MenuButtonWidget, field)
  73 static XtResource resources[] = {
  74   {
  75     XtNmenuName, XtCMenuName, XtRString, sizeof(String),
  76     offset(menu_button.menu_name), XtRString, (caddr_t)"menu"},
  77 };
  78 #undef offset
  79
  80 static XtActionsRec actionsList[] =
  81 {
  82   {"PopupMenu", PopupMenu}
  83 };
  84
  85 /* %%% Export the actions list as a hack until an Intrinsics interface
  86  * allows applications to call action procedures.  Used in xmh: button.c
  87  * Donna Converse, 7 July, 1989.  To be removed before R4 public release.
  88  */
  89 XtActionList xaw_mbutton_actions_list = actionsList;
  90 /* End of the hack */
  91
  92 MenuButtonClassRec menuButtonClassRec = {
  93   {
  94     (WidgetClass) superclass,           /* superclass             */
  95     "MenuButton",                       /* class_name             */
  96     sizeof(MenuButtonRec),              /* size                   */
  97     XawInitializeWidgetSet,             /* class_initialize       */
  98     NULL,                               /* class_part_initialize  */
  99     FALSE,                              /* class_inited           */
 100     NULL,                               /* initialize             */
 101     NULL,                               /* initialize_hook        */
 102     Realize,                            /* realize                */
 103     actionsList,                        /* actions                */
 104     XtNumber(actionsList),              /* num_actions            */
 105     resources,                          /* resources              */
 106     XtNumber(resources),                /* resource_count         */
 107     NULLQUARK,                          /* xrm_class              */
 108     FALSE,                              /* compress_motion        */
 109     TRUE,                               /* compress_exposure      */
 110     TRUE,                               /* compress_enterleave    */
 111     FALSE,                              /* visible_interest       */
 112     NULL,                               /* destroy                */
 113     XtInheritResize,                    /* resize                 */
 114     XtInheritExpose,                    /* expose                 */
 115     NULL,                               /* set_values             */
 116     NULL,                               /* set_values_hook        */
 117     XtInheritSetValuesAlmost,           /* set_values_almost      */
 118     NULL,                               /* get_values_hook        */
 119     NULL,                               /* accept_focus           */
 120     XtVersion,                          /* version                */
 121     NULL,                               /* callback_private       */
 122     defaultTranslations,                /* tm_table               */
 123     XtInheritQueryGeometry,             /* query_geometry         */
 124     XtInheritDisplayAccelerator,        /* display_accelerator    */
 125     NULL                                /* extension              */
 126   },  /* CoreClass fields initialization */
 127   {
 128     XtInheritChangeSensitive            /* change_sensitive       */
 129   },  /* SimpleClass fields initialization */
 130   {
 131     0,                                     /* field not used    */
 132   },  /* LabelClass fields initialization */
 133   {
 134     0,                                     /* field not used    */
 135   },  /* CommandClass fields initialization */
 136   {
 137     0,                                     /* field not used    */
 138   },  /* MenuButtonClass fields initialization */
 139 };
 140
 141   /* for public consumption */
 142 WidgetClass menuButtonWidgetClass = (WidgetClass) &menuButtonClassRec;
 143
 144 /****************************************************************
 145  *
 146  * Private Procedures
 147  *
 148  ****************************************************************/
 149
 150 /* ARGSUSED */
 151 static void
 152 Realize(w, mask, attrs)
 153 Widget w;
 154 Mask *mask;
 155 XSetWindowAttributes *attrs;
 156 {
 157   (*superclass->core_class.realize) (w, mask, attrs);
 158
 159   /* We have a window now. Register a grab. */
 160
 161   XGrabButton( XtDisplay(w), AnyButton, AnyModifier, XtWindow(w),
 162                TRUE, ButtonPressMask|ButtonReleaseMask,
 163                GrabModeAsync, GrabModeAsync, None, None );
 164 }
 165
 166 /* ARGSUSED */
 167 static void
 168 PopupMenu(w, event, params, num_params)
 169 Widget w;
 170 XEvent * event;
 171 String * params;
 172 Cardinal * num_params;
 173 {
 174   MenuButtonWidget mbw = (MenuButtonWidget) w;
 175   Widget menu, temp;
 176   Arg arglist[2];
 177   Cardinal num_args;
 178   int menu_x, menu_y, menu_width, menu_height, button_width, button_height;
 179   Position button_x, button_y;
 180
 181   temp = w;
 182   while(temp != NULL) {
 183     menu = XtNameToWidget(temp, mbw->menu_button.menu_name);
 184     if (menu == NULL)
 185       temp = XtParent(temp);
 186     else
 187       break;
 188   }
 189
 190   if (menu == NULL) {
 191     char error_buf[BUFSIZ];
 192     sprintf(error_buf, "MenuButton: %s %s.",
 193             "Could not find menu widget named", mbw->menu_button.menu_name);
 194     XtAppWarning(XtWidgetToApplicationContext(w), error_buf);
 195     return;
 196   }
 197   if (!XtIsRealized(menu))
 198     XtRealizeWidget(menu);
 199
 200   menu_width = menu->core.width + 2 * menu->core.border_width;
 201   button_width = w->core.width + 2 * w->core.border_width;
 202   button_height = w->core.height + 2 * w->core.border_width;
 203
 204   menu_height = menu->core.height + 2 * menu->core.border_width;
 205
 206   XtTranslateCoords(w, 0, 0, &button_x, &button_y);
 207   menu_x = button_x;
 208   menu_y = button_y + button_height;
 209
 210   if (menu_x < 0)
 211     menu_x = 0;
 212   else {
 213     int scr_width = WidthOfScreen(XtScreen(menu));
 214     if (menu_x + menu_width > scr_width)
 215       menu_x = scr_width - menu_width;
 216   }
 217
 218   if (menu_y < 0)
 219     menu_y = 0;
 220   else {
 221     int scr_height = HeightOfScreen(XtScreen(menu));
 222     if (menu_y + menu_height > scr_height)
 223       menu_y = scr_height - menu_height;
 224   }
 225
 226   num_args = 0;
 227   XtSetArg(arglist[num_args], XtNx, menu_x); num_args++;
 228   XtSetArg(arglist[num_args], XtNy, menu_y); num_args++;
 229   XtSetValues(menu, arglist, num_args);
 230
 231   XtPopupSpringLoaded(menu);
 232 }
 233