view oldXMenu/AddPane.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
+
鐃緒申��申鐃緒申 *
+
鐃緒申��申鐃緒申 * 	XMenuAddPane - Adds a pane to an XMenu object.
+
鐃緒申��申鐃緒申 *
+
鐃緒申��申鐃緒申 *	Author:		Tony Della Fera, DEC
+
鐃緒申��申鐃緒申 *			August, 1985
+
鐃緒申��申鐃緒申 *
+
鐃緒申��申鐃緒申 */
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申#include <config.h>
+
鐃緒申��申鐃緒申#include "XMenuInt.h"
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申int
+
鐃緒申��申鐃緒申XMenuAddPane(display, menu, label, active)
+
鐃緒申��申鐃緒申    Display *display;
+
鐃緒申��申鐃緒申    register XMenu *menu;	/* Menu object to be modified. */
+
鐃緒申��申鐃緒申    register char *label;	/* Selection label. */
+
鐃緒申��申鐃緒申    int active;			/* Make selection active? */
+
鐃緒申��申鐃緒申{
+
鐃緒申��申鐃緒申    register XMPane *pane;	/* Newly created pane. */
+
鐃緒申��申鐃緒申    register XMSelect *select;	/* Initial selection for the new pane. */
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    int label_length;		/* Label length in characters. */
+
鐃緒申��申鐃緒申    int label_width;		/* Label width in pixels. */
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    /*
+
鐃緒申��申鐃緒申     * Check for NULL pointers!
+
鐃緒申��申鐃緒申     */
+
鐃緒申��申鐃緒申    if (label == NULL) {
+
鐃緒申��申鐃緒申	_XMErrorCode = XME_ARG_BOUNDS;
+
鐃緒申��申鐃緒申	return(XM_FAILURE);
+
鐃緒申��申鐃緒申    }
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    /*
+
鐃緒申��申鐃緒申     * Calloc the XMPane structure and the initial XMSelect.
+
鐃緒申��申鐃緒申     */
+
鐃緒申��申鐃緒申    pane = (XMPane *)calloc(1, sizeof(XMPane));
+
鐃緒申��申鐃緒申    if (pane == NULL) {
+
鐃緒申��申鐃緒申	_XMErrorCode = XME_CALLOC;
+
鐃緒申��申鐃緒申	return(XM_FAILURE);
+
鐃緒申��申鐃緒申    }
+
鐃緒申��申鐃緒申    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->p_fnt_info,
+
鐃緒申��申鐃緒申			     label,
+
鐃緒申��申鐃緒申			     label_length);
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    /*
+
鐃緒申��申鐃緒申     * Set up the initial selection.
+
鐃緒申��申鐃緒申     * Values not explicitly set are zeroed by calloc.
+
鐃緒申��申鐃緒申     */
+
鐃緒申��申鐃緒申    select->next = select;
+
鐃緒申��申鐃緒申    select->prev = select;
+
鐃緒申��申鐃緒申    select->type = SL_HEADER;
+
鐃緒申��申鐃緒申    select->serial = -1;
+
鐃緒申��申鐃緒申    select->parent_p = pane;
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    /*
+
鐃緒申��申鐃緒申     * Fill the XMPane structure.
+
鐃緒申��申鐃緒申     * X and Y position are set to 0 since a recompute will follow.
+
鐃緒申��申鐃緒申     */
+
鐃緒申��申鐃緒申    pane->type = PANE;
+
鐃緒申��申鐃緒申    pane->active = active;
+
鐃緒申��申鐃緒申    pane->serial = -1;
+
鐃緒申��申鐃緒申    pane->label = label;
+
鐃緒申��申鐃緒申    pane->label_width = label_width;
+
鐃緒申��申鐃緒申    pane->label_length = label_length;
+
鐃緒申��申鐃緒申    pane->s_list = select;
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    /*
+
鐃緒申��申鐃緒申     * Insert the pane at the end of the pane list.
+
鐃緒申��申鐃緒申     */
+
鐃緒申��申鐃緒申    emacs_insque(pane, menu->p_list->prev);
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    /*
+
鐃緒申��申鐃緒申     * Update the pane count.
+
鐃緒申��申鐃緒申     */
+
鐃緒申��申鐃緒申    menu->p_count++;
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    /*
+
鐃緒申��申鐃緒申     * Schedule a recompute.
+
鐃緒申��申鐃緒申     */
+
鐃緒申��申鐃緒申    menu->recompute = 1;
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    /*
+
鐃緒申��申鐃緒申     * Return the pane number just added.
+
鐃緒申��申鐃緒申     */
+
鐃緒申��申鐃緒申    _XMErrorCode = XME_NO_ERROR;
+
鐃緒申��申鐃緒申    return((menu->p_count - 1));
+
鐃緒申��申鐃緒申}
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申/* arch-tag: 62a26021-f29d-48ba-96ef-3b6c4ebd6547
+
鐃緒申��申鐃緒申   (do not change this comment) */