diff options
| author | dgp <dgp@noemail.net> | 2004-08-25 22:23:32 (GMT) |
|---|---|---|
| committer | dgp <dgp@noemail.net> | 2004-08-25 22:23:32 (GMT) |
| commit | a38faf5ec7bf195a720c951bfe60124291851ae8 (patch) | |
| tree | d1514e184ed03eb71c518365f3a38c23ac38b4ef | |
| parent | aac2db424ac78e8545d4a82b1bc84822cf0b11fb (diff) | |
| download | tk-a38faf5ec7bf195a720c951bfe60124291851ae8.zip tk-a38faf5ec7bf195a720c951bfe60124291851ae8.tar.gz tk-a38faf5ec7bf195a720c951bfe60124291851ae8.tar.bz2 | |
* macosx/tkMacOSXWm.c: Made use of Tcl_WrongNumArgs in a few
* win/tkWinMenu.c: appropriate spots.
FossilOrigin-Name: 896006b1297811c174afa79a11b72f48af8deb1b
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rw-r--r-- | macosx/tkMacOSXWm.c | 9 | ||||
| -rw-r--r-- | win/tkWinMenu.c | 6 |
3 files changed, 10 insertions, 10 deletions
@@ -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; } |