Check-in [021ac91c99]
Not logged in

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

Overview
Comment:add tk upstream changes
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 021ac91c9914d320c848fc7f19f0440e3c4b2f81
User & Date: chw 2016-04-29 17:04:39
Context
2016-05-01
18:41
cleanup temp copies of DLLs when on Windows check-in: 8124bec2b0 user: chw tags: trunk
2016-04-29
17:04
add tk upstream changes check-in: 021ac91c99 user: chw tags: trunk
2016-04-24
14:17
update tzdata check-in: c162b09e2e user: chw tags: trunk
Changes

Changes to jni/sdl2tk/generic/tkText.c.

5211
5212
5213
5214
5215
5216
5217


5218

5219
5220
5221
5222
5223
5224
5225

	/*
	 * Only issue the <<Modified>> event if the flag actually changed.
	 * However, degree of modified-ness doesn't matter. [Bug 1799782]
	 */

	if ((!oldModified) != (!setModified)) {


	    GenerateModifiedEvent(textPtr);

	}
	break;
    case EDIT_REDO:
	if (objc != 3) {
	    Tcl_WrongNumArgs(interp, 3, objv, NULL);
	    return TCL_ERROR;
	}







>
>
|
>







5211
5212
5213
5214
5215
5216
5217
5218
5219
5220
5221
5222
5223
5224
5225
5226
5227
5228

	/*
	 * Only issue the <<Modified>> event if the flag actually changed.
	 * However, degree of modified-ness doesn't matter. [Bug 1799782]
	 */

	if ((!oldModified) != (!setModified)) {
            for (textPtr = textPtr->sharedTextPtr->peers; textPtr != NULL;
                    textPtr = textPtr->next) {
                GenerateModifiedEvent(textPtr);
            }
	}
	break;
    case EDIT_REDO:
	if (objc != 3) {
	    Tcl_WrongNumArgs(interp, 3, objv, NULL);
	    return TCL_ERROR;
	}

Changes to jni/sdl2tk/tests/text.test.

6317
6318
6319
6320
6321
6322
6323















6324
6325
6326
6327
6328
6329
6330
    .t insert end "nothing special"
    .t edit modified 0
    .t delete 1.0 1.2
    set ::retval
} -cleanup {
    destroy .t
} -result {thing special}















test text-27.15 {<<Selection>> virtual event} -body {
    set ::retval no_selection
    pack [text .t -undo 1]
    bind .t <<Selection>> "set ::retval selection_changed"
    update idletasks
    .t insert end "nothing special\n"
    .t tag add sel 1.0 1.1







>
>
>
>
>
>
>
>
>
>
>
>
>
>
>







6317
6318
6319
6320
6321
6322
6323
6324
6325
6326
6327
6328
6329
6330
6331
6332
6333
6334
6335
6336
6337
6338
6339
6340
6341
6342
6343
6344
6345
    .t insert end "nothing special"
    .t edit modified 0
    .t delete 1.0 1.2
    set ::retval
} -cleanup {
    destroy .t
} -result {thing special}
test text-27.14a {<<Modified>> virtual event - propagation to peers} -body {
# Bug [fd3a4dc111], <<Modified>> event is not always sent to peers
    set ::retval 0
    text .t -undo 1
    .t peer create .tt
    pack .t .tt
    bind .t <<Modified>> {incr ::retval}
    bind .tt <<Modified>> {incr ::retval}
    .t insert end "This increments ::retval once for each peer, i.e. twice."
    .t edit modified 0  ; # shall increment twice as well, not just once
    update idletasks
    set ::retval
} -cleanup {
    destroy .t .tt
} -result {4}
test text-27.15 {<<Selection>> virtual event} -body {
    set ::retval no_selection
    pack [text .t -undo 1]
    bind .t <<Selection>> "set ::retval selection_changed"
    update idletasks
    .t insert end "nothing special\n"
    .t tag add sel 1.0 1.1

jni/sdl2tk/tests/winDialog.test became executable.

jni/sdl2tk/unix/configure.in became a regular file.

jni/tcl/library/tzdata/Europe/Volgograd became executable.