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