From b8feee1e1e0883126b2e905a6f4dbf5d38546f80 Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Tue, 18 Nov 2003 21:14:20 +0000 Subject: smaller wizard window in move --- perl-install/install_gtk.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'perl-install/install_gtk.pm') diff --git a/perl-install/install_gtk.pm b/perl-install/install_gtk.pm index 57bbd4734..7746dadc3 100644 --- a/perl-install/install_gtk.pm +++ b/perl-install/install_gtk.pm @@ -184,7 +184,7 @@ sub update_steps_position { sub create_logo_window { my ($o) = @_; - return if $::logowidth == 0; + return if $::logowidth == 0 || $::move; gtkdestroy($o->{logo_window}); @@ -228,9 +228,10 @@ sub init_sizes() { $::live and $::rootheight -= 80; #- ($::rootheight, $::rootwidth) = (min(768, $::rootheight), min(1024, $::rootwidth)); $::move or $::stepswidth = $::rootwidth <= 640 ? 0 : 160; - $::move or ($::logowidth, $::logoheight) = $::rootwidth <= 640 ? (0, 0) : (500, 40); + ($::logowidth, $::logoheight) = $::rootwidth <= 640 ? (0, 0) : (500, 40); ($::helpwidth, $::helpheight) = ($::rootwidth - $::stepswidth, 0); ($::windowwidth, $::windowheight) = ($::rootwidth - $::stepswidth, $::rootheight - $::helpheight - $::logoheight); + $::move and $::windowwidth -= 100; } #------------------------------------------------------------------------------ -- cgit v1.2.1