From 07cfbe49efa16539739dbb312ebe81ab2c81b87d Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Mon, 25 Sep 2000 16:22:18 +0000 Subject: *** empty log message *** --- perl-install/install_gtk.pm | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'perl-install/install_gtk.pm') diff --git a/perl-install/install_gtk.pm b/perl-install/install_gtk.pm index acf5376fb..0cb9e8b67 100644 --- a/perl-install/install_gtk.pm +++ b/perl-install/install_gtk.pm @@ -89,7 +89,6 @@ sub create_big_help { #------------------------------------------------------------------------------ sub create_help_window { my ($o) = @_; - $::live and return; my $w; if ($w = $o->{help_window}) { @@ -115,7 +114,6 @@ sub create_help_window { #------------------------------------------------------------------------------ sub create_steps_window { my ($o) = @_; - $::live and return; my $PIX_H = my $PIX_W = 21; @@ -127,7 +125,7 @@ sub create_steps_window { $w->{rwindow}->set_usize($::stepswidth, $::stepsheight); $w->{rwindow}->set_name('Steps'); $w->{rwindow}->set_events('button_press_mask'); - $w->show; + #$w->show; gtkadd($w->{window}, gtkpack_(new Gtk::VBox(0,0), @@ -182,7 +180,6 @@ sub create_steps_window { #------------------------------------------------------------------------------ sub create_logo_window { my ($o) = @_; - $::live and return; gtkdestroy($o->{logo_window}); my $w = bless {}, 'my_gtk'; -- cgit v1.2.1