diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2003-03-06 15:05:20 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2003-03-06 15:05:20 (GMT) |
| commit | b180774f6bce433082da35c309b89e6bfa766152 (patch) | |
| tree | cf2cecb4facabb94108e75d9490c5b0fb25dd347 /generic/tkImgGIF.c | |
| parent | 717fec397c31305a08d57a4ca6aa8bc9e038c5a6 (diff) | |
| download | tk-b180774f6bce433082da35c309b89e6bfa766152.zip tk-b180774f6bce433082da35c309b89e6bfa766152.tar.gz tk-b180774f6bce433082da35c309b89e6bfa766152.tar.bz2 | |
TIP#116 implementation. Docs still to come, tests will never be done because
they could never be done portably as they'd inevitably depend on the total
amount of memory available to the process... :^(
Diffstat (limited to 'generic/tkImgGIF.c')
| -rw-r--r-- | generic/tkImgGIF.c | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/generic/tkImgGIF.c b/generic/tkImgGIF.c index 1f4a79b..c6d04d6 100644 --- a/generic/tkImgGIF.c +++ b/generic/tkImgGIF.c @@ -29,7 +29,7 @@ * | provided "as is" without express or implied warranty. | * +-------------------------------------------------------------------+ * - * RCS: @(#) $Id: tkImgGIF.c,v 1.24 2003/02/20 15:28:40 dkf Exp $ + * RCS: @(#) $Id: tkImgGIF.c,v 1.25 2003/03/06 15:05:31 dkf Exp $ */ /* @@ -309,7 +309,10 @@ FileReadGIF(interp, chan, fileName, format, imageHandle, destX, destY, return TCL_OK; } - Tk_PhotoExpand(imageHandle, destX + width, destY + height); + if (Tk_PhotoExpand(interp, imageHandle, + destX + width, destY + height) != TCL_OK) { + return TCL_ERROR; + } block.width = width; block.height = height; @@ -474,8 +477,10 @@ FileReadGIF(interp, chan, fileName, format, imageHandle, destX, destY, break; } - Tk_PhotoPutBlock(imageHandle, &block, destX, destY, width, height, - TK_PHOTO_COMPOSITE_SET); + if (Tk_PhotoPutBlock(interp, imageHandle, &block, destX, destY, + width, height, TK_PHOTO_COMPOSITE_SET) != TCL_OK) { + goto error; + } noerror: /* |