Tk Source Code

Changes On Branch rfe-5da1d76e01-bis
Login

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

Changes In Branch rfe-5da1d76e01-bis Excluding Merge-Ins

This is equivalent to a diff from 342b046b to 0763cea4

2019-08-22
06:42
Fix [5da1d76e01]: X11: add default bindings for non-emulated horizontal scrolling to Tk 8.6 check-in: b353987a user: jan.nijtmans tags: core-8-6-branch
2019-08-21
18:56
Fix [c8ccd1899c]: Pressing the up arrow key on the first line of a [text] does not move the cursor to 1.0 check-in: 38609ccf user: fvogel tags: core-8-6-branch
10:55
Improve implementation in tkEvent.c. Merge 8.6 Closed-Leaf check-in: 0763cea4 user: jan.nijtmans tags: rfe-5da1d76e01-bis
07:49
Merge 8.6 check-in: b951bc4d user: jan.nijtmans tags: trunk
07:48
In X11-R6 _XLIB_H changed to _X11_XLIB_H_, so adapt for that check-in: 342b046b user: jan.nijtmans tags: core-8-6-branch
07:45
In X11-R6 _XLIB_H changed to _X11_XLIB_H_, so adapt for that. Also include <stddef.h> in more compilers we know of (same as in tclInt.h). check-in: 484dcf52 user: jan.nijtmans tags: core-8-5-branch
07:28
Make sure that <stddef.h> is included before defining Tk_Offset(), even on systems which don't define __STDC__ (e.g. MSVC 6.0) check-in: e8781972 user: jan.nijtmans tags: core-8-6-branch
2019-08-19
21:53
Much simpler (still Experimental) implementation of RFE-5da1d76e01. Just translate 6/7 to Shift-4/5 check-in: 0dcea0dd user: jan.nijtmans tags: rfe-5da1d76e01-bis

Changes to generic/tkEvent.c.

1204
1205
1206
1207
1208
1209
1210








1211
1212
1213
1214
1215
1216
1217
1204
1205
1206
1207
1208
1209
1210
1211
1212
1213
1214
1215
1216
1217
1218
1219
1220
1221
1222
1223
1224
1225







+
+
+
+
+
+
+
+







    register TkEventHandler *handlerPtr;
    TkWindow *winPtr;
    unsigned long mask;
    InProgress ip;
    Tcl_Interp *interp = NULL;
    ThreadSpecificData *tsdPtr =
	    Tcl_GetThreadData(&dataKey, sizeof(ThreadSpecificData));

#if !defined(MAC_OSX_TK) && !defined(_WIN32)
    if (((eventPtr->type == ButtonPress) || (eventPtr->type == ButtonRelease))
	    && ((eventPtr->xbutton.button - 6) < 2)) {
	eventPtr->xbutton.button -= 2;
	eventPtr->xbutton.state |= ShiftMask;
    }
#endif

    UpdateButtonEventState(eventPtr);

    /*
     * If the generic handler processed this event we are done and can return.
     */