view oldXMenu/AddSel.c @ 65130:d2334ecd8eae

Revision: [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-517 Merge from gnus--rel--5.10 Patches applied: * gnus--rel--5.10 (patch 105) - Update from CVS 2005-08-22 Karl Chen <[e-mail]> (tiny change) * lisp/gnus/gnus-art.el (gnus-treatment-function-alist): Move date-lapsed to the end of the date treatments. 2005-08-15 Simon Josefsson <[e-mail]> * lisp/gnus/pgg.el (url-insert-file-contents): Don't autoload it, Emacs has it in url-handlers.el and XEmacs in url.el. Reported by Luca Capello and Romain Francoise. (pgg-fetch-key-function): Removed, not used? (pgg-insert-url-with-w3): Require url, to get url-insert-file-contents regardless of where it is defined. 2005-08-08 Simon Josefsson <[e-mail]> * lisp/gnus/pgg.el: Autoload url-insert-file-contents instead of loading w3/url. (pgg-insert-url-with-w3): Don't load url here. 2005-08-19 Katsumi Yamaoka <[e-mail]> * man/emacs-mime.texi (time-date): Fix description of safe-date-to-time. 2005-08-18 Katsumi Yamaoka <[e-mail]> * man/emacs-mime.texi (Handles): Remove duplicate item. (Encoding Customization): Fix the default value for mm-coding-system-priorities. (Charset Translation): Emacs doesn't use mm-mime-mule-charset-alist. (Basic Functions): Fix reference. 2005-08-09 Katsumi Yamaoka <[e-mail]> * man/gnus.texi (Charsets): Fj hierarchy uses iso-2022-jp.

+
鐃緒申��申鐃緒申#include "copyright.h"
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申/* Copyright    Massachusetts Institute of Technology    1985	*/
+
鐃緒申��申鐃緒申/* Copyright (C) 2002, 2003, 2004, 2005 Free Software Foundation, Inc.  */
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申/*
+
鐃緒申��申鐃緒申 * XMenu:	MIT Project Athena, X Window system menu package
+
鐃緒申��申鐃緒申 *
+
鐃緒申��申鐃緒申 * 	XMenuAddSelection - Adds a selection to an XMenu object.
+
鐃緒申��申鐃緒申 *
+
鐃緒申��申鐃緒申 *	Author:		Tony Della Fera, DEC
+
鐃緒申��申鐃緒申 *			August, 1985
+
鐃緒申��申鐃緒申 *
+
鐃緒申��申鐃緒申 */
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申#include <config.h>
+
鐃緒申��申鐃緒申#include "XMenuInt.h"
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申int
+
鐃緒申��申鐃緒申XMenuAddSelection(display, menu, p_num, data, label, active, help)
+
鐃緒申��申鐃緒申    Display *display;
+
鐃緒申��申鐃緒申    register XMenu *menu;	/* Menu object to be modified. */
+
鐃緒申��申鐃緒申    register int p_num;		/* Pane number to be modified. */
+
鐃緒申��申鐃緒申    char *data;			/* Data value. */
+
鐃緒申��申鐃緒申    char *label;		/* Selection label. */
+
鐃緒申��申鐃緒申    int active;			/* Make selection active? */
+
鐃緒申��申鐃緒申    char *help;			/* Help string */
+
鐃緒申��申鐃緒申{
+
鐃緒申��申鐃緒申    register XMPane *pane;	/* Pane containing the new selection. */
+
鐃緒申��申鐃緒申    register XMSelect *select;	/* Newly created selection. */
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    int label_length;		/* Label lenght in characters. */
+
鐃緒申��申鐃緒申    int label_width;		/* Label width in pixels. */
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    /*
+
鐃緒申��申鐃緒申     * Check for NULL pointers!
+
鐃緒申��申鐃緒申     */
+
鐃緒申��申鐃緒申    if (label == NULL) {
+
鐃緒申��申鐃緒申	_XMErrorCode = XME_ARG_BOUNDS;
+
鐃緒申��申鐃緒申	return(XM_FAILURE);
+
鐃緒申��申鐃緒申    }
+
鐃緒申��申鐃緒申    /*
+
鐃緒申��申鐃緒申     * Find the right pane.
+
鐃緒申��申鐃緒申     */
+
鐃緒申��申鐃緒申    pane = _XMGetPanePtr(menu, p_num);
+
鐃緒申��申鐃緒申    if (pane == NULL) return(XM_FAILURE);
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    /*
+
鐃緒申��申鐃緒申     * Calloc the XMSelect structure.
+
鐃緒申��申鐃緒申     */
+
鐃緒申��申鐃緒申    select = (XMSelect *)calloc(1, sizeof(XMSelect));
+
鐃緒申��申鐃緒申    if (select == NULL) {
+
鐃緒申��申鐃緒申	_XMErrorCode = XME_CALLOC;
+
鐃緒申��申鐃緒申	return(XM_FAILURE);
+
鐃緒申��申鐃緒申    }
+
鐃緒申��申鐃緒申    /*
+
鐃緒申��申鐃緒申     * Determine label size.
+
鐃緒申��申鐃緒申     */
+
鐃緒申��申鐃緒申    label_length = strlen(label);
+
鐃緒申��申鐃緒申    label_width = XTextWidth(menu->s_fnt_info, label, label_length);
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    /*
+
鐃緒申��申鐃緒申     * Fill the XMSelect structure.
+
鐃緒申��申鐃緒申     */
+
鐃緒申��申鐃緒申    if (!strcmp (label, "--") || !strcmp (label, "---"))
+
鐃緒申��申鐃緒申      {
+
鐃緒申��申鐃緒申	select->type = SEPARATOR;
+
鐃緒申��申鐃緒申	select->active = 0;
+
鐃緒申��申鐃緒申      }
+
鐃緒申��申鐃緒申    else
+
鐃緒申��申鐃緒申      {
+
鐃緒申��申鐃緒申	select->type = SELECTION;
+
鐃緒申��申鐃緒申	select->active = active;
+
鐃緒申��申鐃緒申      }
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    select->serial = -1;
+
鐃緒申��申鐃緒申    select->label = label;
+
鐃緒申��申鐃緒申    select->label_width = label_width;
+
鐃緒申��申鐃緒申    select->label_length = label_length;
+
鐃緒申��申鐃緒申    select->data = data;
+
鐃緒申��申鐃緒申    select->parent_p = pane;
+
鐃緒申��申鐃緒申    select->help_string = help;
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    /*
+
鐃緒申��申鐃緒申     * Insert the selection at the end of the selection list.
+
鐃緒申��申鐃緒申     */
+
鐃緒申��申鐃緒申    emacs_insque(select, pane->s_list->prev);
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    /*
+
鐃緒申��申鐃緒申     * Update the selection count.
+
鐃緒申��申鐃緒申     */
+
鐃緒申��申鐃緒申    pane->s_count++;
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    /*
+
鐃緒申��申鐃緒申     * Schedule a recompute.
+
鐃緒申��申鐃緒申     */
+
鐃緒申��申鐃緒申    menu->recompute = 1;
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    /*
+
鐃緒申��申鐃緒申     * Return the selection number just added.
+
鐃緒申��申鐃緒申     */
+
鐃緒申��申鐃緒申    _XMErrorCode = XME_NO_ERROR;
+
鐃緒申��申鐃緒申    return((pane->s_count - 1));
+
鐃緒申��申鐃緒申}
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申/* arch-tag: 0161f024-c739-440d-9498-050280c6c355
+
鐃緒申��申鐃緒申   (do not change this comment) */