let fromList
?(key:string="unused_key")
?(callback:((choice->unit) option) = None )
?(packing:((GObj.widget -> unit) option) = None )
(lst:choices)
= let g = (fun r -> lst) in
let m = (mkenv []) in
make ~generator:g ~msg:m ~key ~callback ~packing