code.delx.au - gnu-emacs/blob - oldXMenu/Locate.c

   1 #include "copyright.h"
   2
   3 /* Copyright    Massachusetts Institute of Technology    1985   */
   4
   5 /*
   6  * XMenu:       MIT Project Athena, X Window system menu package
   7  *
   8  *      XMenuLocate - Return data necessary to position and locate
   9  *                    a menu on the screen.
  10  *
  11  *      Author:         Tony Della Fera, DEC
  12  *                      January 11, 1985
  13  *
  14  */
  15
  16 #include "XMenuInt.h"
  17
  18 int
  19 XMenuLocate(display, menu, p_num, s_num, x_pos, y_pos, ul_x, ul_y, width, height)
  20     register Display *display;  /* Previously opened display. */
  21     register XMenu *menu;       /* Menu object being located. */
  22     int p_num;                  /* Active pane number. */
  23     int s_num;                  /* Active selection number. */
  24     int x_pos;                  /* X coordinate of mouse active position. */
  25     int y_pos;                  /* Y coordinate of mouse active position. */
  26     int *ul_x;                  /* Returned upper left menu X coordinate. */
  27     int *ul_y;                  /* Returned upper left menu Y coordinate. */
  28     int *width;                 /* Returned menu width. */
  29     int *height;                /* Returned menu height. */
  30 {
  31     register XMPane *p_ptr;     /* XMPane pointer. */
  32     register XMSelect *s_ptr;   /* XMSelect pointer. */
  33
  34     /*
  35      * Are the position arguments positive?
  36      */
  37     if ((x_pos <= 0) || (y_pos <= 0)) {
  38         _XMErrorCode = XME_ARG_BOUNDS;
  39         return(XM_FAILURE);
  40     }
  41
  42     /*
  43      * Find the right pane.
  44      */
  45     p_ptr = _XMGetPanePtr(menu, p_num);
  46     if (p_ptr == NULL) return(XM_FAILURE);
  47
  48     /*
  49      * Find the right selection.
  50      */
  51       s_ptr = _XMGetSelectionPtr(p_ptr, s_num);
  52
  53     /*
  54      * Check to see that the menu's dependencies have been
  55      * recomputed and are up to date.  If not, do it now.
  56      */
  57     if (menu->recompute) XMenuRecompute(display, menu);
  58
  59     /*
  60      * Compute the new menu origin such that the active point lies
  61      * in the center of the desired active pane and selection.
  62      * This sets the values of ul_x and ul_y.
  63      */
  64     _XMTransToOrigin(display, menu, p_ptr, s_ptr, x_pos, y_pos, ul_x, ul_y);
  65
  66     /*
  67      * Set remaining return argument values.
  68      */
  69     *width = menu->width;
  70     *height = menu->height;
  71
  72     /*
  73      * Return successfully.
  74      */
  75     _XMErrorCode = XME_NO_ERROR;
  76     return(XM_SUCCESS);
  77 }
  78
  79 /* arch-tag: 1ff94bab-cf67-4c92-bff4-dc0130153173
  80    (do not change this comment) */