with Szimulacio.Ontozorendszer.Csovezetek_Modell;
--with Szimulacio.Kert;
--with Szimulacio.Ontozorendszer.Megjelenito;


package Szimulacio.Ontozorendszer.Elemek.Szorofej is


   package Modell renames Ontozorendszer.Csovezetek_Modell;


   type Szorofej_Tipus is new Frissitheto_Absztrakt_Ontozorendszer_Elem_Tipus with private;

   -- overriding
   function Megjelenit(Objektum : Szorofej_Tipus) return Megjelenito.String_Tomb_Tipus;

   -- overriding
   procedure Inicializal(Objektum : in out Szorofej_Tipus);

   -- overriding
   procedure Frissit(Objektum : in out Szorofej_Tipus);

   function Beallit(Azonosito : Terv.Valodi_Reszletpont_Azonosito_Tipus;
                    Vizforrastol_Mert_Tavolsag : Natural;
                    Csovezetek_Elem : Modell.Csovezetek_Modell_Elem_Mutato_Tipus) return Szorofej_Tipus;

   function Szor(Objektum : Szorofej_Tipus) return Boolean;

private

   type Szorofej_Tipus is new Frissitheto_Absztrakt_Ontozorendszer_Elem_Tipus with record
      Csovezetek_Elem : Modell.Csovezetek_Modell_Elem_Mutato_Tipus;
      Szor : Boolean;
   end record;

end Szimulacio.Ontozorendszer.Elemek.Szorofej;