From f0ca1fe74ab1064383348f857776b25f1e5bd975 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 11 Jan 2005 08:15:01 +0000 Subject: install_gtk::create_help_window is unused, removing it --- perl-install/install_steps_gtk.pm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index 81b3ceca5..7db242598 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -141,7 +141,7 @@ sub new($$) { install_gtk::create_steps_window($o); $ugtk2::grab = 1; - $ugtk2::force_center_at_pos = [ $::rootwidth - $::windowwidth, $::logoheight, $::windowwidth, $::windowheight ]; +# $ugtk2::force_center_at_pos = [ $::rootwidth - $::windowwidth, $::logoheight, $::windowwidth, $::windowheight ]; $o = (bless {}, ref($type) || $type)->SUPER::new($o); $o->interactive::gtk::new; @@ -154,7 +154,6 @@ sub enteringStep { printf "Entering step `%s'\n", $o->{steps}{$step}{text}; $o->SUPER::enteringStep($step); install_gtk::update_steps_position($o); -# install_gtk::create_help_window($o); #- HACK: without this it does not work (reaches step doPartitionDisks then fail) } sub leavingStep { my ($o, $step) = @_; -- cgit v1.2.1