Re: MCL CLIM 1.1 with one button mouse?

• To: KAnderson@BBN.COM, clim@BBN.COM
• Subject: Re: MCL CLIM 1.1 with one button mouse?
• From: "Sheldon S. Ball" <ssb@fiona.umsmed.edu>
• Date: Wed, 29 Jun 94 13:28:58 -0500

I had previously modified scigraph to run under MCL 2.0.1/CLIM 1.1.
The scigraph code for a 1 button mouse is:

(in-package :dwim)

;;;************* modified 9/29/93 ssb
(defun initialize-pointer-gestures (&optional (n-buttons 3))
  #FEATURE-CASE
  ((clim-1.0
    (let ((gestures
           (ecase n-buttons
             (3 '((:select   :left)
                  (:describe :middle)
                  (:menu     :right)
                  (:delete   :middle :shift)
                  (:edit     :left :meta)))
             ;; Many 1-button mice act like 2-button mice in that clicking
             ;; the button twice generates a "right" click
             (2 '((:select   :left)
                  (:describe :left :control)
                  (:menu     :right)
                  (:delete   :right :control)
                  (:edit     :left :meta)))
             (1 '((:select   :left)
                  (:describe :left :control)
                  (:menu     :left :shift)
                  (:delete   :left :shift :control)
                  (:edit     :left :meta))))))
      (dolist (gesture gestures)
        (destructuring-bind (name &rest button-and-shifts) gesture
          (clim:remove-pointer-gesture-name name)
          (clim:add-pointer-gesture-name name (first button-and-shifts)
                                         (rest button-and-shifts)
                                         :unique t)))))))
#+MCL  ;;;;;;************* modified 9/29/93 ssb
(initialize-pointer-gestures 1)

I hope this helps.

Sheldon

• Prev: Redisplay of scroll-bar ink
• Next: Passing user-defined arguments to presentation methods
• Index: CLIM Mailing list (1-Jun-94 to 30-Jun-95)
• Thread: CLIM Mailing list Index (1-Jun-94 to 30-Jun-95)