Index: Drei/drei-clim.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/Drei/drei-clim.lisp,v
retrieving revision 1.10
diff -r1.10 drei-clim.lisp
282c282,286
<           (clear-modify (buffer drei)))))))
---
>           (clear-modify (buffer drei))
>           (value-changed-callback drei
>                                   (gadget-client drei)
>                                   (gadget-id drei)
>                                   (gadget-value drei)))))))
296,300c300,307
<       (let ((gesture (convert-to-gesture event)))
<         (when (proper-gesture-p gesture)
<           (with-bound-drei-special-variables (gadget :prompt (format nil "~A " (gesture-name gesture)))
<             (let ((*standard-input* (or *minibuffer* *standard-input*)))
<               (handle-new-gesture gadget gesture))))))))
---
>       (with-activation-gestures ((climi::activation-gestures gadget))
>         (let ((gesture (convert-to-gesture event)))
>           (cond ((activation-gesture-p gesture)
>                  (activate-callback gadget (gadget-client gadget) (gadget-id gadget)))
>                 ((proper-gesture-p gesture)
>                  (with-bound-drei-special-variables (gadget :prompt (format nil "~A " (gesture-name gesture)))
>                    (let ((*standard-input* (or *minibuffer* *standard-input*)))
>                      (handle-new-gesture gadget gesture))))))))))