From f4017ea2f9cf2452120b8bd072b5c03ef61784c9 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Wed, 3 May 2000 14:18:52 +0000 Subject: *** empty log message *** --- perl-install/install2.pm | 2 +- perl-install/install_steps_gtk.pm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install') 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); -- cgit v1.2.1