X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;ds=sidebyside;f=virt-ctrl%2Fvc_mainwindow.mli;h=39439e97fc7d28e630eeb5c80deccbe2e0f26946;hb=f9d99e63272520c19bddc9e4b47731d57e5658e2;hp=eb99b63fed721a77954acbcd37bd4cf22b5ed54d;hpb=d445e4f54fcfd19a98451eb0b5b5b5237bf9df78;p=virt-top.git

diff --git a/virt-ctrl/vc_mainwindow.mli b/virt-ctrl/vc_mainwindow.mli
index eb99b63..39439e9 100644
--- a/virt-ctrl/vc_mainwindow.mli
+++ b/virt-ctrl/vc_mainwindow.mli
@@ -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,8 +22,10 @@
 (** This function creates the main window.  You have to pass in
     callback functions to wire everything up.
 *)
-val make : open_connection:(unit -> unit) ->
-  start_domain:(GTree.view -> GTree.tree_store -> Vc_connections.columns -> unit -> unit) ->
-  pause_domain:(GTree.view -> GTree.tree_store -> Vc_connections.columns -> unit -> unit) ->
-  resume_domain:(GTree.view -> GTree.tree_store -> Vc_connections.columns -> unit -> unit) ->
-  shutdown_domain:(GTree.view -> GTree.tree_store -> Vc_connections.columns -> unit -> unit) -> unit
+val make :
+  start_domain:Vc_domain_ops.dops_callback_fn ->
+  pause_domain:Vc_domain_ops.dops_callback_fn ->
+  resume_domain:Vc_domain_ops.dops_callback_fn ->
+  shutdown_domain:Vc_domain_ops.dops_callback_fn ->
+  open_domain_details:Vc_domain_ops.dops_callback_fn ->
+  unit