let outputs () = match !outputs_window with None -> let o = new outputs ~on_destroy: (fun () -> outputs_window := None) () in outputs_window := Some o; o | Some o -> o