+ ignore (w#connect_uri_signal
+ ~callback:(Menu_open_uri.open_uri_dialog w));
+ ignore (w#open_disk_signal
+ ~callback:(Menu_open_disk.open_disk_dialog w));
+ ignore (w#reopen_signal ~callback:w#reopen);
+ ignore (
+ w#inspection_signal
+ ~callback:(
+ fun () ->
+ match tree#oses with
+ | [] -> ()
+ | os :: _ ->
+ (* Note the menu entry only shows data for the first OS,
+ (for multiboot). *)
+ Op_inspection_dialog.inspection_dialog tree os
+ )
+ );
+ ignore (w#about_signal ~callback:(Menu_about.open_about_dialog w));