summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_gtk.pm2
-rw-r--r--perl-install/ugtk2.pm4
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);