Tk Source Code

Check-in [ca33f109]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to tclconference@googlegroups.com
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fixed [a2abc45ee6] - Cursor at wrong position after event generate -warp on secondary screen.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:ca33f109dc0d14fd5ddc885ba642dcfcdac72c30
User & Date: fvogel 2016-08-23 20:51:36
Context
2016-08-29
15:38
Merged implementation of TIP #449 - [text] undo/redo to Return Range of Characters - following acceptation by vote of the TCT check-in: 177f5ee6 user: fvogel tags: trunk
15:28
Rebased to trunk since TIP #449 was accepted for merging to trunk only, not to core-8-6-branch Closed-Leaf check-in: d0aea8f2 user: fvogel tags: tip-449
2016-08-23
20:51
Fixed [a2abc45ee6] - Cursor at wrong position after event generate -warp on secondary screen. check-in: ca33f109 user: fvogel tags: trunk
20:51
Fixed [a2abc45ee6] - Cursor at wrong position after event generate -warp on secondary screen. check-in: 3fca6d54 user: fvogel tags: core-8-6-branch
2016-08-13
20:18
Fixed [e8a111970a] - Misleading documentation for menu accelerator option check-in: 0b115c2d user: fvogel tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tkBind.c.

3456
3457
3458
3459
3460
3461
3462
3463
3464
3465
3466
3467
3468
3469
3470
    if ((warp != 0) && Tk_IsMapped(tkwin)) {
	TkDisplay *dispPtr = TkGetDisplay(event.general.xmotion.display);

	if (!(dispPtr->flags & TK_DISPLAY_IN_WARP)) {
	    Tcl_DoWhenIdle(DoWarp, dispPtr);
	    dispPtr->flags |= TK_DISPLAY_IN_WARP;
	}
	dispPtr->warpWindow = Tk_IdToWindow(Tk_Display(mainWin),
		event.general.xmotion.window);
	dispPtr->warpMainwin = mainWin;
	dispPtr->warpX = event.general.xmotion.x;
	dispPtr->warpY = event.general.xmotion.y;
    }

  done:







|







3456
3457
3458
3459
3460
3461
3462
3463
3464
3465
3466
3467
3468
3469
3470
    if ((warp != 0) && Tk_IsMapped(tkwin)) {
	TkDisplay *dispPtr = TkGetDisplay(event.general.xmotion.display);

	if (!(dispPtr->flags & TK_DISPLAY_IN_WARP)) {
	    Tcl_DoWhenIdle(DoWarp, dispPtr);
	    dispPtr->flags |= TK_DISPLAY_IN_WARP;
	}
	dispPtr->warpWindow = Tk_IdToWindow(dispPtr->display,
		event.general.xmotion.window);
	dispPtr->warpMainwin = mainWin;
	dispPtr->warpX = event.general.xmotion.x;
	dispPtr->warpY = event.general.xmotion.y;
    }

  done: