let params_for_item ~from_utf8 ~to_utf8 item =
  let title = Configwin.string
      ~f: (fun s -> item.item_title <- from_utf8 s)
      "Title: " (to_utf8 item.item_title)
  in
  let desc = Configwin.text
      ~f:(fun s -> item.item_desc <- opt_of_string (from_utf8 s))
      "Details: " (to_utf8 (string_of_opt item.item_desc))
  in
  [title;desc]