Mercurial > hg > xemacs-beta

comparison src/scrollbar.c @ 438:84b14dcb0985 r21-2-27

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-27
author cvs
date Mon, 13 Aug 2007 11:32:25 +0200
parents 3ecd8885ac67
children 8de8e3f6228a
comparison
equal deleted inserted replaced
437:e2a4e8b94b82 438:84b14dcb0985
954 Vscrollbar_width = make_magic_specifier (Qnatnum); 954 Vscrollbar_width = make_magic_specifier (Qnatnum);
955 set_specifier_fallback 955 set_specifier_fallback
956 (Vscrollbar_width, 956 (Vscrollbar_width,
957 list1 (Fcons (Qnil, make_int (DEFAULT_SCROLLBAR_WIDTH)))); 957 list1 (Fcons (Qnil, make_int (DEFAULT_SCROLLBAR_WIDTH))));
958 set_specifier_caching (Vscrollbar_width, 958 set_specifier_caching (Vscrollbar_width,
959 slot_offset (struct window, 959 offsetof (struct window, scrollbar_width),
960 scrollbar_width),
961 vertical_scrollbar_changed_in_window, 960 vertical_scrollbar_changed_in_window,
962 slot_offset (struct frame, 961 offsetof (struct frame, scrollbar_width),
963 scrollbar_width),
964 frame_size_slipped); 962 frame_size_slipped);
965 963
966 DEFVAR_SPECIFIER ("scrollbar-height", &Vscrollbar_height /* 964 DEFVAR_SPECIFIER ("scrollbar-height", &Vscrollbar_height /*
967 *Height of horizontal scrollbars. 965 *Height of horizontal scrollbars.
968 This is a specifier; use `set-specifier' to change it. 966 This is a specifier; use `set-specifier' to change it.
970 Vscrollbar_height = make_magic_specifier (Qnatnum); 968 Vscrollbar_height = make_magic_specifier (Qnatnum);
971 set_specifier_fallback 969 set_specifier_fallback
972 (Vscrollbar_height, 970 (Vscrollbar_height,
973 list1 (Fcons (Qnil, make_int (DEFAULT_SCROLLBAR_HEIGHT)))); 971 list1 (Fcons (Qnil, make_int (DEFAULT_SCROLLBAR_HEIGHT))));
974 set_specifier_caching (Vscrollbar_height, 972 set_specifier_caching (Vscrollbar_height,
975 slot_offset (struct window, 973 offsetof (struct window, scrollbar_height),
976 scrollbar_height),
977 some_window_value_changed, 974 some_window_value_changed,
978 slot_offset (struct frame, 975 offsetof (struct frame, scrollbar_height),
979 scrollbar_height),
980 frame_size_slipped); 976 frame_size_slipped);
981 977
982 DEFVAR_SPECIFIER ("horizontal-scrollbar-visible-p", &Vhorizontal_scrollbar_visible_p /* 978 DEFVAR_SPECIFIER ("horizontal-scrollbar-visible-p", &Vhorizontal_scrollbar_visible_p /*
983 *Whether the horizontal scrollbar is visible. 979 *Whether the horizontal scrollbar is visible.
984 This is a specifier; use `set-specifier' to change it. 980 This is a specifier; use `set-specifier' to change it.
985 */ ); 981 */ );
986 Vhorizontal_scrollbar_visible_p = Fmake_specifier (Qboolean); 982 Vhorizontal_scrollbar_visible_p = Fmake_specifier (Qboolean);
987 set_specifier_fallback (Vhorizontal_scrollbar_visible_p, 983 set_specifier_fallback (Vhorizontal_scrollbar_visible_p,
988 list1 (Fcons (Qnil, Qt))); 984 list1 (Fcons (Qnil, Qt)));
989 set_specifier_caching (Vhorizontal_scrollbar_visible_p, 985 set_specifier_caching (Vhorizontal_scrollbar_visible_p,
990 slot_offset (struct window, 986 offsetof (struct window,
991 horizontal_scrollbar_visible_p), 987 horizontal_scrollbar_visible_p),
992 some_window_value_changed, 988 some_window_value_changed,
993 slot_offset (struct frame, 989 offsetof (struct frame,
994 horizontal_scrollbar_visible_p), 990 horizontal_scrollbar_visible_p),
995 frame_size_slipped); 991 frame_size_slipped);
996 992
997 DEFVAR_SPECIFIER ("vertical-scrollbar-visible-p", &Vvertical_scrollbar_visible_p /* 993 DEFVAR_SPECIFIER ("vertical-scrollbar-visible-p", &Vvertical_scrollbar_visible_p /*
998 *Whether the vertical scrollbar is visible. 994 *Whether the vertical scrollbar is visible.
999 This is a specifier; use `set-specifier' to change it. 995 This is a specifier; use `set-specifier' to change it.
1000 */ ); 996 */ );
1001 Vvertical_scrollbar_visible_p = Fmake_specifier (Qboolean); 997 Vvertical_scrollbar_visible_p = Fmake_specifier (Qboolean);
1002 set_specifier_fallback (Vvertical_scrollbar_visible_p, 998 set_specifier_fallback (Vvertical_scrollbar_visible_p,
1003 list1 (Fcons (Qnil, Qt))); 999 list1 (Fcons (Qnil, Qt)));
1004 set_specifier_caching (Vvertical_scrollbar_visible_p, 1000 set_specifier_caching (Vvertical_scrollbar_visible_p,
1005 slot_offset (struct window, 1001 offsetof (struct window,
1006 vertical_scrollbar_visible_p), 1002 vertical_scrollbar_visible_p),
1007 vertical_scrollbar_changed_in_window, 1003 vertical_scrollbar_changed_in_window,
1008 slot_offset (struct frame, 1004 offsetof (struct frame,
1009 vertical_scrollbar_visible_p), 1005 vertical_scrollbar_visible_p),
1010 frame_size_slipped); 1006 frame_size_slipped);
1011 1007
1012 DEFVAR_SPECIFIER ("scrollbar-on-left-p", &Vscrollbar_on_left_p /* 1008 DEFVAR_SPECIFIER ("scrollbar-on-left-p", &Vscrollbar_on_left_p /*
1013 *Whether the vertical scrollbar is on the left side of window or frame. 1009 *Whether the vertical scrollbar is on the left side of window or frame.
1014 This is a specifier; use `set-specifier' to change it. 1010 This is a specifier; use `set-specifier' to change it.
1028 #endif 1024 #endif
1029 set_specifier_fallback (Vscrollbar_on_left_p, fallback); 1025 set_specifier_fallback (Vscrollbar_on_left_p, fallback);
1030 } 1026 }
1031 1027
1032 set_specifier_caching (Vscrollbar_on_left_p, 1028 set_specifier_caching (Vscrollbar_on_left_p,
1033 slot_offset (struct window, 1029 offsetof (struct window, scrollbar_on_left_p),
1034 scrollbar_on_left_p),
1035 vertical_scrollbar_changed_in_window, 1030 vertical_scrollbar_changed_in_window,
1036 slot_offset (struct frame, 1031 offsetof (struct frame, scrollbar_on_left_p),
1037 scrollbar_on_left_p),
1038 frame_size_slipped); 1032 frame_size_slipped);
1039 1033
1040 DEFVAR_SPECIFIER ("scrollbar-on-top-p", &Vscrollbar_on_top_p /* 1034 DEFVAR_SPECIFIER ("scrollbar-on-top-p", &Vscrollbar_on_top_p /*
1041 *Whether the horizontal scrollbar is on the top side of window or frame. 1035 *Whether the horizontal scrollbar is on the top side of window or frame.
1042 This is a specifier; use `set-specifier' to change it. 1036 This is a specifier; use `set-specifier' to change it.
1043 */ ); 1037 */ );
1044 Vscrollbar_on_top_p = Fmake_specifier (Qboolean); 1038 Vscrollbar_on_top_p = Fmake_specifier (Qboolean);
1045 set_specifier_fallback (Vscrollbar_on_top_p, 1039 set_specifier_fallback (Vscrollbar_on_top_p,
1046 list1 (Fcons (Qnil, Qnil))); 1040 list1 (Fcons (Qnil, Qnil)));
1047 set_specifier_caching (Vscrollbar_on_top_p, 1041 set_specifier_caching (Vscrollbar_on_top_p,
1048 slot_offset (struct window, 1042 offsetof (struct window, scrollbar_on_top_p),
1049 scrollbar_on_top_p),
1050 some_window_value_changed, 1043 some_window_value_changed,
1051 slot_offset (struct frame, 1044 offsetof (struct frame, scrollbar_on_top_p),
1052 scrollbar_on_top_p),
1053 frame_size_slipped); 1045 frame_size_slipped);
1054 } 1046 }
1055 1047
1056 void 1048 void
1057 complex_vars_of_scrollbar (void) 1049 complex_vars_of_scrollbar (void)
1058 { 1050 {
1059 Vscrollbar_pointer_glyph = Fmake_glyph_internal (Qpointer); 1051 Vscrollbar_pointer_glyph = Fmake_glyph_internal (Qpointer);
1060 1052
1061 set_specifier_caching (XGLYPH (Vscrollbar_pointer_glyph)->image, 1053 set_specifier_caching (XGLYPH (Vscrollbar_pointer_glyph)->image,
1062 slot_offset (struct window, 1054 offsetof (struct window, scrollbar_pointer),
1063 scrollbar_pointer),
1064 scrollbar_pointer_changed_in_window, 1055 scrollbar_pointer_changed_in_window,
1065 0, 0); 1056 0, 0);
1066 } 1057 }