diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2005-01-07 11:16:28 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2005-01-07 11:16:28 (GMT) |
| commit | 7afbe2a52dba7c48acf040303c9dee79d01e2acb (patch) | |
| tree | 36b0f791358a85eaa3758903efabfc5893bb6066 /generic/tkWindow.c | |
| parent | 73814f486475f27add223c536b1feccd29f7bad1 (diff) | |
| download | tk-7afbe2a52dba7c48acf040303c9dee79d01e2acb.zip tk-7afbe2a52dba7c48acf040303c9dee79d01e2acb.tar.gz tk-7afbe2a52dba7c48acf040303c9dee79d01e2acb.tar.bz2 | |
Add missing Tcl_ResetResult [697915]
Diffstat (limited to 'generic/tkWindow.c')
| -rw-r--r-- | generic/tkWindow.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tkWindow.c b/generic/tkWindow.c index 53d4a8c..35a16cc 100644 --- a/generic/tkWindow.c +++ b/generic/tkWindow.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: tkWindow.c,v 1.56.2.4 2004/10/27 00:37:38 davygrvy Exp $ + * RCS: @(#) $Id: tkWindow.c,v 1.56.2.5 2005/01/07 11:16:29 dkf Exp $ */ #include "tkPort.h" @@ -485,6 +485,7 @@ GetScreen(interp, screenName, screenPtr) */ dispPtr = TkpOpenDisplay(screenName); if (dispPtr == NULL) { + Tcl_ResetResult(interp); Tcl_AppendResult(interp, "couldn't connect to display \"", screenName, "\"", (char *) NULL); return (TkDisplay *) NULL; |