diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-01-11 08:26:45 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-01-11 08:26:45 +0000 |
| commit | 32fe5f82fb6334d3eae3380acfce67bf6b9dea25 (patch) | |
| tree | e5cff03914ca042980887dbf2ceaa2b7873033d4 /perl-install | |
| parent | f0ca1fe74ab1064383348f857776b25f1e5bd975 (diff) | |
| download | drakx-32fe5f82fb6334d3eae3380acfce67bf6b9dea25.tar drakx-32fe5f82fb6334d3eae3380acfce67bf6b9dea25.tar.gz drakx-32fe5f82fb6334d3eae3380acfce67bf6b9dea25.tar.bz2 drakx-32fe5f82fb6334d3eae3380acfce67bf6b9dea25.tar.xz drakx-32fe5f82fb6334d3eae3380acfce67bf6b9dea25.zip | |
install_gtk::create_help_window is unused, removing it
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install_gtk.pm | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/perl-install/install_gtk.pm b/perl-install/install_gtk.pm index e3d5108fa..76f38b57f 100644 --- a/perl-install/install_gtk.pm +++ b/perl-install/install_gtk.pm @@ -118,24 +118,6 @@ sub install_theme { } #------------------------------------------------------------------------------ -sub create_help_window { - my ($o) = @_; - - my $w; - if ($w = $o->{help_window}) { - $w->{window}->foreach(sub { $_[0]->destroy }, undef); - } else { - $w = $o->{help_window} = bless {}, 'ugtk2'; - $w->{rwindow} = $w->{window} = gtknew('Window'); - $w->{rwindow}->set_uposition($::rootwidth - $::helpwidth, $::rootheight - $::helpheight); - $w->{rwindow}->set_size_request($::helpwidth, $::helpheight); - $w->{rwindow}->set_title('skip'); - } - gtkadd($w->{window}, child => gtknew('ScrolledWindow', child => $o->{help_window_text} = gtknew('TextView'))); - $w->show; -} - -#------------------------------------------------------------------------------ my %steps; sub create_steps_window { my ($o) = @_; |