Index: /trunk/source/examples/cocoa/easygui/action-targets.lisp
===================================================================
--- /trunk/source/examples/cocoa/easygui/action-targets.lisp	(revision 14218)
+++ /trunk/source/examples/cocoa/easygui/action-targets.lisp	(revision 14219)
@@ -5,13 +5,17 @@
 
 (defclass generic-easygui-target (ns:ns-object)
-     ((handler :initarg :handler :reader target-handler))
+     ((handler :initarg :handler :reader target-handler)
+      (shooter :initarg :shooter :reader target-shooter))
   (:metaclass ns:+ns-object))
 
 (objc:defmethod (#/activateAction :void) ((self generic-easygui-target))
-  (funcall (target-handler self)))
+  (let* ((cell (#/selectedCell (target-shooter self)))
+         (responds (#/respondsToSelector: cell (@selector #/mouseDownFlags)))
+         (*modifier-key-pattern* (if responds (#/mouseDownFlags cell) 0)))
+    (funcall (target-handler self))))
 
 (defmethod (setf action) (handler (view view))
   (let ((target (make-instance 'generic-easygui-target
-                   :handler handler)))
+                   :handler handler :shooter (cocoa-ref view))))
     (#/setTarget: (cocoa-ref view) target)
     (#/setAction: (cocoa-ref view) (@selector #/activateAction))))