method destroy = (
destroy l;
destroy f_left_top;
destroy f_left_down;
destroy f_left;
del_entry message entry_1;
destroy entry_1;
List.iter
(fun w1 ->
match w1 with None -> ()
| Some obj_box -> obj_box#destroy;)
l_w;
l_w <- [];
destroy center_lst;
destroy center_lst_v;
destroy f_center_top;
destroy f_center_down;
destroy f_center;
destroy f;
l0_rec:="";
)