let set_size_of_all_fonts (size : int) : unit = List.iter (fun font -> Font.configure font ~size:size) (!list_font)