From 21037edf5a2b7367ec0e549edbd7090da825d6d5 Mon Sep 17 00:00:00 2001 From: fvogel Date: Sat, 13 Aug 2016 20:03:33 +0000 Subject: Fixed [a2abc45ee6] - Cursor at wrong position after event generate -warp on secondary screen FossilOrigin-Name: 9339d0a4714da3f4d972c9931a585a6cd86b6ed4 --- generic/tkBind.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/generic/tkBind.c b/generic/tkBind.c index 3b05066..d3fdc96 100644 --- a/generic/tkBind.c +++ b/generic/tkBind.c @@ -3460,7 +3460,7 @@ HandleEventGenerate( Tcl_DoWhenIdle(DoWarp, dispPtr); dispPtr->flags |= TK_DISPLAY_IN_WARP; } - dispPtr->warpWindow = Tk_IdToWindow(Tk_Display(mainWin), + dispPtr->warpWindow = Tk_IdToWindow(dispPtr->display, event.general.xmotion.window); dispPtr->warpMainwin = mainWin; dispPtr->warpX = event.general.xmotion.x; -- cgit v0.12