#

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);
+}