Greetings Orm,

CLIM is a layered toolkit, the implementation in "text-selection.lisp" is using the lower level where you handle events yourself. For example `dispatch-event`, `handle-repaint`, `handle-event` are all part of CLIM.

I am attaching an example program which shows an integer value which can be increased or decreased with mouse wheel. Just put the following in a file and load it:

(eval-when (:compile-toplevel :load-toplevel :execute)
  (unless (find-package "CLIM")
    (ql:quickload "mcclim")))

(in-package :clim-user)

(defclass counter-pane (basic-pane)
  ((counter :initform 0)))

(defmethod handle-event ((pane counter-pane)
                         (event climi::pointer-scroll-event))
  (with-slots ((counter counter)) pane
    (setf counter (+ counter (climi::pointer-event-delta-y event))))
  (repaint-sheet pane +everywhere+))

(defmethod handle-repaint ((pane counter-pane)
               region)
  (with-bounding-rectangle* (min-x min-y max-x max-y) region
    (draw-rectangle* pane min-x min-y max-x max-y :ink +sky-blue+)
    (draw-text* pane "Use Mouse Wheel to increase/decrease counter." 20 20)
    (with-slots ((counter counter)) pane
      (with-text-size (pane 48)
    (draw-text* pane (format nil "~A" counter) 170 180)))))

(define-application-frame counter-frame ()
  ()
  (:pane
   (clim:make-pane 'counter-pane))
  (:geometry :width 400 :height 400))

(defun show-counter ()
  (let ((frame (make-application-frame 'counter-frame)))
    (run-frame-top-level frame)))

(show-counter)
Since gestures on McCLIM are currently broken, You can implement multiple-select (mentioned in your parent mail) as text-selection is implemented/

Good luck,

Nisar Ahmad

On 08/05/2018 10:30 PM, Orm Finnendahl wrote:
Hi,

 just FYI (if someone googles this question...):

After some code inspection I found out that the "cut-and-paste-mixin"
sends pointer-events in its dispatch-event :around method to
eos/shift-click if the shift key is pressed. This seems related to
some historic semantics of shift-click behaviour for setting and
dragging points as explained in the "text-selection.lisp" file.

I couldn't find anything in the clim specific docs. May it'd be
sensible to add this information (maybe at bauhh.dyndns.org?).

--
Orm