From 2e88b4bfe31e5b5f12f40f18521b4e4581785e1b Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Wed, 25 Aug 2004 22:23:32 +0000
Subject:         * macosx/tkMacOSXWm.c:  Made use of Tcl_WrongNumArgs in a few
         * win/tkWinMenu.c:      appropriate spots.

---
 ChangeLog           | 5 +++++
 macosx/tkMacOSXWm.c | 9 +++------
 win/tkWinMenu.c     | 6 ++----
 3 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 29a3bd6..95676d1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2004-08-25  Don Porter  <dgp@users.sourceforge.net>
+
+	* macosx/tkMacOSXWm.c:	Made use of Tcl_WrongNumArgs in a few
+	* win/tkWinMenu.c:	appropriate spots.
+
 2004-08-22  Donal K. Fellows  <donal.k.fellows@man.ac.uk>
 
 	* doc/SetOptions.3, doc/SetClassProcs.3, doc/MeasureChar.3:
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));
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;
     }
 
-- 
cgit v0.12