diff options
| author | culler <culler> | 2019-10-18 14:29:20 (GMT) |
|---|---|---|
| committer | culler <culler> | 2019-10-18 14:29:20 (GMT) |
| commit | 4669b30d528ac2f442b9081592033ae42c5c0b8f (patch) | |
| tree | 53cf2ce2704bd0218d4a0d7a56085735d3954974 | |
| parent | 69da5b5ff324c1db673c2f3fa30de9741ba0f356 (diff) | |
| download | tk-4669b30d528ac2f442b9081592033ae42c5c0b8f.zip tk-4669b30d528ac2f442b9081592033ae42c5c0b8f.tar.gz tk-4669b30d528ac2f442b9081592033ae42c5c0b8f.tar.bz2 | |
Restore injection of MouseMoved to avoid unknown trouble.
| -rw-r--r-- | macosx/tkMacOSXMouseEvent.c | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/macosx/tkMacOSXMouseEvent.c b/macosx/tkMacOSXMouseEvent.c index bf8903d..1784284 100644 --- a/macosx/tkMacOSXMouseEvent.c +++ b/macosx/tkMacOSXMouseEvent.c @@ -640,14 +640,12 @@ TkpWarpPointer( loc.y = tkMacOSXZeroScreenHeight - pt.y; } -#if 0 /* * Generate an NSEvent of type NSMouseMoved. * - * This used to use CGEventCreateMouseEvent, which had stopped generating - * events by 10.15. The code below does generate a mouse event. But it is - * not clear that is necessary. So, for now at least, we are not - * generating the NSEvent. + * 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); @@ -661,7 +659,6 @@ TkpWarpPointer( clickCount:1 pressure:0.0]; [NSApp postEvent:warpEvent atStart:NO]; -#endif } /* |