diff options
Diffstat (limited to 'tests/fontchooser.test')
| -rw-r--r-- | tests/fontchooser.test | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/fontchooser.test b/tests/fontchooser.test index 4dad5da..313abb3 100644 --- a/tests/fontchooser.test +++ b/tests/fontchooser.test @@ -11,25 +11,25 @@ tcltest::loadTestedCommands # dialog (hence the wierdness). proc start {cmd} { - set ::tk_dialog {} + set ::tk_dialog "" set ::iter_after 0 after 1 $cmd } proc then {cmd} { set ::command $cmd - set ::dialogresult {} - set ::testfont {} + set ::dialogresult "" + set ::testfont "" afterbody vwait ::dialogresult return $::dialogresult } proc afterbody {} { - if {$::tk_dialog == {}} { + if {$::tk_dialog eq ""} { if {[incr ::iter_after] > 30} { set ::dialogresult ">30 iterations waiting for tk_dialog" return } - after 150 {afterbody} + after 150 {afterbody } return } uplevel #0 {set dialogresult [eval $command]} |