Mercurial > hg > xemacs-beta

comparison src/scrollbar.c @ 444:576fb035e263 r21-2-37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-37
author cvs
date Mon, 13 Aug 2007 11:36:19 +0200
parents abe6d1db359e
children 183866b06e0b
comparison
equal deleted inserted replaced
443:a8296e22da4e 444:576fb035e263
407 407
408 int new_line_increment = -1, new_page_increment = -1; 408 int new_line_increment = -1, new_page_increment = -1;
409 int new_minimum = -1, new_maximum = -1; 409 int new_minimum = -1, new_maximum = -1;
410 int new_slider_size = -1, new_slider_position = -1; 410 int new_slider_size = -1, new_slider_position = -1;
411 int new_width = -1, new_height = -1, new_x = -1, new_y = -1; 411 int new_width = -1, new_height = -1, new_x = -1, new_y = -1;
412 struct window *new_window = 0; /* kludge city */ 412 struct window *new_window = 0; /* #### currently unused */
413 413
414 end_pos = BUF_Z (b) - w->window_end_pos[CURRENT_DISP]; 414 end_pos = BUF_Z (b) - w->window_end_pos[CURRENT_DISP];
415 sb_pos = scrollbar_point (w, 0); 415 sb_pos = scrollbar_point (w, 0);
416 start_pos = sb_pos; 416 start_pos = sb_pos;
417 417
951 list1 (Fcons (Qnil, make_int (DEFAULT_SCROLLBAR_WIDTH)))); 951 list1 (Fcons (Qnil, make_int (DEFAULT_SCROLLBAR_WIDTH))));
952 set_specifier_caching (Vscrollbar_width, 952 set_specifier_caching (Vscrollbar_width,
953 offsetof (struct window, scrollbar_width), 953 offsetof (struct window, scrollbar_width),
954 vertical_scrollbar_changed_in_window, 954 vertical_scrollbar_changed_in_window,
955 offsetof (struct frame, scrollbar_width), 955 offsetof (struct frame, scrollbar_width),
956 frame_size_slipped); 956 frame_size_slipped, 0);
957 957
958 DEFVAR_SPECIFIER ("scrollbar-height", &Vscrollbar_height /* 958 DEFVAR_SPECIFIER ("scrollbar-height", &Vscrollbar_height /*
959 *Height of horizontal scrollbars. 959 *Height of horizontal scrollbars.
960 This is a specifier; use `set-specifier' to change it. 960 This is a specifier; use `set-specifier' to change it.
961 */ ); 961 */ );
965 list1 (Fcons (Qnil, make_int (DEFAULT_SCROLLBAR_HEIGHT)))); 965 list1 (Fcons (Qnil, make_int (DEFAULT_SCROLLBAR_HEIGHT))));
966 set_specifier_caching (Vscrollbar_height, 966 set_specifier_caching (Vscrollbar_height,
967 offsetof (struct window, scrollbar_height), 967 offsetof (struct window, scrollbar_height),
968 some_window_value_changed, 968 some_window_value_changed,
969 offsetof (struct frame, scrollbar_height), 969 offsetof (struct frame, scrollbar_height),
970 frame_size_slipped); 970 frame_size_slipped, 0);
971 971
972 DEFVAR_SPECIFIER ("horizontal-scrollbar-visible-p", &Vhorizontal_scrollbar_visible_p /* 972 DEFVAR_SPECIFIER ("horizontal-scrollbar-visible-p", &Vhorizontal_scrollbar_visible_p /*
973 *Whether the horizontal scrollbar is visible. 973 *Whether the horizontal scrollbar is visible.
974 This is a specifier; use `set-specifier' to change it. 974 This is a specifier; use `set-specifier' to change it.
975 */ ); 975 */ );
980 offsetof (struct window, 980 offsetof (struct window,
981 horizontal_scrollbar_visible_p), 981 horizontal_scrollbar_visible_p),
982 some_window_value_changed, 982 some_window_value_changed,
983 offsetof (struct frame, 983 offsetof (struct frame,
984 horizontal_scrollbar_visible_p), 984 horizontal_scrollbar_visible_p),
985 frame_size_slipped); 985 frame_size_slipped, 0);
986 986
987 DEFVAR_SPECIFIER ("vertical-scrollbar-visible-p", &Vvertical_scrollbar_visible_p /* 987 DEFVAR_SPECIFIER ("vertical-scrollbar-visible-p", &Vvertical_scrollbar_visible_p /*
988 *Whether the vertical scrollbar is visible. 988 *Whether the vertical scrollbar is visible.
989 This is a specifier; use `set-specifier' to change it. 989 This is a specifier; use `set-specifier' to change it.
990 */ ); 990 */ );
995 offsetof (struct window, 995 offsetof (struct window,
996 vertical_scrollbar_visible_p), 996 vertical_scrollbar_visible_p),
997 vertical_scrollbar_changed_in_window, 997 vertical_scrollbar_changed_in_window,
998 offsetof (struct frame, 998 offsetof (struct frame,
999 vertical_scrollbar_visible_p), 999 vertical_scrollbar_visible_p),
1000 frame_size_slipped); 1000 frame_size_slipped, 0);
1001 1001
1002 DEFVAR_SPECIFIER ("scrollbar-on-left-p", &Vscrollbar_on_left_p /* 1002 DEFVAR_SPECIFIER ("scrollbar-on-left-p", &Vscrollbar_on_left_p /*
1003 *Whether the vertical scrollbar is on the left side of window or frame. 1003 *Whether the vertical scrollbar is on the left side of window or frame.
1004 This is a specifier; use `set-specifier' to change it. 1004 This is a specifier; use `set-specifier' to change it.
1005 */ ); 1005 */ );
1021 1021
1022 set_specifier_caching (Vscrollbar_on_left_p, 1022 set_specifier_caching (Vscrollbar_on_left_p,
1023 offsetof (struct window, scrollbar_on_left_p), 1023 offsetof (struct window, scrollbar_on_left_p),
1024 vertical_scrollbar_changed_in_window, 1024 vertical_scrollbar_changed_in_window,
1025 offsetof (struct frame, scrollbar_on_left_p), 1025 offsetof (struct frame, scrollbar_on_left_p),
1026 frame_size_slipped); 1026 frame_size_slipped, 0);
1027 1027
1028 DEFVAR_SPECIFIER ("scrollbar-on-top-p", &Vscrollbar_on_top_p /* 1028 DEFVAR_SPECIFIER ("scrollbar-on-top-p", &Vscrollbar_on_top_p /*
1029 *Whether the horizontal scrollbar is on the top side of window or frame. 1029 *Whether the horizontal scrollbar is on the top side of window or frame.
1030 This is a specifier; use `set-specifier' to change it. 1030 This is a specifier; use `set-specifier' to change it.
1031 */ ); 1031 */ );
1034 list1 (Fcons (Qnil, Qnil))); 1034 list1 (Fcons (Qnil, Qnil)));
1035 set_specifier_caching (Vscrollbar_on_top_p, 1035 set_specifier_caching (Vscrollbar_on_top_p,
1036 offsetof (struct window, scrollbar_on_top_p), 1036 offsetof (struct window, scrollbar_on_top_p),
1037 some_window_value_changed, 1037 some_window_value_changed,
1038 offsetof (struct frame, scrollbar_on_top_p), 1038 offsetof (struct frame, scrollbar_on_top_p),
1039 frame_size_slipped); 1039 frame_size_slipped, 0);
1040 } 1040 }
1041 1041
1042 void 1042 void
1043 complex_vars_of_scrollbar (void) 1043 complex_vars_of_scrollbar (void)
1044 { 1044 {
1045 Vscrollbar_pointer_glyph = Fmake_glyph_internal (Qpointer); 1045 Vscrollbar_pointer_glyph = Fmake_glyph_internal (Qpointer);
1046 1046
1047 set_specifier_caching (XGLYPH (Vscrollbar_pointer_glyph)->image, 1047 set_specifier_caching (XGLYPH (Vscrollbar_pointer_glyph)->image,
1048 offsetof (struct window, scrollbar_pointer), 1048 offsetof (struct window, scrollbar_pointer),
1049 scrollbar_pointer_changed_in_window, 1049 scrollbar_pointer_changed_in_window,
1050 0, 0); 1050 0, 0, 0);
1051 } 1051 }