Mercurial > emacs
comparison src/xterm.c @ 63103:e37d71ba7c6e
(x_create_toolkit_scroll_bar): Use XtNarrowScrollbars if available.
author | Stefan Monnier <monnier@iro.umontreal.ca> |
---|---|
date | Mon, 06 Jun 2005 21:27:50 +0000 |
parents | c79b5010b654 |
children | bb26dfdf2698 e58cb448e07c 173dee4e2611 |
comparison
equal
deleted
inserted
replaced
63102:608496528c29 | 63103:e37d71ba7c6e |
---|---|
4587 | 4587 |
4588 { | 4588 { |
4589 char *initial = ""; | 4589 char *initial = ""; |
4590 char *val = initial; | 4590 char *val = initial; |
4591 XtVaGetValues (widget, XtNscrollVCursor, (XtPointer) &val, | 4591 XtVaGetValues (widget, XtNscrollVCursor, (XtPointer) &val, |
4592 #ifdef XtNarrowScrollbars | |
4593 XtNarrowScrollbars, (XtPointer) &xaw3d_arrow_scroll, | |
4594 #endif | |
4592 XtNpickTop, (XtPointer) &xaw3d_pick_top, NULL); | 4595 XtNpickTop, (XtPointer) &xaw3d_pick_top, NULL); |
4593 if (val == initial) | 4596 if (xaw3d_arrow_scroll || val == initial) |
4594 { /* ARROW_SCROLL */ | 4597 { /* ARROW_SCROLL */ |
4595 xaw3d_arrow_scroll = True; | 4598 xaw3d_arrow_scroll = True; |
4596 /* Isn't that just a personal preference ? -sm */ | 4599 /* Isn't that just a personal preference ? --Stef */ |
4597 XtVaSetValues (widget, XtNcursorName, "top_left_arrow", NULL); | 4600 XtVaSetValues (widget, XtNcursorName, "top_left_arrow", NULL); |
4598 } | 4601 } |
4599 } | 4602 } |
4600 | 4603 |
4601 /* Define callbacks. */ | 4604 /* Define callbacks. */ |