Implement open disk and connect to URI menu options.

[guestfs-browser.git] / window.ml

diff --git a/window.ml b/window.ml
index 7f35b04..ac6c34c 100644 (file)
--- a/window.ml
+++ b/window.ml
@@ -118,6 +118,7 @@ class window =
   let connect_xen_signal = new GUtil.signal () in
   let connect_none_signal = new GUtil.signal () in
   let connect_uri_signal = new GUtil.signal () in
+  let open_disk_signal = new GUtil.signal () in
   let reopen_signal = new GUtil.signal () in
   let inspection_signal = new GUtil.signal () in
 
@@ -126,6 +127,7 @@ object (self)
                             connect_xen_signal#disconnect;
                             connect_none_signal#disconnect;
                             connect_uri_signal#disconnect;
+                            open_disk_signal#disconnect;
                             reopen_signal#disconnect;
                             inspection_signal#disconnect]
 
@@ -133,6 +135,7 @@ object (self)
   method connect_xen_signal = connect_xen_signal#connect ~after
   method connect_none_signal = connect_none_signal#connect ~after
   method connect_uri_signal = connect_uri_signal#connect ~after
+  method open_disk_signal = open_disk_signal#connect ~after
   method reopen_signal = reopen_signal#connect ~after
   method inspection_signal = inspection_signal#connect ~after
 
@@ -159,6 +162,8 @@ object (self)
               ~callback:connect_none_signal#call);
     ignore (connect_menu.connect_uri_item#connect#activate
               ~callback:connect_uri_signal#call);
+    ignore (connect_menu.open_disk_item#connect#activate
+              ~callback:open_disk_signal#call);
     ignore (connect_menu.reopen_item#connect#activate
               ~callback:reopen_signal#call);
     ignore (guest_menu.guest_inspection_item#connect#activate
@@ -227,7 +232,7 @@ object (self)
     self#when_opened_common name data
 
   (* When a set of disk images is selected by the user. *)
-  method private open_disk_images images =
+  method open_disk_images images =
     match images with
     | [] -> ()
     | images ->