From 8394d6ab5f6cab66dd60e433d1d6bb8c20c94d8a Mon Sep 17 00:00:00 2001
From: ericm <ericm>
Date: Mon, 31 Jan 2000 18:38:26 +0000
Subject: Fix for bug #4103.

---
 generic/tkImgPhoto.c | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/generic/tkImgPhoto.c b/generic/tkImgPhoto.c
index bad36fc..33fc954 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.15 2000/01/27 01:28:37 ericm Exp $
+ * RCS: @(#) $Id: tkImgPhoto.c,v 1.16 2000/01/31 18:38:26 ericm Exp $
  */
 
 #include "tkInt.h"
@@ -3556,11 +3556,9 @@ MatchStringFormat(interp, data, formatObj, imageFormatPtr,
     ThreadSpecificData *tsdPtr = (ThreadSpecificData *) 
             Tcl_GetThreadData(&dataKey, sizeof(ThreadSpecificData));
     char *formatString = NULL;
-    int len;
     
     if (formatObj) {
-	formatString = Tcl_GetByteArrayFromObj(formatObj, &len);
-	    /*Tcl_GetString(formatObj);*/
+	formatString = Tcl_GetString(formatObj);
     }
 
     /*
-- 
cgit v0.12