From ac92166bcdf01373a9c77aaad3a27476c755b288 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Wed, 13 Aug 2008 15:32:14 +0000
Subject: (create_steps_window) factorize height value (needed for next
 commits)

---
 perl-install/install/gtk.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/perl-install/install/gtk.pm b/perl-install/install/gtk.pm
index b403a3e38..5b7b4dcc6 100644
--- a/perl-install/install/gtk.pm
+++ b/perl-install/install/gtk.pm
@@ -139,9 +139,10 @@ sub create_steps_window {
     }
 
     my $offset = 10;
+    my $height = 500;
     $o->{steps_widget} =
       gtknew('Fixed', widget_name => 'Steps', pixbuf_file => 'left-background',
-             has_window => 1, x => 0, y => 0, height => 500, width => $::stepswidth, # -1
+             has_window => 1, x => 0, y => 0, height => $height, width => $::stepswidth, # -1
 	     child => gtknew('VBox', spacing => 6, width => ($::stepswidth - $offset), children_tight => \@l));
     $o->{steps_widget}->put(
         # FIXME: not RTL compliant (lang::text_direction_rtl() ? ...)
-- 
cgit v1.2.1