method show_channel ch =
      store#clear ();
      channel <- ch;
      List.iter self#insert_item ch.ch_items