# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 948100431 0
# Node ID cf4ab4e4be66ed5ff05189abdc4413f5551f6eda
# Parent  ab22130d8fe338798f01329726ed4e10ce542212
(EmacsFrameSetCharSize): Change size of children first
because of problems with main window geometry management under
Lesstif.

diff -r ab22130d8fe3 -r cf4ab4e4be66 src/widget.c
--- a/src/widget.c	Mon Jan 17 09:13:23 2000 +0000
+++ b/src/widget.c	Mon Jan 17 09:13:51 2000 +0000
@@ -942,21 +942,18 @@
       lw_refigure_widget (f->output_data.x->column_widget, False);
       update_hints_inhibit = 1;
 
-      ac = 0;
-      XtSetArg (al[ac], XtNheight, pixel_height); ac++;
-      XtSetArg (al[ac], XtNwidth, pixel_width); ac++;
-      XtSetValues ((Widget) ew, al, ac);
+      /* Do parents first, otherwise LessTif's geometry
+	 management enters an infinite loop (as of 2000-01-15).  */
+      XtVaSetValues (f->output_data.x->widget,
+      		     XtNheight, outer_widget_height + hdelta,
+		     XtNwidth, outer_widget_width + wdelta, NULL);
+      XtVaSetValues (f->output_data.x->column_widget,
+      		     XtNheight, column_widget_height + hdelta,
+      		     XtNwidth, column_widget_width + wdelta, NULL);
+      XtVaSetValues ((Widget) ew,
+                     XtNheight, pixel_height,
+      		     XtNwidth, pixel_width, NULL);
  
-      ac = 0;
-      XtSetArg (al[ac], XtNheight, column_widget_height + hdelta); ac++;
-      XtSetArg (al[ac], XtNwidth, column_widget_width + wdelta); ac++;
-      XtSetValues (f->output_data.x->column_widget, al, ac);
-
-      ac = 0;
-      XtSetArg (al[ac], XtNheight, outer_widget_height + hdelta); ac++;
-      XtSetArg (al[ac], XtNwidth, outer_widget_width + wdelta); ac++;
-      XtSetValues (f->output_data.x->widget, al, ac);
-
       lw_refigure_widget (f->output_data.x->column_widget, True);
 
       update_hints_inhibit = 0;