if (formatPtr == NULL) {
    ... code that might avoid the error by
    break()ing from the enclosing for() loop
  }
  if (formatPtr == NULL) {
      if ((formatObj != NULL) && !matched) {
           Tcl_AppendResult(interp, "image format \"", formatString,
                "\" is not supported", (char *) NULL);
      } else {
           Tcl_AppendResult(interp, "couldn't recognize image data",
               (char *) NULL);
      }
      return TCL_ERROR;
  }
[download]

Hello,

a doubt still remains: I confirm this behaviour (and it sounds strange):

> This code works when used on a file smaller than the screen. On a larger file, it fails ..

Why it works for smaller files and need to be encoded for larger ones?

L*

There are no rules, there are no thumbs..
Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.

    $imtk = $mw->Photo(-data => $imgd->jpeg(), -format => 'jpeg');
} else {
    $imtk = $mw->Photo(-file => $file,         -format => 'jpeg');
[download]

The command is different, using the file directly via the file option rather than data. Larger files have to be resized to fit. I was thinking of using a temporary file as a workaround.

Regards,

John Davies