val own_set :
?command:(unit->unit) -> ?selection:string -> 'a widget -> unit
(* tk invocation: selection own <icccm list> <widget> *)