diff options
| -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; } #------------------------------------------------------------------------------ |