summaryrefslogtreecommitdiffstats
path: root/mlvirtmanager/mlvirtmanager.ml
diff options
context:
space:
mode:
Diffstat (limited to 'mlvirtmanager/mlvirtmanager.ml')
-rw-r--r--mlvirtmanager/mlvirtmanager.ml19
1 files changed, 19 insertions, 0 deletions
diff --git a/mlvirtmanager/mlvirtmanager.ml b/mlvirtmanager/mlvirtmanager.ml
new file mode 100644
index 0000000..091c026
--- /dev/null
+++ b/mlvirtmanager/mlvirtmanager.ml
@@ -0,0 +1,19 @@
+(* virt-manager-like graphical management tool.
+ (C) Copyright 2007 Richard W.M. Jones, Red Hat Inc.
+ http://libvirt.org/
+ $Id: mlvirtmanager.ml,v 1.1 2007/08/06 10:16:53 rjones Exp $
+*)
+
+open Printf
+
+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;
+
+ (* Enter the Gtk main loop. *)
+ GMain.main ()