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

   1 #include "copyright.h"
   2
   3 /* Copyright    Massachusetts Institute of Technology    1985   */
   4 /* Copyright (C) 2002, 2003, 2004, 2005,
   5                  2006 Free Software Foundation, Inc.  */
   6
   7 /*
   8  * XMenu:       MIT Project Athena, X Window system menu package
   9  *
  10  *      XMenuAddSelection - Adds a selection to an XMenu object.
  11  *
  12  *      Author:         Tony Della Fera, DEC
  13  *                      August, 1985
  14  *
  15  */
  16
  17 #include <config.h>
  18 #include "XMenuInt.h"
  19
  20 int
  21 XMenuAddSelection(display, menu, p_num, data, label, active, help)
  22     Display *display;
  23     register XMenu *menu;       /* Menu object to be modified. */
  24     register int p_num;         /* Pane number to be modified. */
  25     char *data;                 /* Data value. */
  26     char *label;                /* Selection label. */
  27     int active;                 /* Make selection active? */
  28     char *help;                 /* Help string */
  29 {
  30     register XMPane *pane;      /* Pane containing the new selection. */
  31     register XMSelect *select;  /* Newly created selection. */
  32
  33
  34     int label_length;           /* Label lenght in characters. */
  35     int label_width;            /* Label width in pixels. */
  36
  37     /*
  38      * Check for NULL pointers!
  39      */
  40     if (label == NULL) {
  41         _XMErrorCode = XME_ARG_BOUNDS;
  42         return(XM_FAILURE);
  43     }
  44     /*
  45      * Find the right pane.
  46      */
  47     pane = _XMGetPanePtr(menu, p_num);
  48     if (pane == NULL) return(XM_FAILURE);
  49
  50     /*
  51      * Calloc the XMSelect structure.
  52      */
  53     select = (XMSelect *)calloc(1, sizeof(XMSelect));
  54     if (select == NULL) {
  55         _XMErrorCode = XME_CALLOC;
  56         return(XM_FAILURE);
  57     }
  58     /*
  59      * Determine label size.
  60      */
  61     label_length = strlen(label);
  62     label_width = XTextWidth(menu->s_fnt_info, label, label_length);
  63
  64     /*
  65      * Fill the XMSelect structure.
  66      */
  67     if (!strcmp (label, "--") || !strcmp (label, "---"))
  68       {
  69         select->type = SEPARATOR;
  70         select->active = 0;
  71       }
  72     else
  73       {
  74         select->type = SELECTION;
  75         select->active = active;
  76       }
  77
  78     select->serial = -1;
  79     select->label = label;
  80     select->label_width = label_width;
  81     select->label_length = label_length;
  82     select->data = data;
  83     select->parent_p = pane;
  84     select->help_string = help;
  85
  86     /*
  87      * Insert the selection at the end of the selection list.
  88      */
  89     emacs_insque(select, pane->s_list->prev);
  90
  91     /*
  92      * Update the selection count.
  93      */
  94     pane->s_count++;
  95
  96     /*
  97      * Schedule a recompute.
  98      */
  99     menu->recompute = 1;
 100
 101     /*
 102      * Return the selection number just added.
 103      */
 104     _XMErrorCode = XME_NO_ERROR;
 105     return((pane->s_count - 1));
 106 }
 107
 108 /* arch-tag: 0161f024-c739-440d-9498-050280c6c355
 109    (do not change this comment) */