diff options
| author | vincentdarley <vincentdarley> | 2006-04-18 22:32:41 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley> | 2006-04-18 22:32:41 (GMT) |
| commit | ddd87340e5617fbc7c41879c3ea844a8e53dfcb8 (patch) | |
| tree | 14abf830f00d7287cd713262b1c18e201b0cb899 /macosx/tkMacOSXWm.c | |
| parent | 11a20a86ed32944334777fe72ba20dea04657822 (diff) | |
| download | tk-ddd87340e5617fbc7c41879c3ea844a8e53dfcb8.zip tk-ddd87340e5617fbc7c41879c3ea844a8e53dfcb8.tar.gz tk-ddd87340e5617fbc7c41879c3ea844a8e53dfcb8.tar.bz2 | |
fix to get correct error message
Diffstat (limited to 'macosx/tkMacOSXWm.c')
| -rw-r--r-- | macosx/tkMacOSXWm.c | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/macosx/tkMacOSXWm.c b/macosx/tkMacOSXWm.c index c051316..bd5ad47 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.29 2006/04/11 07:36:36 das Exp $ + * RCS: @(#) $Id: tkMacOSXWm.c,v 1.30 2006/04/18 22:32:41 vincentdarley Exp $ */ #include "tkMacOSXInt.h" @@ -781,17 +781,17 @@ Tcl_Obj *CONST objv[]; /* Argument objects. */ WindowRef macWindow; Tcl_Obj *result = NULL; const char *optionTable[] = { - "-modified", - "-titlepath", "-alpha", + "-modified", "-notify", + "-titlepath", (char *)NULL }; enum optionIdx { - WmAttrModifiedIdx, - WmAttrTitlePathIdx, WmAttrAlphaIdx, + WmAttrModifiedIdx, WmAttrNotifyIdx, + WmAttrTitlePathIdx, }; /* Must have objc >= 3 at this point. */ @@ -811,19 +811,19 @@ Tcl_Obj *CONST objv[]; /* Argument objects. */ if (objc == 3) { result = Tcl_NewObj(); - Tcl_AppendToObj(result, "-modified ", -1); - WmAttrGetModifiedStatus(macWindow, result); - Tcl_AppendToObj(result, " -titlepath ", -1); - WmAttrGetTitlePath(macWindow, result); Tcl_AppendToObj(result, " -alpha ", -1); WmAttrGetAlpha(macWindow, result); + Tcl_AppendToObj(result, "-modified ", -1); + WmAttrGetModifiedStatus(macWindow, result); Tcl_AppendToObj(result, " -notify ", -1); WmAttrGetNotifyStatus(result); + Tcl_AppendToObj(result, " -titlepath ", -1); + WmAttrGetTitlePath(macWindow, result); Tcl_SetObjResult(interp, result); return TCL_OK; } if (objc == 4) { - if (Tcl_GetIndexFromObj(interp, objv[3], optionTable, "option", 0, + if (Tcl_GetIndexFromObj(interp, objv[3], optionTable, "attribute", 0, &index) != TCL_OK) { return TCL_ERROR; } @@ -857,7 +857,7 @@ Tcl_Obj *CONST objv[]; /* Argument objects. */ OSErr err; double dval; - if (Tcl_GetIndexFromObj(interp, objv[i], optionTable, "option", 0, + if (Tcl_GetIndexFromObj(interp, objv[i], optionTable, "attribute", 0, &index) != TCL_OK) { return TCL_ERROR; } |