diff options
| author | fvogel <fvogelnew1@free.fr> | 2020-01-25 13:16:36 (GMT) |
|---|---|---|
| committer | fvogel <fvogelnew1@free.fr> | 2020-01-25 13:16:36 (GMT) |
| commit | 10304fd48d8ea057e53ed46c983c4147efd1066b (patch) | |
| tree | 1c5568a1e438d3f6dbc7129933b6d710a1cd4802 /macosx | |
| parent | c451c122100cf567f7c174e3f5aef08d218bdf3a (diff) | |
| download | tk-10304fd48d8ea057e53ed46c983c4147efd1066b.zip tk-10304fd48d8ea057e53ed46c983c4147efd1066b.tar.gz tk-10304fd48d8ea057e53ed46c983c4147efd1066b.tar.bz2 | |
Remove useless generation of NSMouseMoved event when warping the mouse pointer on the mac
Diffstat (limited to 'macosx')
| -rw-r--r-- | macosx/tkMacOSXMouseEvent.c | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/macosx/tkMacOSXMouseEvent.c b/macosx/tkMacOSXMouseEvent.c index 0ad8492..9a4dc46 100644 --- a/macosx/tkMacOSXMouseEvent.c +++ b/macosx/tkMacOSXMouseEvent.c @@ -662,25 +662,7 @@ TkpWarpPointer( loc.y = TkMacOSXZeroScreenHeight() - pt.y; } - /* - * Generate an NSEvent of type NSMouseMoved. - * - * It is not clear why this is necessary. For example, calling - * event generate $w <Motion> -warp 1 -x $X -y $Y - * will cause two <Motion> events to be added to the Tcl queue. - */ - CGWarpMouseCursorPosition(pt); - NSEvent *warpEvent = [NSEvent mouseEventWithType:NSMouseMoved - location:loc - modifierFlags:0 - timestamp:GetCurrentEventTime() - windowNumber:wNum - context:nil - eventNumber:0 - clickCount:1 - pressure:0.0]; - [NSApp postEvent:warpEvent atStart:NO]; } /* |