Merge.
[emacs.git] / oldXMenu / DelPane.c
blob10234e029024645ee3599f642e4f142b0f14f479
1 /* Copyright Massachusetts Institute of Technology 1985 */
3 #include "copyright.h"
6 /*
7 * XMenu: MIT Project Athena, X Window system menu package
9 * XMenuDeletePane - Deletes a pane from an XMenu object.
11 * Author: Tony Della Fera, DEC
12 * 20-Nov-85
16 #include "XMenuInt.h"
18 int
19 XMenuDeletePane(register Display *display, register XMenu *menu, register int p_num)
20 /* Previously opened display */
21 /* Menu object to be modified. */
22 /* Pane number to be deleted. */
24 register XMPane *p_ptr; /* Pointer to pane being deleted. */
25 register XMSelect *s_ptr; /* Pointer to selections being deleted. */
26 register XMSelect *s_next; /* Pointer to next selection to be deleted. */
29 * Find the right pane.
31 p_ptr = _XMGetPanePtr(menu, p_num);
32 if (p_ptr == NULL) return(XM_FAILURE);
35 * Remove the pane from the association table.
37 XDeleteAssoc(display, menu->assoc_tab, p_ptr->window);
40 * Remove the pane from the pane list and update
41 * the pane count.
43 emacs_remque(p_ptr);
44 menu->p_count--;
47 * Remove all the selections in the pane from the
48 * association table and free their XMSelect structures.
50 for (
51 s_ptr = p_ptr->s_list->next;
52 s_ptr != p_ptr->s_list;
53 s_ptr = s_next
54 ) {
55 XDeleteAssoc(display, menu->assoc_tab, s_ptr->window);
56 s_next = s_ptr->next;
57 free(s_ptr);
59 free(p_ptr->s_list);
61 if (p_ptr->window) {
63 * Destroy the selection transparencies.
65 XDestroySubwindows(display, p_ptr->window);
68 * Destroy the pane window.
70 XDestroyWindow(display, p_ptr->window);
74 * Free the pane's XMPane structure.
76 free(p_ptr);
79 * Schedule a recompute.
81 menu->recompute = 1;
84 * Return the pane number just deleted.
86 _XMErrorCode = XME_NO_ERROR;
87 return(p_num);