diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-07-26 08:50:09 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-07-26 08:50:09 (GMT) |
| commit | f60c7ff513bcaaa89a54871e150893a286ba6701 (patch) | |
| tree | fb0cc302c5a401d7947bd6f5e6cd5ec2669de8b9 /carbon/tkMacOSXCursor.c | |
| parent | db5cc49273d33c33e1f3d372725a7cef791f41ed (diff) | |
| download | tk-f60c7ff513bcaaa89a54871e150893a286ba6701.zip tk-f60c7ff513bcaaa89a54871e150893a286ba6701.tar.gz tk-f60c7ff513bcaaa89a54871e150893a286ba6701.tar.bz2 | |
more conversions
Diffstat (limited to 'carbon/tkMacOSXCursor.c')
| -rw-r--r-- | carbon/tkMacOSXCursor.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/carbon/tkMacOSXCursor.c b/carbon/tkMacOSXCursor.c index c465764..423b4ff 100644 --- a/carbon/tkMacOSXCursor.c +++ b/carbon/tkMacOSXCursor.c @@ -265,7 +265,9 @@ TkGetCursorByName( if (macCursorPtr->macCursor == NULL) { ckfree(macCursorPtr); - Tcl_AppendResult(interp, "bad cursor spec \"", string, "\"", NULL); + Tcl_SetObjResult(interp, Tcl_ObjPrintf( + "bad cursor spec \"%s\"", string)); + Tcl_SetErrorCode(interp, "TK", "VALUE", "CURSOR", NULL); return NULL; } return (TkCursor *) macCursorPtr; |