summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorhobbs <hobbs>2001-04-03 04:34:20 (GMT)
committerhobbs <hobbs>2001-04-03 04:34:20 (GMT)
commit8c7404c8e44cbe53b2b83dedcd302ec40497335e (patch)
tree8eb1c64d1d638dcd603472c5d5333a3ffb03ef7c
parente045454eaa4882cbc40ffd264d84f11387584b80 (diff)
downloadtk-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.c4
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;
}