[gtkada] How do one get a black background for a label?

[manuel.op.de.coul at ezh.nl]

Try something like this:

    My_Style : Gtk.Style.Gtk_Style;
 begin
    Gtk.Style.Gtk_New(My_Style);
    Gtk.Style.Set_Base(My_Style, State_Normal, Parse("black"));
    Gtk.Style.Set_Foreground(My_Style, State_Normal, Parse("white"));

    Gtk.Style.Set_Style( <label> , My_Style);

--Manuel Op de Coul