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