From a8b837d5018c488a130fcbea425904817a862210 Mon Sep 17 00:00:00 2001
From: "rjones@localhost" <rjones@localhost>
Date: Thu, 30 Aug 2007 17:38:09 +0100
Subject: Initial import from CVS.

---
 mlvirtmanager/mlvirtmanager.ml | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 mlvirtmanager/mlvirtmanager.ml

(limited to 'mlvirtmanager/mlvirtmanager.ml')

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 ()
-- 
cgit