Mercurial > emacs
annotate oldXMenu/ChgPane.c @ 70442:284d18cd0af7
(Program Modes): Replace inforef to emacs-xtra by conditional xref's, depending
on @iftex/@ifnottex.
(Programs) [ifnottex]: Add menu entry for "Fortran".
<Top Level> [ifnottex]: @include fortran-xtra.texi.
author | Eli Zaretskii <eliz@gnu.org> |
---|---|
date | Sat, 06 May 2006 12:48:03 +0000 |
parents | e8a3fb527b77 |
children | ce127a46b1ca d04d8ccb3c41 c5406394f567 |
rev | line source |
---|---|
25858 | 1 #include "copyright.h" |
2 | |
3 /* Copyright Massachusetts Institute of Technology 1985 */ | |
68640
e8a3fb527b77
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
65000
diff
changeset
|
4 /* Copyright (C) 2002, 2003, 2004, 2005, |
e8a3fb527b77
Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents:
65000
diff
changeset
|
5 2006 Free Software Foundation, Inc. */ |
25858 | 6 |
7 /* | |
8 * XMenu: MIT Project Athena, X Window system menu package | |
9 * | |
10 * XMenuChangePane - Change the label of a menu pane. | |
11 * | |
12 * Author: Tony Della Fera, DEC | |
13 * December 19, 1985 | |
14 * | |
15 */ | |
16 | |
17 #include "XMenuInt.h" | |
18 | |
19 int | |
20 XMenuChangePane(menu, p_num, label) | |
21 register XMenu *menu; /* Menu object to be modified. */ | |
22 register int p_num; /* Pane number to be modified. */ | |
23 char *label; /* Selection label. */ | |
24 { | |
25 register XMPane *p_ptr; /* XMPane pointer. */ | |
26 | |
27 int label_length; /* Label length in characters. */ | |
28 int label_width; /* Label width in pixels. */ | |
29 | |
30 /* | |
31 * Check for NULL pointers! | |
32 */ | |
33 if (label == NULL) { | |
34 _XMErrorCode = XME_ARG_BOUNDS; | |
35 return(XM_FAILURE); | |
36 } | |
37 | |
38 /* | |
39 * Find the right pane. | |
40 */ | |
41 p_ptr = _XMGetPanePtr(menu, p_num); | |
42 if (p_ptr == NULL) return(XM_FAILURE); | |
43 | |
44 /* | |
45 * Determine label size. | |
46 */ | |
47 label_length = strlen(label); | |
48 label_width = XTextWidth(menu->p_fnt_info, label, label_length); | |
49 | |
50 /* | |
51 * Change the pane data. | |
52 */ | |
53 p_ptr->label = label; | |
54 p_ptr->label_width = label_width; | |
55 p_ptr->label_length = label_length; | |
56 | |
57 /* | |
58 * Schedule a recompute. | |
59 */ | |
60 menu->recompute = 1; | |
61 | |
62 /* | |
63 * Return the pane number just changed. | |
64 */ | |
65 _XMErrorCode = XME_NO_ERROR; | |
66 return(p_num); | |
67 } | |
52401 | 68 |
69 /* arch-tag: e267e9de-a3f0-4a0d-8c45-413afa176fd8 | |
70 (do not change this comment) */ |