From 32fe5f82fb6334d3eae3380acfce67bf6b9dea25 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 11 Jan 2005 08:26:45 +0000 Subject: install_gtk::create_help_window is unused, removing it --- perl-install/install_gtk.pm | 18 ------------------ 1 file changed, 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 @@ -117,24 +117,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 { -- cgit v1.2.1