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
    register TkEventHandler *handlerPtr;
    TkWindow *winPtr;
    unsigned long mask;
    InProgress ip;
    Tcl_Interp *interp = NULL;
    ThreadSpecificData *tsdPtr =
	    Tcl_GetThreadData(&dataKey, sizeof(ThreadSpecificData));









    UpdateButtonEventState(eventPtr);

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








>
>
>
>
>
>
>
>







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.
     */