diff options
Diffstat (limited to 'otherlibs/labltk/support/camltkwrap.ml')
| -rw-r--r-- | otherlibs/labltk/support/camltkwrap.ml | 8 |
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 *) |