let () =
(* Build the main window and wire up the buttons to the callback functions *)
- Mlvirtmanager_mainwindow.make
- ~open_connection:Mlvirtmanager_connections.open_connection
- ~start_domain:Mlvirtmanager_domain_ops.start_domain
- ~pause_domain:Mlvirtmanager_domain_ops.pause_domain
- ~resume_domain:Mlvirtmanager_domain_ops.resume_domain
- ~shutdown_domain:Mlvirtmanager_domain_ops.shutdown_domain;
+ Vc_mainwindow.make
+ ~open_connection:Vc_connections.open_connection
+ ~start_domain:Vc_domain_ops.start_domain
+ ~pause_domain:Vc_domain_ops.pause_domain
+ ~resume_domain:Vc_domain_ops.resume_domain
+ ~shutdown_domain:Vc_domain_ops.shutdown_domain;
(* Enter the Gtk main loop. *)
GMain.main ()