let make
~(generator: ((string,string) env)->(string list))
(** The option generator. May be a constant function as particular case. *) |
~(msg:(string,string) env)
(** The input for the generator. *) |
~(key:string)
(** The key of the pair (key,value) send to its childs. *) |
~(callback:(choice->unit) option)
(** An optional callback function, to call at any change *) |
~(packing:(GObj.widget -> unit) option)
(** The packing function. *) |
= let self = new comboTextTree ~generator ~msg ~key ~callback ~packing in
let _ = self#initialize_callbacks in self