let process_viewmanager_request msg = 
         log_output Debug "In From_group.process_viewmanager_request";
         begin match msg with
            | Create (gdesc,my_info) -> process_create_message gdesc my_info
            | Destroy vdesc -> process_destroy_message vdesc
            | _ -> assert false (* TODO: *)
         end