;; Mouse hacks
;; Based on ime-emacs.el by Arnaldo Mandel (version sep/93)

(defvar mouse-left-down t
  "If not nil, mouse-1 on the scroll-bar will scroll-down the buffer
(moving the scroll-bar up), and mouse-3 is the reverse.  If nil, the 
roles of the mouses is exchanged.")

(if (eq window-system 'x)
    (progn
      (load "xwinkeys" t t)
      (load "mouse-extra" t t)
      (set-mouse-shape 'x-pointer-left-ptr)
      ; (if (x-display-color-p) nil (invert-face 'modeline))
      (setq baud-rate 153600)
      (if mouse-left-down
	  (progn

	    (global-set-key [vertical-scroll-bar mouse-1] 'scroll-bar-scroll-down)
	    (global-set-key [vertical-scroll-bar drag-mouse-1] 'scroll-bar-scroll-down)

	    (global-set-key [vertical-scroll-bar mouse-3] 'scroll-bar-scroll-up)
	    (global-set-key [vertical-scroll-bar drag-mouse-3] 'scroll-bar-scroll-up)
	    ))


      ))