;;; compiled by jimb@wookumz.gnu.ai.mit.edu on Wed May 26 23:18:36 1993
;;; from file /gd/gnu/emacs/19.0/lisp/scroll-bar.el
;;; emacs version 19.8.0.
;;; bytecomp version FSF 2.08
;;; optimization is on.

(require (quote mouse))
(defalias 'scroll-bar-scale #[(num-denom whole) "ÀÁÂÃ@!\"A\"!‡" [truncate / * float num-denom whole] 5 "\
Given a pair (NUM . DENOM) and WHOLE, return (/ (* NUM WHOLE) DENOM).
This is handy for scaling a position on a scroll bar into real units,
like buffer positions.  If SCROLL-BAR-POS is the (PORTION . WHOLE) pair
from a scroll bar event, then (scroll-bar-scale SCROLL-BAR-POS
(buffer-size)) is the position in the current buffer corresponding to
that scroll bar position."])
(byte-code "ÀÁ!„ ÂÀ‡" [boundp scroll-bar-mode t] 2)
(defalias 'scroll-bar-mode #[(flag) "„	 	?‚ Â!?† ÃYÄÅÆ\"ˆÇ ‰…8 É@Ê	BË	BD\"ˆA‰„! Ì)‡" [flag scroll-bar-mode numberp 0 mapcar #[(param-name) "À	\n\"‰:ƒ Ä\"‚ 	B\nB‰)‡" [assq param-name default-frame-alist parameter setcdr scroll-bar-mode] 4] (vertical-scroll-bars horizontal-scroll-bars) frame-list frames modify-frame-parameters vertical-scroll-bars horizontal-scroll-bars nil] 6 "\
Toggle display of vertical scroll bars on each frame.
This command applies to all frames that exist and frames to be
created in the future.
With a numeric argument, if the argument is negative,
turn off scroll bars; otherwise, turn on scroll bars." "P"])
(defalias 'scroll-bar-set-window-start #[(event) "‰GS8)‰@Ã	8ŠÅ\n!qˆŠÆÇ \"bˆÈÉ!ˆÊ\n`\"-‡" [event end-position window 2 portion-whole window-buffer scroll-bar-scale buffer-size forward-line 0 set-window-start] 4 "\
Set the window start according to where the scroll bar is dragged.
EVENT should be a scroll bar click or drag event." "e"])
(fset (quote scroll-bar-drag-1) #[(event) "‰A@)‰@Ã	8ŠÅ\n!qˆÆÇ \"bˆÈÉ!ˆÊ\n`\",‡" [event start-position window 2 portion-whole window-buffer scroll-bar-scale buffer-size forward-line 0 set-window-start] 4])
(defalias 'scroll-bar-drag #[(event) "ÀÂ!ˆÄ )‡" [nil done scroll-bar-drag-1 event (lambda nil (track-mouse (byte-code "?…( Á Ã\n!Ä=ƒ Á Ã\n!Å=ƒ\" Æ\n!ˆ‚  Ç‰‚ ‡" [done read-event event car-safe mouse-movement scroll-bar-movement scroll-bar-drag-1 t] 3)))] 2 "\
Scroll the window by dragging the scroll bar slider.
If you click outside the slider, the window scrolls to bring the slider there." "e"])
(defalias 'scroll-bar-scroll-down #[(event) "À ÂŽ‰GS8)‰@Æ8È!ˆÉÊË S\"!-‡" [selected-window old-selected-window ((select-window old-selected-window)) event end-position window 2 portion-whole select-window scroll-down scroll-bar-scale window-height] 5 "\
Scroll the window's top line down to the location of the scroll bar click.
EVENT should be a scroll bar click." "e"])
(defalias 'scroll-bar-scroll-up #[(event) "À ÂŽ‰GS8)‰@Æ8È!ˆÉÊË S\"!-‡" [selected-window old-selected-window ((select-window old-selected-window)) event end-position window 2 portion-whole select-window scroll-up scroll-bar-scale window-height] 5 "\
Scroll the line next to the scroll bar click to the top of the window.
EVENT should be a scroll bar click." "e"])
(byte-code "ÀÁÂ\"ˆÀÃÂ\"ˆÀÄÅ\"ˆÀÆÇ\"ˆÀÈÇ\"ˆÉÊ!‡" [global-set-key [vertical-scroll-bar mouse-1] scroll-bar-scroll-up [vertical-scroll-bar drag-mouse-1] [vertical-scroll-bar down-mouse-2] scroll-bar-drag [vertical-scroll-bar mouse-3] scroll-bar-scroll-down [vertical-scroll-bar drag-mouse-3] provide scroll-bar] 3)