(comint-input-ring-size): Increase to 150.
[emacs.git] / oldXMenu / DelPane.c
blobbdb084b36f363b905cd7bd58a51bfd55373dbb0c
1 #include "copyright.h"
3 /* Copyright Massachusetts Institute of Technology 1985 */
5 /*
6 * XMenu: MIT Project Athena, X Window system menu package
8 * XMenuDeletePane - Deletes a pane from an XMenu object.
10 * Author: Tony Della Fera, DEC
11 * 20-Nov-85
15 #include "XMenuInt.h"
17 int
18 XMenuDeletePane(display, menu, p_num)
19 register Display *display; /* Previously opened display */
20 register XMenu *menu; /* Menu object to be modified. */
21 register int p_num; /* Pane number to be deleted. */
23 register XMPane *p_ptr; /* Pointer to pane being deleted. */
24 register XMSelect *s_ptr; /* Pointer to selections being deleted. */
25 register XMSelect *s_next; /* Pointer to next selection to be deleted. */
28 * Find the right pane.
30 p_ptr = _XMGetPanePtr(menu, p_num);
31 if (p_ptr == NULL) return(XM_FAILURE);
34 * Remove the pane from the association table.
36 XDeleteAssoc(display, menu->assoc_tab, p_ptr->window);
39 * Remove the pane from the pane list and update
40 * the pane count.
42 emacs_remque(p_ptr);
43 menu->p_count--;
46 * Remove all the selections in the pane from the
47 * association table and free their XMSelect structures.
49 for (
50 s_ptr = p_ptr->s_list->next;
51 s_ptr != p_ptr->s_list;
52 s_ptr = s_next
53 ) {
54 XDeleteAssoc(display, menu->assoc_tab, s_ptr->window);
55 s_next = s_ptr->next;
56 free(s_ptr);
58 free(p_ptr->s_list);
60 if (p_ptr->window) {
62 * Destroy the selection transparencies.
64 XDestroySubwindows(display, p_ptr->window);
67 * Destroy the pane window.
69 XDestroyWindow(display, p_ptr->window);
73 * Free the pane's XMPane structure.
75 free(p_ptr);
78 * Schedule a recompute.
80 menu->recompute = 1;
83 * Return the pane number just deleted.
85 _XMErrorCode = XME_NO_ERROR;
86 return(p_num);
89 /* arch-tag: 32a5bfd4-4bac-4090-bb53-844110f4908e
90 (do not change this comment) */