diff options
| author | hobbs <hobbs> | 2001-04-03 04:34:20 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2001-04-03 04:34:20 (GMT) |
| commit | 30c5387b0a396980c1b3c9b4808133c5e3a8e596 (patch) | |
| tree | 8eb1c64d1d638dcd603472c5d5333a3ffb03ef7c /generic | |
| parent | 8ae891ee54673e0f08adaa897658ea57339a0928 (diff) | |
| download | tk-30c5387b0a396980c1b3c9b4808133c5e3a8e596.zip tk-30c5387b0a396980c1b3c9b4808133c5e3a8e596.tar.gz tk-30c5387b0a396980c1b3c9b4808133c5e3a8e596.tar.bz2 | |
* generic/tkImgPhoto.c (ImgPhotoCmd): corrected the src and dest
values for $imageName put when -format and -to are used.
[Bug #232741]
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 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; } |