diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install2.pm | 2 | ||||
| -rw-r--r-- | perl-install/install_steps_gtk.pm | 2 |
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); |