diff options
| author | ericm <ericm@noemail.net> | 2000-01-27 01:28:36 (GMT) |
|---|---|---|
| committer | ericm <ericm@noemail.net> | 2000-01-27 01:28:36 (GMT) |
| commit | c5230b564cecf6a94490b4030e43a0cf4c405843 (patch) | |
| tree | 103c4a11683691fd01ac622c4a0100ff48acdc10 /generic | |
| parent | 8f8a408d2578b9de3b725efc8a25571b3f46a041 (diff) | |
| download | tk-c5230b564cecf6a94490b4030e43a0cf4c405843.zip tk-c5230b564cecf6a94490b4030e43a0cf4c405843.tar.gz tk-c5230b564cecf6a94490b4030e43a0cf4c405843.tar.bz2 | |
* generic/tkImgPhoto.c: Fixed bug with use of binary data for
"-data" option to "image create" command.
FossilOrigin-Name: 2a1276278f95a959382c08ab3804311cc55d1fde
Diffstat (limited to 'generic')
| -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 { |