oldXMenu/InsSel.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  *      XMenuInsertSelection - Inserts a selection into an XMenu object
   9  *
  10  *      Author:         Tony Della Fera, DEC
  11  *                      20-Nov-85
  12  *
  13  */
  14
  15 #include <config.h>
  16 #include "XMenuInt.h"
  17
  18 int
  19 XMenuInsertSelection(menu, p_num, s_num, data, label, active)
  20     register XMenu *menu;       /* Menu object to be modified. */
  21     register int p_num;         /* Pane number to be modified. */
  22     register int s_num;         /* Selection number of new selection. */
  23     char *data;                 /* Data value. */
  24     char *label;                /* Selection label. */
  25     int active;                 /* Make selection active? */
  26 {
  27     register XMPane *p_ptr;     /* XMPane pointer. */
  28     register XMSelect *s_ptr;   /* XMSelect pointer. */
  29
  30     XMSelect *select;           /* 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     select = (XMSelect *)calloc(1, sizeof(XMSelect));
  60     if (select == 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         select->type = SEPARATOR;
  78         select->active = 0;
  79       }
  80     else
  81       {
  82         select->type = SELECTION;
  83         select->active = active;
  84       }
  85
  86     select->active = active;
  87     select->serial = -1;
  88     select->label = label;
  89     select->label_width = label_width;
  90     select->label_length = label_length;
  91     select->data = data;
  92     select->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(select, 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 }
 116
 117 /* arch-tag: 8398626f-81cb-4e13-8ebc-aac1b9237663
 118    (do not change this comment) */