method on_current f () =
      match self#active_file with
        None -> ()
      |        Some fb -> f fb