let select_in_list ?ok ?cancel ?(allow_empty=false) ?(value_in_list=true) ~title ~choices message =
let wc = GEdit.combo
~popdown_strings: choices
~allow_empty
~value_in_list
()
in
input_widget ~widget:wc#coerce ~event:wc#entry#event
~get_text:(fun () -> wc#entry#text) ~bind_ok:true
~expand: false
~title ?ok ?cancel message