[gtkada] label in a table

[Preben Randhol]

Sami EVANGELISTA <sami.evangelista at wanadoo.fr> wrote on 05/09/2003 (15:35) :
> here is the code:
> 
>      Gtk_New(SA_Win.Reductions_Table, 7, 8, True);
> 
>      -- Structural reductions
>      Gtk_New(Sa_Win.Structural_Reductions_Label, "Structural reductions");

Add this code here:

        Set_Alignment (Sa_win.Structural_Reductions_Label, 0.0, 0.5);
        Set_Justify (Sa_win.Structural_Reductions_Label, Justify_Left);
        Set_Padding (Sa_win.Structural_Reductions_Label, 0, 0);

>      Attach_Defaults
>        (Sa_Win.Reductions_Table,
>         Sa_Win.Structural_Reductions_Label,
>         1, 2, 2, 3);
> 
> The word "Structural reductions" appears at the center of the cell

-- 
Preben Randhol -------------- http://www.pvv.org/~randhol/Ada95 --
                 «For me, Ada95 puts back the joy in programming.»