diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2014-05-22 20:22:04 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2014-05-22 20:22:04 (GMT) |
| commit | 768dc7a8b3c95b48626f3a263e7008350e829b51 (patch) | |
| tree | 9378754ac168aca938cf194ad909e12c04ad71d2 /tests/scrollbar.test | |
| parent | 4c6f36571342ed68e0b7930dc209fb3e5972bf51 (diff) | |
| parent | fb2df9548f0580531d0597a2dd62d93f17104cec (diff) | |
| download | tk-768dc7a8b3c95b48626f3a263e7008350e829b51.zip tk-768dc7a8b3c95b48626f3a263e7008350e829b51.tar.gz tk-768dc7a8b3c95b48626f3a263e7008350e829b51.tar.bz2 | |
Make "scrollbar" a Tcl_Obj-based command
Some more Tcl_Obj-related optimizations
Diffstat (limited to 'tests/scrollbar.test')
| -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} |