X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=virt-ctrl%2Fvirt_ctrl.ml;h=9e5053e2738d5d6020a737fbc4274c099ed12e41;hb=5c18720b51f3938cea534f97fbcfcaabff10d7e1;hp=b4a31593761dab14bd59a495ba6d7b0a40934376;hpb=5881ddaa61385403718e1e5b415057a2d3ef4c45;p=virt-top.git diff --git a/virt-ctrl/virt_ctrl.ml b/virt-ctrl/virt_ctrl.ml index b4a3159..9e5053e 100644 --- a/virt-ctrl/virt_ctrl.ml +++ b/virt-ctrl/virt_ctrl.ml @@ -18,15 +18,16 @@ *) open Printf +open Virt_ctrl_gettext.Gettext 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 ();