Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Remove superfluous lines (the default font of the text widget is already saved in $curFont before the tests start). |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | bug-3ee76e41c2 |
| Files: | files | file ages | folders |
| SHA1: |
c70ff5ca4e783c0462d2c68da769aecb |
| User & Date: | fvogel 2016-12-02 06:35:22 |
Context
|
2016-12-02
| ||
| 21:05 | Fixed [3ee76e41c2] - New textTag test failures check-in: 074a68b5 user: fvogel tags: trunk | |
| 06:35 | Remove superfluous lines (the default font of the text widget is already saved in $curFont before the tests start). Closed-Leaf check-in: c70ff5ca user: fvogel tags: bug-3ee76e41c2 | |
|
2016-12-01
| ||
| 21:45 | When changing the text font, (x,y) coordinates previously saved in the (xi,yi) doublets are no longer relevant. Save coordinates for each of the two font possibilities, and use the right ones in each test. check-in: 2db8eeda user: fvogel tags: bug-3ee76e41c2 | |
Changes
Changes to tests/textTag.test.
| ︙ | ︙ | |||
1338 1339 1340 1341 1342 1343 1344 |
} -result {2.1 3.2 3.2 3.2 3.2 3.2 4.3}
test textTag-16.2 {TkTextPickCurrent procedure} -constraints {
haveFontSizes
} -setup {
.t tag delete {*}[.t tag names]
event generate {} <Motion> -warp 1 -x -1 -y -1; update
| < | 1338 1339 1340 1341 1342 1343 1344 1345 1346 1347 1348 1349 1350 1351 |
} -result {2.1 3.2 3.2 3.2 3.2 3.2 4.3}
test textTag-16.2 {TkTextPickCurrent procedure} -constraints {
haveFontSizes
} -setup {
.t tag delete {*}[.t tag names]
event generate {} <Motion> -warp 1 -x -1 -y -1; update
.t configure -font $textWidgetFont -wrap none
} -body {
.t tag configure big -font $bigFont
event gen .t <ButtonRelease-1> -state 0x100 -x $x4 -y $y4
event gen .t <Motion> -x $x5 -y $y5
set x [.t index current]
.t tag add big 3.0
|
| ︙ | ︙ | |||
1413 1414 1415 1416 1417 1418 1419 |
test textTag-16.5 {TkTextPickCurrent procedure} -constraints {
haveFontSizes
} -setup {
foreach i {big a b c d} {
.t tag remove $i 1.0 end
}
event generate {} <Motion> -warp 1 -x -1 -y -1; update
| < < | 1412 1413 1414 1415 1416 1417 1418 1419 1420 1421 1422 1423 1424 1425 1426 1427 1428 1429 1430 1431 1432 1433 1434 1435 1436 1437 1438 1439 1440 1441 1442 1443 1444 1445 |
test textTag-16.5 {TkTextPickCurrent procedure} -constraints {
haveFontSizes
} -setup {
foreach i {big a b c d} {
.t tag remove $i 1.0 end
}
event generate {} <Motion> -warp 1 -x -1 -y -1; update
.t configure -font $textWidgetFont -wrap none
} -body {
.t tag configure big -font $bigFont
event gen .t <Motion> -x $x4 -y $y4
.t tag bind a <Enter> {.t tag add big 3.0 3.2}
.t tag add a 3.2
event gen .t <Motion> -x $x5 -y $y5
.t index current
} -cleanup {
.t tag delete a big
.t configure -font $curFont -wrap $curWrap
} -result {3.2}
test textTag-16.6 {TkTextPickCurrent procedure} -constraints {
haveFontSizes
} -setup {
foreach i {big a b c d} {
.t tag remove $i 1.0 end
}
event generate {} <Motion> -warp 1 -x -1 -y -1; update
.t configure -font $textWidgetFont -wrap none
} -body {
.t tag configure big -font $bigFont
event gen .t <Motion> -x $x4 -y $y4
.t tag bind a <Enter> {.t tag add big 3.0 3.2}
.t tag add a 3.2
event gen .t <Motion> -x $x5 -y $y5
|
| ︙ | ︙ | |||
1456 1457 1458 1459 1460 1461 1462 |
test textTag-16.7 {TkTextPickCurrent procedure} -constraints {
haveFontSizes
} -setup {
foreach i {big a b c d} {
.t tag remove $i 1.0 end
}
event generate {} <Motion> -warp 1 -x -1 -y -1; update
| < | 1453 1454 1455 1456 1457 1458 1459 1460 1461 1462 1463 1464 1465 1466 |
test textTag-16.7 {TkTextPickCurrent procedure} -constraints {
haveFontSizes
} -setup {
foreach i {big a b c d} {
.t tag remove $i 1.0 end
}
event generate {} <Motion> -warp 1 -x -1 -y -1; update
.t configure -font $textWidgetFont -wrap none
} -body {
.t tag configure big -font $bigFont
.t tag bind a <Enter> {.t tag add big 3.0 3.2}
.t tag add a 3.2
event gen .t <Motion> -x $x4 -y $y4
|
| ︙ | ︙ |