let trees_for_window additional = Okey.trees_of_list (List.map (fun (x,s) -> (x, fun () -> Cam_commands.eval_command s)) (window_key_bindings#get @ additional))