method abort_track =
    match selected with
      | Some (_,s) -> s#abort_track
      | None -> ()