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
)