Mercurial > hg > xemacs-beta

comparison lwlib/lwlib-Xaw.c @ 78:c7528f8e288d r20-0b34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b34
author cvs
date Mon, 13 Aug 2007 09:05:42 +0200
parents 131b0175ea99
children 1ce6082ce73f
comparison
equal deleted inserted replaced
77:6cb4f478e7bc 78:c7528f8e288d
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details. 14 GNU General Public License for more details.
15 15
16 You should have received a copy of the GNU General Public License 16 You should have received a copy of the GNU General Public License
17 along with GNU Emacs; see the file COPYING. If not, write to 17 along with GNU Emacs; see the file COPYING. If not, write to
18 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ 18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
19 Boston, MA 02111-1307, USA. */
19 20
20 #include <stdio.h> 21 #include <stdio.h>
21 #include <stdlib.h> 22 #include <stdlib.h>
22 23
23 #include "lwlib-Xaw.h" 24 #include "lwlib-Xaw.h"
553 } 554 }
554 555
555 static Widget 556 static Widget
556 xaw_create_scrollbar (widget_instance *instance, int vertical) 557 xaw_create_scrollbar (widget_instance *instance, int vertical)
557 { 558 {
558 Arg av[20]; 559 Arg av[10];
559 int ac = 0; 560 int ac = 0;
560 Widget scrollbar; 561
562 static XtCallbackRec jumpCallbacks[2] =
563 { {xaw_scrollbar_jump, NULL}, {NULL, NULL} };
564
565 static XtCallbackRec scrollCallbacks[2] =
566 { {xaw_scrollbar_scroll, NULL}, {NULL, NULL} };
567
568 jumpCallbacks[0].closure = scrollCallbacks[0].closure = (XtPointer) instance;
561 569
562 /* #### This is tacked onto the with and height and completely 570 /* #### This is tacked onto the with and height and completely
563 screws our geometry management. We should probably make the 571 screws our geometry management. We should probably make the
564 top-level aware of this so that people could have a border but so 572 top-level aware of this so that people could have a border but so
565 few people use the Athena scrollbar now that it really isn't 573 few people use the Athena scrollbar now that it really isn't