summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2008-07-30 13:17:20 +0000
committerThierry Vignaud <tv@mandriva.org>2008-07-30 13:17:20 +0000
commite725097a9f1e3fd0637e22a6f7df1735850ba187 (patch)
treef6726873920f5dfb3f9dec3677c8f192b80119d9 /perl-install
parent6cbe9dc447e67db85b771dd1698f0e90d7949289 (diff)
downloaddrakx-e725097a9f1e3fd0637e22a6f7df1735850ba187.tar
drakx-e725097a9f1e3fd0637e22a6f7df1735850ba187.tar.gz
drakx-e725097a9f1e3fd0637e22a6f7df1735850ba187.tar.bz2
drakx-e725097a9f1e3fd0637e22a6f7df1735850ba187.tar.xz
drakx-e725097a9f1e3fd0637e22a6f7df1735850ba187.zip
(install_theme) make root window visible from outside of the scope
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/gtk.pm3
1 files changed, 3 insertions, 0 deletions
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;
}
#------------------------------------------------------------------------------