Tk Source Code

Check-in [ccee45f2]
Login

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

Overview
Comment:Fix [fe87e9af39]: X-input extension events are not transfered to Tcl.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk | main
Files: files | file ages | folders
SHA3-256: ccee45f25958f443b9aac9c1d9716349c4025d95fd24b287c4fc247a6e23e1f5
User & Date: jan.nijtmans 2023-04-19 20:23:39.134
References
2023-04-21
17:36 New ticket [6854ee6a] Test imgPhoto-7.3 causes X server to crash (vcxsrv). artifact: 86973303 user: apnadkarni
2023-04-20
06:55 Ticket [fe87e9af] X-input extension events are not transfered to Tcl. status still Closed with 5 other changes artifact: c2aa4a56 user: fvogel
Context
2023-04-21
17:37
Updates related to TIP 660 check-in: 6bc95282 user: apnadkarni tags: trunk, main
12:54
merge trunk check-in: 9d9152fe user: dgp tags: core-8-7-b1-rc
11:47
Merge trunk Closed-Leaf check-in: 7f9a7b44 user: apnadkarni tags: tip-660-apn
2023-04-19
21:18
Resolve conflict between VirtualEvent and GenericEvent, at least when compiling with Tcl 9.0+ headers

Moved to mistake. This commit broke the test suite. Throws up dialogs like "can't read ::tk_library", "unknown path WINDOW PATH" etc. Causes github actions to time out. Closed-Leaf check-in: b4c88ce7 user: jan.nijtmans tags: mistake-b4c88ce7e4

20:35
Fix [fe87e9af39]: X-input extension events are not transfered to Tcl. check-in: 93b1efd5 user: jan.nijtmans tags: core-8-6-branch
20:23
Fix [fe87e9af39]: X-input extension events are not transfered to Tcl. check-in: ccee45f2 user: jan.nijtmans tags: trunk, main
2023-04-16
19:59
merge-mark check-in: 70b725b6 user: jan.nijtmans tags: trunk, main
Changes
Unified Diff Ignore Whitespace Patch
Changes to unix/tkUnixEvent.c.
361
362
363
364
365
366
367
368


369
370
371
372
373
374
375
     * until Tk_HandleEvent then many input methods actually cease to work
     * correctly. Most of the time, Tk processes its event queue fast enough
     * for this to not be an issue anyway. [Bug 1924761]
     */

    while (QLength(display) > 0) {
	XNextEvent(display, &event.x);
	if (event.type > MappingNotify) {


	    continue;
	}
	w = None;
	if (event.type == KeyPress || event.type == KeyRelease) {
	    for (dispPtr = TkGetDisplayList(); ; dispPtr = dispPtr->nextPtr) {
		if (dispPtr == NULL) {
		    break;







|
>
>







361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
     * until Tk_HandleEvent then many input methods actually cease to work
     * correctly. Most of the time, Tk processes its event queue fast enough
     * for this to not be an issue anyway. [Bug 1924761]
     */

    while (QLength(display) > 0) {
	XNextEvent(display, &event.x);
	if ((event.type >= VirtualEvent) && (event.type <= MouseWheelEvent)) {
	    /* See [fe87e9af39]. Those are internal Tk event types, if they come
	     * from an external source they most likely would be totally mis-interpreted */
	    continue;
	}
	w = None;
	if (event.type == KeyPress || event.type == KeyRelease) {
	    for (dispPtr = TkGetDisplayList(); ; dispPtr = dispPtr->nextPtr) {
		if (dispPtr == NULL) {
		    break;