let glade_file =
  let name = "chamo.glade" in
  let files =
    [
      name ;
      Filename.concat "editor" name ;
      Filename.concat Cam_installation.glade_dir name ;
    ]
  in
  let rec iter = function
      [] -> assert false
    | h :: q ->
        if Sys.file_exists h then h else iter q
  in
  iter files