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. *)
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
~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