diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-02-16 11:05:09 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-02-16 11:05:09 (GMT) |
| commit | 6214efc0cc2054edbeaf5d08ac8c9a1864797d4a (patch) | |
| tree | c223ea89eeffa7e9747c0ad8809e46352bb1bf58 /tests | |
| parent | 1e9b0fc3c284b29e0adaf439f2438d0246eb7838 (diff) | |
| download | tk-6214efc0cc2054edbeaf5d08ac8c9a1864797d4a.zip tk-6214efc0cc2054edbeaf5d08ac8c9a1864797d4a.tar.gz tk-6214efc0cc2054edbeaf5d08ac8c9a1864797d4a.tar.bz2 | |
If compiled with TK_NO_DEPRECATED, remove support for old "set" and "get" syntax on scrollbar.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/scrollbar.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/scrollbar.test b/tests/scrollbar.test index 6d811dc..b7cdbc0 100644 --- a/tests/scrollbar.test +++ b/tests/scrollbar.test @@ -396,10 +396,10 @@ test scrollbar-3.70 {ScrollbarWidgetCmd procedure, "set" option} { } {100 50 30 30} test scrollbar-3.71 {ScrollbarWidgetCmd procedure, "set" option} { list [catch {.s set 1 2 3} msg] $msg -} {1 {wrong # args: should be ".s set firstFraction lastFraction" or ".s set totalUnits windowUnits firstUnit lastUnit"}} +} {1 {wrong # args: should be ".s set firstFraction lastFraction"}} test scrollbar-3.72 {ScrollbarWidgetCmd procedure, "set" option} { list [catch {.s set 1 2 3 4 5} msg] $msg -} {1 {wrong # args: should be ".s set firstFraction lastFraction" or ".s set totalUnits windowUnits firstUnit lastUnit"}} +} {1 {wrong # args: should be ".s set firstFraction lastFraction"}} test scrollbar-3.73 {ScrollbarWidgetCmd procedure} { list [catch {.s bogus} msg] $msg } {1 {bad option "bogus": must be activate, cget, configure, delta, fraction, get, identify, or set}} |