From: Richard Jones <rjones@trick.home.annexia.org>
Date: Tue, 29 Sep 2009 10:56:26 +0000 (+0100)
Subject: OCaml viewer: Handle exceptions properly.
X-Git-Tag: 1.0.73~14
X-Git-Url: http://git.annexia.org/?p=libguestfs.git;a=commitdiff_plain;h=d278ef8ad9090441a713c7334804199318aeb3e1;hp=4c8bdd342450aad1f49a44a009eae015a44f9572

OCaml viewer: Handle exceptions properly.
---

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.