From c2eac5a5ab4e7dfd625fdd0c349b9867c1ad8531 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Mon, 17 Jan 2000 09:13:51 +0000 Subject: (EmacsFrameSetCharSize): Change size of children first because of problems with main window geometry management under Lesstif. --- src/widget.c | 25 +++++++++++-------------- 1 file changed, 11 insertions(+), 14 deletions(-) (limited to 'src/widget.c') diff --git a/src/widget.c b/src/widget.c index 65947754dae..70a84aad2e1 100644 --- a/src/widget.c +++ b/src/widget.c @@ -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; -- cgit v1.2.1