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: |
021ac91c9914d320c848fc7f19f0440e |
| 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.