diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2008-07-30 13:17:20 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2008-07-30 13:17:20 +0000 |
| commit | e725097a9f1e3fd0637e22a6f7df1735850ba187 (patch) | |
| tree | f6726873920f5dfb3f9dec3677c8f192b80119d9 /perl-install | |
| parent | 6cbe9dc447e67db85b771dd1698f0e90d7949289 (diff) | |
| download | drakx-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.pm | 3 |
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; } #------------------------------------------------------------------------------ |