Mercurial > emacs
diff oldXMenu/DelPane.c @ 25858:bbce331da1be
#
author | Dave Love <fx@gnu.org> |
---|---|
date | Sun, 03 Oct 1999 19:36:13 +0000 |
parents | |
children | 23a1cea22d13 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/oldXMenu/DelPane.c Sun Oct 03 19:36:13 1999 +0000 @@ -0,0 +1,88 @@ +#include "copyright.h" + +/* $Header: /u/src/emacs/19.0/oldXMenu/RCS/DelPane.c,v 1.1 1992/04/11 22:10:18 jimb Exp $ */ +/* Copyright Massachusetts Institute of Technology 1985 */ + +/* + * XMenu: MIT Project Athena, X Window system menu package + * + * XMenuDeletePane - Deletes a pane from an XMenu object. + * + * Author: Tony Della Fera, DEC + * 20-Nov-85 + * + */ + +#include "XMenuInt.h" + +int +XMenuDeletePane(display, menu, p_num) + register Display *display; /* Previously opened display */ + register XMenu *menu; /* Menu object to be modified. */ + register int p_num; /* Pane number to be deleted. */ +{ + register XMPane *p_ptr; /* Pointer to pane being deleted. */ + register XMSelect *s_ptr; /* Pointer to selections being deleted. */ + register XMSelect *s_next; /* Pointer to next selection to be deleted. */ + + /* + * Find the right pane. + */ + p_ptr = _XMGetPanePtr(menu, p_num); + if (p_ptr == NULL) return(XM_FAILURE); + + /* + * Remove the pane from the association table. + */ + XDeleteAssoc(display, menu->assoc_tab, p_ptr->window); + + /* + * Remove the pane from the pane list and update + * the pane count. + */ + emacs_remque(p_ptr); + menu->p_count--; + + /* + * Remove all the selections in the pane from the + * association table and free their XMSelect structures. + */ + for ( + s_ptr = p_ptr->s_list->next; + s_ptr != p_ptr->s_list; + s_ptr = s_next + ) { + XDeleteAssoc(display, menu->assoc_tab, s_ptr->window); + s_next = s_ptr->next; + free(s_ptr); + } + free(p_ptr->s_list); + + if (p_ptr->window) { + /* + * Destroy the selection transparencies. + */ + XDestroySubwindows(display, p_ptr->window); + + /* + * Destroy the pane window. + */ + XDestroyWindow(display, p_ptr->window); + } + + /* + * Free the pane's XMPane structure. + */ + free(p_ptr); + + /* + * Schedule a recompute. + */ + menu->recompute = 1; + + /* + * Return the pane number just deleted. + */ + _XMErrorCode = XME_NO_ERROR; + return(p_num); +}