diff options
| author | damien <damien@mandriva.com> | 2002-03-18 17:20:13 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2002-03-18 17:20:13 +0000 |
| commit | 3aa12f5c391d78893e12aaf6c90b66e2301509b5 (patch) | |
| tree | 112ddf679f30fc8db51fba71144bda1e90903d98 /perl-install/my_gtk.pm | |
| parent | 1ec1622e218845ab0a6e7892816196c4951d61cc (diff) | |
| download | drakx-3aa12f5c391d78893e12aaf6c90b66e2301509b5.tar drakx-3aa12f5c391d78893e12aaf6c90b66e2301509b5.tar.gz drakx-3aa12f5c391d78893e12aaf6c90b66e2301509b5.tar.bz2 drakx-3aa12f5c391d78893e12aaf6c90b66e2301509b5.tar.xz drakx-3aa12f5c391d78893e12aaf6c90b66e2301509b5.zip | |
corrected create_xpm API
Diffstat (limited to 'perl-install/my_gtk.pm')
| -rw-r--r-- | perl-install/my_gtk.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm index 8dcb1a432..0f43de49e 100644 --- a/perl-install/my_gtk.pm +++ b/perl-install/my_gtk.pm @@ -369,10 +369,11 @@ my @icon_paths = ($ENV{SHARE_PATH}, "$ENV{SHARE_PATH}/icons", "$ENV{SHARE_PATH}/ sub add_icon_path { @icon_paths = uniq(@icon_paths, @_) } sub gtkcreate_xpm { - my ($w, $f) = @_; + my ($f) = @_; + my $rw = gtkroot(); $f =~ m|.xpm$| or $f="$f.xpm"; if ( $f !~ /\//) { -e "$_/$f" and $f="$_/$f", last foreach @icon_paths } - my @l = Gtk::Gdk::Pixmap->create_from_xpm($w->window, $w->style->bg('normal'), $f) or die "gtkcreate_xpm: missing pixmap file $f"; + my @l = Gtk::Gdk::Pixmap->create_from_xpm($rw, new Gtk::Style->bg('normal'), $f) or die "gtkcreate_xpm: missing pixmap file $f"; @l; } |