X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=blobdiff_plain;f=ocaml%2Fexamples%2Fviewer.ml;h=ef6627b1b92a4fff7d4fa1fa4aca63eeffc05ece;hp=20fa608acf835ad30f140ff40fe6f69e83380035;hb=d278ef8ad9090441a713c7334804199318aeb3e1;hpb=4c8bdd342450aad1f49a44a009eae015a44f9572

diff --git a/ocaml/examples/viewer.ml b/ocaml/examples/viewer.ml
index 20fa608..ef6627b 100644
--- a/ocaml/examples/viewer.ml
+++ b/ocaml/examples/viewer.ml
@@ -227,6 +227,7 @@ end = struct
 	*)
        debug "Slave.slave_loop: command failed";
 
+       !busy_cb `Idle;
        with_lock q_lock (fun () -> Q.clear q);
        GtkThread.async !failure_cb exn
     );
@@ -383,7 +384,13 @@ type display_state = {
  * necessary to turn the exception into an error message.
  *)
 let failure ds exn =
-  debug "failure callback: %s" (Printexc.to_string exn)
+  let title = "Error" in
+  let msg = Printexc.to_string exn in
+  debug "failure callback: %s" msg;
+  let icon = GMisc.image () in
+  icon#set_stock `DIALOG_ERROR;
+  icon#set_icon_size `DIALOG;
+  GToolbox.message_box ~title ~icon msg
 
 (* This is called in the main thread when the slave thread transitions
  * to busy or idle.