aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1994-01-31 05:35:36 +0000
committerRichard M. Stallman1994-01-31 05:35:36 +0000
commit345a94f994fecd2420b1d6485d2661deb5f24cb4 (patch)
tree9b31cb59e411fb834859b40f297c0a38d648fe5d
parentab9d3e3c85c284fb4efde1a78ebab37ada89516b (diff)
downloademacs-345a94f994fecd2420b1d6485d2661deb5f24cb4.tar.gz
emacs-345a94f994fecd2420b1d6485d2661deb5f24cb4.zip
*** empty log message ***
-rw-r--r--lwlib/lwlib-Xlw.c42
-rw-r--r--lwlib/lwlib-utils.c23
-rw-r--r--src/widget.c94
3 files changed, 113 insertions, 46 deletions
diff --git a/lwlib/lwlib-Xlw.c b/lwlib/lwlib-Xlw.c
index 1c56b8eb3a3..893833efca3 100644
--- a/lwlib/lwlib-Xlw.c
+++ b/lwlib/lwlib-Xlw.c
@@ -27,7 +27,10 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
27 27
28 /* Menu callbacks */ 28 /* Menu callbacks */
29static void 29static void
30pre_hook (Widget w, XtPointer client_data, XtPointer call_data) 30pre_hook (w, client_data, call_data)
31 Widget w;
32 XtPointer client_data;
33 XtPointer call_data;
31{ 34{
32 widget_instance* instance = (widget_instance*)client_data; 35 widget_instance* instance = (widget_instance*)client_data;
33 widget_value* val; 36 widget_value* val;
@@ -42,7 +45,10 @@ pre_hook (Widget w, XtPointer client_data, XtPointer call_data)
42} 45}
43 46
44static void 47static void
45pick_hook (Widget w, XtPointer client_data, XtPointer call_data) 48pick_hook (w, client_data, call_data)
49 Widget w;
50 XtPointer client_data;
51 XtPointer call_data;
46{ 52{
47 widget_instance* instance = (widget_instance*)client_data; 53 widget_instance* instance = (widget_instance*)client_data;
48 widget_value* contents_val = (widget_value*)call_data; 54 widget_value* contents_val = (widget_value*)call_data;
@@ -66,7 +72,8 @@ pick_hook (Widget w, XtPointer client_data, XtPointer call_data)
66 72
67 /* creation functions */ 73 /* creation functions */
68static Widget 74static Widget
69xlw_create_menubar (widget_instance* instance) 75xlw_create_menubar (instance)
76 widget_instance* instance;
70{ 77{
71 Widget widget = 78 Widget widget =
72 XtVaCreateWidget (instance->info->name, xlwMenuWidgetClass, 79 XtVaCreateWidget (instance->info->name, xlwMenuWidgetClass,
@@ -79,7 +86,8 @@ xlw_create_menubar (widget_instance* instance)
79} 86}
80 87
81static Widget 88static Widget
82xlw_create_popup_menu (widget_instance* instance) 89xlw_create_popup_menu (instance)
90 widget_instance* instance;
83{ 91{
84 Widget popup_shell = 92 Widget popup_shell =
85 XtCreatePopupShell (instance->info->name, overrideShellWidgetClass, 93 XtCreatePopupShell (instance->info->name, overrideShellWidgetClass,
@@ -106,7 +114,8 @@ xlw_creation_table [] =
106}; 114};
107 115
108Boolean 116Boolean
109lw_lucid_widget_p (Widget widget) 117lw_lucid_widget_p (widget)
118 Widget widget;
110{ 119{
111 WidgetClass the_class = XtClass (widget); 120 WidgetClass the_class = XtClass (widget);
112 if (the_class == xlwMenuWidgetClass) 121 if (the_class == xlwMenuWidgetClass)
@@ -119,8 +128,11 @@ lw_lucid_widget_p (Widget widget)
119} 128}
120 129
121void 130void
122xlw_update_one_widget (widget_instance* instance, Widget widget, 131xlw_update_one_widget (instance, widget, val, deep_p)
123 widget_value* val, Boolean deep_p) 132 widget_instance* instance;
133 Widget widget;
134 widget_value* val;
135 Boolean deep_p;
124{ 136{
125 XlwMenuWidget mw; 137 XlwMenuWidget mw;
126 138
@@ -132,19 +144,24 @@ xlw_update_one_widget (widget_instance* instance, Widget widget,
132} 144}
133 145
134void 146void
135xlw_update_one_value (widget_instance* instance, Widget widget, 147xlw_update_one_value (instance, widget, val)
136 widget_value* val) 148 widget_instance* instance;
149 Widget widget;
150 widget_value* val;
137{ 151{
138 return; 152 return;
139} 153}
140 154
141void 155void
142xlw_pop_instance (widget_instance* instance, Boolean up) 156xlw_pop_instance (instance, up)
157 widget_instance* instance;
158 Boolean up;
143{ 159{
144} 160}
145 161
146void 162void
147xlw_popup_menu (Widget widget) 163xlw_popup_menu (widget)
164 Widget widget;
148{ 165{
149 XButtonPressedEvent dummy; 166 XButtonPressedEvent dummy;
150 XlwMenuWidget mw; 167 XlwMenuWidget mw;
@@ -170,7 +187,8 @@ xlw_popup_menu (Widget widget)
170 187
171 /* Destruction of instances */ 188 /* Destruction of instances */
172void 189void
173xlw_destroy_instance (widget_instance* instance) 190xlw_destroy_instance (instance)
191 widget_instance* instance;
174{ 192{
175 if (instance->widget) 193 if (instance->widget)
176 XtDestroyWidget (instance->widget); 194 XtDestroyWidget (instance->widget);
diff --git a/lwlib/lwlib-utils.c b/lwlib/lwlib-utils.c
index 97952afce55..c6899b57af7 100644
--- a/lwlib/lwlib-utils.c
+++ b/lwlib/lwlib-utils.c
@@ -29,7 +29,8 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
29 29
30/* Redisplay the contents of the widget, without first clearing it. */ 30/* Redisplay the contents of the widget, without first clearing it. */
31void 31void
32XtNoClearRefreshWidget (Widget widget) 32XtNoClearRefreshWidget (widget)
33 Widget widget;
33{ 34{
34 XEvent event; 35 XEvent event;
35 36
@@ -53,7 +54,10 @@ XtNoClearRefreshWidget (Widget widget)
53 * Apply a function to all the subwidgets of a given widget recursively. 54 * Apply a function to all the subwidgets of a given widget recursively.
54*/ 55*/
55void 56void
56XtApplyToWidgets (Widget w, XtApplyToWidgetsProc proc, XtPointer arg) 57XtApplyToWidgets (w, proc, arg)
58 Widget w;
59 XtApplyToWidgetsProc proc;
60 XtPointer arg;
57{ 61{
58 if (XtIsComposite (w)) 62 if (XtIsComposite (w))
59 { 63 {
@@ -83,7 +87,10 @@ XtApplyToWidgets (Widget w, XtApplyToWidgetsProc proc, XtPointer arg)
83 * Stop as soon as the function returns non NULL and returns this as a value. 87 * Stop as soon as the function returns non NULL and returns this as a value.
84 */ 88 */
85void * 89void *
86XtApplyUntilToWidgets (Widget w, XtApplyUntilToWidgetsProc proc, XtPointer arg) 90XtApplyUntilToWidgets (w, proc, arg)
91 Widget w;
92 XtApplyUntilToWidgetsProc proc;
93 XtPointer arg;
87{ 94{
88 void* result; 95 void* result;
89 if (XtIsComposite (w)) 96 if (XtIsComposite (w))
@@ -109,7 +116,9 @@ XtApplyUntilToWidgets (Widget w, XtApplyUntilToWidgetsProc proc, XtPointer arg)
109 * Returns a copy of the list of all children of a composite widget 116 * Returns a copy of the list of all children of a composite widget
110 */ 117 */
111Widget * 118Widget *
112XtCompositeChildren (Widget widget, unsigned int* number) 119XtCompositeChildren (widget, number)
120 Widget widget;
121 unsigned int* number;
113{ 122{
114 CompositeWidget cw = (CompositeWidget)widget; 123 CompositeWidget cw = (CompositeWidget)widget;
115 Widget* result; 124 Widget* result;
@@ -130,13 +139,15 @@ XtCompositeChildren (Widget widget, unsigned int* number)
130} 139}
131 140
132Boolean 141Boolean
133XtWidgetBeingDestroyedP (Widget widget) 142XtWidgetBeingDestroyedP (widget)
143 Widget widget;
134{ 144{
135 return widget->core.being_destroyed; 145 return widget->core.being_destroyed;
136} 146}
137 147
138void 148void
139XtSafelyDestroyWidget (Widget widget) 149XtSafelyDestroyWidget (widget)
150 Widget widget;
140{ 151{
141#if 0 152#if 0
142 153
diff --git a/src/widget.c b/src/widget.c
index e93fbaf5c6b..ba46b247e2f 100644
--- a/src/widget.c
+++ b/src/widget.c
@@ -191,8 +191,12 @@ pixel_to_char_size (ew, pixel_width, pixel_height, char_width, char_height)
191} 191}
192 192
193static void 193static void
194char_to_pixel_size (EmacsFrame ew, int char_width, int char_height, 194char_to_pixel_size (ew, char_width, char_height, pixel_width, pixel_height)
195 Dimension* pixel_width, Dimension* pixel_height) 195 EmacsFrame ew;
196 int char_width;
197 int char_height;
198 Dimension* pixel_width;
199 Dimension* pixel_height;
196{ 200{
197 struct frame* f = ew->emacs_frame.frame; 201 struct frame* f = ew->emacs_frame.frame;
198 *pixel_width = CHAR_TO_PIXEL_WIDTH (f, char_width); 202 *pixel_width = CHAR_TO_PIXEL_WIDTH (f, char_width);
@@ -200,9 +204,12 @@ char_to_pixel_size (EmacsFrame ew, int char_width, int char_height,
200} 204}
201 205
202static void 206static void
203round_size_to_char (EmacsFrame ew, 207round_size_to_char (ew, in_width, in_height, out_width, out_height)
204 Dimension in_width, Dimension in_height, 208 EmacsFrame ew;
205 Dimension* out_width, Dimension* out_height) 209 Dimension in_width;
210 Dimension in_height;
211 Dimension* out_width;
212 Dimension* out_height;
206{ 213{
207 int char_width; 214 int char_width;
208 int char_height; 215 int char_height;
@@ -211,7 +218,8 @@ round_size_to_char (EmacsFrame ew,
211} 218}
212 219
213static Widget 220static Widget
214get_wm_shell (Widget w) 221get_wm_shell (w)
222 Widget w;
215{ 223{
216 Widget wmshell; 224 Widget wmshell;
217 225
@@ -223,7 +231,8 @@ get_wm_shell (Widget w)
223} 231}
224 232
225static void 233static void
226mark_shell_size_user_specified (Widget wmshell) 234mark_shell_size_user_specified (wmshell)
235 Widget wmshell;
227{ 236{
228 if (! XtIsWMShell (wmshell)) abort (); 237 if (! XtIsWMShell (wmshell)) abort ();
229 /* This is kind of sleazy, but I can't see how else to tell it to make it 238 /* This is kind of sleazy, but I can't see how else to tell it to make it
@@ -241,7 +250,8 @@ mark_shell_size_user_specified (Widget wmshell)
241static Boolean first_frame_p = True; 250static Boolean first_frame_p = True;
242 251
243static void 252static void
244set_frame_size (EmacsFrame ew) 253set_frame_size (ew)
254 EmacsFrame ew;
245{ 255{
246 /* The widget hierarchy is 256 /* The widget hierarchy is
247 257
@@ -468,7 +478,8 @@ set_frame_size (EmacsFrame ew)
468 478
469 479
470static void 480static void
471update_wm_hints (EmacsFrame ew) 481update_wm_hints (ew)
482 EmacsFrame ew;
472{ 483{
473 Widget wmshell = get_wm_shell ((Widget)ew); 484 Widget wmshell = get_wm_shell ((Widget)ew);
474 int cw; 485 int cw;
@@ -510,7 +521,8 @@ update_wm_hints (EmacsFrame ew)
510} 521}
511 522
512static void 523static void
513create_frame_gcs (EmacsFrame ew) 524create_frame_gcs (ew)
525 EmacsFrame ew;
514{ 526{
515 struct frame* s = ew->emacs_frame.frame; 527 struct frame* s = ew->emacs_frame.frame;
516 528
@@ -523,7 +535,8 @@ create_frame_gcs (EmacsFrame ew)
523} 535}
524 536
525static void 537static void
526setup_frame_gcs (EmacsFrame ew) 538setup_frame_gcs (ew)
539 EmacsFrame ew;
527{ 540{
528 XGCValues gc_values; 541 XGCValues gc_values;
529 struct frame* s = ew->emacs_frame.frame; 542 struct frame* s = ew->emacs_frame.frame;
@@ -599,7 +612,8 @@ setup_frame_gcs (EmacsFrame ew)
599} 612}
600 613
601static void 614static void
602update_various_frame_slots (EmacsFrame ew) 615update_various_frame_slots (ew)
616 EmacsFrame ew;
603{ 617{
604 struct x_display* x = ew->emacs_frame.frame->display.x; 618 struct x_display* x = ew->emacs_frame.frame->display.x;
605 x->pixel_height = ew->core.height; 619 x->pixel_height = ew->core.height;
@@ -609,7 +623,8 @@ update_various_frame_slots (EmacsFrame ew)
609} 623}
610 624
611static void 625static void
612update_from_various_frame_slots (EmacsFrame ew) 626update_from_various_frame_slots (ew)
627 EmacsFrame ew;
613{ 628{
614 struct x_display* x = ew->emacs_frame.frame->display.x; 629 struct x_display* x = ew->emacs_frame.frame->display.x;
615 ew->core.height = x->pixel_height; 630 ew->core.height = x->pixel_height;
@@ -623,8 +638,11 @@ update_from_various_frame_slots (EmacsFrame ew)
623} 638}
624 639
625static void 640static void
626EmacsFrameInitialize (Widget request, Widget new, 641EmacsFrameInitialize (request, new, dum1, dum2)
627 ArgList dum1, Cardinal *dum2) 642 Widget request;
643 Widget new;
644 ArgList dum1;
645 Cardinal *dum2;
628{ 646{
629 EmacsFrame ew = (EmacsFrame)new; 647 EmacsFrame ew = (EmacsFrame)new;
630 648
@@ -681,8 +699,10 @@ EmacsFrameInitialize (Widget request, Widget new,
681 699
682 700
683static void 701static void
684EmacsFrameRealize (Widget widget, XtValueMask *mask, 702EmacsFrameRealize (widget, mask, attrs)
685 XSetWindowAttributes *attrs) 703 Widget widget;
704 XtValueMask *mask;
705 XSetWindowAttributes *attrs;
686{ 706{
687 EmacsFrame ew = (EmacsFrame)widget; 707 EmacsFrame ew = (EmacsFrame)widget;
688 708
@@ -699,10 +719,11 @@ EmacsFrameRealize (Widget widget, XtValueMask *mask,
699 update_wm_hints (ew); 719 update_wm_hints (ew);
700} 720}
701 721
702extern void free_frame_faces (struct frame *); 722extern void free_frame_faces (/* struct frame * */);
703 723
704static void 724static void
705EmacsFrameDestroy (Widget widget) 725EmacsFrameDestroy (widget)
726 Widget widget;
706{ 727{
707 EmacsFrame ew = (EmacsFrame) widget; 728 EmacsFrame ew = (EmacsFrame) widget;
708 struct frame* s = ew->emacs_frame.frame; 729 struct frame* s = ew->emacs_frame.frame;
@@ -723,7 +744,8 @@ EmacsFrameDestroy (Widget widget)
723} 744}
724 745
725void 746void
726EmacsFrameResize (Widget widget) 747EmacsFrameResize (widget)
748 Widget widget;
727{ 749{
728 EmacsFrame ew = (EmacsFrame)widget; 750 EmacsFrame ew = (EmacsFrame)widget;
729 struct frame *f = ew->emacs_frame.frame; 751 struct frame *f = ew->emacs_frame.frame;
@@ -762,8 +784,12 @@ EmacsFrameResize (Widget widget)
762} 784}
763 785
764static Boolean 786static Boolean
765EmacsFrameSetValues (Widget cur_widget, Widget req_widget, Widget new_widget, 787EmacsFrameSetValues (cur_widget, req_widget, new_widget, dum1, dum2)
766 ArgList dum1, Cardinal *dum2) 788 Widget cur_widget;
789 Widget req_widget;
790 Widget new_widget;
791 ArgList dum1;
792 Cardinal *dum2;
767{ 793{
768 EmacsFrame cur = (EmacsFrame)cur_widget; 794 EmacsFrame cur = (EmacsFrame)cur_widget;
769 EmacsFrame new = (EmacsFrame)new_widget; 795 EmacsFrame new = (EmacsFrame)new_widget;
@@ -834,8 +860,10 @@ EmacsFrameSetValues (Widget cur_widget, Widget req_widget, Widget new_widget,
834} 860}
835 861
836static XtGeometryResult 862static XtGeometryResult
837EmacsFrameQueryGeometry (Widget widget, XtWidgetGeometry* request, 863EmacsFrameQueryGeometry (widget, request, result)
838 XtWidgetGeometry* result) 864 Widget widget;
865 XtWidgetGeometry* request;
866 XtWidgetGeometry* result;
839{ 867{
840 EmacsFrame ew = (EmacsFrame)widget; 868 EmacsFrame ew = (EmacsFrame)widget;
841 869
@@ -868,13 +896,20 @@ EmacsFrameQueryGeometry (Widget widget, XtWidgetGeometry* request,
868 it to make the focus handlers work?? 896 it to make the focus handlers work??
869 */ 897 */
870static void 898static void
871key_press (Widget w, XEvent* event, String *params, Cardinal *n_params) 899key_press (w, event, params, n_params)
900 Widget w;
901 XEvent* event;
902 String *params;
903 Cardinal *n_params;
872{ 904{
873} 905}
874 906
875static void 907static void
876emacs_frame_focus_handler (Widget w, XEvent *event, String *params, 908emacs_frame_focus_handler (w, event, params, n_params)
877 Cardinal *n_params) 909 Widget w;
910 XEvent *event;
911 String *params;
912 Cardinal *n_params;
878{ 913{
879 emacs_Xt_focus_event_handler (event, 0); 914 emacs_Xt_focus_event_handler (event, 0);
880} 915}
@@ -882,7 +917,10 @@ emacs_frame_focus_handler (Widget w, XEvent *event, String *params,
882 917
883/* Special entrypoints */ 918/* Special entrypoints */
884void 919void
885EmacsFrameSetCharSize (Widget widget, int columns, int rows) 920EmacsFrameSetCharSize (widget, columns, rows)
921 Widget widget;
922 int columns;
923 int rows;
886{ 924{
887 EmacsFrame ew = (EmacsFrame) widget; 925 EmacsFrame ew = (EmacsFrame) widget;
888 Dimension pixel_width, pixel_height, granted_width, granted_height; 926 Dimension pixel_width, pixel_height, granted_width, granted_height;