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

36
tests/unixSelect.test
View File

@@ -108,7 +108,7 @@ foreach i {a b c d e f g j h i j k l m o p q r s t u v w x y z} {
# ----------------------------------------------------------------------
test unixSelect-1.1 {TkSelGetSelection procedure: simple i18n text} -constraints {
unix
x11
} -setup {
destroy .e
setupbg
@@ -124,7 +124,7 @@ test unixSelect-1.1 {TkSelGetSelection procedure: simple i18n text} -constraints
} -result {4}
test unixSelect-1.2 {TkSelGetSelection procedure: simple i18n text, iso8859-1} -constraints {
unix
x11
} -setup {
setupbg
} -body {
@@ -140,7 +140,7 @@ test unixSelect-1.2 {TkSelGetSelection procedure: simple i18n text, iso8859-1} -
} -result \u00fc?
test unixSelect-1.3 {TkSelGetSelection procedure: simple i18n text, iso2022} -constraints {
unix
x11
} -setup {
setupbg
setup
@@ -160,7 +160,7 @@ test unixSelect-1.3 {TkSelGetSelection procedure: simple i18n text, iso2022} -co
} -result {1 2 {COMPOUND_TEXT 0 4000}}
test unixSelect-1.4 {TkSelGetSelection procedure: INCR i18n text, iso2022} -constraints {
unix
x11
} -setup {
setupbg
setup
@@ -186,7 +186,7 @@ test unixSelect-1.4 {TkSelGetSelection procedure: INCR i18n text, iso2022} -cons
} -result {1 8000 {COMPOUND_TEXT 0 4000 COMPOUND_TEXT 4000 3999 COMPOUND_TEXT 7998 4000 COMPOUND_TEXT 0 4000 COMPOUND_TEXT 4000 3998 COMPOUND_TEXT 7997 4000}}
test unixSelect-1.5 {TkSelGetSelection procedure: simple i18n text, iso2022} -constraints {
unix
x11
} -setup {
setupbg
setup
@@ -206,7 +206,7 @@ test unixSelect-1.5 {TkSelGetSelection procedure: simple i18n text, iso2022} -co
} -result {1 2 {COMPOUND_TEXT 0 4000}}
test unixSelect-1.6 {TkSelGetSelection procedure: INCR i18n text} -constraints {
unix
x11
} -setup {
setupbg
} -body {
@@ -219,7 +219,7 @@ test unixSelect-1.6 {TkSelGetSelection procedure: INCR i18n text} -constraints {
} -result [expr {4 + [string length $longValue]}]
test unixSelect-1.7 {TkSelGetSelection procedure: INCR i18n text} -constraints {
unix
x11
} -setup {
setupbg
} -body {
@@ -235,7 +235,7 @@ test unixSelect-1.7 {TkSelGetSelection procedure: INCR i18n text} -constraints {
} -result [string repeat x 3999]\u00fc
test unixSelect-1.8 {TkSelGetSelection procedure: INCR i18n text} -constraints {
unix
x11
} -setup {
setupbg
} -body {
@@ -251,7 +251,7 @@ test unixSelect-1.8 {TkSelGetSelection procedure: INCR i18n text} -constraints {
} -result \u00fc[string repeat x 3999]
test unixSelect-1.9 {TkSelGetSelection procedure: INCR i18n text} -constraints {
unix
x11
} -setup {
setupbg
} -body {
@@ -270,7 +270,7 @@ test unixSelect-1.9 {TkSelGetSelection procedure: INCR i18n text} -constraints {
# from rearing its ugly head again.
test unixSelect-1.10 {TkSelGetSelection procedure: INCR i18n text, utf-8} -constraints {
unix
x11
} -setup {
setupbg
} -body {
@@ -286,7 +286,7 @@ test unixSelect-1.10 {TkSelGetSelection procedure: INCR i18n text, utf-8} -const
} -result [string repeat x 3999]\u00fc
test unixSelect-1.11 {TkSelGetSelection procedure: INCR i18n text, utf-8} -constraints {
unix
x11
} -setup {
setupbg
} -body {
@@ -302,7 +302,7 @@ test unixSelect-1.11 {TkSelGetSelection procedure: INCR i18n text, utf-8} -const
} -result \u00fc[string repeat x 3999]
test unixSelect-1.12 {TkSelGetSelection procedure: INCR i18n text, utf-8} -constraints {
unix
x11
} -setup {
setupbg
} -body {
@@ -318,7 +318,7 @@ test unixSelect-1.12 {TkSelGetSelection procedure: INCR i18n text, utf-8} -const
} -result [string repeat x 3999]\u00fc[string repeat x 4000]
test unixSelect-1.13 {TkSelGetSelection procedure: simple i18n text, utf-8} -constraints {
unix
x11
} -setup {
destroy .e
setupbg
@@ -334,7 +334,7 @@ test unixSelect-1.13 {TkSelGetSelection procedure: simple i18n text, utf-8} -con
} -result {5}
test unixSelect-1.14 {TkSelGetSelection procedure: simple i18n text, utf-8} -constraints {
unix
x11
} -setup {
setupbg
} -body {
@@ -350,7 +350,7 @@ test unixSelect-1.14 {TkSelGetSelection procedure: simple i18n text, utf-8} -con
} -result \u00fc\u0444
test unixSelect-1.15 {TkSelGetSelection procedure: INCR i18n text, utf-8} -constraints {
unix
x11
} -setup {
setupbg
} -body {
@@ -366,7 +366,7 @@ test unixSelect-1.15 {TkSelGetSelection procedure: INCR i18n text, utf-8} -const
} -result [string repeat [string repeat \u00c4\u00e4 50]\n 21]
test unixSelect-1.16 {TkSelGetSelection procedure: INCR i18n text, utf-8} -constraints {
unix
x11
} -setup {
setupbg
} -body {
@@ -382,7 +382,7 @@ test unixSelect-1.16 {TkSelGetSelection procedure: INCR i18n text, utf-8} -const
} -result i[string repeat [string repeat \u00c4\u00e4 50]\n 21]
test unixSelect-1.17 {TkSelGetSelection procedure: INCR i18n text, utf-8} -constraints {
unix
x11
} -setup {
setupbg
} -body {
@@ -400,7 +400,7 @@ test unixSelect-1.17 {TkSelGetSelection procedure: INCR i18n text, utf-8} -const
} -result [string repeat [string repeat \u00c4\u00e4 50]\n 21]
test unixSelect-1.18 {TkSelGetSelection procedure: INCR i18n text, utf-8} -constraints {
unix
x11
} -setup {
setupbg
} -body {