Mercurial > emacs
diff oldXMenu/DelSel.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/DelSel.c Sun Oct 03 19:36:13 1999 +0000 @@ -0,0 +1,72 @@ +#include "copyright.h" + +/* $Header: /u/src/emacs/19.0/oldXMenu/RCS/DelSel.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 + * + * XMenuDeleteSelection - Deletes a selection from an XMenu object. + * + * Author: Tony Della Fera, DEC + * 20-Nov-85 + * + */ + +#include "XMenuInt.h" + +int +XMenuDeleteSelection(display, menu, p_num, s_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 int s_num; /* Selection number to be deleted. */ +{ + register XMPane *p_ptr; /* Pointer to pane being deleted. */ + register XMSelect *s_ptr; /* Pointer to selections being deleted. */ + + /* + * Find the right pane. + */ + p_ptr = _XMGetPanePtr(menu, p_num); + if (p_ptr == NULL) return(XM_FAILURE); + + /* + * Find the right selection. + */ + s_ptr = _XMGetSelectionPtr(p_ptr, s_num); + if (s_ptr == NULL) return(XM_FAILURE); + + /* + * Remove the selection from the association table. + */ + XDeleteAssoc(display, menu->assoc_tab, s_ptr->window); + + /* + * Remove the selection from the parent pane's selection + * list and update the selection count. + */ + emacs_remque(s_ptr); + p_ptr->s_count--; + + /* + * Destroy the selection transparency. + */ + if (s_ptr->window) XDestroyWindow(display, s_ptr->window); + + /* + * Free the selection's XMSelect structure. + */ + free(s_ptr); + + /* + * Schedule a recompute. + */ + menu->recompute = 1; + + /* + * Return the selection number just deleted. + */ + _XMErrorCode = XME_NO_ERROR; + return(s_num); +}