option-click

HI,

Should option-click gesture work in LWM4.3.7. I do not seem to be able 
to get it working. Is the following correct?

(capi:define-command click-1 (:button-1 :press))
(capi:define-command shift-click-1 (:button-1 :press :shift))
(capi:define-command option-click-1 (:button-1  :press :meta))

(capi:define-interface input-gesture-tester ()
   ()
   (:panes
    (test-pane capi:output-pane
          :visible-min-width 100
          :visible-min-height 100
          :input-model '((click-1 click)
                         (shift-click-1 shift-click)
                         (option-click-1 option-click))))
   (:default-initargs
    :message-area t
    :title (symbol-name (gentemp "Input-gesture-tester #"))))

(defun click(pane x y)
   (setf (capi::titled-object-message (capi:element-interface pane)) 
"Click         "))

(defun shift-click(pane x y)
   (setf (capi::titled-object-message (capi:element-interface pane)) 
"Shift click "))

(defun option-click(pane x y)
   (setf (capi::titled-object-message (capi:element-interface pane)) 
"Option click "))

(capi:find-interface 'input-gesture-tester)



BTW Can you detect, in LispWorks, if a keyboard modifier is pressed 
down (without any other keys), during :motion gesture, for example?