From 7d684ccd649dcbe13f8bd1b217f7fc42d82574d9 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 15 Sep 2008 21:41:09 +0000 Subject: (init_sizes) increase default window height b/c of package selection step --- perl-install/install/gtk.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/install/gtk.pm') diff --git a/perl-install/install/gtk.pm b/perl-install/install/gtk.pm index 68370c51f..4857eadfc 100644 --- a/perl-install/install/gtk.pm +++ b/perl-install/install/gtk.pm @@ -239,7 +239,7 @@ sub init_sizes { $::stepswidth = $::rootwidth <= 640 ? 0 : 196; ($::logowidth, $::logoheight) = $::rootwidth <= 640 ? (0, 0) : (800, 75); ($o->{windowwidth}, $o->{windowheight}) = ($::rootwidth - $::stepswidth, $::rootheight); - ($::real_windowwidth, $::real_windowheight) = (576, 445); + ($::real_windowwidth, $::real_windowheight) = (576, 465); } sub handle_unsafe_mouse { -- cgit v1.2.1