method cycle_tab forward =
      let new_page =
        ((if forward then (+) else (-)) nb#current_page 1) mod (List.length tabs)
      in
      self#goto_page new_page