.
[emacs.git] / oldXMenu / ChgPane.c
blobe039507180fc71e252ab83548c0f78435b348c15
1 #include "copyright.h"
3 /* $Header: /u/src/emacs/19.0/oldXMenu/RCS/ChgPane.c,v 1.1 1992/04/11 22:10:17 jimb Exp $ */
4 /* Copyright Massachusetts Institute of Technology 1985 */
6 /*
7 * XMenu: MIT Project Athena, X Window system menu package
9 * XMenuChangePane - Change the label of a menu pane.
11 * Author: Tony Della Fera, DEC
12 * December 19, 1985
16 #include "XMenuInt.h"
18 int
19 XMenuChangePane(menu, p_num, label)
20 register XMenu *menu; /* Menu object to be modified. */
21 register int p_num; /* Pane number to be modified. */
22 char *label; /* Selection label. */
24 register XMPane *p_ptr; /* XMPane pointer. */
26 int label_length; /* Label length in characters. */
27 int label_width; /* Label width in pixels. */
30 * Check for NULL pointers!
32 if (label == NULL) {
33 _XMErrorCode = XME_ARG_BOUNDS;
34 return(XM_FAILURE);
38 * Find the right pane.
40 p_ptr = _XMGetPanePtr(menu, p_num);
41 if (p_ptr == NULL) return(XM_FAILURE);
44 * Determine label size.
46 label_length = strlen(label);
47 label_width = XTextWidth(menu->p_fnt_info, label, label_length);
50 * Change the pane data.
52 p_ptr->label = label;
53 p_ptr->label_width = label_width;
54 p_ptr->label_length = label_length;
57 * Schedule a recompute.
59 menu->recompute = 1;
62 * Return the pane number just changed.
64 _XMErrorCode = XME_NO_ERROR;
65 return(p_num);