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:="";
  )