otherlibs/labltk/builtin/selection_own_set.ml


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

##ifdef CAMLTK

(* builtin to handle callback association to widget *)
let own_set v1 v2 =
  tkCommand [|
    TkToken"selection";
    TkToken"own";
    TkTokenList
      (List.map
         (function x -> cCAMLtoTKicccm v2 icccm_selection_ownset_table x)
         v1);
    cCAMLtoTKwidget widget_any_table v2
  |]
;;

##else

(* builtin to handle callback association to widget *)
let own_set ?command =
  selection_ownset_icccm_optionals ?command (fun opts w ->
    tkCommand [|
      TkToken"selection";
      TkToken"own";
      TkTokenList opts;
      cCAMLtoTKwidget w
  |])
;;

##endif