Have you seen this thread? Perl-Gtk2::How to set a window background image. You may need to delve down into the underlying gdkwindow. Sorry I'm not studying anymore, but I just happened to see this post, and remembered a similar problem I had.
#!/usr/bin/perl
use warnings;
use strict;
use Glib qw/TRUE FALSE/;
use Gtk2 '-init';
use MIME::Base64;
my @rectangles; #global for storing icon locations
my $window = Gtk2::Window->new('toplevel');
$window->set_title('Embed test');
$window ->signal_connect( 'destroy' => \&delete_event );
$window->set_border_width(10);
$window->set_default_size(500,430);
my $vbox = Gtk2::VBox->new( FALSE, 6 );
$window->add($vbox);
$vbox->set_border_width(2);
my $hbox= Gtk2::HBox->new( FALSE, 6 );
$vbox->pack_end($hbox,FALSE,FALSE,0);
$hbox->set_border_width(2);
$hbox->set_size_request(500,48);
$vbox->pack_end (Gtk2::HSeparator->new, FALSE, FALSE, 0);
my $button = Gtk2::Button->new_from_stock('gtk-quit');
$hbox->pack_end( $button, FALSE, FALSE, 0 );
$button->signal_connect( clicked => \&delete_event );
my $button1 = Gtk2::Button->new('Set BG');
$hbox->pack_end( $button1, FALSE, FALSE, 0 );
$button1->signal_connect( clicked => \&set_bg,'single');
my $button2 = Gtk2::Button->new('Set BGauto');
$hbox->pack_end( $button2, FALSE, FALSE, 0 );
$button2->signal_connect( clicked => \&set_bg,'auto' );
my $button0 = Gtk2::Button->new('Clear');
$hbox->pack_end( $button0, FALSE, FALSE, 0 );
$button0->signal_connect( clicked => \&set_clear );
my $vbox1 = Gtk2::VBox->new( 0, 5 );
$vbox->pack_end ($vbox1, TRUE, TRUE, 0);
my $btn = Gtk2::Button->new_from_stock('gtk-quit');
$btn->signal_connect( 'clicked' => \&delete_event );
$window->show_all();
Gtk2->main;
#####################################
sub delete_event {
Gtk2->main_quit;
return FALSE;
}
###############################################################
sub set_clear{
my $gdkwindow = $window->window;
foreach my $rectangle(@rectangles){
$gdkwindow->invalidate_rect ($rectangle,0);
}
@rectangles = ();
return FALSE;
}
#################################################################
sub set_bg{
my ($caller,$mode) = @_;
print "mode->$mode\n";
my $bunny = get_bunny();
# this properly renders it
my $pixbuf = do {
my $loader = Gtk2::Gdk::PixbufLoader->new();
$loader->write( $bunny );
$loader->close();
$loader->get_pixbuf();
};
my ($x, $y) = ($pixbuf->get_width, $pixbuf->get_height);
#print "$x $y\n";
#print 'rowstride->', $pixbuf->get_rowstride,"\n";
#set the new pixbuff in the window
#the gdkwindow is the actual window on the screen
my $gdkwindow = $window->window;
#the gdkwindow children are buttons, not the packing boxes
#the gdk window is the actual paintable surface on the screen,
# the children are areas of different painting, so the packing
#boxes are not gdk children, but the buttons are.
my @clist = $gdkwindow->get_children;
print "@clist\n";
my $gdkwindowC = $clist[0]; #the first button is the exit
my ($x0, $y0, $width0, $height0, $depth) = $gdkwindowC->get_geometry;
print "geometry x0->$x0, y0->$y0, width->$width0, height->$height0, de
+pth->$depth\n";
my ($drawable, $x_offset, $y_offset) = $gdkwindowC->get_internal_paint
+_info;
print "drawable->$drawable, x_offset->$x_offset, y_offset->$y_offset\n
+\n";
my $gc = Gtk2::Gdk::GC->new ($gdkwindow, undef);
#$pixbuf->render_to_drawable ($drawable, $gc,
# $src_x, $src_y, $dest_x, $dest_y, $width, $height, $dither, $x_dit
+her, $y_dither)
if($mode eq 'single'){
$pixbuf->render_to_drawable($gdkwindow, $gc,
0,0,$x0,$y0,$x,$y,'normal',0,0);
my $rectangle = Gtk2::Gdk::Rectangle->new ($x0, $y0, $x, $y);
push @rectangles, $rectangle;
}else{
for(1..10){
my $x1 = int rand $x0;
my $y1 = int rand $y0;
$pixbuf->render_to_drawable($gdkwindow, $gc,
0,0,$x1,$y1,$x,$y,'normal',0,0);
my $rectangle = Gtk2::Gdk::Rectangle->new ($x1, $y1, $x, $y);
push @rectangles, $rectangle;
}
}
Gtk2->main_iteration while Gtk2->events_pending;
return FALSE;
}
#################################################################
sub get_bunny{
return decode_base64(
'iVBORw0KGgoAAAANSUhEUgAAAB4AAAAjCAYAAACD1LrRAAAABmJLR0QA/wD/AP+gvaeTA
+AAACXBI
WXMAAAsSAAALEgHS3X78AAAAmElEQVRYw+1WQQ7AIAizxP9/mV121Gm0BZfYxNukKxSwlI
+Pg75HG
MrGALkykfHjPBKmf+tbIAad/0Ngp3CHGIrnvEoco7xFDTf6lGMIeH6YaBNVYrTEUKYfYUG
+DW0bOI
t2qrTjVYNXa2f9SDAqt97I1AlMFST9pOIbjEYRuKsSS4fUZydcqSQOTzVubq/w+QmmVWtm
+IvFx08
tNghLUXwK/sAAAAASUVORK5CYII=');
}
| 