+ let connect_menu =
+ let menu = factory#add_submenu "_Connect" in
+ let factory = new GMenu.factory menu ~accel_group in
+ let kvm = factory#add_item "Connect to local _KVM hypervisor" in
+ let xen = factory#add_item "Connect to local _Xen hypervisor" in
+ let none = factory#add_item "_Connect to default hypervisor" in
+ let uri = factory#add_item "Connect to a _libvirt URI ..." in
+ ignore (factory#add_separator ());
+ let opend =
+ factory#add_item "_Open disk image ..." ~key:GdkKeysyms._O in
+ ignore (factory#add_separator ());
+ let quit = factory#add_item "E_xit" ~key:GdkKeysyms._Q in
+ { connect_menu = menu; connect_kvm_item = kvm;
+ connect_xen_item = xen; connect_none_item = none;
+ connect_uri_item = uri; open_disk_item = opend; quit_item = quit } in
+
+ let guest_menu =
+ let menu = factory#add_submenu "_Guest" in
+ let factory = new GMenu.factory menu ~accel_group in
+ let inspection = factory#add_item "Operating system information ..." in
+ { guest_menu = menu; guest_inspection_item = inspection } in