From 86d8d93750b2173c59e1e6f2a6c5ffde2646b1f4 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Wed, 4 Oct 2000 17:37:41 +0000 Subject: *** empty log message *** --- perl-install/install_gtk.pm | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'perl-install/install_gtk.pm') diff --git a/perl-install/install_gtk.pm b/perl-install/install_gtk.pm index b5f03e7a8..4d740ae32 100644 --- a/perl-install/install_gtk.pm +++ b/perl-install/install_gtk.pm @@ -199,10 +199,8 @@ sub create_logo_window { #------------------------------------------------------------------------------ sub init_sizes() { -# my $maxheight = arch() eq "ppc" ? 1024 : 600; -# my $maxwidth = arch() eq "ppc" ? 1280 : 800; - ($::rootheight, $::rootwidth) = (480, 640); ($::rootheight, $::rootwidth) = my_gtk::gtkroot()->get_size; + $::live and $::rootheight -= 80; #- ($::rootheight, $::rootwidth) = (min(768, $::rootheight), min(1024, $::rootwidth)); ($::stepswidth, $::stepsheight) = (145, $::rootheight); ($::logowidth, $::logoheight) = ($::rootwidth - $::stepswidth, 40); -- cgit v1.2.1