diff options
| author | dgp <dgp@users.sourceforge.net> | 2004-08-25 22:23:32 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2004-08-25 22:23:32 (GMT) |
| commit | 2e88b4bfe31e5b5f12f40f18521b4e4581785e1b (patch) | |
| tree | d1514e184ed03eb71c518365f3a38c23ac38b4ef /win | |
| parent | 4dc25bde7ef9ad66f1511f6225c5eec5e526f068 (diff) | |
| download | tk-2e88b4bfe31e5b5f12f40f18521b4e4581785e1b.zip tk-2e88b4bfe31e5b5f12f40f18521b4e4581785e1b.tar.gz tk-2e88b4bfe31e5b5f12f40f18521b4e4581785e1b.tar.bz2 | |
* macosx/tkMacOSXWm.c: Made use of Tcl_WrongNumArgs in a few
* win/tkWinMenu.c: appropriate spots.
Diffstat (limited to 'win')
| -rw-r--r-- | win/tkWinMenu.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/win/tkWinMenu.c b/win/tkWinMenu.c index 203389e..58cc781 100644 --- a/win/tkWinMenu.c +++ b/win/tkWinMenu.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkWinMenu.c,v 1.33 2004/05/03 23:23:14 hobbs Exp $ + * RCS: @(#) $Id: tkWinMenu.c,v 1.34 2004/08/25 22:23:33 dgp Exp $ */ #define OEMRESOURCE @@ -1850,9 +1850,7 @@ TkWinMenuKeyObjCmd(clientData, interp, objc, objv) int i; if (objc != 3) { - Tcl_AppendResult(interp, "wrong # args: should be \"", - Tcl_GetString(objv[0]), - " window keySym\"", (char *) NULL); + Tcl_WrongNumArgs(interp, 1, objv, "window keySym"); return TCL_ERROR; } |