[gtkada] string CONSTRAINT_ERRORS problems (2)

[Jacobo Marcos]

   ---------------------------------
   -- On_Boton_Introducir_Clicked --
   ---------------------------------

   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
CONSTRAINT_ERROR : ventana_ppal_pkg-callbacks.adb:77
      --Insert(Ventana_Ppal.Clist1,I,Null_Array+Mi_Texto);
   end On_Boton_Introducir_Clicked;


[root at localhost src]# ./sample

raised CONSTRAINT_ERROR : ventana_ppal_pkg-callbacks.adb:77


---------------------------------------------------
In this Code I want to get[Get_Text] a String introduced in an Entry
[Ventana_Ppal.Entrada] and put it in [Mi_Texto]

Again problems with Strings in GTKAda

But when i exec. this code (clicking a button) raise an exception.
Please Could anybody hel me?