val f :
  Camltk.Widget.widget ->
  string -> string -> string -> Camltk.bitmap -> int -> string list -> int