summaryrefslogtreecommitdiffstats
path: root/mlvirtmanager/mlvirtmanager.ml
diff options
context:
space:
mode:
Diffstat (limited to 'mlvirtmanager/mlvirtmanager.ml')
-rwxr-xr-xmlvirtmanager/mlvirtmanager.ml32
1 files changed, 0 insertions, 32 deletions
diff --git a/mlvirtmanager/mlvirtmanager.ml b/mlvirtmanager/mlvirtmanager.ml
deleted file mode 100755
index 12382fe..0000000
--- a/mlvirtmanager/mlvirtmanager.ml
+++ /dev/null
@@ -1,32 +0,0 @@
-(* virt-manager-like 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 *)
- 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 ()