This code is for an alternate version in ocaml and gtk.

Maurizio 
