From e725097a9f1e3fd0637e22a6f7df1735850ba187 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Wed, 30 Jul 2008 13:17:20 +0000
Subject: (install_theme) make root window visible from outside of the scope

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

(limited to 'perl-install/install/gtk.pm')

diff --git a/perl-install/install/gtk.pm b/perl-install/install/gtk.pm
index 3d20ec47c..f95a478b6 100644
--- a/perl-install/install/gtk.pm
+++ b/perl-install/install/gtk.pm
@@ -89,6 +89,8 @@ sub default_theme {
     $o->{simple_themes} || $o->{vga16} ? 'blue' : 'galaxy';
 }
 
+my $root_window;
+
 sub install_theme {
     my ($o) = @_;
 
@@ -99,6 +101,7 @@ sub install_theme {
     $win->set_type_hint('desktop'); # for matchbox window manager
     $win->realize;
     mygtk2::set_root_window_background_with_gc($win->style->bg_gc('normal'));
+    $root_window = $win;
 }
 
 #------------------------------------------------------------------------------
-- 
cgit v1.2.1