Commit | Line | Data |
---|---|---|
e745ede7 DL |
1 | #include "copyright.h" |
2 | ||
da1492a4 | 3 | /* $Header: /cvsroot/emacs/emacs/oldXMenu/ChgPane.c,v 1.2 2003/09/01 15:45:47 miles Exp $ */ |
e745ede7 DL |
4 | /* Copyright Massachusetts Institute of Technology 1985 */ |
5 | ||
6 | /* | |
7 | * XMenu: MIT Project Athena, X Window system menu package | |
8 | * | |
9 | * XMenuChangePane - Change the label of a menu pane. | |
10 | * | |
11 | * Author: Tony Della Fera, DEC | |
12 | * December 19, 1985 | |
13 | * | |
14 | */ | |
15 | ||
16 | #include "XMenuInt.h" | |
17 | ||
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. */ | |
23 | { | |
24 | register XMPane *p_ptr; /* XMPane pointer. */ | |
25 | ||
26 | int label_length; /* Label length in characters. */ | |
27 | int label_width; /* Label width in pixels. */ | |
28 | ||
29 | /* | |
30 | * Check for NULL pointers! | |
31 | */ | |
32 | if (label == NULL) { | |
33 | _XMErrorCode = XME_ARG_BOUNDS; | |
34 | return(XM_FAILURE); | |
35 | } | |
36 | ||
37 | /* | |
38 | * Find the right pane. | |
39 | */ | |
40 | p_ptr = _XMGetPanePtr(menu, p_num); | |
41 | if (p_ptr == NULL) return(XM_FAILURE); | |
42 | ||
43 | /* | |
44 | * Determine label size. | |
45 | */ | |
46 | label_length = strlen(label); | |
47 | label_width = XTextWidth(menu->p_fnt_info, label, label_length); | |
48 | ||
49 | /* | |
50 | * Change the pane data. | |
51 | */ | |
52 | p_ptr->label = label; | |
53 | p_ptr->label_width = label_width; | |
54 | p_ptr->label_length = label_length; | |
55 | ||
56 | /* | |
57 | * Schedule a recompute. | |
58 | */ | |
59 | menu->recompute = 1; | |
60 | ||
61 | /* | |
62 | * Return the pane number just changed. | |
63 | */ | |
64 | _XMErrorCode = XME_NO_ERROR; | |
65 | return(p_num); | |
66 | } | |
ab5796a9 MB |
67 | |
68 | /* arch-tag: e267e9de-a3f0-4a0d-8c45-413afa176fd8 | |
69 | (do not change this comment) */ |