CLIM mail archive

[Prev][Next][Index][Thread]

Re: MCL CLIM 1.1 with one button mouse?



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



Main Index | Thread Index