comparison src/scrollbar.c @ 16:0293115a14e9 r19-15b91

Import from CVS: tag r19-15b91
author cvs
date Mon, 13 Aug 2007 08:49:20 +0200
parents ac2d302a0011
children 859a2309aef8
comparison
equal deleted inserted replaced
15:ad457d5f7d04 16:0293115a14e9
723 CHECK_LIVE_WINDOW (window); 723 CHECK_LIVE_WINDOW (window);
724 /* Motif and Athena scrollbars behave differently, but in accordance 724 /* Motif and Athena scrollbars behave differently, but in accordance
725 with their standard behaviors. It is not possible to hide the 725 with their standard behaviors. It is not possible to hide the
726 differences down in lwlib because knowledge of XEmacs buffer and 726 differences down in lwlib because knowledge of XEmacs buffer and
727 cursor motion routines is necessary. */ 727 cursor motion routines is necessary. */
728 #if defined (LWLIB_SCROLLBARS_MOTIF) || defined (LWLIB_SCROLLBARS_LUCID) 728 #if defined (LWLIB_SCROLLBARS_MOTIF) || defined (LWLIB_SCROLLBARS_LUCID) || \
729 defined (LWLIB_SCROLLBARS_ATHENA3D)
729 window_scroll (window, Qnil, -1, ERROR_ME_NOT); 730 window_scroll (window, Qnil, -1, ERROR_ME_NOT);
730 #else /* Athena */ 731 #else /* Athena */
731 { 732 {
732 Bufpos bufpos; 733 Bufpos bufpos;
733 Lisp_Object value = Fcdr (object); 734 Lisp_Object value = Fcdr (object);
765 CHECK_LIVE_WINDOW (window); 766 CHECK_LIVE_WINDOW (window);
766 /* Motif and Athena scrollbars behave differently, but in accordance 767 /* Motif and Athena scrollbars behave differently, but in accordance
767 with their standard behaviors. It is not possible to hide the 768 with their standard behaviors. It is not possible to hide the
768 differences down in lwlib because knowledge of XEmacs buffer and 769 differences down in lwlib because knowledge of XEmacs buffer and
769 cursor motion routines is necessary. */ 770 cursor motion routines is necessary. */
770 #if defined (LWLIB_SCROLLBARS_MOTIF) || defined (LWLIB_SCROLLBARS_LUCID) 771 #if defined (LWLIB_SCROLLBARS_MOTIF) || defined (LWLIB_SCROLLBARS_LUCID) || \
772 defined (LWLIB_SCROLLBARS_ATHENA3D)
771 window_scroll (window, Qnil, 1, ERROR_ME_NOT); 773 window_scroll (window, Qnil, 1, ERROR_ME_NOT);
772 #else /* Athena */ 774 #else /* Athena */
773 { 775 {
774 Lisp_Object value = Fcdr (object); 776 Lisp_Object value = Fcdr (object);
775 CHECK_INT (value); 777 CHECK_INT (value);