l4/pkg/ocaml/contrib/otherlibs/labltk/builtin/builtin_bindtags.ml

   1 ##ifdef CAMLTK
   2
   3 (* type *)
   4 type bindings =
   5   | TagBindings of string       (* tk option: <string> *)
   6   | WidgetBindings of widget    (* tk option: <widget> *)
   7 ;;
   8 (* /type *)
   9
  10 ##else
  11
  12 (* type *)
  13 type bindings = [
  14   | `Tag of string                (* tk option: <string> *)
  15   | `Widget of any widget         (* tk option: <widget> *)
  16 ]
  17 ;;
  18 (* /type *)
  19
  20 ##endif
  21