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