summaryrefslogtreecommitdiffstats
path: root/virt-ctrl/virt_ctrl.ml
diff options
context:
space:
mode:
authorrjones@thinkpad <rjones@thinkpad>2008-04-17 11:13:39 +0100
committerrjones@thinkpad <rjones@thinkpad>2008-04-17 11:13:39 +0100
commit5fb80987ddf0f8af6cd479964f1c5bb8340c7ba8 (patch)
tree6774d8d7c9fb2ec1b6f4b5913636f5e36af1dae2 /virt-ctrl/virt_ctrl.ml
parentf9d99e63272520c19bddc9e4b47731d57e5658e2 (diff)
parentf5f45d38269842b591a89ccaf2e6af7879d57aab (diff)
downloadvirt-top-5fb80987ddf0f8af6cd479964f1c5bb8340c7ba8.zip
virt-top-5fb80987ddf0f8af6cd479964f1c5bb8340c7ba8.tar.gz
virt-top-5fb80987ddf0f8af6cd479964f1c5bb8340c7ba8.tar.xz
Merge.
Diffstat (limited to 'virt-ctrl/virt_ctrl.ml')
-rw-r--r--virt-ctrl/virt_ctrl.ml35
1 files changed, 0 insertions, 35 deletions
diff --git a/virt-ctrl/virt_ctrl.ml b/virt-ctrl/virt_ctrl.ml
deleted file mode 100644
index c7c4620..0000000
--- a/virt-ctrl/virt_ctrl.ml
+++ /dev/null
@@ -1,35 +0,0 @@
-(* virt-ctrl: A graphical management tool.
- (C) Copyright 2007 Richard W.M. Jones, Red Hat Inc.
- http://libvirt.org/
-
- This program is free software; you can redistribute it and/or modify
- it under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version 2 of the License, or
- (at your option) any later version.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- GNU General Public License for more details.
-
- You should have received a copy of the GNU General Public License
- along with this program; if not, write to the Free Software
- Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-*)
-
-open Printf
-
-let () =
- (* Build the main window and wire up the buttons to the callback functions *)
- Vc_mainwindow.make
- ~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
- ~open_domain_details:Vc_domain_ops.open_domain_details;
-
- (* Enter the Gtk main loop. *)
- GMain.main ();
-
- (* Useful to catch memory bugs in the ocaml libvirt bindings. *)
- Gc.compact ()