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