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