class ['sujet] grande_fenêtre =
object (self)
inherit ['sujet] fenêtre
val mutable taille = 1
method retaille x =
taille <- taille + x;
self#envoie (fun obs -> obs#retaillé)
val mutable devant = false
method en_avant =
devant <- true;
self#envoie (fun x -> x#devant)
method dessine =
Printf.printf "{Position_=_%d;_Taille_=_%d}" position taille;
end;;
|
|