Affectation avec Standard_Output.

Bonjour, je reste coincé sur la question suivante :

je défini un type limité contenant un champ de type fichier texte :

with Ada.Text_IO; use Ada.Text_IO;
...
type Text is limited record
  Name : String (1..11);
  File : File_Type;
  end record;

j'ai une procédure d'ouverture en écriture :
procedure Rewrite (F : in out Text) is
begin
Open (F.File, Out_File, F.Name);
end;

et une procédure d'écriture :
procedure Write (F : Text; S : String) is
begin
Put(F.File, S);
end;

Jusque là tout va bien, je voudrais maintenant écrire avec Write sur la sortie standard :
Je ne peux bien évidemment pas assigner F :
F.File := Standard_Output; -- left hand of assignment must not be limited type

Comment faire simplement ?

Merci pour votre aide, Pascal.
http://blady.pagesperso-orange.fr


_______________________________________________
Site WWW de l'association Ada-France: http://www.ada-france.org/
[email protected]
http://www.ada-france.org/mailman/listinfo/ada-france