class t (Widget.widget) =
 method  f : string -> unit
 method ok : string -> unit
 method choose: string -> bool
 method ari : string -> int
end

val default : t

val f : string -> unit
val ok : string -> unit
val choose : string -> bool
val ari : string -> int

