summaryrefslogtreecommitdiff
path: root/oldXMenu/DelPane.c
diff options
context:
space:
mode:
authorDave Love <fx@gnu.org>1999-10-03 19:36:13 +0000
committerDave Love <fx@gnu.org>1999-10-03 19:36:13 +0000
commite745ede7473e87b93d71858bc1c8447a1307de28 (patch)
tree59353dca94fcb3a9ce2fd9f79614a3119da7f863 /oldXMenu/DelPane.c
parent0c898dd963a3277b5ec8d59f0a350e3fb50e50c3 (diff)
downloademacs-e745ede7473e87b93d71858bc1c8447a1307de28.tar.gz
#
Diffstat (limited to 'oldXMenu/DelPane.c')
-rw-r--r--oldXMenu/DelPane.c88
1 files changed, 88 insertions, 0 deletions
diff --git a/oldXMenu/DelPane.c b/oldXMenu/DelPane.c
new file mode 100644
index 00000000000..cf0354920ce
--- /dev/null
+++ b/oldXMenu/DelPane.c
@@ -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);
+}