Mercurial > emacs

comparison src/xterm.c @ 25269:621067279f19

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(XTset_vertical_scroll_bar) [USE_TOOLKIT_SCROLL_BARS]: Simplify clearing "under" scroll bar.
author Gerd Moellmann <gerd@gnu.org>
date Sun, 15 Aug 1999 22:01:01 +0000
parents 3a5376feb9aa
children 0f10c1eaf8fb
comparison
equal deleted inserted replaced
25268:ae698a1c13a4 25269:621067279f19
7913 mask |= CWWidth; 7913 mask |= CWWidth;
7914 if (pixel_height != XINT (bar->height)) 7914 if (pixel_height != XINT (bar->height))
7915 mask |= CWHeight; 7915 mask |= CWHeight;
7916 7916
7917 #ifdef USE_TOOLKIT_SCROLL_BARS 7917 #ifdef USE_TOOLKIT_SCROLL_BARS
7918 7918
7919 if (FRAME_HAS_VERTICAL_SCROLL_BARS_ON_RIGHT (f)) 7919 /* Since toolkit scroll bars are smaller than the space reserved
7920 { 7920 for them on the frame, we have to clear "under" them. */
7921 XClearArea (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f), 7921 XClearArea (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
7922 pixel_left + pixel_width - scroll_bar_area_width, 7922 pixel_left, pixel_top,
7923 pixel_top, 7923 pixel_width + 1, pixel_height, False);
7924 (scroll_bar_area_width
7925 - pixel_width
7926 + VERTICAL_SCROLL_BAR_WIDTH_TRIM),
7927 pixel_height, False);
7928 XClearArea (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
7929 (pixel_left
7930 + pixel_width
7931 - VERTICAL_SCROLL_BAR_WIDTH_TRIM),
7932 pixel_top,
7933 VERTICAL_SCROLL_BAR_WIDTH_TRIM,
7934 pixel_height, False);
7935 }
7936 else
7937 {
7938 XClearArea (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
7939 pixel_left, pixel_top,
7940 VERTICAL_SCROLL_BAR_WIDTH_TRIM, pixel_height, False);
7941 XClearArea (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
7942 (pixel_left
7943 + pixel_width
7944 - VERTICAL_SCROLL_BAR_WIDTH_TRIM),
7945 pixel_top,
7946 (scroll_bar_area_width
7947 - pixel_width
7948 + VERTICAL_SCROLL_BAR_WIDTH_TRIM),
7949 pixel_height, False);
7950 }
7951 7924
7952 /* Move/size the scroll bar widget. */ 7925 /* Move/size the scroll bar widget. */
7953 if (mask) 7926 if (mask)
7954 XtConfigureWidget (SCROLL_BAR_X_WIDGET (bar), 7927 XtConfigureWidget (SCROLL_BAR_X_WIDGET (bar),
7955 pixel_left + VERTICAL_SCROLL_BAR_WIDTH_TRIM, 7928 pixel_left + VERTICAL_SCROLL_BAR_WIDTH_TRIM,