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
connect_xen_signal#disconnect;
connect_none_signal#disconnect;
connect_uri_signal#disconnect;
+ open_disk_signal#disconnect;
reopen_signal#disconnect;
inspection_signal#disconnect]
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
~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
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 ->