summaryrefslogtreecommitdiffstats
path: root/macosx/tkMacOSXWm.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2004-08-25 22:23:32 (GMT)
committerdgp <dgp@users.sourceforge.net>2004-08-25 22:23:32 (GMT)
commit2e88b4bfe31e5b5f12f40f18521b4e4581785e1b (patch)
treed1514e184ed03eb71c518365f3a38c23ac38b4ef /macosx/tkMacOSXWm.c
parent4dc25bde7ef9ad66f1511f6225c5eec5e526f068 (diff)
downloadtk-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/tkMacOSXWm.c')
-rw-r--r--macosx/tkMacOSXWm.c9
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));