method set_active_value (v:string) = try let i = raise_when_none (List.indexOf v self#choices) in self#box#set_active i ; self#childs_rebuild () with _ -> ()