summaryrefslogtreecommitdiffstats
path: root/perl-install/install/gtk.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2008-07-24 17:29:46 +0000
committerThierry Vignaud <tv@mandriva.org>2008-07-24 17:29:46 +0000
commitbdf8f87a79d342ac6d60ea3d77782db140038371 (patch)
tree2efd2c6083900c103702085f3d7af380b5cd7797 /perl-install/install/gtk.pm
parente5ebd1827f80f4bb0ac8756376610a38a0e21d5d (diff)
downloaddrakx-bdf8f87a79d342ac6d60ea3d77782db140038371.tar
drakx-bdf8f87a79d342ac6d60ea3d77782db140038371.tar.gz
drakx-bdf8f87a79d342ac6d60ea3d77782db140038371.tar.bz2
drakx-bdf8f87a79d342ac6d60ea3d77782db140038371.tar.xz
drakx-bdf8f87a79d342ac6d60ea3d77782db140038371.zip
(create_logo_window) rename as create_logo(), only creating an image now
Diffstat (limited to 'perl-install/install/gtk.pm')
-rw-r--r--perl-install/install/gtk.pm15
1 files 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');
}
#------------------------------------------------------------------------------