method grab_focus = try let (_,c) = List.nth tabs nb#current_page in contents_grab_focus c with _ -> ()