summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install2.pm2
-rw-r--r--perl-install/install_steps_gtk.pm2
2 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index 074674bff..526c6c684 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -529,7 +529,7 @@ sub main {
my $f = ${{
method => sub { $o->{method} = $v },
pcmcia => sub { $o->{pcmcia} = $v },
- vga => sub { $o->{vga16} = $v },
+ vga16 => sub { $o->{vga16} = $v },
step => sub { $o->{steps}{first} = $v },
expert => sub { $::expert = 1; $::beginner = 0 },
beginner => sub { $::beginner = $v },
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index b5ab22045..82b4dca5f 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -802,7 +802,7 @@ sub create_logo_window() {
sub init_sizes() {
($::rootheight, $::rootwidth) = (480, 640);
($::rootheight, $::rootwidth) = my_gtk::gtkroot()->get_size;
- ($::rootheight, $::rootwidth) = (min(600, $::rootheight), min(800, $::rootwidth));
+ ($::rootheight, $::rootwidth) = (min(768, $::rootheight), min(1024, $::rootwidth));
($::stepswidth, $::stepsheight) = (140, $::rootheight);
($::logowidth, $::logoheight) = ($::rootwidth - $::stepswidth, 40);
($::helpwidth, $::helpheight) = ($::rootwidth - $::stepswidth, 100);