Implement open disk and connect to URI menu options.

[guestfs-browser.git] / main.ml

diff --git a/main.ml b/main.ml
index 92327c3..c6c60c5 100644 (file)
--- a/main.ml
+++ b/main.ml
@@ -77,6 +77,10 @@ let () =
             ~callback:(w#connect_to (Some "xen:///")));
   ignore (w#connect_none_signal
             ~callback:(w#connect_to None));
+  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