sig
  val clear :
    ?displayof:'a Widget.widget -> ?selection:string -> unit -> unit
  val get :
    ?displayof:'a Widget.widget ->
    ?selection:string -> ?typ:string -> unit -> string
  val own_get :
    ?displayof:'a Widget.widget ->
    ?selection:string -> unit -> Widget.any Widget.widget
  val handle_set :
    command:(pos:int -> len:int -> string) ->
    ?format:string ->
    ?selection:string -> ?typ:string -> 'a Widget.widget -> unit
  val own_set :
    ?command:(unit -> unit) -> ?selection:string -> 'a Widget.widget -> unit
end