--  with Ada.Text_IO; -- teszteleshez

package body Idozito.Muvelet_Idozito is


   procedure Inicializal(Muvelet_Idozito : out Muvelet_Idozito_Tipus) is
   begin
      Inicializal(Idozito_Tipus(Muvelet_Idozito));                             -- nezeti konverzio! meghivjuk az os inicializalo metodusat ( nem vesznek el a Muvelet_Idozito_Tipus komponensei, csak nem lesznek lathatoak )

      Muvelet_Idozito.Muvelet  := Null_Eljaras'Access;                         -- es inicializaljuk az uj adatmezoket
   end;


   procedure Muvelet_Beallitas(Muvelet_Idozito : in out Muvelet_Idozito_Tipus; Uj_Muvelet : Muvelet_Mutato_Tipus := Alapertelmezett_Muvelet) is
   begin
      Muvelet_Idozito.Muvelet := Uj_Muvelet;
   end Muvelet_Beallitas;


   procedure Vegrehajt(Muvelet_Idozito : in out Muvelet_Idozito_Tipus) is
   begin
      if Lejart(Muvelet_Idozito) then                                          -- meghivjuk az orokolt, es nem feluldefinialt Lejart fuggvenyt
         Muvelet_Idozito.Muvelet.all;
      end if;
   end Vegrehajt;


   procedure Null_Eljaras is
   begin
     -- Ada.Text_IO.Put_Line("Null eljaras!");  -- tesztelest segito komment
     null;
   end Null_Eljaras;

end Idozito.Muvelet_Idozito;