Mercurial > hg > xemacs-beta

comparison src/scrollbar.c @ 82:6a378aca36af r20-0b91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b91
author cvs
date Mon, 13 Aug 2007 09:07:36 +0200
parents 131b0175ea99
children a145efe76779
comparison
equal deleted inserted replaced
81:ebca3d831cea 82:6a378aca36af
718 CHECK_LIVE_WINDOW (window); 718 CHECK_LIVE_WINDOW (window);
719 /* Motif and Athena scrollbars behave differently, but in accordance 719 /* Motif and Athena scrollbars behave differently, but in accordance
720 with their standard behaviors. It is not possible to hide the 720 with their standard behaviors. It is not possible to hide the
721 differences down in lwlib because knowledge of XEmacs buffer and 721 differences down in lwlib because knowledge of XEmacs buffer and
722 cursor motion routines is necessary. */ 722 cursor motion routines is necessary. */
723 #if defined (LWLIB_SCROLLBARS_MOTIF) || defined (LWLIB_SCROLLBARS_LUCID) 723 #if defined (LWLIB_SCROLLBARS_MOTIF) || defined (LWLIB_SCROLLBARS_LUCID) || \
724 defined (LWLIB_SCROLLBARS_ATHENA3D)
724 window_scroll (window, Qnil, -1, ERROR_ME_NOT); 725 window_scroll (window, Qnil, -1, ERROR_ME_NOT);
725 #else /* Athena */ 726 #else /* Athena */
726 { 727 {
727 Bufpos bufpos; 728 Bufpos bufpos;
728 Lisp_Object value = Fcdr (object); 729 Lisp_Object value = Fcdr (object);
758 CHECK_LIVE_WINDOW (window); 759 CHECK_LIVE_WINDOW (window);
759 /* Motif and Athena scrollbars behave differently, but in accordance 760 /* Motif and Athena scrollbars behave differently, but in accordance
760 with their standard behaviors. It is not possible to hide the 761 with their standard behaviors. It is not possible to hide the
761 differences down in lwlib because knowledge of XEmacs buffer and 762 differences down in lwlib because knowledge of XEmacs buffer and
762 cursor motion routines is necessary. */ 763 cursor motion routines is necessary. */
763 #if defined (LWLIB_SCROLLBARS_MOTIF) || defined (LWLIB_SCROLLBARS_LUCID) 764 #if defined (LWLIB_SCROLLBARS_MOTIF) || defined (LWLIB_SCROLLBARS_LUCID) || \
765 defined (LWLIB_SCROLLBARS_ATHENA3D)
764 window_scroll (window, Qnil, 1, ERROR_ME_NOT); 766 window_scroll (window, Qnil, 1, ERROR_ME_NOT);
765 #else /* Athena */ 767 #else /* Athena */
766 { 768 {
767 Lisp_Object value = Fcdr (object); 769 Lisp_Object value = Fcdr (object);
768 CHECK_INT (value); 770 CHECK_INT (value);
826 orig_pt = Fwindow_point (window); 828 orig_pt = Fwindow_point (window);
827 Fset_marker (XWINDOW (window)->sb_point, value, Fwindow_buffer (window)); 829 Fset_marker (XWINDOW (window)->sb_point, value, Fwindow_buffer (window));
828 start_pos = scrollbar_point (XWINDOW (window), 1); 830 start_pos = scrollbar_point (XWINDOW (window), 1);
829 Fset_window_start (window, make_int (start_pos), Qnil); 831 Fset_window_start (window, make_int (start_pos), Qnil);
830 scrollbar_reset_cursor (window, orig_pt); 832 scrollbar_reset_cursor (window, orig_pt);
833 Fsit_for(Qzero, Qnil);
831 zmacs_region_stays = 1; 834 zmacs_region_stays = 1;
832 return Qnil; 835 return Qnil;
833 } 836 }
834 837
835 DEFUN ("scrollbar-set-hscroll", Fscrollbar_set_hscroll, 2, 2, 0, /* 838 DEFUN ("scrollbar-set-hscroll", Fscrollbar_set_hscroll, 2, 2, 0, /*