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

   1 ##ifdef CAMLTK
   2
   3 (* builtin to handle callback association to widget *)
   4 let own_set v1 v2 =
   5   tkCommand [|
   6     TkToken"selection";
   7     TkToken"own";
   8     TkTokenList
   9       (List.map
  10          (function x -> cCAMLtoTKicccm v2 icccm_selection_ownset_table x)
  11          v1);
  12     cCAMLtoTKwidget widget_any_table v2
  13   |]
  14 ;;
  15
  16 ##else
  17
  18 (* builtin to handle callback association to widget *)
  19 let own_set ?command =
  20   selection_ownset_icccm_optionals ?command (fun opts w ->
  21     tkCommand [|
  22       TkToken"selection";
  23       TkToken"own";
  24       TkTokenList opts;
  25       cCAMLtoTKwidget w
  26   |])
  27 ;;
  28
  29 ##endif