diff options
| author | Joe Mistachkin <joe@mistachkin.com> | 2015-02-05 22:26:58 (GMT) |
|---|---|---|
| committer | Joe Mistachkin <joe@mistachkin.com> | 2015-02-05 22:26:58 (GMT) |
| commit | 8e9e78d52fa9ba2522f175585e3299f03c5b82d0 (patch) | |
| tree | fd2d0c47bc7f3a6d897ad98ded8ad583a8cb7f84 /tests | |
| parent | b15c525eedc93a453dfea94482bc1198e27748fc (diff) | |
| parent | bedea5a5c74e0fb7f66c572836dc4d98a3285147 (diff) | |
| download | tk-8e9e78d52fa9ba2522f175585e3299f03c5b82d0.zip tk-8e9e78d52fa9ba2522f175585e3299f03c5b82d0.tar.gz tk-8e9e78d52fa9ba2522f175585e3299f03c5b82d0.tar.bz2 | |
Merge updates from core-8-5-branch.bindScriptCount
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/canvText.test | 4 | ||||
| -rw-r--r-- | tests/ttk/spinbox.test | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/tests/canvText.test b/tests/canvText.test index 20a39b0..7eef938 100644 --- a/tests/canvText.test +++ b/tests/canvText.test @@ -485,8 +485,8 @@ test canvText-17.1 {TextToPostscript procedure} { .c itemconfig test -font $font -text "00000000" -width [expr 3*$ax] .c itemconfig test -anchor n -fill black set x [.c postscript] - set x [string range $x [string first "/Courier-Oblique" $x] end] -} "/Courier-Oblique findfont [font actual $font -size] scalefont ISOEncode setfont + set x [string range $x [string first "findfont " $x] end] +} "findfont [font actual $font -size] scalefont ISOEncode setfont 0.000 0.000 0.000 setrgbcolor AdjustColor 100 200 \[ \[(000)\] diff --git a/tests/ttk/spinbox.test b/tests/ttk/spinbox.test index 3397e37..f7741c6 100644 --- a/tests/ttk/spinbox.test +++ b/tests/ttk/spinbox.test @@ -144,7 +144,7 @@ test spinbox-1.8.4 "-validate option: " -setup { pack .sb .sb set 50 focus .sb - after 100 {set ::spinbox_wait 1} ; vwait ::spinbox_wait + after 500 {set ::spinbox_wait 1} ; vwait ::spinbox_wait set ::spinbox_test } -cleanup { destroy .sb |