diff options
author | Thierry Vignaud <tv@mandriva.org> | 2008-07-24 17:29:46 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mandriva.org> | 2008-07-24 17:29:46 +0000 |
commit | bdf8f87a79d342ac6d60ea3d77782db140038371 (patch) | |
tree | 2efd2c6083900c103702085f3d7af380b5cd7797 | |
parent | e5ebd1827f80f4bb0ac8756376610a38a0e21d5d (diff) | |
download | drakx-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
-rw-r--r-- | perl-install/install/gtk.pm | 15 |
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'); } #------------------------------------------------------------------------------ |