Add Guest -> Operating system information menu item.

[guestfs-browser.git] / main.ml

diff --git a/main.ml b/main.ml
index c908bbc..439033d 100644 (file)
--- a/main.ml
+++ b/main.ml
@@ -77,6 +77,18 @@ let () =
             ~callback:(w#connect_to (Some "xen:///")));
   ignore (w#connect_none_signal
             ~callback:(w#connect_to None));
+  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
+      )
+  );
 
   (* What did the user request on the command line? *)
   w#run_cli_request cli_request;