oldXMenu/InsSel.c

   1 /* Copyright    Massachusetts Institute of Technology    1985   */
   2
   3 #include "copyright.h"
   4
   5
   6 /*
   7  * XMenu:       MIT Project Athena, X Window system menu package
   8  *
   9  *      XMenuInsertSelection - Inserts a selection into an XMenu object
  10  *
  11  *      Author:         Tony Della Fera, DEC
  12  *                      20-Nov-85
  13  *
  14  */
  15
  16 #include "XMenuInt.h"
  17
  18 int
  19 XMenuInsertSelection(register XMenu *menu, register int p_num, register int s_num, char *data, char *label, int active)
  20                                 /* Menu object to be modified. */
  21                                 /* Pane number to be modified. */
  22                                 /* Selection number of new selection. */
  23                                 /* Data value. */
  24                                 /* Selection label. */
  25                                 /* Make selection active? */
  26 {
  27     register XMPane *p_ptr;     /* XMPane pointer. */
  28     register XMSelect *s_ptr;   /* XMSelect pointer. */
  29
  30     XMSelect *sel;              /* Newly created selection. */
  31
  32     int label_length;           /* Label length in characters. */
  33     int label_width;            /* Label width in pixels. */
  34
  35     /*
  36      * Check for NULL pointers!
  37      */
  38     if (label == NULL) {
  39         _XMErrorCode = XME_ARG_BOUNDS;
  40         return(XM_FAILURE);
  41     }
  42
  43     /*
  44      * Find the right pane.
  45      */
  46     p_ptr = _XMGetPanePtr(menu, p_num);
  47     if (p_ptr == NULL) return(XM_FAILURE);
  48
  49     /*
  50      * Find the selection number one less than the one specified since that
  51      * is the selection after which the insertion will occur.
  52      */
  53     s_ptr = _XMGetSelectionPtr(p_ptr, (s_num - 1));
  54     if (s_ptr == NULL) return(XM_FAILURE);
  55
  56     /*
  57      * Calloc the XMSelect structure.
  58      */
  59     sel = (XMSelect *)calloc(1, sizeof(XMSelect));
  60     if (sel == NULL) {
  61         _XMErrorCode = XME_CALLOC;
  62         return(XM_FAILURE);
  63     }
  64
  65     /*
  66      * Determine label size.
  67      */
  68     label_length = strlen(label);
  69     label_width = XTextWidth(menu->s_fnt_info, label, label_length);
  70
  71
  72     /*
  73      * Fill the XMSelect structure.
  74      */
  75     if (!strcmp (label, "--") || !strcmp (label, "---"))
  76       {
  77         sel->type = SEPARATOR;
  78         sel->active = 0;
  79       }
  80     else
  81       {
  82         sel->type = SELECTION;
  83         sel->active = active;
  84       }
  85
  86     sel->active = active;
  87     sel->serial = -1;
  88     sel->label = label;
  89     sel->label_width = label_width;
  90     sel->label_length = label_length;
  91     sel->data = data;
  92     sel->parent_p = p_ptr;
  93
  94     /*
  95      * Insert the selection after the selection with the selection
  96      * number one less than the desired number for the new selection.
  97      */
  98     emacs_insque(sel, s_ptr);
  99
 100     /*
 101      * Update the selection count.
 102      */
 103     p_ptr->s_count++;
 104
 105     /*
 106      * Schedule a recompute.
 107      */
 108     menu->recompute = 1;
 109
 110     /*
 111      * Return the selection number just inserted.
 112      */
 113     _XMErrorCode = XME_NO_ERROR;
 114     return(s_num);
 115 }