From a6f333208a377a318b63ceb1f856fb8b876798d9 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 11 Jan 2005 08:42:10 +0000
Subject: don't fake a ugtk2, use pure mygtk2 instead

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

(limited to 'perl-install')

diff --git a/perl-install/install_gtk.pm b/perl-install/install_gtk.pm
index a1134de91..dbcebdbfb 100644
--- a/perl-install/install_gtk.pm
+++ b/perl-install/install_gtk.pm
@@ -176,15 +176,13 @@ sub create_logo_window {
 
     my $file = $o->{meta_class} eq 'firewall' ? "logo-mandrake-Firewall.png" : "logo-mandrake.png";
 
-    my $w = bless {}, 'ugtk2';
-    $w->{rwindow} = $w->{window} = 
+    $o->{logo_window} =
       gtknew('Window', 
 	     width => $::logowidth, height => $::logoheight, 
 	     widget_name => 'logo',
 	     child => gtknew('Image', file => $file),
 	 );
-    $w->show;
-    $o->{logo_window} = $w;
+    $o->{logo_window}->show;
 }
 
 #------------------------------------------------------------------------------
-- 
cgit v1.2.1