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 /macosx | |
| 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
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)); |