I looked up dozens of entries from google and lots of docs on Tk and GD. All of the examples show how to save images to a file, which, no surprise works! But none show how to move data from the GD format (jpeg is fine) to a Tk::Label widget...frustrating because it has to be very easy...

use Tk; 
use Tk::JPEG; 
use GD::Graph::lines3d; 
use strict; 

my $mw = new MainWindow; 

my @data = ( 
   ["Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"], 
   [ 1203,  3500,  3973,  2859,  3012,  3423,  1230] ); 

my $graph = new GD::Graph::lines3d(100, 100); 
$graph->set( 
   x_label           => 'Day', 
   y_label           => 'Hits', 
   title             => 'Summary', ); 

my $gd = $graph->plot(\@data); 

# Works 
my $a = $mw->Photo('img1', -format=>'JPEG', -file=>"test.jpg"); 

# Doesn't work (couldn't recognize image data)
#my $b = $mw->Photo('img2', -format=>'JPEG', -data=>$gd->jpeg); 

# Works - writes image to file (and it is the graph!)
open(IMG, '>abc123.jpeg') or die $!; 
binmode IMG; 
print IMG $gd->jpeg; 
close(IMG); 

# Doesn't work, (couldn't recognize image data)
#$mw->Label(-image=>$gd->jpeg) 
#           ->pack(-fill=>'both'); 

# Works 
$mw->Label(-image=>'img1') 
          ->pack(-fill=>'both'); 

MainLoop;
[download]

I know it is my fault, but it seems that I have asked for a JPEG format and then passed a JPEG format ??? Is this what they call "weak typing"?

The $gd->jpeg has a value starting with:
ÿØÿà..JFIF..........ÿþ.>CREATOR: gd-jpeg v1.0 (using IJG JPEG v62), default quality\n" (got it from the debugger)

thanks for any help !!!

Edit kudra, 2001-09-26 Added code tags