paint icon background with current theme color

1 files changed, 19 insertions, 0 deletions

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] = "<none>"
+}
+
+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);