method cut = match active_view with None -> () | Some v -> match v#cut with None -> () | Some f -> f ()