From bdf8f87a79d342ac6d60ea3d77782db140038371 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 24 Jul 2008 17:29:46 +0000 Subject: (create_logo_window) rename as create_logo(), only creating an image now --- perl-install/install/gtk.pm | 15 ++------------- 1 file changed, 2 insertions(+), 13 deletions(-) diff --git a/perl-install/install/gtk.pm b/perl-install/install/gtk.pm index ba47a901b..5bf72b50d 100644 --- a/perl-install/install/gtk.pm +++ b/perl-install/install/gtk.pm @@ -156,22 +156,11 @@ sub update_steps_position { } #------------------------------------------------------------------------------ -sub create_logo_window { +sub create_logo { my ($o) = @_; return if $::logowidth == 0; - - mygtk2::may_destroy($o->{logo_window}); - - my $file = "logo-mandriva.png"; - - $o->{logo_window} = - gtknew('Window', - width => $::logowidth, height => $::logoheight, - widget_name => 'logo', - child => gtknew('Image', file => $file), - ); - $o->{logo_window}->show; + gtknew('Image', file => 'logo-mandriva.png'); } #------------------------------------------------------------------------------ -- cgit v1.2.1