X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=main.ml;h=93e2a3a82e0642f15150a849b271c214691bdcf2;hb=09ea87581a3b9004075c3e76450db821c1db4d0b;hp=82e4603fc2f91a142cf9ba0faee04f2e1017993e;hpb=c79fc07ff71926b3bf956ff296336f6f71bb3b1e;p=guestfs-browser.git

diff --git a/main.ml b/main.ml
index 82e4603..93e2a3a 100644
--- a/main.ml
+++ b/main.ml
@@ -33,15 +33,15 @@ let () =
     debug "libvirt %s" (libvirt_version_string ());
   );
 
-  let ws = Window.open_main_window () in
-  Slave.set_failure_hook (Window.failure ws);
-  Slave.set_busy_hook (Window.throbber_busy ws);
-  Slave.set_idle_hook (Window.throbber_idle ws);
-  Slave.set_status_hook (Window.set_statusbar ws);
-  Slave.set_progress_hook (Window.progress ws);
+  let w = new Window.window in
+  Slave.set_failure_hook w#failure;
+  Slave.set_busy_hook w#throbber_busy;
+  Slave.set_idle_hook w#throbber_idle;
+  Slave.set_status_hook w#set_statusbar;
+  Slave.set_progress_hook w#progress;
 
   (* What did the user request on the command line? *)
-  Window.run_cli_request ws cli_request;
+  w#run_cli_request cli_request;
 
   (* Run the main display thread.  When this returns, the application
    * has been closed.