diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2014-05-22 14:46:49 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2014-05-22 14:46:49 (GMT) |
commit | 9ad951406b16aac72049cd90ba9f7ad7678ea7d7 (patch) | |
tree | 85ef4e7b540edaf10bb7622c794290d65e85b965 /tests | |
parent | 44f5fc24fed3e8fce2accea8bd57a5998c3829b5 (diff) | |
download | tk-9ad951406b16aac72049cd90ba9f7ad7678ea7d7.zip tk-9ad951406b16aac72049cd90ba9f7ad7678ea7d7.tar.gz tk-9ad951406b16aac72049cd90ba9f7ad7678ea7d7.tar.bz2 |
Make the "scrollbar" a real Tcl_Obj-based command. No change in functionality.
Diffstat (limited to 'tests')
-rw-r--r-- | tests/scrollbar.test | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/scrollbar.test b/tests/scrollbar.test index 3addd28..c6a5a90 100644 --- a/tests/scrollbar.test +++ b/tests/scrollbar.test @@ -405,7 +405,7 @@ test scrollbar-3.73 {ScrollbarWidgetCmd procedure} { } {1 {bad option "bogus": must be activate, cget, configure, delta, fraction, get, identify, or set}} test scrollbar-3.74 {ScrollbarWidgetCmd procedure} { list [catch {.s c} msg] $msg -} {1 {bad option "c": must be activate, cget, configure, delta, fraction, get, identify, or set}} +} {1 {ambiguous option "c": must be activate, cget, configure, delta, fraction, get, identify, or set}} test scrollbar-4.1 {ScrollbarEventProc procedure} { catch {destroy .s1} |