blob: feffcdf96b61981b05c440badb004850197438ea (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
(* builtin to handle callback association to widget *)
let own_set ?:command =
selection_ownset_icccm_optionals ?:command (fun opts w ->
tkEval [|TkToken"selection";
TkToken"own";
TkTokenList
(List.map
fun:(function x ->
cCAMLtoTKselection_ownset_icccm w x)
opts);
cCAMLtoTKwidget w|];
())
|