Les fonctions internal_tracevis et internal_tracedestroy sont mal declarees.

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

1 files changed, 4 insertions, 4 deletions

diff --git a/otherlibs/labltk/support/camltkwrap.ml b/otherlibs/labltk/support/camltkwrap.ml
index 5afe864df..5b49b19f0 100644
--- a/otherlibs/labltk/support/camltkwrap.ml
+++ b/otherlibs/labltk/support/camltkwrap.ml
@@ -23,12 +23,12 @@ end
 module Protocol = struct
   open Widget
   include Protocol
-      
+
   let opentk () = coe (opentk ())
   let opentk_with_args args = coe (opentk_with_args args)
   let openTk ?display ?clas () = coe (openTk ?display ?clas ())
 
-  let cCAMLtoTKwidget table w = 
+  let cCAMLtoTKwidget table w =
     Widget.check_class w table; (* we need run time type check of widgets *)
     TkToken (Widget.name w)
 
@@ -71,7 +71,7 @@ module Timer = struct
   let remove = remove
 end
 
-(* 
+(*
 Not compiled in support
-module Tkwait = Tkwait 
+module Tkwait = Tkwait
 *)