Changeset 14219

Timestamp:

Aug 26, 2010, 1:54:04 AM (14 years ago)

Author:

arthur

Message:

add ability for button actions to use shift-key-p and friends

File:

• trunk/source/examples/cocoa/easygui/action-targets.lisp (modified) (1 diff)

trunk/source/examples/cocoa/easygui/action-targets.lisp

@@ -5 +5 @@
 
 (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))))