Problème d'encodage des noms de fichers avec accents

Source ada : 

procedure Draw_Window (W : in Window_Type)
   is
      type Frame_Component_Enum is (
                                    Top_Left_Corner,
                                    Top_Right_Corner,
                                    Bottom_Right_Corner,
                                    Bottom_Left_Corner,
                                    Horizontal_Border,
                                    Vertical_Border
                                   );
      Frame_Component : constant
        array (Frame_Type_Enum, Frame_Component_Enum) of Wide_Character := (
                                                                            --  Double_Line_Frame => (                                                                                                             
                                                                            --                               Top_Left_Corner     => Character'Val(201),                                                            
                                                                            --                               Top_Right_Corner    => Character'Val(187),                                                            
                                                                            --                               Bottom_Right_Corner => Character'Val(188),                                                            
                                                                            --                               Bottom_Left_Corner  => Character'Val(200),                                                            
                                                                            --                               Horizontal_Border   => Character'Val(205),                                                            
                                                                            --                               Vertical_Border     => Character'Val(186)),                                                           
                                                                            --  Single_Line_Frame => (                                                                                                             
                                                                            --                               Top_Left_Corner     => Character'Val(218),                                                            
                                                                            --                               Top_Right_Corner    => Character'Val(191),                                                            
                                                                            --                               Bottom_Right_Corner => Character'Val(217),                                                            
                                                                            --                               Bottom_Left_Corner  => Character'Val(192),                                                            
                                                                            --                               Horizontal_Border   => Character'Val(196),                                                            
                                                                            --                               Vertical_Border     => Character'Val(179)));                                                          
                                                                            Double_Line_Frame => (
                                                                                                  Top_Left_Corner     => Wide_Character'Val(43),
                                                                                                  Top_Right_Corner    => Wide_Character'Val(43),
                                                                                                  Bottom_Right_Corner => Wide_Character'Val(43),
                                                                                                  Bottom_Left_Corner  => Wide_Character'Val(43),
                                                                                                  Horizontal_Border   => Wide_Character'Val(45),
                                                                                                  Vertical_Border     => Wide_Character'Val(124)),
                                                                            Single_Line_Frame => (
                                                                                                  Top_Left_Corner     => Wide_Character'Val(43),
                                                                                                  Top_Right_Corner    => Wide_Character'Val(43),
                                                                                                  Bottom_Right_Corner => Wide_Character'Val(43),
                                                                                                  Bottom_Left_Corner  => Wide_Character'Val(43),
                                                                                                  Horizontal_Border   => Wide_Character'Val(45),
                                                                                                  Vertical_Border     => Wide_Character'Val(124)));

      Client_Background : constant Wide_Character := ' ';
      Close_Box_Symbol  : constant Wide_Character := 'X';
      -- Pourrait être aussi Character'Val(254)                                                                                                                                                                    
   begin
     if not Fit_In_Screen (W.L, W.C, W.H, W.W) then raise Metric_Error;
      end if;

      if W.W < 5 then raise Metric_Error;
      end if;

      if W.H < 2 then raise Metric_Error;
      end if;

      Set_Text_Color (W.Frame_Color);

      -- Bottom side                                                                                                                                                                                               
      Draw_Buffer (W.C) :=
        Frame_Component (W.Frame_Type, Bottom_Left_Corner);
      for i in 2 .. W.W - 1 loop
         Draw_Buffer ((W.C - 1) + i) :=
           Frame_Component (W.Frame_Type, Horizontal_Border);
      end loop;
      Draw_Buffer ((W.C - 1) + W.W) :=
        Frame_Component (W.Frame_Type, Bottom_Right_Corner);
      Move_Cursor_To ((W.L - 1) + W.H, W.C);
      Put (Draw_Buffer (W.C..(W.C - 1) + W.W));

      -- Top side                                                                                                                                                                                                  
      Draw_Buffer (W.C) :=
        Frame_Component (W.Frame_Type, Top_Left_Corner);
      --  Draw_Buffer ((W.C - 1) + W.W - 3) := '[';                                                                                                                                                                
      --  Draw_Buffer ((W.C - 1) + W.W - 2) := 'X'; -- Character'Val(254);                                                                                                                                         
      --  Draw_Buffer ((W.C - 1) + W.W - 1) := ']';                                                                                                                                                                
      --  Draw_Buffer ((W.C - 1) + W.W) :=                                                                                                                                                                         
      --        Frame_Component (W.Frame_Type, Top_Right_Corner);                                                                                                                                                  
      Move_Cursor_To (W.L, W.C);
      Put (Draw_Buffer (W.C..(W.C - 1) + W.W));

      -- Middle                                                                                                                                                                                                    
      Draw_Buffer (W.C) :=
        Frame_Component (W.Frame_Type, Vertical_Border);
      for i in 2 .. W.W - 1 loop
         Draw_Buffer ((W.C - 1) + i) := Client_Background;
      end loop;
      Draw_Buffer ((W.C - 1) + W.W) :=
        Frame_Component (W.Frame_Type, Vertical_Border);
      for i in 2..W.H - 1 loop
         Move_Cursor_To ((W.L - 1) + i, W.C);
         Put (Draw_Buffer (W.C..(W.C - 1) + W.W));
      end loop;
end;