method close_current () =
        match self#active_file with
          None -> ()
        | Some fb ->
            if fb#close () then
              (
               ignore (notebook#remove_page notebook#current_page);
               match fb#filename, on_close_file with
                 None, _
               | _, None -> ()
               | Some name, Some f -> f name
              )