summaryrefslogtreecommitdiffstats
path: root/tests
diff options
context:
space:
mode:
authorericm <ericm>2000-08-03 20:36:15 (GMT)
committerericm <ericm>2000-08-03 20:36:15 (GMT)
commit0cdb0677540aa8995226f52ec82b9037920b6d29 (patch)
treeff2867076396bc073331bbed420d5ef47e09b88e /tests
parent7d67184a277c2923bc3f951b256ad643113c6a8e (diff)
downloadtk-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')
-rw-r--r--tests/bind.test6
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"}}