diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2004-02-09 14:54:39 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2004-02-09 14:54:39 +0000 |
| commit | d1f8d4589687bb481157a1372a41e37cdbc732ca (patch) | |
| tree | 2e8bf0c192a2ed871f9dee0976eada5d4a4de89b /perl-install/install_gtk.pm | |
| parent | b41c1d8a7b51bebe4da0aa162365bf1c5bd1242c (diff) | |
| download | drakx-backup-do-not-use-d1f8d4589687bb481157a1372a41e37cdbc732ca.tar drakx-backup-do-not-use-d1f8d4589687bb481157a1372a41e37cdbc732ca.tar.gz drakx-backup-do-not-use-d1f8d4589687bb481157a1372a41e37cdbc732ca.tar.bz2 drakx-backup-do-not-use-d1f8d4589687bb481157a1372a41e37cdbc732ca.tar.xz drakx-backup-do-not-use-d1f8d4589687bb481157a1372a41e37cdbc732ca.zip | |
resurrect 9.2 code for setting background. i was said to remove it for move because default colour is already mandrake colour but obviously it isn't.
Diffstat (limited to 'perl-install/install_gtk.pm')
| -rw-r--r-- | perl-install/install_gtk.pm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/perl-install/install_gtk.pm b/perl-install/install_gtk.pm index 2c5d414ed..78eee6bc5 100644 --- a/perl-install/install_gtk.pm +++ b/perl-install/install_gtk.pm @@ -12,6 +12,8 @@ use devices; #-INTERN CONSTANT #-##################################################################################### +my @background; + #- if we're running for the doc team, we want screenshots with #- a good B&W contrast: we'll override values of our theme my $theme_overriding_for_doc = q(style "galaxy-default" @@ -60,7 +62,12 @@ sub load_rc { $o->{doc} and push @contents, $theme_overriding_for_doc; Gtk2::Rc->parse_string(join("\n", @contents)); - } + foreach (@contents) { + if (/style\s+"background"/ .. /^\s*$/) { + @background = map { $_ * 256 * 257 } split ',', $1 if /NORMAL.*\{(.*)\}/; + } + } + } if ($::move) { #- override selection color since we won't do inverse-video on the text when it's images @@ -111,6 +118,7 @@ sub install_theme { load_rc($o, $o->{theme} ||= default_theme($o)); load_font($o); + $::move or gtkset_background(@background); } #------------------------------------------------------------------------------ |