class
['sujet] big_brother =
object
inherit
['sujet] inspecteur
method
retaillé (s:'sujet) = print_string
"<R>"
method
devant (s:'sujet) = print_string
"<D>"
end
;;
Et voilà le tout ensemble:
let
w =
new
grande_fenêtre
in
w#ajoute (
new
grand_gestionnaire); w#ajoute (
new
big_brother);
w#retaille 2; w#déplace 1;;
<R><D>{Position = 0; Taille = 3}<D>{Position = 1; Taille = 3}- : unit = ()