Blame builtin/selection_own_set.ml
|
Packit |
bd2e5d |
##ifdef CAMLTK
|
|
Packit |
bd2e5d |
|
|
Packit |
bd2e5d |
(* builtin to handle callback association to widget *)
|
|
Packit |
bd2e5d |
let own_set v1 v2 =
|
|
Packit |
bd2e5d |
tkCommand [|
|
|
Packit |
bd2e5d |
TkToken"selection";
|
|
Packit |
bd2e5d |
TkToken"own";
|
|
Packit |
bd2e5d |
TkTokenList
|
|
Packit |
bd2e5d |
(List.map
|
|
Packit |
bd2e5d |
(function x -> cCAMLtoTKicccm v2 icccm_selection_ownset_table x)
|
|
Packit |
bd2e5d |
v1);
|
|
Packit |
bd2e5d |
cCAMLtoTKwidget widget_any_table v2
|
|
Packit |
bd2e5d |
|]
|
|
Packit |
bd2e5d |
;;
|
|
Packit |
bd2e5d |
|
|
Packit |
bd2e5d |
##else
|
|
Packit |
bd2e5d |
|
|
Packit |
bd2e5d |
(* builtin to handle callback association to widget *)
|
|
Packit |
bd2e5d |
let own_set ?command =
|
|
Packit |
bd2e5d |
selection_ownset_icccm_optionals ?command (fun opts w ->
|
|
Packit |
bd2e5d |
tkCommand [|
|
|
Packit |
bd2e5d |
TkToken"selection";
|
|
Packit |
bd2e5d |
TkToken"own";
|
|
Packit |
bd2e5d |
TkTokenList opts;
|
|
Packit |
bd2e5d |
cCAMLtoTKwidget w
|
|
Packit |
bd2e5d |
|])
|
|
Packit |
bd2e5d |
;;
|
|
Packit |
bd2e5d |
|
|
Packit |
bd2e5d |
##endif
|