Update to tk 8.5.19

This commit is contained in:
Zachary Ware
2017-11-24 17:53:51 -06:00
parent 27e7dfc7da
commit c67b328f06
325 changed files with 12511 additions and 12047 deletions

View File

@@ -778,6 +778,14 @@ test entry-6.11 {EntryComputeGeometry procedure} win {
[expr 8+5*[font measure {helvetica 12} .]] \
[expr 8+5*[font measure {helvetica 12} X]] \
[expr 8+[font measure {helvetica 12} 12345]]]
test entry-6.12 {EntryComputeGeometry procedure} {fonts} {
catch {destroy .e}
entry .e -font $fixed -bd 2 -relief raised -width 20
pack .e
.e insert end "012\t456\t"
update
list [.e index @81] [.e index @82] [.e index @116] [.e index @117]
} {6 7 7 8}
catch {destroy .e}
entry .e -width 10 -font $fixed -textvariable contents -xscrollcommand scroll
@@ -1613,13 +1621,32 @@ test entry-22.1 {lost namespaced textvar} {
namespace eval test { variable foo {a b} }
entry .e -textvariable ::test::foo
namespace delete test
.e insert end "more stuff"
.e delete 5 end
catch {set ::test::foo} result
list [.e get] [.e cget -textvar] $result
catch {.e insert end "more stuff"} result1
catch {.e delete 5 end} result2
catch {set ::test::foo} result3
list [.e get] [.e cget -textvar] $result1 $result2 $result3
} [list "a bmo" ::test::foo \
{can't set "::test::foo": parent namespace doesn't exist} \
{can't set "::test::foo": parent namespace doesn't exist} \
{can't read "::test::foo": no such variable}]
test entry-23.1 {error in trace proc attached to the textvariable} {
destroy .e
trace variable myvar w traceit
proc traceit args {error "Intentional error here!"}
entry .e -textvariable myvar
catch {.e insert end mystring} result1
catch {.e delete 0} result2
list $result1 $result2
} [list {can't set "myvar": Intentional error here!} \
{can't set "myvar": Intentional error here!}]
test entry-24.1 {textvariable lives in a non-existing namespace} {
destroy .e
catch {entry .e -textvariable thisnsdoesntexist::myvar} result1
set result1
} {can't trace "thisnsdoesntexist::myvar": parent namespace doesn't exist}
destroy .e
# XXX Still need to write tests for EntryBlinkProc, EntryFocusProc,