From 699251f9dfdfae5d5caa49591fa89c96d603fc2d Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Sun, 2 Feb 2003 13:53:18 +0000 Subject: ensure the window is big enough in 640x480: remove logo and steps window --- perl-install/ugtk2.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/ugtk2.pm') diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index 0c6d0dbed..c56565a96 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -736,8 +736,8 @@ sub new { $::WizardWindow->add($::WizardTable); if ($::isInstall) { - $::WizardTable->set_size_request($::windowwidth * 0.90, $::windowheight * 0.73); - $::WizardWindow->set_uposition($::stepswidth + $::windowwidth * 0.04, $::logoheight + $::windowheight * 0.15); + $::WizardTable->set_size_request($::windowwidth * 0.90, $::windowheight * ($::logoheight ? 0.73 : 0.9)); + $::WizardWindow->set_uposition($::stepswidth + $::windowwidth * 0.04, $::logoheight + $::windowheight * ($::logoheight ? 0.15 : 0.05)); $::WizardWindow->signal_connect(key_press_event => sub { my (undef, $event) = @_; my $d = ${{ Gtk2::Gdk::Event::Key->Sym_F1 => 'help', -- cgit v1.2.1