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 = ()