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