Mercurial > emacs

changeset 75376:7b70538ea11c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[TARGET_API_MAC_CARBON] (mac_do_receive_drag): Don't pass keyboard modifiers to mac_store_drag_event, but put them as kEventParamKeyModifiers Apple event parameter.
author YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
date Mon, 22 Jan 2007 08:28:15 +0000
parents 2d3bcf670390
children cd317328ebb1
files src/macselect.c
diffstat 1 files changed, 8 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/macselect.c	Mon Jan 22 08:27:23 2007 +0000
+++ b/src/macselect.c	Mon Jan 22 08:28:15 2007 +0000
@@ -1562,10 +1562,17 @@
       GlobalToLocal (&mouse_pos);
       err = GetDragModifiers (drag, NULL, NULL, &modifiers);
     }
+  if (err == noErr)
+    {
+      UInt32 key_modifiers = modifiers;
+
+      err = AEPutParamPtr (&apple_event, kEventParamKeyModifiers,
+			   typeUInt32, &key_modifiers, sizeof (UInt32));
+    }
 
   if (err == noErr)
     {
-      mac_store_drag_event (window, mouse_pos, modifiers, &apple_event);
+      mac_store_drag_event (window, mouse_pos, 0, &apple_event);
       AEDisposeDesc (&apple_event);
       mac_wakeup_from_rne ();
       return noErr;