Prepare for first binary release.

[guestfs-browser.git] / window.ml

diff --git a/window.ml b/window.ml
index 5f3852a..ab52078 100644 (file)
--- a/window.ml
+++ b/window.ml
@@ -39,28 +39,18 @@ let set_statusbar ws msg =
   ws.statusbar_context#pop ();
   ignore (ws.statusbar_context#push msg)
 
-let clear_statusbar ws = set_statusbar ws ""
-
 (* Clear the filetree. *)
 let clear_view ws =
   Filetree.clear ws.view
 
 (* Callback from Connect -> ... menu items. *)
 let rec connect_to ws uri =
-  (match uri with
-   | None -> set_statusbar ws "Connecting to default libvirt ..."
-   | Some uri -> set_statusbar ws (sprintf "Connecting to %s ..." uri)
-  );
   clear_view ws;
   Slave.discard_command_queue ();
   Slave.connect uri (when_connected ws uri)
 
 (* Called back when connected to a new hypervisor. *)
 and when_connected ws uri doms =
-  (match uri with
-   | None -> set_statusbar ws "Connected to default libvirt"
-   | Some uri -> set_statusbar ws (sprintf "Connected to %s" uri)
-  );
   populate_vmcombo ws doms
 
 and populate_vmcombo ws doms =
@@ -75,7 +65,6 @@ and populate_vmcombo ws doms =
 
 (* When a new domain is selected by the user, eg through vmcombo. *)
 let rec open_domain ws name =
-  set_statusbar ws (sprintf "Opening %s ..." name);
   clear_view ws;
   Slave.discard_command_queue ();
   Slave.open_domain name (when_opened_domain ws name)
@@ -83,7 +72,6 @@ let rec open_domain ws name =
 (* Called back when domain was opened successfully. *)
 and when_opened_domain ws name data =
   debug "when_opened_domain callback";
-  set_statusbar ws (sprintf "Opened %s" name);
   when_opened_common ws name data
 
 (* When a set of disk images is selected by the user. *)
@@ -91,7 +79,6 @@ and open_disk_images ws images =
   match images with
   | [] -> ()
   | images ->
-      set_statusbar ws "Opening disks ...";
       clear_view ws;
       Slave.discard_command_queue ();
       Slave.open_images images (when_opened_disk_images ws images)
@@ -102,7 +89,6 @@ and when_opened_disk_images ws images data =
   | [] -> ()
   | (image, _) :: _ ->
       debug "when_opened_disk_images callback";
-      set_statusbar ws "Opened disk";
       when_opened_common ws image data
 
 (* Common code for when_opened_domain/when_opened_disk_images. *)
@@ -207,8 +193,6 @@ let rec open_main_window () =
       )
   );
 
-  Filetree.set_status_fn view (set_statusbar ws);
-
   (* Return the window_state struct. *)
   ws