diff options
| author | hobbs <hobbs> | 2001-04-03 04:34:20 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2001-04-03 04:34:20 (GMT) |
| commit | 8c7404c8e44cbe53b2b83dedcd302ec40497335e (patch) | |
| tree | 8eb1c64d1d638dcd603472c5d5333a3ffb03ef7c | |
| parent | e045454eaa4882cbc40ffd264d84f11387584b80 (diff) | |
| download | tk-8c7404c8e44cbe53b2b83dedcd302ec40497335e.zip tk-8c7404c8e44cbe53b2b83dedcd302ec40497335e.tar.gz tk-8c7404c8e44cbe53b2b83dedcd302ec40497335e.tar.bz2 | |
* generic/tkImgPhoto.c (ImgPhotoCmd): corrected the src and dest
values for $imageName put when -format and -to are used.
[Bug #232741]
| -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 42647eb..2423ebe 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.22 2000/11/21 16:18:05 dkf Exp $ + * RCS: @(#) $Id: tkImgPhoto.c,v 1.23 2001/04/03 04:34:20 hobbs Exp $ */ #include "tkInt.h" @@ -963,7 +963,7 @@ ImgPhotoCmd(clientData, interp, objc, objv) } if ((*imageFormat->stringReadProc)(interp, data, format, (Tk_PhotoHandle) masterPtr, - 0, 0, imageWidth, imageHeight, options.toX, options.toY) + options.toX, options.toY, imageWidth, imageHeight, 0, 0) != TCL_OK) { return TCL_ERROR; } |