http://www.perlmonks.org?node_id=132148


in reply to Re: How to handle Tk::Photo-data()?
in thread How to handle Tk::Photo-data()?

Jouke, I tried your code, and it seems to work well except the image (jpg) I use keeps showing up as all black. I used your code verbatim. Is there something I need to do differently on a Windows system? What OS did you use? Help from anyone?
  • Comment on Re: Re: How to handle Tk::Photo-data()?

Replies are listed 'Best First'.
Re: Re: Re: How to handle Tk::Photo-data()?
by Jouke (Curate) on Dec 15, 2001 at 18:37 UTC
    I use this piece of code in pVoice (see the code for that) and that works on both Win32 and Un*x platforms. So I think your code or your image may be the problem. Please compare your code to the code of pVoice and see what the problem is.

    Jouke Visser, Perl 'Adept'
    Using Perl to help the disabled: pVoice and pStory
      I posted in Wisdom of the Sages to see if anyone else had the same problem as I had with the black image.

      I got a response: You can read it at: http://www.perlmonks.org/index.pl?node_id=132314&lastnode_id=132292

      I guess there was an error with the image when using the "GD::Image->new" line. His suggestion worked great when I replaced it with the "->newFromJpeg" line. Just thought you may like to know, the final outcome.