Incorporation des améliorations de la dernière version de ocamltk41,

en particulier gestion des alertes du compilateur Caml.


git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2819 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

1 files changed, 19 insertions, 21 deletions

diff --git a/otherlibs/labltk/builtin/canvas_bind.ml b/otherlibs/labltk/builtin/canvas_bind.ml
index ed646fe47..3f999b8aa 100644
--- a/otherlibs/labltk/builtin/canvas_bind.ml
+++ b/otherlibs/labltk/builtin/canvas_bind.ml
@@ -1,23 +1,21 @@
 let bind :tag :events ?(:extend = false) ?(:breakable = false) ?(:fields = [])
     ?:action widget =
-  ignore begin
-    tkEval
-      [| cCAMLtoTKwidget widget;
-         TkToken "bind";
-         cCAMLtoTKtagOrId tag;
-         cCAMLtoTKeventSequence events;
-         begin match action with None -> TkToken ""
-         | Some f ->
-             let cbId =
-               register_callback widget callback: (wrapeventInfo f fields) in
-             let cb = if extend then "+camlcb " else "camlcb " in
-             let cb = cb ^ cbId ^ writeeventField fields in
-             let cb =
-               if breakable then 
-                 cb ^ " ; if { $BreakBindingsSequence == 1 } then { break ;}"
-                 ^ " ; set BreakBindingsSequence 0"
-               else cb in
-             TkToken cb
-         end
-       |]
-  end
+  tkCommand
+    [| cCAMLtoTKwidget widget;
+       TkToken "bind";
+       cCAMLtoTKtagOrId tag;
+       cCAMLtoTKeventSequence events;
+       begin match action with None -> TkToken ""
+       | Some f ->
+           let cbId =
+             register_callback widget callback: (wrapeventInfo f fields) in
+           let cb = if extend then "+camlcb " else "camlcb " in
+           let cb = cb ^ cbId ^ writeeventField fields in
+           let cb =
+             if breakable then 
+               cb ^ " ; if { $BreakBindingsSequence == 1 } then { break ;}"
+               ^ " ; set BreakBindingsSequence 0"
+             else cb in
+           TkToken cb
+       end
+     |]