let ask_int_msg s () =
(* zenity_info "Veuillez choisir un entier";*)
faire ("zenity --scale --window-icon=\".monicone.ico\" --title=\"Projet puzzle : choisissez une valeur\" --text=\""^s^"\" --value=2 --min-value=1 --max-value=16 > .int_choose_zenity.int");
parse_int ".int_choose_zenity.int"