diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-07-16 12:36:40 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-07-16 12:36:40 (GMT) |
commit | a96a4263f85fa276c74672a7e28251691f0c7680 (patch) | |
tree | 83188d92aa77a52a178e0ae85ba5439c402f4eca /generic/tkStyle.c | |
parent | da1c30ff0d8a05251ef3ab0e9f6a5c5bae6f7b14 (diff) | |
download | tk-a96a4263f85fa276c74672a7e28251691f0c7680.zip tk-a96a4263f85fa276c74672a7e28251691f0c7680.tar.gz tk-a96a4263f85fa276c74672a7e28251691f0c7680.tar.bz2 |
Working towards adding all the Tcl_SetErrorCode calls that should be there.
** WORK IN PROGRESS **
Diffstat (limited to 'generic/tkStyle.c')
-rw-r--r-- | generic/tkStyle.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tkStyle.c b/generic/tkStyle.c index 76291fa..965230e 100644 --- a/generic/tkStyle.c +++ b/generic/tkStyle.c @@ -1358,6 +1358,7 @@ Tk_GetStyle( if (interp != NULL) { Tcl_AppendResult(interp, "style \"", name, "\" doesn't exist", NULL); + Tcl_SetErrorCode(interp, "TK", "LOOKUP", "STYLE", name, NULL); } return (Tk_Style) NULL; } |