From 2e1d91265944c55ce065c0b3af64057ab5e5a132 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 17 Mar 2004 17:18:15 +0000 Subject: enlarge steps window (no pb since the window is invisible) (bugzilla #8985) --- perl-install/install_gtk.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/install_gtk.pm b/perl-install/install_gtk.pm index 3e300d62b..c7086f915 100644 --- a/perl-install/install_gtk.pm +++ b/perl-install/install_gtk.pm @@ -118,7 +118,7 @@ sub install_theme { load_rc($o, $o->{theme} ||= default_theme($o)); load_font($o); - $::move or gtkset_background(@background); + gtkset_background(@background) if !$::move; } #------------------------------------------------------------------------------ @@ -234,7 +234,7 @@ q( sub init_sizes() { ($::rootwidth, $::rootheight) = (Gtk2::Gdk->screen_width, Gtk2::Gdk->screen_height); #- ($::rootheight, $::rootwidth) = (min(768, $::rootheight), min(1024, $::rootwidth)); - $::move or $::stepswidth = $::rootwidth <= 640 ? 0 : 160; + $::stepswidth = $::rootwidth <= 640 ? 0 : 200 if !$::move; ($::logowidth, $::logoheight) = $::rootwidth <= 640 ? (0, 0) : (500, 40); ($::helpwidth, $::helpheight) = ($::rootwidth - $::stepswidth, $::move && 15); ($::windowwidth, $::windowheight) = ($::rootwidth - $::stepswidth, $::rootheight - $::helpheight - $::logoheight); -- cgit v1.2.1