class ['sujet] grand_gestionnaire =
object
inherit ['sujet] gestionnaire
method retaillé (s : 'sujet) : unit = s#en_avant
method devant (s : 'sujet) : unit = s#dessine
end;;
new grande_fenêtre#ajoute (new grand_gestionnaire);;
let w = new grande_fenêtre in
w#ajoute (new grand_gestionnaire); w#déplace 1; w#retaille 2;;
|
{Position = 1; Taille = 1}{Position = 1; Taille = 3}- : unit = ()
|
|