Mercurial > emacs

changeset 5708:4870efc489ea

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Richard M. Stallman <rms@gnu.org>
date Mon, 31 Jan 1994 05:35:36 +0000
parents 118a6ad56ae0
children 85119c3098a0
files lwlib/lwlib-Xlw.c lwlib/lwlib-utils.c src/widget.c
diffstat 3 files changed, 113 insertions(+), 46 deletions(-) [+]
line wrap: on
line diff
--- a/lwlib/lwlib-Xlw.c	Mon Jan 31 04:34:11 1994 +0000
+++ b/lwlib/lwlib-Xlw.c	Mon Jan 31 05:35:36 1994 +0000
@@ -27,7 +27,10 @@
 
 /* Menu callbacks */
 static void
-pre_hook (Widget w, XtPointer client_data, XtPointer call_data)
+pre_hook (w, client_data, call_data)
+     Widget w;
+     XtPointer client_data;
+     XtPointer call_data;
 {
   widget_instance* instance = (widget_instance*)client_data;
   widget_value* val;
@@ -42,7 +45,10 @@
 }
 
 static void
-pick_hook (Widget w, XtPointer client_data, XtPointer call_data)
+pick_hook (w, client_data, call_data)
+     Widget w;
+     XtPointer client_data;
+     XtPointer call_data;
 {
   widget_instance* instance = (widget_instance*)client_data;
   widget_value* contents_val = (widget_value*)call_data;
@@ -66,7 +72,8 @@
 
 /* creation functions */
 static Widget
-xlw_create_menubar (widget_instance* instance)
+xlw_create_menubar (instance)
+     widget_instance* instance;
 {
   Widget widget =
     XtVaCreateWidget (instance->info->name, xlwMenuWidgetClass,
@@ -79,7 +86,8 @@
 }
 
 static Widget
-xlw_create_popup_menu (widget_instance* instance)
+xlw_create_popup_menu (instance)
+     widget_instance* instance;
 {
   Widget popup_shell =
     XtCreatePopupShell (instance->info->name, overrideShellWidgetClass,
@@ -106,7 +114,8 @@
 };
 
 Boolean
-lw_lucid_widget_p (Widget widget)
+lw_lucid_widget_p (widget)
+     Widget widget;
 {
   WidgetClass the_class = XtClass (widget);
   if (the_class == xlwMenuWidgetClass)
@@ -119,8 +128,11 @@
 }
 
 void
-xlw_update_one_widget (widget_instance* instance, Widget widget,
-		       widget_value* val, Boolean deep_p)
+xlw_update_one_widget (instance, widget, val, deep_p)
+     widget_instance* instance;
+     Widget widget;
+     widget_value* val;
+     Boolean deep_p;
 {
   XlwMenuWidget mw;
 
@@ -132,19 +144,24 @@
 }
 
 void
-xlw_update_one_value (widget_instance* instance, Widget widget,
-		      widget_value* val)
+xlw_update_one_value (instance, widget, val)
+     widget_instance* instance;
+     Widget widget;
+     widget_value* val;
 {
   return;
 }
 
 void
-xlw_pop_instance (widget_instance* instance, Boolean up)
+xlw_pop_instance (instance, up)
+     widget_instance* instance;
+     Boolean up;
 {
 }
 
 void
-xlw_popup_menu (Widget widget)
+xlw_popup_menu (widget)
+     Widget widget;
 {
   XButtonPressedEvent dummy;
   XlwMenuWidget mw;
@@ -170,7 +187,8 @@
 
 /* Destruction of instances */
 void
-xlw_destroy_instance (widget_instance* instance)
+xlw_destroy_instance (instance)
+     widget_instance* instance;
 {
   if (instance->widget)
     XtDestroyWidget (instance->widget);
--- a/lwlib/lwlib-utils.c	Mon Jan 31 04:34:11 1994 +0000
+++ b/lwlib/lwlib-utils.c	Mon Jan 31 05:35:36 1994 +0000
@@ -29,7 +29,8 @@
 
 /* Redisplay the contents of the widget, without first clearing it. */
 void
-XtNoClearRefreshWidget (Widget widget)
+XtNoClearRefreshWidget (widget)
+     Widget widget;
 {
   XEvent event;
 
@@ -53,7 +54,10 @@
  * Apply a function to all the subwidgets of a given widget recursively.
 */
 void
-XtApplyToWidgets (Widget w, XtApplyToWidgetsProc proc, XtPointer arg)
+XtApplyToWidgets (w, proc, arg)
+     Widget w;
+     XtApplyToWidgetsProc proc;
+     XtPointer arg;
 {
   if (XtIsComposite (w))
     {
@@ -83,7 +87,10 @@
  * Stop as soon as the function returns non NULL and returns this as a value.
  */
 void *
-XtApplyUntilToWidgets (Widget w, XtApplyUntilToWidgetsProc proc, XtPointer arg)
+XtApplyUntilToWidgets (w, proc, arg)
+     Widget w;
+     XtApplyUntilToWidgetsProc proc;
+     XtPointer arg;
 {
   void* result;
   if (XtIsComposite (w))
@@ -109,7 +116,9 @@
  * Returns a copy of the list of all children of a composite widget
  */
 Widget *
-XtCompositeChildren (Widget widget, unsigned int* number)
+XtCompositeChildren (widget, number)
+     Widget widget;
+     unsigned int* number;
 {
   CompositeWidget cw = (CompositeWidget)widget;
   Widget* result;
@@ -130,13 +139,15 @@
 }
 
 Boolean
-XtWidgetBeingDestroyedP (Widget widget)
+XtWidgetBeingDestroyedP (widget)
+     Widget widget;
 {
   return widget->core.being_destroyed;
 }
 
 void
-XtSafelyDestroyWidget (Widget widget)
+XtSafelyDestroyWidget (widget)
+     Widget widget;
 {
 #if 0
 
--- a/src/widget.c	Mon Jan 31 04:34:11 1994 +0000
+++ b/src/widget.c	Mon Jan 31 05:35:36 1994 +0000
@@ -191,8 +191,12 @@
 }
 
 static void
-char_to_pixel_size (EmacsFrame ew, int char_width, int char_height,
-		    Dimension* pixel_width, Dimension* pixel_height)
+char_to_pixel_size (ew, char_width, char_height, pixel_width, pixel_height)
+     EmacsFrame ew;
+     int char_width;
+     int char_height;
+     Dimension* pixel_width;
+     Dimension* pixel_height;
 {
   struct frame* f = ew->emacs_frame.frame;
   *pixel_width = CHAR_TO_PIXEL_WIDTH (f, char_width);
@@ -200,9 +204,12 @@
 }
 
 static void
-round_size_to_char (EmacsFrame ew,
-		    Dimension in_width, Dimension in_height,
-		    Dimension* out_width, Dimension* out_height)
+round_size_to_char (ew, in_width, in_height, out_width, out_height)
+     EmacsFrame ew;
+     Dimension in_width;
+     Dimension in_height;
+     Dimension* out_width;
+     Dimension* out_height;
 {
   int char_width;
   int char_height;
@@ -211,7 +218,8 @@
 }
 
 static Widget
-get_wm_shell (Widget w)
+get_wm_shell (w)
+     Widget w;
 {
   Widget wmshell;
 
@@ -223,7 +231,8 @@
 }
 
 static void
-mark_shell_size_user_specified (Widget wmshell)
+mark_shell_size_user_specified (wmshell)
+     Widget wmshell;
 {
   if (! XtIsWMShell (wmshell)) abort ();
   /* This is kind of sleazy, but I can't see how else to tell it to make it
@@ -241,7 +250,8 @@
 static Boolean first_frame_p = True;
 
 static void
-set_frame_size (EmacsFrame ew)
+set_frame_size (ew)
+     EmacsFrame ew;
 {
   /* The widget hierarchy is
 
@@ -468,7 +478,8 @@
 
 
 static void
-update_wm_hints (EmacsFrame ew)
+update_wm_hints (ew)
+     EmacsFrame ew;
 {
   Widget wmshell = get_wm_shell ((Widget)ew);
   int cw;
@@ -510,7 +521,8 @@
 }
 
 static void
-create_frame_gcs (EmacsFrame ew)
+create_frame_gcs (ew)
+     EmacsFrame ew;
 {
   struct frame* s = ew->emacs_frame.frame;
 
@@ -523,7 +535,8 @@
 }
 
 static void
-setup_frame_gcs (EmacsFrame ew)
+setup_frame_gcs (ew)
+     EmacsFrame ew;
 {
   XGCValues gc_values;
   struct frame* s = ew->emacs_frame.frame;
@@ -599,7 +612,8 @@
 }
 
 static void
-update_various_frame_slots (EmacsFrame ew)
+update_various_frame_slots (ew)
+     EmacsFrame ew;
 {
   struct x_display* x = ew->emacs_frame.frame->display.x;
   x->pixel_height = ew->core.height;
@@ -609,7 +623,8 @@
 }
 
 static void
-update_from_various_frame_slots (EmacsFrame ew)
+update_from_various_frame_slots (ew)
+     EmacsFrame ew;
 {
   struct x_display* x = ew->emacs_frame.frame->display.x;
   ew->core.height = x->pixel_height;
@@ -623,8 +638,11 @@
 }
 
 static void 
-EmacsFrameInitialize (Widget request, Widget new,
-		       ArgList dum1, Cardinal *dum2)
+EmacsFrameInitialize (request, new, dum1, dum2)
+     Widget request;
+     Widget new;
+     ArgList dum1;
+     Cardinal *dum2;
 {
   EmacsFrame ew = (EmacsFrame)new;
 
@@ -681,8 +699,10 @@
 
 
 static void
-EmacsFrameRealize (Widget widget, XtValueMask *mask,
-		    XSetWindowAttributes *attrs)
+EmacsFrameRealize (widget, mask, attrs)
+     Widget widget;
+     XtValueMask *mask;
+     XSetWindowAttributes *attrs;
 {
   EmacsFrame ew = (EmacsFrame)widget;
 
@@ -699,10 +719,11 @@
   update_wm_hints (ew); 
 }
 
-extern void free_frame_faces (struct frame *);
+extern void free_frame_faces (/* struct frame * */);
 
 static void
-EmacsFrameDestroy (Widget widget)
+EmacsFrameDestroy (widget)
+     Widget widget;
 {
   EmacsFrame ew = (EmacsFrame) widget;
   struct frame* s = ew->emacs_frame.frame;
@@ -723,7 +744,8 @@
 }
 
 void
-EmacsFrameResize (Widget widget)
+EmacsFrameResize (widget)
+     Widget widget;
 {
   EmacsFrame ew = (EmacsFrame)widget;
   struct frame *f = ew->emacs_frame.frame;
@@ -762,8 +784,12 @@
 }
 
 static Boolean
-EmacsFrameSetValues (Widget cur_widget, Widget req_widget, Widget new_widget,
-		      ArgList dum1, Cardinal *dum2)
+EmacsFrameSetValues (cur_widget, req_widget, new_widget, dum1, dum2)
+     Widget cur_widget;
+     Widget req_widget;
+     Widget new_widget;
+     ArgList dum1;
+     Cardinal *dum2;
 {
   EmacsFrame cur = (EmacsFrame)cur_widget;
   EmacsFrame new = (EmacsFrame)new_widget;
@@ -834,8 +860,10 @@
 }
 
 static XtGeometryResult
-EmacsFrameQueryGeometry (Widget widget, XtWidgetGeometry* request,
-			  XtWidgetGeometry* result)
+EmacsFrameQueryGeometry (widget, request, result)
+     Widget widget;
+     XtWidgetGeometry* request;
+     XtWidgetGeometry* result;
 {
   EmacsFrame ew = (EmacsFrame)widget;
 
@@ -868,13 +896,20 @@
    it to make the focus handlers work??
  */
 static void
-key_press (Widget w, XEvent* event, String *params, Cardinal *n_params)
+key_press (w, event, params, n_params)
+     Widget w;
+     XEvent* event;
+     String *params;
+     Cardinal *n_params;
 {
 }
 
 static void
-emacs_frame_focus_handler (Widget w, XEvent *event, String *params,
-			    Cardinal *n_params)
+emacs_frame_focus_handler (w, event, params, n_params)
+     Widget w;
+     XEvent *event;
+     String *params;
+     Cardinal *n_params;
 {
   emacs_Xt_focus_event_handler (event, 0);
 }
@@ -882,7 +917,10 @@
 
 /* Special entrypoints */
 void
-EmacsFrameSetCharSize (Widget widget, int columns, int rows)
+EmacsFrameSetCharSize (widget, columns, rows)
+     Widget widget;
+     int columns;
+     int rows;
 {
   EmacsFrame ew = (EmacsFrame) widget;
   Dimension pixel_width, pixel_height, granted_width, granted_height;