[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/oldXMenu/ChgPane.c [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/oldXMenu/ChgPane.c [lexbind] |
Date: |
Tue, 14 Oct 2003 18:56:39 -0400 |
Index: emacs/oldXMenu/ChgPane.c
diff -c /dev/null emacs/oldXMenu/ChgPane.c:1.1.18.1
*** /dev/null Tue Oct 14 18:56:39 2003
--- emacs/oldXMenu/ChgPane.c Tue Oct 14 18:56:27 2003
***************
*** 0 ****
--- 1,69 ----
+ #include "copyright.h"
+
+ /* $Header: /cvsroot/emacs/emacs/oldXMenu/ChgPane.c,v 1.1.18.1 2003/10/14
22:56:27 miles Exp $ */
+ /* Copyright Massachusetts Institute of Technology 1985 */
+
+ /*
+ * XMenu: MIT Project Athena, X Window system menu package
+ *
+ * XMenuChangePane - Change the label of a menu pane.
+ *
+ * Author: Tony Della Fera, DEC
+ * December 19, 1985
+ *
+ */
+
+ #include "XMenuInt.h"
+
+ int
+ XMenuChangePane(menu, p_num, label)
+ register XMenu *menu; /* Menu object to be modified. */
+ register int p_num; /* Pane number to be modified. */
+ char *label; /* Selection label. */
+ {
+ register XMPane *p_ptr; /* XMPane pointer. */
+
+ int label_length; /* Label length in characters. */
+ int label_width; /* Label width in pixels. */
+
+ /*
+ * Check for NULL pointers!
+ */
+ if (label == NULL) {
+ _XMErrorCode = XME_ARG_BOUNDS;
+ return(XM_FAILURE);
+ }
+
+ /*
+ * Find the right pane.
+ */
+ p_ptr = _XMGetPanePtr(menu, p_num);
+ if (p_ptr == NULL) return(XM_FAILURE);
+
+ /*
+ * Determine label size.
+ */
+ label_length = strlen(label);
+ label_width = XTextWidth(menu->p_fnt_info, label, label_length);
+
+ /*
+ * Change the pane data.
+ */
+ p_ptr->label = label;
+ p_ptr->label_width = label_width;
+ p_ptr->label_length = label_length;
+
+ /*
+ * Schedule a recompute.
+ */
+ menu->recompute = 1;
+
+ /*
+ * Return the pane number just changed.
+ */
+ _XMErrorCode = XME_NO_ERROR;
+ return(p_num);
+ }
+
+ /* arch-tag: e267e9de-a3f0-4a0d-8c45-413afa176fd8
+ (do not change this comment) */
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/oldXMenu/ChgPane.c [lexbind],
Miles Bader <=