30 lines
594 B
OCaml
30 lines
594 B
OCaml
##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
|