mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-24 22:40:51 -08:00
Code Issues Projects Releases Wiki Activity

[TARGET_API_MAC_CARBON] (mac_do_receive_drag): Don't

Browse source 
pass keyboard modifiers to mac_store_drag_event, but put them as
kEventParamKeyModifiers Apple event parameter.
This commit is contained in:
YAMAMOTO Mitsuharu 2007-01-22 08:28:15 +00:00
parent 1879b65c3d
commit 0f5c771993
1 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/macselect.c
View file

@ -1562,10 +1562,17 @@ mac_do_receive_drag (window, refcon, drag)
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;