diff options
Diffstat (limited to 'tests/scrollbar.test')
| -rw-r--r-- | tests/scrollbar.test | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/tests/scrollbar.test b/tests/scrollbar.test index 298a28e..eb1078c 100644 --- a/tests/scrollbar.test +++ b/tests/scrollbar.test @@ -14,6 +14,8 @@ tcltest::loadTestedCommands # Import utility procs for specific functional areas namespace import -force ::tk::test::scroll::* +set scrollCmdPrefix [list scrollInfo set] + proc getTroughSize {w} { if {[testConstraint testmetrics]} { # Only Windows has [testmetrics] @@ -135,7 +137,7 @@ test scrollbar-2.5 {Tk_ScrollbarCmd procedure} -setup { destroy .s } -result .s -scrollbar .s -orient vertical -command [list scrollInfo set] -highlightthickness 2 -bd 2 +scrollbar .s -orient vertical -command $scrollCmdPrefix -highlightthickness 2 -bd 2 pack .s -side right -fill y update test scrollbar-3.1 {ScrollbarWidgetCmd procedure} { @@ -758,6 +760,7 @@ catch {destroy .t} # CLEANUP # +unset scrollCmdPrefix namespace forget ::tk::test::scroll::* cleanupTests return |