fel-right backspace enter delete begin end dans un fichier.

Source Ada : 

declare
   Count     : Natural := 0;
   Term_Width : Natural := Edit_Buffer.C-2;
begin
   if Edit_Buffer.File_Result /= null and then Edit_Buffer.File_Result.File_Content /= null then

  Print_Loop:
      for I in File_Index+1..Positive'min(File_Index+((Result_Max_Lines-2)),
                                          Edit_Buffer.File_Result.File_Content'Length) loop
         declare
            tmp : constant Wide_String :=
              (-Edit_Buffer.File_Result.File_Content(I));
            Line : constant Wide_String := Tmp(Tmp'First..Wide_Fixed.Index_Non_Blank((Tmp), Backward));

            Chars_Max : constant Positive := Term_Width;
            Lines_Max : constant Positive := (Result_Max_Lines-2);
         begin

            if Real_Length(Line) > 0 and Real_Length(Line) < (Chars_Max * Lines_Max) then
               for Line_Window in Line_Index..Integer'min(Real_Length(Line)/Chars_Max, Lines_Max) loop

                  declare
                     B_Inf : constant Positive := Line_Window  * Chars_Max + 1;
                     B_Sup : constant Positive := Integer'min((Line_Window + 1)*Chars_Max, Real_Length(Line));
                  begin

                     if Real_length(Line) < Chars_max then
                        Draw(Edit_Buffer.Edit_Window.all, Count+1, 1, White, Line);

                     else
                        Draw(Edit_Buffer.Edit_Window.all, Count+1, 1, White, Line(B_Inf..B_Sup));

                     end if;
                  end;
                  Count := Count + 1;
                  exit Print_Loop When Count > (Result_Max_Lines - 3);
               end loop;
            else
               Count := Count + 1;
            end if;
         end;


         exit Print_Loop when Count > (Result_Max_Lines - 3);

      end loop Print_Loop;

   end if;

end;