如何设置Gtk2：：按钮的文本颜色？

Question

我正在尝试设置一个颜色来突出显示一个按钮。然而，modify_fg方法似乎只设置了对焦环的颜色。modify_bg的工作方式与预期一致。

这是我的代码：

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_fg(normal => Gtk2::Gdk::Color->new(0xffff, 0, 0));

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

Gtk2->main;

我也感兴趣的是，这种突出显示是否有标准的颜色，以便与用户的主题相融合。

Answer 1

您可以获取按钮的子标签并修改其前景，下面是一个示例(python，如果在将其转换为perl时有问题，请告诉我)

import gtk        

class TestWindow:
    def __init__(self):
        window = gtk.Window(gtk.WINDOW_TOPLEVEL)

        box = gtk.VBox()

        button0 = gtk.Button("Test Button")
        label0 = button0.get_children()[0]
        label0.modify_fg(gtk.STATE_NORMAL, gtk.gdk.color_parse('red'))

        button1 = gtk.Button(stock=gtk.STOCK_ABOUT)
        alignment = button1.get_children()[0]
        hbox = alignment.get_children()[0]
        image, label1 = hbox.get_children()
        label1.modify_fg(gtk.STATE_NORMAL, gtk.gdk.color_parse('blue'))

        box.add(button0)
        box.add(button1)

        window.add(box)
        window.set_size_request(200, 200)
        window.show_all()        

    def close_application(self, widget, event, data=None):
        gtk.main_quit()
        return False

if __name__ == "__main__":
    TestWindow()
    gtk.main()

希望这能有所帮助，致敬

Answer 2

以前的一切都很有帮助……

下面的所有工作都很好！

my $beige = Gtk2::Gdk::Color->new (0xFFFF,0xFFFF,0xCCCC);
my $azul  = Gtk2::Gdk::Color->new (0,0,0xCCCC);
my $rojo  = Gtk2::Gdk::Color->new (0xCCCC,0,0);

$mw->modify_bg ("normal", $beige);

my $butOk = Gtk2::Button->new_with_label("  ¡Ya Terminé!");
($butOk->get_children)[0]->modify_fg("normal", $azul);
($butOk->get_children)[0]->modify_font(Pango::FontDescription->from_string ("Serif Bold 27"));
my $imgBTN = Gtk2::Button->new();
my $img    = Gtk2::Image->new_from_file("$imagen");
$imgBTN->set_property("image"=>$img);