3 package body prefix2 is
4 procedure Positionne (Objet : in out Instance; X, Y : Coordonnee) is
9 function RetourneX (Objet : in Instance) return Coordonnee is
13 function RetourneY (Objet : in Instance) return Coordonnee is
17 procedure Affiche (Objet : in Class; EstVisible : Boolean) is
25 procedure Deplace (Objet : in out Class; DX, DY : Coordonnee) is
27 Objet.Affiche (False); -- erreur
28 Objet.Positionne (Objet.X + DX, Objet.Y + DY);
29 Objet.Affiche (True); -- erreur