From 4669b30d528ac2f442b9081592033ae42c5c0b8f Mon Sep 17 00:00:00 2001
From: culler <culler>
Date: Fri, 18 Oct 2019 14:29:20 +0000
Subject: Restore injection of MouseMoved to avoid unknown trouble.

---
 macosx/tkMacOSXMouseEvent.c | 9 +++------
 1 file 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
 }
 
 /*
-- 
cgit v0.12