perl-gtk2 applications that set the background color for buttons aren't producing colored output.

Note: this bug was originally filed under perl-Gtk2-1.247-1.fc18.x86_64, but is also relevant with perl-Gtk2-1.247-1.fc19.x86_64.


How reproducible:

Create a trivial perl-gtk application with a coloured button.


Steps to Reproduce:
1. see below for code example to run

Actual results:

Button is created, but no colour.

Expected results:

Coloured button.  (Red.)

Additional info:

Note: this worked as expected in Fedora 17.  (perl-Gtk2-1.241-2.fc17.i686)

Sample colored button code:


#!/bin/perl

use Gtk2 qw/-init/;

my $window = Gtk2::Window->new;
$window->set_title("Window!");

my $button = Gtk2::Button->new("Coloured _button");
# does not affect text
$button->modify_bg(normal => Gtk2::Gdk::Color->new(0xffff, 0, 0));

$window->add($button);
$window->show_all;

Gtk2->main;