From 21019fa1903012b169faa38a9265253d446df77d Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 21 Jan 2003 19:22:30 +0000 Subject: enlarge "steps" window a little --- perl-install/install_gtk.pm | 2 +- perl-install/ugtk2.pm | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/perl-install/install_gtk.pm b/perl-install/install_gtk.pm index fd5caa65f..d65b07ba9 100644 --- a/perl-install/install_gtk.pm +++ b/perl-install/install_gtk.pm @@ -166,7 +166,7 @@ sub init_sizes() { ($::rootwidth, $::rootheight) = (Gtk2::Gdk->screen_width, Gtk2::Gdk->screen_height); $::live and $::rootheight -= 80; #- ($::rootheight, $::rootwidth) = (min(768, $::rootheight), min(1024, $::rootwidth)); - ($::stepswidth, $::stepsheight) = (145, $::rootheight); + ($::stepswidth, $::stepsheight) = (160, $::rootheight); ($::logowidth, $::logoheight) = ($::rootwidth - $::stepswidth, 40); ($::helpwidth, $::helpheight) = ($::rootwidth - $::stepswidth, 0); ($::windowwidth, $::windowheight) = ($::rootwidth - $::stepswidth, $::rootheight - $::helpheight - $::logoheight); diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index adefba9b8..7e5f9df0e 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -730,8 +730,8 @@ sub new { $::WizardWindow->add($::WizardTable); if ($::isInstall) { - $::WizardTable->set_size_request($::windowwidth * 0.9, $::windowheight * 0.7); - $::WizardWindow->set_uposition($::stepswidth + $::windowwidth * 0.05, $::logoheight + $::windowheight * 0.15); + $::WizardTable->set_size_request($::windowwidth * 0.90, $::windowheight * 0.73); + $::WizardWindow->set_uposition($::stepswidth + $::windowwidth * 0.04, $::logoheight + $::windowheight * 0.15); } else { my $draw1 = Gtk2::DrawingArea->new; $draw1->set_size_request(540, 100); -- cgit v1.2.1