summaryrefslogtreecommitdiffstats
path: root/perl-install/my_gtk.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/my_gtk.pm')
-rw-r--r--perl-install/my_gtk.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/my_gtk.pm b/perl-install/my_gtk.pm
index 69c0d1b95..a125421b9 100644
--- a/perl-install/my_gtk.pm
+++ b/perl-install/my_gtk.pm
@@ -34,7 +34,7 @@ sub new {
my ($type, $title, %opts) = @_;
Gtk->init;
- init Gtk::Gdk::ImlibImage;
+ Gtk::Gdk::ImlibImage->init;
Gtk->set_locale;
my $o = bless { %opts }, $type;
$o->_create_window($title);
@@ -271,13 +271,13 @@ sub gtkcreate_xpm {
}
sub gtkcreate_png {
my ($f) = @_;
- my $im = load_image Gtk::Gdk::ImlibImage("$f");
+ my $im = Gtk::Gdk::ImlibImage->load_image($f) or die "gtkcreate_png: missing png file $f";
$im->render($im->rgb_width, $im->rgb_height);
($im->move_image(), $im->move_mask);
}
sub xpm_d { my $w = shift; Gtk::Gdk::Pixmap->create_from_xpm_d($w->window, undef, @_) }
sub gtkxpm { new Gtk::Pixmap(gtkcreate_xpm(@_)) }
-sub gtkpng { new Gtk::Pixmap (gtkcreate_png(@_)) }
+sub gtkpng { new Gtk::Pixmap(gtkcreate_png(@_)) }
#-###############################################################################
#- createXXX functions