oldXMenu/InsSel.c

   1 #include "copyright.h"
   2
   3 /* $Header: /cvsroot/emacs/emacs/oldXMenu/InsSel.c,v 1.2 2003/02/04 14:19:01 lektu Exp $ */
   4 /* Copyright    Massachusetts Institute of Technology    1985   */
   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 <config.h>
  17 #include "XMenuInt.h"
  18
  19 int
  20 XMenuInsertSelection(menu, p_num, s_num, data, label, active)
  21     register XMenu *menu;       /* Menu object to be modified. */
  22     register int p_num;         /* Pane number to be modified. */
  23     register int s_num;         /* Selection number of new selection. */
  24     char *data;                 /* Data value. */
  25     char *label;                /* Selection label. */
  26     int active;                 /* Make selection active? */
  27 {
  28     register XMPane *p_ptr;     /* XMPane pointer. */
  29     register XMSelect *s_ptr;   /* XMSelect pointer. */
  30
  31     XMSelect *select;           /* Newly created selection. */
  32
  33     int label_length;           /* Label length in characters. */
  34     int label_width;            /* Label width in pixels. */
  35
  36     /*
  37      * Check for NULL pointers!
  38      */
  39     if (label == NULL) {
  40         _XMErrorCode = XME_ARG_BOUNDS;
  41         return(XM_FAILURE);
  42     }
  43
  44     /*
  45      * Find the right pane.
  46      */
  47     p_ptr = _XMGetPanePtr(menu, p_num);
  48     if (p_ptr == NULL) return(XM_FAILURE);
  49
  50     /*
  51      * Find the selection number one less than the one specified since that
  52      * is the selection after which the insertion will occur.
  53      */
  54     s_ptr = _XMGetSelectionPtr(p_ptr, (s_num - 1));
  55     if (s_ptr == NULL) return(XM_FAILURE);
  56
  57     /*
  58      * Calloc the XMSelect structure.
  59      */
  60     select = (XMSelect *)calloc(1, sizeof(XMSelect));
  61     if (select == NULL) {
  62         _XMErrorCode = XME_CALLOC;
  63         return(XM_FAILURE);
  64     }
  65
  66     /*
  67      * Determine label size.
  68      */
  69     label_length = strlen(label);
  70     label_width = XTextWidth(menu->s_fnt_info, label, label_length);
  71
  72
  73     /*
  74      * Fill the XMSelect structure.
  75      */
  76     if (!strcmp (label, "--") || !strcmp (label, "---"))
  77       {
  78         select->type = SEPARATOR;
  79         select->active = 0;
  80       }
  81     else
  82       {
  83         select->type = SELECTION;
  84         select->active = active;
  85       }
  86
  87     select->active = active;
  88     select->serial = -1;
  89     select->label = label;
  90     select->label_width = label_width;
  91     select->label_length = label_length;
  92     select->data = data;
  93     select->parent_p = p_ptr;
  94
  95     /*
  96      * Insert the selection after the selection with the selection
  97      * number one less than the desired number for the new selection.
  98      */
  99     emacs_insque(select, s_ptr);
 100
 101     /*
 102      * Update the selection count.
 103      */
 104     p_ptr->s_count++;
 105
 106     /*
 107      * Schedule a recompute.
 108      */
 109     menu->recompute = 1;
 110
 111     /*
 112      * Return the selection number just inserted.
 113      */
 114     _XMErrorCode = XME_NO_ERROR;
 115     return(s_num);
 116 }
 117
 118 /* arch-tag: 8398626f-81cb-4e13-8ebc-aac1b9237663
 119    (do not change this comment) */