X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=virt-ctrl%2Fvirt_ctrl.ml;h=c7c46209eef142f1132cd798b887e0ae98acdba0;hb=8b477fa331b9f787328fee754d7f249cb80bf4ea;hp=1de68f41267d7d5fbdf1b0da2e6631cedf2ac248;hpb=474e8b8e2e98b61d5d01a58f843b9338754ecf2f;p=virt-top.git

diff --git a/virt-ctrl/virt_ctrl.ml b/virt-ctrl/virt_ctrl.ml
index 1de68f4..c7c4620 100644
--- a/virt-ctrl/virt_ctrl.ml
+++ b/virt-ctrl/virt_ctrl.ml
@@ -22,11 +22,14 @@ open Printf
 let () =
   (* Build the main window and wire up the buttons to the callback functions *)
   Vc_mainwindow.make
-    ~open_connection:Vc_connections.open_connection
     ~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;
+    ~shutdown_domain:Vc_domain_ops.shutdown_domain
+    ~open_domain_details:Vc_domain_ops.open_domain_details;
 
   (* Enter the Gtk main loop. *)
-  GMain.main ()
+  GMain.main ();
+
+  (* Useful to catch memory bugs in the ocaml libvirt bindings. *)
+  Gc.compact ()