mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-18 10:16:51 +00:00
Code Issues Releases Activity

(EmacsFrameSetCharSize): Call check_frame_size and update

Browse Source 
vertical_scroll_bar_extra.
Call SET_FRAME_GARBAGED.
This commit is contained in:
Fred Pierresteguy 1994-02-25 09:10:22 +00:00
parent 1dc5112cb7
commit 982a94d930
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/widget.c
View File

@ -871,9 +871,16 @@ EmacsFrameSetCharSize (widget, columns, rows)
EmacsFrame ew = (EmacsFrame) widget;
Dimension pixel_width, pixel_height, granted_width, granted_height;
XtGeometryResult result;
struct frame *f = ew->emacs_frame.frame;
if (columns < 3) columns = 3; /* no way buddy */
if (rows < 3) rows = 3;
check_frame_size (f, &rows, &columns);
f->display.x->vertical_scroll_bar_extra
= (FRAME_HAS_VERTICAL_SCROLL_BARS (f)
? VERTICAL_SCROLL_BAR_PIXEL_WIDTH (f)
: 0);
char_to_pixel_size (ew, columns, rows, &pixel_width, &pixel_height);
result = XtMakeResizeRequest ((Widget)ew,
pixel_width, pixel_height,
@ -887,4 +894,10 @@ EmacsFrameSetCharSize (widget, columns, rows)
XtVaSetValues (XtParent ((Widget) ew), XtNwidth, pixel_width, 0);
XtVaSetValues ((Widget) ew, XtNwidth, pixel_width, 0);
}
/* We've set {FRAME,PIXEL}_{WIDTH,HEIGHT} to the values we hope to
receive in the ConfigureNotify event; if we get what we asked
for, then the event won't cause the screen to become garbaged, so
we have to make sure to do it here. */
SET_FRAME_GARBAGED (f);
}