comparison src/widget.c @ 9165:cdbd78e42e03

(set_frame_size, EmacsFrameSetCharSize): Use new width formula.
author Karl Heuer <kwzh@gnu.org>
date Wed, 28 Sep 1994 00:58:15 +0000
parents 4a2b3d7c2394
children 786a658d3687
comparison
equal deleted inserted replaced
9164:fbdd7a2e62f4 9165:cdbd78e42e03
421 Dimension pixel_width, pixel_height; 421 Dimension pixel_width, pixel_height;
422 char shell_position [32]; 422 char shell_position [32];
423 423
424 /* Take into account the size of the scrollbar */ 424 /* Take into account the size of the scrollbar */
425 frame->display.x->vertical_scroll_bar_extra 425 frame->display.x->vertical_scroll_bar_extra
426 = (FRAME_HAS_VERTICAL_SCROLL_BARS (frame) 426 = (!FRAME_HAS_VERTICAL_SCROLL_BARS (frame)
427 ? 0
428 : FRAME_SCROLL_BAR_PIXEL_WIDTH (frame) > 0
427 ? FRAME_SCROLL_BAR_PIXEL_WIDTH (frame) 429 ? FRAME_SCROLL_BAR_PIXEL_WIDTH (frame)
428 : 0); 430 : (FRAME_SCROLL_BAR_COLS (frame)
429 431 * FONT_WIDTH (frame->display.x->font)));
430 432
431 change_frame_size (frame, h, w, 1, 0); 433 change_frame_size (frame, h, w, 1, 0);
432 char_to_pixel_size (ew, w, h, &pixel_width, &pixel_height); 434 char_to_pixel_size (ew, w, h, &pixel_width, &pixel_height);
433 ew->core.width = pixel_width; 435 ew->core.width = pixel_width;
434 ew->core.height = pixel_height; 436 ew->core.height = pixel_height;
881 883
882 if (columns < 3) columns = 3; /* no way buddy */ 884 if (columns < 3) columns = 3; /* no way buddy */
883 885
884 check_frame_size (f, &rows, &columns); 886 check_frame_size (f, &rows, &columns);
885 f->display.x->vertical_scroll_bar_extra 887 f->display.x->vertical_scroll_bar_extra
886 = (FRAME_HAS_VERTICAL_SCROLL_BARS (f) 888 = (!FRAME_HAS_VERTICAL_SCROLL_BARS (f)
889 ? 0
890 : FRAME_SCROLL_BAR_PIXEL_WIDTH (f) > 0
887 ? FRAME_SCROLL_BAR_PIXEL_WIDTH (f) 891 ? FRAME_SCROLL_BAR_PIXEL_WIDTH (f)
888 : 0); 892 : (FRAME_SCROLL_BAR_COLS (f) * FONT_WIDTH (f->display.x->font)));
893
889 char_to_pixel_size (ew, columns, rows, &pixel_width, &pixel_height); 894 char_to_pixel_size (ew, columns, rows, &pixel_width, &pixel_height);
890 895
891 /* Recompute the entire geometry management. */ 896 /* Recompute the entire geometry management. */
892 if (ew->core.width != pixel_width || ew->core.height != pixel_height) 897 if (ew->core.width != pixel_width || ew->core.height != pixel_height)
893 { 898 {