let demande_sauvegarde_boutons = function (selection:select ref) ->
 selection := Sauvegarde_boutons ;
 prerr_endline ( ( pourcent_cpu () ) ^ "enregistrement de reglages" )