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