From eebddd94ac89cb855384f49724d8cf3df4777b86 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 2 Sep 2002 14:31:13 +0000
Subject: kill glib warnings

---
 perl-install/ugtk.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/ugtk.pm')

diff --git a/perl-install/ugtk.pm b/perl-install/ugtk.pm
index 9e6a885ec..90f76ff03 100644
--- a/perl-install/ugtk.pm
+++ b/perl-install/ugtk.pm
@@ -18,6 +18,8 @@ my $use_imlib;
 my $use_gnome;
 
 BEGIN { 
+    require Gtk;
+    Gtk->init;
     eval { require Gtk::Gdk::Pixbuf; Gtk::Gdk::Pixbuf->init };
     $use_pixbuf = $@ ? 0 : 1;
     eval { require Gtk::Gdk::ImlibImage; Gtk::Gdk::ImlibImage->init };
@@ -516,8 +518,6 @@ sub gtkicons_labels_widget {
 		   $dbl_area->{state} = $darea->{state};
 		   fill_tiled($darea, $dbl_area, $background, $x_back2, $y_back2, $dx, $dy);
 #                     $darea->{state} ? $icon_h : $icon
-		   $darea->window->set_back_pixmap($background,0);
-
 		   $pixbuf->render_to_drawable($dbl_area, $darea->style->fg_gc('normal'), 0, 0, 0, 0,
 								 $pixbuf->get_width, $pixbuf->get_height, 'normal', 0, 0);
 		   
-- 
cgit v1.2.1