Mercurial > hg > xemacs-beta

comparison src/window.c @ 298:70ad99077275 r21-0b47

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b47
author cvs
date Mon, 13 Aug 2007 10:39:40 +0200
parents e11d67e05968
children afd57c14dfc8
comparison
equal deleted inserted replaced
297:deca3c1083ac 298:70ad99077275
67 67
68 /* Thickness of shadow border around 3d modelines. */ 68 /* Thickness of shadow border around 3d modelines. */
69 Lisp_Object Vmodeline_shadow_thickness; 69 Lisp_Object Vmodeline_shadow_thickness;
70 70
71 /* Whether vertical dividers are draggable and displayed */ 71 /* Whether vertical dividers are draggable and displayed */
72 Lisp_Object Vvertical_divider_draggable_p; 72 Lisp_Object Vvertical_divider_always_visible_p;
73 73
74 /* Whether a modeline should be displayed. */ 74 /* Whether a modeline should be displayed. */
75 Lisp_Object Vhas_modeline_p; 75 Lisp_Object Vhas_modeline_p;
76 76
77 /* Thickness of shadow border around vertical dividers. */ 77 /* Thickness of shadow border around vertical dividers. */
740 /* Never if we're on the right */ 740 /* Never if we're on the right */
741 if (window_is_rightmost (w)) 741 if (window_is_rightmost (w))
742 return 0; 742 return 0;
743 743
744 /* Always if draggable */ 744 /* Always if draggable */
745 if (!NILP (w->vertical_divider_draggable_p)) 745 if (!NILP (w->vertical_divider_always_visible_p))
746 return 1; 746 return 1;
747 747
748 #ifdef HAVE_SCROLLBARS 748 #ifdef HAVE_SCROLLBARS
749 /* Our right scrollabr is enough to separate us at the right */ 749 /* Our right scrollabr is enough to separate us at the right */
750 if (NILP (w->scrollbar_on_left_p) 750 if (NILP (w->scrollbar_on_left_p)
5616 has changed, but not one to indicate that 5616 has changed, but not one to indicate that
5617 the modeline has been turned off or on. */ 5617 the modeline has been turned off or on. */
5618 some_window_value_changed, 5618 some_window_value_changed,
5619 0, 0); 5619 0, 0);
5620 5620
5621 DEFVAR_SPECIFIER ("vertical-divider-draggable-p", &Vvertical_divider_draggable_p /* 5621 DEFVAR_SPECIFIER ("vertical-divider-always-visible-p",
5622 *Should XEmacs allow resizing windows by dragging vertical dividers. 5622 &Vvertical_divider_always_visible_p /*
5623 When t, vertical dividers are always shown, and are draggable. 5623 *Should XEmacs always display vertical dividers between windows.
5624 When nil, vertical dividers are shown only when there are no scrollbars 5624
5625 in between windows, and not draggable. 5625 When this is non-nil, vertical dividers are always shown, and are
5626 draggable. When it is nil, vertical dividers are shown only when
5627 there are no scrollbars in between windows, and are not draggable.
5628
5626 This is a specifier; use `set-specifier' to change it. 5629 This is a specifier; use `set-specifier' to change it.
5627 */ ); 5630 */ );
5628 Vvertical_divider_draggable_p = Fmake_specifier (Qboolean); 5631 Vvertical_divider_always_visible_p = Fmake_specifier (Qboolean);
5629 set_specifier_fallback (Vvertical_divider_draggable_p, 5632 set_specifier_fallback (Vvertical_divider_always_visible_p,
5630 list1 (Fcons (Qnil, Qt))); 5633 list1 (Fcons (Qnil, Qt)));
5631 set_specifier_caching (Vvertical_divider_draggable_p, 5634 set_specifier_caching (Vvertical_divider_always_visible_p,
5632 slot_offset (struct window, 5635 slot_offset (struct window,
5633 vertical_divider_draggable_p), 5636 vertical_divider_always_visible_p),
5634 vertical_divider_changed_in_window, 5637 vertical_divider_changed_in_window,
5635 0, 0); 5638 0, 0);
5636 5639
5637 DEFVAR_SPECIFIER ("vertical-divider-shadow-thickness", &Vvertical_divider_shadow_thickness /* 5640 DEFVAR_SPECIFIER ("vertical-divider-shadow-thickness", &Vvertical_divider_shadow_thickness /*
5638 *How thick to draw shadows around the vertical dividers. 5641 *How thick to draw 3D shadows around vertical dividers.
5639 This is a specifier; use `set-specifier' to change it. 5642 This is a specifier; use `set-specifier' to change it.
5640 */ ); 5643 */ );
5641 Vvertical_divider_shadow_thickness = Fmake_specifier (Qinteger); 5644 Vvertical_divider_shadow_thickness = Fmake_specifier (Qinteger);
5642 set_specifier_fallback (Vvertical_divider_shadow_thickness, 5645 set_specifier_fallback (Vvertical_divider_shadow_thickness,
5643 list1 (Fcons (Qnil, Qzero))); 5646 list1 (Fcons (Qnil, Qzero)));
5649 vertical_divider_changed_in_window, 5652 vertical_divider_changed_in_window,
5650 0, 0); 5653 0, 0);
5651 DEFVAR_SPECIFIER ("vertical-divider-line-width", &Vvertical_divider_line_width /* 5654 DEFVAR_SPECIFIER ("vertical-divider-line-width", &Vvertical_divider_line_width /*
5652 *The width of the vertical dividers, not including shadows. 5655 *The width of the vertical dividers, not including shadows.
5653 5656
5654 For TTY windows, divider line is always one character wide. When 5657 For TTY windows, divider line is always one character wide. When
5655 instance of this specifier is zero in a TTY window, no divider is 5658 instance of this specifier is zero in a TTY window, no divider is
5656 drawn at all between windows. When non-zero, one character wide 5659 drawn at all between windows. When non-zero, a one character wide
5657 divider is displayed. 5660 divider is displayed.
5658 5661
5659 This is a specifier; use `set-specifier' to change it. 5662 This is a specifier; use `set-specifier' to change it.
5660 */ ); 5663 */ );
5661 5664