let file_types () = (List.map fst ft_rules#get) @ [ft_unknown]