value handle_set : icccm list -> widget -> (int -> int -> unit) -> unit
(* tk invocation: selection handle <icccm list> <widget> <command> *)
;;

 tk invocation: selection handle <icccm list> <widget> <command> 
value handle_set : icccm list -> widget -> (int -> int -> unit) -> unit
;;
