Re: Initialize - behaviour??

[Paul Chardon <paul.chardon@avions.aerospatiale.fr>]

Hello,

	When you use a limited controlled type, and if you want objects of this
type to be initialized automatically (respectively finalize) when they
become in scope, you must redefines the procedure Initialize
(respectively finalize), that is to say :

the follwoing initialize procedure:
 
    procedure Initialize (Watcher_object : in out Watcher_Type_Logger)is
       File_Name : String := "Logged.log";
       I : Integer :=10;
    begin
       Create(File => Watcher_object.FileOne,
              Mode => Out_File,
              Name => File_Name(1..I));
    exception when others => Put_Line("WATCHER initialize logger");
    end Initialize;

and do the same for the procedure finalize. (See LRM 7.6 (2))

Is that your problem ? Hope so, Paul.