Well it was confusing for me at first too. I subscribe to the Perl/Gtk2 maillist and asked alot of questions, and ran alot of example code found in their archives. You can download their archives in monthly chunks, and search them for code. muppet in particular has been very helpful explaining the difficult parts of Gtk2. The do statement to use the pixbuf-loader was put on the maillist by Aristotle.

If you are getting into Perl/Gtk2, start getting in the habit of opening the perldoc for whatever widget you are interested in, and look at the top, where the inheritance is shown, and at the bottom where the signals are shown. Most of the tougher problems require you to use an inherited method on the widget, or some clever juggling of the events and signals available to that widget.

Also check out the nice studyguide at novell perl gtk2 studyguide

---

I'm not really a human, but I play one on earth Remember How Lucky You Are

zentara knows where to find documentation and read it, and does so frequently :)

#!/usr/bin/perl -w
#image data transfer from imagemagick to pixbuf!!! yey!
use Gtk2 '-init';
use Image::Magick;

my $pimage;
my $pimage2;

my $image;
my $image2;
    my $canvas;
    my $pixbufloader;
    my $pixbuf;

#sub load;

my $window = Gtk2::Window->new;
    $window->signal_connect(destroy=>sub{Gtk2->main_quit;});
    $window->set_size_request(1000,600);
    
    my $vbox = Gtk2::VBox->new;
    $window->add($vbox);
    
    #my $pixbuf = Gtk2::Gdk::Pixbuf->new(undef);
    our $image1 = Gtk2::Image->new;
    my $swin = Gtk2::ScrolledWindow->new;
    $swin->add_with_viewport($image1);
    $vbox->pack_start($swin,1,1,0);
    
    my $button = Gtk2::Button->new('LOAD');
    $button->signal_connect('clicked',\&load);
    $vbox->pack_start($button,0,1,0);
    
    my $button1 = Gtk2::Button->new('VIEW');
    $button1->signal_connect('clicked',\&view);
    $vbox->pack_start($button1,0,1,0);
    
    my $button2 = Gtk2::Button->new('IMPLODE');
    $button2->signal_connect('clicked',\&implodeimage);
    $vbox->pack_start($button2,0,1,0);

    $window->show_all;
Gtk2->main;

sub load {
    $image = Image::Magick->new;
    $image2 = Image::Magick->new;
    $pimage = Image::Magick->new;
    $pimage2 = Image::Magick->new;
    
    $pimage->Read('frames/rbs5r.png');
    $pimage2->Read('pictures/dscf6098.jpg');
    
    

    
    $image = $pimage->Clone;
    $image2 = $pimage2->Clone;
    
    $image->Resize(
        height=>650,
        width=>(650*$image->Get('width')/$image->Get('height')));
    $image2->Resize(
        height=>650,
        width=>(650*$image2->Get('width')/$image2->Get('height')));
    
    $canvas = Image::Magick->new;
    my $w = $image->Get('width');
    my $h = $image->Get('height');
    my $size = $w . "x" . $h;
    $canvas->Set(size=>$size);
    $canvas->ReadImage('xc:white');
    $canvas->Set(magick=>'jpeg');
    $canvas->Composite(
                image=>$image2,
                compose=>'Over');
    $canvas->Composite(
                image=>$image,
                compose=>'Over');
    my $blob = $canvas->ImageToBlob();

    $pixbufloader = Gtk2::Gdk::PixbufLoader->new;
    $pixbufloader->write($blob);
    $pixbufloader->close;
    $pixbuf = $pixbufloader->get_pixbuf;
    
    $blob = $pixbuf->save_to_buffer('jpeg');
    $canvas->BlobToImage($blob);
    $canvas->Display;
    
    
    #my $preview = $image->Preview('Gamma');
    #$preview->Display();

    
}

sub view {
    #$pixbuf = Gtk2::Gdk::Pixbuf->new_from_file('text.bmp');
    $image1->set_from_pixbuf($pixbuf);
}

sub implodeimage {
    print "IMPLODE\n";
#    print $image2->Blur(20);
    #$canvas=$image->Clone;
    $canvas = Image::Magick->new;
    my $w = $image->Get('width');
    my $h = $image->Get('height');
    my $size = $w . "x" . $h;
    $canvas->Set(size=>$size);
    $canvas->ReadImage('xc:white');

    #$image->Crop(geometry=>$size);
    #$image2->Crop(geometry=>$size);
    
    #$image2->Rotate(45);


    print $canvas->Composite(image=>$image2,compose=>'Over');
    print $canvas->Composite(image=>$image,compose=>'Over');
    print $canvas->Write('text.bmp');
    
}
[download]

A couple of comments. First your use of the word canvas for a ImageMagick object is slightly confusing, but it's legal. Second, I know it's just a preliminary example, but if you are going to make it into an app that will load many pictures and operate on them, you should make your IM objects global and reuse them, so you are not making new ones all the time. You can clear out an IM object with

#reuse object
undef @$IMagick_object; # clear out IM object data
[download]

---

I'm not really a human, but I play one on earth Remember How Lucky You Are