mlvirtmanager/mlvirtmanager.ml

   1 (* virt-manager-like graphical management tool.
   2    (C) Copyright 2007 Richard W.M. Jones, Red Hat Inc.
   3    http://libvirt.org/
   4 *)
   5
   6 open Printf
   7
   8 let () =
   9   (* Build the main window and wire up the buttons to the callback functions *)
  10   Mlvirtmanager_mainwindow.make
  11     ~open_connection:Mlvirtmanager_connections.open_connection
  12     ~start_domain:Mlvirtmanager_domain_ops.start_domain
  13     ~pause_domain:Mlvirtmanager_domain_ops.pause_domain
  14     ~resume_domain:Mlvirtmanager_domain_ops.resume_domain
  15     ~shutdown_domain:Mlvirtmanager_domain_ops.shutdown_domain;
  16
  17   (* Enter the Gtk main loop. *)
  18   GMain.main ()