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