[paparazzi-commits] [4787] add exception handling around renderer

[Pascal Brisset]

Revision: 4787
          http://svn.sv.gnu.org/viewvc/?view=rev&root=paparazzi&revision=4787
Author:   hecto
Date:     2010-04-04 15:48:44 +0000 (Sun, 04 Apr 2010)
Log Message:
-----------
 add exception handling around renderer

Modified Paths:
--------------
    paparazzi3/trunk/sw/lib/ocaml/papget.ml

Modified: paparazzi3/trunk/sw/lib/ocaml/papget.ml
===================================================================
--- paparazzi3/trunk/sw/lib/ocaml/papget.ml     2010-04-04 15:38:56 UTC (rev 
4786)
+++ paparazzi3/trunk/sw/lib/ocaml/papget.ml     2010-04-04 15:48:44 UTC (rev 
4787)
@@ -190,7 +190,10 @@
     method deleted = deleted
 
     method update = fun value ->
-      (renderer#update:string->unit) value
+      try
+       (renderer#update:string->unit) value
+      with
+       exc -> prerr_endline (Printexc.to_string exc)
 
     method event = fun (ev : GnoCanvas.item_event) ->
       let item = (renderer#item :> PR.movable_item) in