From fb108a8322944e736b38c5643b0dd183f065faf8 Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Fri, 21 Nov 2003 12:49:55 +0000 Subject: have a fake helpwindow so that wizardwindow shrinks a bit and we don't totally hide "MandrakeMove" logo at bottom --- perl-install/install_gtk.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/install_gtk.pm b/perl-install/install_gtk.pm index 7746dadc3..d151101c5 100644 --- a/perl-install/install_gtk.pm +++ b/perl-install/install_gtk.pm @@ -229,7 +229,7 @@ sub init_sizes() { #- ($::rootheight, $::rootwidth) = (min(768, $::rootheight), min(1024, $::rootwidth)); $::move or $::stepswidth = $::rootwidth <= 640 ? 0 : 160; ($::logowidth, $::logoheight) = $::rootwidth <= 640 ? (0, 0) : (500, 40); - ($::helpwidth, $::helpheight) = ($::rootwidth - $::stepswidth, 0); + ($::helpwidth, $::helpheight) = ($::rootwidth - $::stepswidth, $::move && 15); ($::windowwidth, $::windowheight) = ($::rootwidth - $::stepswidth, $::rootheight - $::helpheight - $::logoheight); $::move and $::windowwidth -= 100; } -- cgit v1.2.1