let file_type_choices () = List.sort compare (Cam_misc.list_remove_doubles (List.map fst ft_rules#get))