diff options
| author | ericm <ericm> | 2000-01-27 01:28:36 (GMT) |
|---|---|---|
| committer | ericm <ericm> | 2000-01-27 01:28:36 (GMT) |
| commit | 9ecded6646c6fd2abf1d7af4b27025ceb195c7cb (patch) | |
| tree | 103c4a11683691fd01ac622c4a0100ff48acdc10 /generic/tkImgPhoto.c | |
| parent | 40b335d9b0c6ca46aa6f5bba4f95528fea233129 (diff) | |
| download | tk-9ecded6646c6fd2abf1d7af4b27025ceb195c7cb.zip tk-9ecded6646c6fd2abf1d7af4b27025ceb195c7cb.tar.gz tk-9ecded6646c6fd2abf1d7af4b27025ceb195c7cb.tar.bz2 | |
* generic/tkImgPhoto.c: Fixed bug with use of binary data for
"-data" option to "image create" command.
Diffstat (limited to 'generic/tkImgPhoto.c')
| -rw-r--r-- | generic/tkImgPhoto.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tkImgPhoto.c b/generic/tkImgPhoto.c index 17b61eb..bad36fc 100644 --- a/generic/tkImgPhoto.c +++ b/generic/tkImgPhoto.c @@ -15,7 +15,7 @@ * Department of Computer Science, * Australian National University. * - * RCS: @(#) $Id: tkImgPhoto.c,v 1.14 2000/01/26 21:11:00 ericm Exp $ + * RCS: @(#) $Id: tkImgPhoto.c,v 1.15 2000/01/27 01:28:37 ericm Exp $ */ #include "tkInt.h" @@ -1671,7 +1671,7 @@ ImgPhotoConfigureMaster(interp, masterPtr, objc, objv, flags) } if (data) { if (data->length - || (data->typePtr == &tclByteArrayType + || (data->typePtr == Tcl_GetObjType("bytearray") && data->internalRep.otherValuePtr != NULL)) { Tcl_IncrRefCount(data); } else { |