diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2012-07-16 12:36:40 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2012-07-16 12:36:40 (GMT) |
| commit | 28d5754e102ceb55ec60fe998f47eb81cd8036c7 (patch) | |
| tree | 83188d92aa77a52a178e0ae85ba5439c402f4eca /generic/tkBusy.c | |
| parent | a9071191aeb6d0b8121f05cc9f4f9979cd9a25ab (diff) | |
| download | tk-28d5754e102ceb55ec60fe998f47eb81cd8036c7.zip tk-28d5754e102ceb55ec60fe998f47eb81cd8036c7.tar.gz tk-28d5754e102ceb55ec60fe998f47eb81cd8036c7.tar.bz2 | |
Working towards adding all the Tcl_SetErrorCode calls that should be there.
** WORK IN PROGRESS **
Diffstat (limited to 'generic/tkBusy.c')
| -rw-r--r-- | generic/tkBusy.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tkBusy.c b/generic/tkBusy.c index fc7f6ab..5439969 100644 --- a/generic/tkBusy.c +++ b/generic/tkBusy.c @@ -689,6 +689,7 @@ GetBusy( if (hPtr == NULL) { Tcl_AppendResult(interp, "can't find busy window \"", Tcl_GetString(windowObj), "\"", NULL); + Tcl_SetErrorCode(interp, "TK", "LOOKUP", "BUSY", NULL); return NULL; } return Tcl_GetHashValue(hPtr); |