method private select =
    try Some (List.find (fun s -> s.source#is_ready) children) with
      | Not_found -> None