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