X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=virt-ctrl%2Fvc_mainwindow.ml;h=f859d1093b47e0dbac3d571cff78eec0385ebdcc;hb=2994c0e3399ce29bc0fe9431574ba1d1e6f59c43;hp=b8ec4db640bafcb161a00ebe95d54d36148b5d8c;hpb=430d646f23385cff10f3cfe359f27226f42cf01a;p=virt-top.git

diff --git a/virt-ctrl/vc_mainwindow.ml b/virt-ctrl/vc_mainwindow.ml
index b8ec4db..f859d10 100644
--- a/virt-ctrl/vc_mainwindow.ml
+++ b/virt-ctrl/vc_mainwindow.ml
@@ -60,7 +60,7 @@ let () =
       icon#set_icon_size `DIALOG;
       GToolbox.message_box ~title ~icon label
 
-let make ~open_connection
+let make
     ~start_domain ~pause_domain ~resume_domain ~shutdown_domain
     ~open_domain_details =
   (* Create the main window. *)
@@ -81,7 +81,8 @@ let make ~open_connection
   ignore (factory#add_separator ());
   let quit_item = factory#add_item "Quit" ~key:GdkKeysyms._Q in
 
-  ignore (open_item#connect#activate ~callback:open_connection);
+  ignore (open_item#connect#activate
+	    ~callback:Vc_connection_dlg.open_connection);
 
   (* Help menu. *)
   let factory = new GMenu.factory help_menu ~accel_group in
@@ -119,7 +120,8 @@ let make ~open_connection
       ~packing:(vbox#pack ~expand:true ~fill:true) () in
 
   (* Set callbacks for the buttons. *)
-  ignore (connect_button#connect#clicked ~callback:open_connection);
+  ignore (connect_button#connect#clicked
+	    ~callback:Vc_connection_dlg.open_connection);
   ignore (open_button#connect#clicked
 	    ~callback:(open_domain_details tree model columns));
   ignore (start_button#connect#clicked