diff options
| author | Richard W.M. Jones <rjones@redhat.com> | 2008-02-16 19:23:16 +0000 |
|---|---|---|
| committer | Richard W.M. Jones <rjones@redhat.com> | 2008-02-16 19:23:16 +0000 |
| commit | d7a277ed8a3312d927d712cb01807ea07d7b96ae (patch) | |
| tree | 5fc51cd352e39b8a1ed050cc8be9ff1121691021 /virt-ctrl/vc_mainwindow.ml | |
| parent | 430d646f23385cff10f3cfe359f27226f42cf01a (diff) | |
| download | virt-top-d7a277ed8a3312d927d712cb01807ea07d7b96ae.tar.gz virt-top-d7a277ed8a3312d927d712cb01807ea07d7b96ae.tar.xz virt-top-d7a277ed8a3312d927d712cb01807ea07d7b96ae.zip | |
Move open_connection dialog.
- Move open_connection dialog into vc_mainwindow which is more logical.
Diffstat (limited to 'virt-ctrl/vc_mainwindow.ml')
| -rw-r--r-- | virt-ctrl/vc_mainwindow.ml | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/virt-ctrl/vc_mainwindow.ml b/virt-ctrl/vc_mainwindow.ml index b8ec4db..3ae9d7c 100644 --- a/virt-ctrl/vc_mainwindow.ml +++ b/virt-ctrl/vc_mainwindow.ml @@ -60,7 +60,18 @@ let () = icon#set_icon_size `DIALOG; GToolbox.message_box ~title ~icon label -let make ~open_connection +(* 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 + +let make ~start_domain ~pause_domain ~resume_domain ~shutdown_domain ~open_domain_details = (* Create the main window. *) |