(* 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|])