X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmatita%2FmatitaGtkMisc.ml;h=9aa4644cbce66b55428a3f83eea32e28e93c3b88;hb=44d337f8d772c6895d310a1b1d62770c3355fe03;hp=b0624241a8f140c11732a911cc2e960e8d508eb0;hpb=b47af4383d51dae275964d464e6a8faf2a5a3f51;p=helm.git diff --git a/helm/matita/matitaGtkMisc.ml b/helm/matita/matitaGtkMisc.ml index b0624241a..9aa4644cb 100644 --- a/helm/matita/matitaGtkMisc.ml +++ b/helm/matita/matitaGtkMisc.ml @@ -29,13 +29,6 @@ open Printf open MatitaTypes let wrap_callback f = f -(* -let wrap_callback f () = - try - f () - with exn -> - MatitaLog.error (sprintf "Uncaught exception: %s" (Printexc.to_string exn)) -*) let connect_button (button: #GButton.button) callback = ignore (button#connect#clicked (wrap_callback callback))