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

diff --git a/virt-ctrl/virt_ctrl.ml b/virt-ctrl/virt_ctrl.ml
index 8a01a04..c7c4620 100644
--- a/virt-ctrl/virt_ctrl.ml
+++ b/virt-ctrl/virt_ctrl.ml
@@ -1,4 +1,4 @@
-(* virt-manager-like graphical management tool.
+(* virt-ctrl: A graphical management tool.
    (C) Copyright 2007 Richard W.M. Jones, Red Hat Inc.
    http://libvirt.org/
 
@@ -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 ()