diff options
| author | ericm <ericm> | 2000-08-03 20:36:15 (GMT) |
|---|---|---|
| committer | ericm <ericm> | 2000-08-03 20:36:15 (GMT) |
| commit | 0cdb0677540aa8995226f52ec82b9037920b6d29 (patch) | |
| tree | ff2867076396bc073331bbed420d5ef47e09b88e /tests/bind.test | |
| parent | 7d67184a277c2923bc3f951b256ad643113c6a8e (diff) | |
| download | tk-0cdb0677540aa8995226f52ec82b9037920b6d29.zip tk-0cdb0677540aa8995226f52ec82b9037920b6d29.tar.gz tk-0cdb0677540aa8995226f52ec82b9037920b6d29.tar.bz2 | |
* tests/bind.test: Tweaked expected error messages for [bindtags]
to comply with updated error messages.
* generic/tkMenu.c (CloneMenu): Replaced calls to Tk_BindtagsCmd
with equivalent calls to Tk_BindtagsObjCmd.
* generic/tkInt.h: Replace Tk_BindtagsCmd prototype with
Tk_BindtagsObjCmd prototype.
* generic/tkWindow.c: Updated "bindtags" command entry to use
Tcl_Obj'ified command.
* generic/tkCmds.c (Tk_BindtagsObjCmd): Tcl_Obj'ified [bindtags]
command.
Diffstat (limited to 'tests/bind.test')
| -rw-r--r-- | tests/bind.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/bind.test b/tests/bind.test index 25ac2c3..06d3078 100644 --- a/tests/bind.test +++ b/tests/bind.test @@ -7,7 +7,7 @@ # Copyright (c) 1998-1999 by Scriptics Corporation. # All rights reserved. # -# RCS: @(#) $Id: bind.test,v 1.7 1999/12/14 06:53:11 hobbs Exp $ +# RCS: @(#) $Id: bind.test,v 1.8 2000/08/03 20:36:17 ericm Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { source [file join [pwd] [file dirname [info script]] defs.tcl] @@ -84,10 +84,10 @@ test bind-1.10 {bind command} { test bind-2.1 {bindtags command} { list [catch {bindtags} msg] $msg -} {1 {wrong # args: should be "bindtags window ?tags?"}} +} {1 {wrong # args: should be "bindtags window ?taglist?"}} test bind-2.2 {bindtags command} { list [catch {bindtags a b c} msg] $msg -} {1 {wrong # args: should be "bindtags window ?tags?"}} +} {1 {wrong # args: should be "bindtags window ?taglist?"}} test bind-2.3 {bindtags command} { list [catch {bindtags .foo} msg] $msg } {1 {bad window path name ".foo"}} |