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 /macosx | |
| 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 'macosx')
| -rw-r--r-- | macosx/tkMacOSXWm.c | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/macosx/tkMacOSXWm.c b/macosx/tkMacOSXWm.c index 0ea8b18..ae9e799 100644 --- a/macosx/tkMacOSXWm.c +++ b/macosx/tkMacOSXWm.c @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkMacOSXWm.c,v 1.12 2004/06/16 20:03:18 jenglish Exp $ + * RCS: @(#) $Id: tkMacOSXWm.c,v 1.13 2004/08/25 22:23:32 dgp Exp $ */ #include <Carbon/Carbon.h> @@ -761,11 +761,8 @@ Tcl_Obj *CONST objv[]; /* Argument objects. */ if (objc < 3) { configArgs: - Tcl_AppendResult(interp, "wrong # arguments: must be \"", - Tcl_GetStringFromObj (objv[0], NULL), " attributes window", - " ?-modified ?bool??", - " ?-titlepath ?path??", - "\"", (char *) NULL); + Tcl_WrongNumArgs(interp, 1, objv, + "attributes window ?-modified ?bool?? ?-titlepath ?path??"); return TCL_ERROR; } macWindow = GetWindowFromPort(TkMacOSXGetDrawablePort(winPtr->window)); |