Mercurial > hg > xemacs-beta
comparison src/scrollbar.c @ 771:943eaba38521
[xemacs-hg @ 2002-03-13 08:51:24 by ben]
The big ben-mule-21-5 check-in!
Various files were added and deleted. See CHANGES-ben-mule.
There are still some test suite failures. No crashes, though.
Many of the failures have to do with problems in the test suite itself
rather than in the actual code. I'll be addressing these in the next
day or so -- none of the test suite failures are at all critical.
Meanwhile I'll be trying to address the biggest issues -- i.e. build
or run failures, which will almost certainly happen on various platforms.
All comments should be sent to ben@xemacs.org -- use a Cc: if necessary
when sending to mailing lists. There will be pre- and post- tags,
something like
pre-ben-mule-21-5-merge-in, and
post-ben-mule-21-5-merge-in.
author | ben |
---|---|
date | Wed, 13 Mar 2002 08:54:06 +0000 |
parents | fdefd0186b75 |
children | e38acbeb1cae |
comparison
equal
deleted
inserted
replaced
770:336a418893b5 | 771:943eaba38521 |
---|---|
576 Lisp_Object frame; | 576 Lisp_Object frame; |
577 XSETFRAME (frame, f); | 577 XSETFRAME (frame, f); |
578 call_critical_lisp_code (XDEVICE (FRAME_DEVICE (f)), | 578 call_critical_lisp_code (XDEVICE (FRAME_DEVICE (f)), |
579 Qinit_scrollbar_from_resources, | 579 Qinit_scrollbar_from_resources, |
580 frame); | 580 frame); |
581 unbind_to (depth, Qnil); | 581 unbind_to (depth); |
582 } | 582 } |
583 } | 583 } |
584 | 584 |
585 void | 585 void |
586 init_device_scrollbars (struct device *d) | 586 init_device_scrollbars (struct device *d) |
591 Lisp_Object device; | 591 Lisp_Object device; |
592 XSETDEVICE (device, d); | 592 XSETDEVICE (device, d); |
593 call_critical_lisp_code (d, | 593 call_critical_lisp_code (d, |
594 Qinit_scrollbar_from_resources, | 594 Qinit_scrollbar_from_resources, |
595 device); | 595 device); |
596 unbind_to (depth, Qnil); | 596 unbind_to (depth); |
597 } | 597 } |
598 } | 598 } |
599 | 599 |
600 void | 600 void |
601 init_global_scrollbars (struct device *d) | 601 init_global_scrollbars (struct device *d) |
604 { | 604 { |
605 int depth = unlock_ghost_specifiers_protected (); | 605 int depth = unlock_ghost_specifiers_protected (); |
606 call_critical_lisp_code (d, | 606 call_critical_lisp_code (d, |
607 Qinit_scrollbar_from_resources, | 607 Qinit_scrollbar_from_resources, |
608 Qglobal); | 608 Qglobal); |
609 unbind_to (depth, Qnil); | 609 unbind_to (depth); |
610 } | 610 } |
611 } | 611 } |
612 | 612 |
613 static void | 613 static void |
614 vertical_scrollbar_changed_in_window (Lisp_Object specifier, | 614 vertical_scrollbar_changed_in_window (Lisp_Object specifier, |