From 8c7404c8e44cbe53b2b83dedcd302ec40497335e Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Tue, 3 Apr 2001 04:34:20 +0000
Subject: 	* generic/tkImgPhoto.c (ImgPhotoCmd): corrected the src and
 dest 	values for $imageName put when -format and -to are used. 	[Bug
 #232741]

---
 generic/tkImgPhoto.c | 4 ++--
 1 file 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;
 	    }
-- 
cgit v0.12