ag/cpython-source-deps
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Imported Tk 8.6.9

Browse Source
This commit is contained in:
Steve Dower
2018-12-11 10:05:28 -08:00
parent 753ac6b037
commit 5ba5cbc9af
184 changed files with 6223 additions and 1994 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
tests/color.test
View File

@@ -277,13 +277,17 @@ test color-3.4 {Tk_FreeColorFromObj - unlinking from list} colorsFree {
lappend result [testcolor purple]
} {{{4 1} {3 0} {2 0} {1 0}} {{4 1} {2 0} {1 0}} {{4 1} {2 0}} {{2 0}} {}}
test color-4.1 {FreeColorObjProc} colorsFree {
test color-4.1 {FreeColorObjProc} -constraints {
colorsFree
} -setup {
proc copy {s} {return [string index $s 0][string range $s 1 end]}
} -body {
destroy .b
set x [format purple]
set x [copy purple]
button .b -foreground $x -text .b1
set y [format purple]
set y [copy purple]
.b configure -foreground $y
set z [format purple]
set z [copy purple]
.b configure -foreground $z
set result {}
lappend result [testcolor purple]
@@ -295,7 +299,9 @@ test color-4.1 {FreeColorObjProc} colorsFree {
lappend result [testcolor purple]
set y bogus
set result
} {{{1 3}} {{1 2}} {{1 1}} {}}
} -cleanup {
rename copy {}
} -result {{{1 3}} {{1 2}} {{1 1}} {}}
destroy .t