Arknos et GtkAda : interface avec Ada

Source ada : 

function Filename_Completion(Line : in String;
                                Arknos : Arknos_Pointer) return String is

      Filename : Common.String_Access;
   begin

      Arkn.Completion.Completion
        (Line => Line, Full_Command => Filename, Result => Arknos.Result);
      if Filename /= null then
         declare
            Result : constant String := To_String(Filename.all);
         begin
            Set_Position(Arknos.Main_Line, Result'Length);
            Free(Filename);
            return Result;
         end;
      else

         Gtk_New(Arknos.Result_Text_buffer);
         Gtk_New(Arknos.Result_Text_View, Arknos.Result_Text_Buffer);
         Gtk_New(Arknos.Result_Scroll);
         Set_Editable(Arknos.Result_Text_View, False);
         Add(Arknos.Result_Scroll, Arknos.Result_Text_View);
         Gtk_New(Arknos.Result_Frame, "Completion :");
         Add(Arknos.Result_Frame, Arknos.Result_Scroll);
         Set_Size_Request(Arknos.Result_Frame, 355, 250);
         Pack_Start(Arknos.Main_Vbox, Arknos.Result_Frame, False);

         declare
            Top, Bot : Gtk_Text_Iter;
            Mark : Gtk.Text_Mark.Gtk_Text_Mark;
         begin
            Get_Start_Iter(Arknos.Result_Text_Buffer, Bot);
            for I in Arknos.Result.File_Content'Range loop
               Put_Line (To_String (-Arknos.Result.File_Content(I)));
               Insert
                 (Arknos.Result_Text_Buffer,
                  Bot,
                  Locale_To_Utf8
                    (To_String(-Arknos.Result.File_Content(I)) &
                       Character'Val(13))
                 );
               Get_Bounds
              (Arknos.Result_Text_Buffer, Top, Bot);
            end loop;
            Get_Bounds
              (Arknos.Result_Text_Buffer, Top, Bot);
            Mark :=
              Create_Mark
              (Arknos.Result_Text_buffer, Where => Bot);
            Scroll_To_Mark
              (Arknos.Result_Text_view, Mark, 0.0, false, 0.0, 0.0);
         end;
         Show_All(Arknos.Main_Vbox);
         Set_Focus(Arknos.Window, Arknos.Main_Line);
         return line;
      end if;
   end Filename_Completion;