From 05361f3089e05b7f62166f93d2c2b85e97be0bed Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Sun, 28 Sep 2008 21:12:53 +0000
Subject: keep around global variable

---
 perl-install/standalone/draksplash | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install/standalone/draksplash')

diff --git a/perl-install/standalone/draksplash b/perl-install/standalone/draksplash
index a4477ac76..576e2b447 100755
--- a/perl-install/standalone/draksplash
+++ b/perl-install/standalone/draksplash
@@ -10,6 +10,7 @@ use interactive;
 use bootsplash;
 
 my $in = 'interactive'->vnew('su');
+my $global_width = 500;
 
 $in->do_pkgs->ensure_is_installed('ImageMagick', '/usr/bin/convert') or close_all();
 $in->do_pkgs->ensure_is_installed('netpbm', '/usr/bin/jpegtopnm') or close_all();
@@ -116,7 +117,7 @@ gtkadd($window->{window},
 			 gtknew('Button', text => N("Quit"), clicked => \&close_all)])])),
 gtkshow(gtkadd($preview_window->{window}, $scroll));
 
-$window->{rwindow}->set_size_request(500, -1);
+$window->{rwindow}->set_size_request($global_width, -1);
 $window->{rwindow}->set_border_width(5);
 $window->{rwindow}->set_position('center');
 $window->{rwindow}->show_all;
-- 
cgit v1.2.1