[gtkada] string CONSTRAINT_ERRORS problems (2)

[Michal Nowikowski]

    You "Jacobo Marcos" <jacobom at navegalia.com> who had written:

>    procedure On_Boton_Introducir_Clicked
>      (Object : access Gtk_Button_Record'Class)
>    is
>       I: GInt;
>       Mi_Texto: String(1..25):= (others=> ' ');
>    begin
>           Mi_Texto(1..25):= Get_Text(Ventana_Ppal.Entrada); --raised

but you dont know that Get_Text returns exactly 25 character string

Godfryd

-- 
|  Michal Nowikowski <godfryd at zamek.gda.pl>
|  BOFH excuse #118: the router thinks its a printer.