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    $Id: mlvirtmanager.ml,v 1.1 2007/08/06 10:16:53 rjones Exp $
   5 *)
   6
   7 open Printf
   8
   9 let () =
  10   (* Build the main window and wire up the buttons to the callback functions *)
  11   Mlvirtmanager_mainwindow.make
  12     ~open_connection:Mlvirtmanager_connections.open_connection
  13     ~start_domain:Mlvirtmanager_domain_ops.start_domain
  14     ~pause_domain:Mlvirtmanager_domain_ops.pause_domain
  15     ~resume_domain:Mlvirtmanager_domain_ops.resume_domain
  16     ~shutdown_domain:Mlvirtmanager_domain_ops.shutdown_domain;
  17
  18   (* Enter the Gtk main loop. *)
  19   GMain.main ()