module Bell: sig .. end
sig
end
val ring : ?displayof:'a Widget.widget -> unit -> unit
?displayof:'a Widget.widget -> unit -> unit