From 2e1d91265944c55ce065c0b3af64057ab5e5a132 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
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(-)

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(<fontconfig>
 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