Tk::Photo and copy method

didier has asked for the wisdom of the Perl Monks concerning the following question:

Hi,

I am experiencing a problem that I canno't solve.
It's about the data of the copy method in Tk::Photo.
Sorry for the length: I canno't have readmore tags working. Bad day.

Here a sample script:

use Tk;
use strict;

# a nice and stolen pic

my $dilbert = <<"EOXPM";
/* XPM */
static char *smalldilbert[] = {
"    16    16       14            1",
/* colors */
"` c #000000",
". c #380000",
"# c #383800",
"a c #383838",
"b c #790000",
"c c #793838",
"d c #797938",
"e c #797979",
"f c none",
"g c #bebe38",
"h c #bebe79",
"i c #ffff79",
"j c #bebebe",
"k c #ffffff",
/* pixels */
"fff`dd##aadd`fff",
"ffff`iiiiii`ffff",
"ffff`iiiiii`ffff",
"ffff`ihghgi`ffff",
"fff``deeeed``fff",
"fffdaiededi#dfff",
"fffa`iighii`#fff",
"ffff`idiidi`ffff",
"ffff`igddhi`ffff",
"ffff`iiiiii`ffff",
"ffff`iiiiii`ffff",
"ffffaeedddeaffff",
"fff`eee.`eee`fff",
"ff`jjck.bkkkj`ff",
"f`jkb.a.`kkkkj`f",
"`jjj``...kkkjjj`"
};
EOXPM

# making a empty image

my $mw = MainWindow -> new;
my $label = $mw->Label ()->pack;
my $image = $label ->Photo('image',
                     -height => 10, 
                     -width => 10,
                     -format=>'XPM');
$label->configure(-image => $image);
my $data_mw = $image->data(-format => 'XPM');

# so what we have?

print "$data_mw\n";

# this is ok

# now making a dilbert image

my $top = $mw ->Toplevel;
my $label_1 = $top -> Label()->pack;
my $image_1 = $label_1 ->Photo('image',
                         -data=> $dilbert,                            
+                -format=>'XPM');
$label_1->configure(-image => $image_1);

# copying the dilbert inside the empty one
# MainLoop auto-update...

$image -> copy($image_1);

my $data_copy = $image->data(-format => 'XPM');
print $data_copy;

# the above print something like
# Tk::Photo=HASH(0xc5ef04)

# How can I access this data?
# Not the original but the copy

MainLoop;
[download]

Thank for any help.

didier.

Comment on Tk::Photo and copy method Download Code

Replies are listed 'Best First'.
Re: Tk::Photo and copy method by converter (Priest) on Aug 02, 2003 at 05:22 UTC
Tk::Photo supports the following formats: BMP PPM GIF PNG (with extension) JPEG (with extension) TIFF (with extension) Try using Tk::Pixmap (which supports only XPM) instead. converter	[reply]
Re: Re: Tk::Photo and copy method by didier (Vicar) on Aug 02, 2003 at 10:40 UTC
I have found the problem. An empty photo object must be set without explicit descriptor, nor image tags. So in the main window, the line: `my $image = $label ->Photo('image', -height => 10, -width => 10, -format=>'XPM');` [download] become: `my $image = $label ->Photo( -height => 10, -width => 10);` [download] Nice day for you all!	[reply] [d/l] [select]
Re: Re: Tk::Photo and copy method by didier (Vicar) on Aug 02, 2003 at 09:26 UTC
Thank for the answer, converter. As you see in the code above, my problem relie on the usage of the copy method from Tk::Photo. Tk::Pixmap has no method which allows partial pixels manipulation. You can only cget() or configure() the whole. But more specifically my question was: what's means this "Tk::Photo=HASH(0xc5ef04)"	[reply]


more useful options
	PerlMonks