From 65bbf9ecb8cc9bab8e5448f093ec67f843a71906 Mon Sep 17 00:00:00 2001 From: "Richard W.M. Jones" Date: Wed, 27 Feb 2008 11:36:43 +0000 Subject: Move connection dialog to its own module. ocaml-dbus >= 0.04. --- virt-ctrl/vc_connection_dlg.ml | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) create mode 100644 virt-ctrl/vc_connection_dlg.ml (limited to 'virt-ctrl/vc_connection_dlg.ml') diff --git a/virt-ctrl/vc_connection_dlg.ml b/virt-ctrl/vc_connection_dlg.ml new file mode 100644 index 0000000..9ba95a7 --- /dev/null +++ b/virt-ctrl/vc_connection_dlg.ml @@ -0,0 +1,29 @@ +(* 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 connection dialog. + * This should be a lot more sophisticated. XXX + *) +let open_connection () = + let title = "Open connection to hypervisor" in + let uri = + GToolbox.input_string ~title ~text:"xen:///" ~ok:"Open" "Connection:" in + match uri with + | None -> () + | Some uri -> Vc_connections.open_connection uri -- cgit