diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2008-07-30 17:23:59 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2008-07-30 17:23:59 +0000 |
| commit | 8593e2ff76de0625d879f313966d386b61d1e96e (patch) | |
| tree | 98b73aa06a9ebc0de619084fa54959d7f9304a4a | |
| parent | e17be81200b0efb96f2ac80b25e61d9e58a4f740 (diff) | |
| download | drakx-8593e2ff76de0625d879f313966d386b61d1e96e.tar drakx-8593e2ff76de0625d879f313966d386b61d1e96e.tar.gz drakx-8593e2ff76de0625d879f313966d386b61d1e96e.tar.bz2 drakx-8593e2ff76de0625d879f313966d386b61d1e96e.tar.xz drakx-8593e2ff76de0625d879f313966d386b61d1e96e.zip | |
(_gtk__Fixed) add support for image background
| -rw-r--r-- | perl-install/mygtk2.pm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm index a86f69c3c..b7490b41d 100644 --- a/perl-install/mygtk2.pm +++ b/perl-install/mygtk2.pm @@ -582,6 +582,13 @@ sub _gtk__Fixed { $w = Gtk2::Fixed->new; $w->set_has_window(delete $opts->{has_window}) if exists $opts->{has_window}; $w->put(delete $opts->{child}, delete $opts->{x}, delete $opts->{y}) if exists $opts->{child}; + if ($opts->{pixbuf_file}) { + my $pixbuf = gtknew('Pixbuf', file => delete $opts->{pixbuf_file}) if $opts->{pixbuf_file}; + $w->signal_connect( + realize => sub { + ugtk2::set_back_pixbuf($w, $pixbuf); + }); + } } $w; } |