[gtkada] Set_Foreground

[Emmanuel Briot]

> What I do is simple, I create a text entry, a new style, call
> Set_Foreground(My_Style, State_Normal, Parse("red"));
> Set the style to the entry, but the text is still black.

What if you try something like:

    My_Style := Copy (Gtk.Widget.Get_Default_Style);
    Set_Foreground (...);
    Set_Style (Widget, My_Style);

Note: in the code you sent, you haven't allocated the color. This won't
work unless your terminal is a true color.

Emmanuel