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]