Recherche:

let dessiner t im =
let rec loop t =
(* if !compteur = 0 then
Unix.sleep 5;*)
let eve = wait_next_event [Mouse_motion;Key_pressed]
in
if eve.keypressed
then ...

Bonjour,
je veux stocker dans une liste les coordonnées de la position de la souris quand je la bouge,
en fait ça me servira après à sélectionner une zone dans la fenêtre graphique .
voici ce que...