From ed32b88e1b5f2b641243da669c3b2a74dbba025b Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Fri, 27 Feb 2004 10:28:37 +0000 Subject: paint icon background with current theme color --- control-center | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) diff --git a/control-center b/control-center index cb94292c..49727529 100755 --- a/control-center +++ b/control-center @@ -537,7 +537,26 @@ gtkadd($window_global, ) ); +my $notebook_set_background = sub { + my ($w) = @_; + return if !$w->realized; + my $color = $notebook_global->get_style->base('normal'); + Gtk2::Rc->parse_string(join('', qq(style "mcc" +{ + bg[NORMAL] = { ), join(' ,', $color->red, $color->green, $color->blue), qq( } + bg_pixmap[NORMAL] = "" +} + +widget "*mcc*" style "mcc" + +))); + $notebook_global->reset_rc_styles; + 0; +}; + +$notebook_global->signal_connect(realize => $notebook_set_background); +#$notebook_global->signal_connect("style-set" => $notebook_set_background); # badly loop $window_global->signal_connect(delete_event => \&quit_global); use POSIX qw(:sys_utsname_h :math_h :sys_wait_h :unistd_h); -- cgit v1.2.1