method on_switch_page n =
      self#set_label (label_of_contents (snd (List.nth tabs n)))