Commit 47d09164 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(EmacsFrameSetCharSize): Change size of children first

because of problems with main window geometry management under
Lesstif.
parent 850df50b
......@@ -942,21 +942,18 @@ EmacsFrameSetCharSize (widget, columns, rows)
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;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment